如果一个数字的所有因子（包括1，但不包括该数本身）之和等于该数字，那么这个数字就称为完全数。设计一个程序，求3-1000之间的所有完全数，要求打印其因子。 求大侠帮助

如果一个数字的平方的低位与该数字相同，那么这个数字就称为“守形数”，比如252=625，那么25就是一个守形数。设计一个程序找出3-1000万之间的所有守形数。 我对vb不熟悉，但是这个程序要用vb语言去做？跪求，谢谢

利用VB的Winsock控件，通过UDP协议实现两台机器的聊天进程相互传送数据（程序中可以读取本地机器的IP地址，可以设置进程绑定的本地端口、远程机器的IP地址和远程机器的端口号。当两台机器的聊天进程同时启动以后，在一台机器的聊天进程中输入的字符串可以在另一台机器的聊天进程中显示出来） 求代码 ，谢谢 我的邮箱：clzn188@163.com

1.如何清空表 DATA1GRID1? 2.如 我 想表 是5行 5列的, 第一行,是 1 2 3 4 5 第二行是 6 7 8 9 10 第三行是 11 12 13 14 15 如此类推 怎么样手动设置?谢谢

ADODB对象有哪些？ado data控件、data控件和rdo控件属于ADODB对象？

VB代码中： sql = "select ××××××××" Set rs = con.Execute("update ×× SET aa ='sql'") aa ='sql'正确应该怎么表达？ 谢谢大家！

请根据下面的HTML代码帮我分析一下，如果我想用webbrowser控件读取其中的 欠费金额，应该如何查找呢？ 最好有具体的完成语句， 要求读出的格式为：（举例如下，不一定代表就是下面代码的数据） =========================== 序号 年度 欠费金额 滞纳金 1 2011 1200.00 23.14 2 2010 800.00 145.70 3 2007 360.00 3689.70 =========================== 要完成上述“=”内部的内...

Form1 打开子窗体Form2 怎么才能当Form2没有关系前，不能操作Form1，也不能点击，就像弹出提示框一样，谁给段代码

Private Sub Command1_Click() Dim pos As Integer pos = Len(Me.RichTextBox1.Text) Me.RichTextBox1.Text = Me.RichTextBox1.Text & vbCrLf & "aaa " Me.RichTextBox1.SelStart = pos Me.RichTextBox1.SelLength = Len(Me.RichTextBox1.Text) - pos Me.RichTextBox1.SelColor = RGB(255, 0, 0) End Sub 我所希望的就是文本框每增添一次內容時﹐給新的內容加上顏色﹐同時原...

如有一个ACCESS 表是DB1.MDB的DB1,有如下字段 name scores date 张三 100 20101231 李四 210 20110102 李四 213 20110102 王五 500 20110103 张三 200 20100231 ... NAME 有可能是重复的,DATE也是. 现在有两个LISTBOX, 请问怎么把 张三 李四 王五 放入LIST1 , 以及DATE放入LIST2? 要求每个LIST下的名字只出现一次的. 那怎么