一个VB的编程问题

一个VB编程题~

orm load()
'int i,j,m,n,sum
m =inputbox("输入最小正整数")
n =inputbox ("输入最大正整数")
for j=m to n
sum=0
for i=1 to j
if (j mod i=0) and (i <>j ) then sum=sum i
next
if j=sum then print sum & " 是完全数"
next
print "查找完毕"
beep
end sub

If cnn = 7 Then Command1.BackColor = vbRed Else
应该是conn=7吧，你都没有定义cnn是做什么的，怎么会有结果了

要建一个intel控件
Dim xx As String, yy As String, url As String
Dim t As Double
url = "http://www.xxxx.com/xxxx.txt"
Inet1.Cancel
Inet1.Execute url, "get"

t = Timer
Do
DoEvents
If Inet1.StillExecuting = False Or Abs(t - Timer) > 20 Then Exit Do
Loop
xx = ""
Do
DoEvents
yy = Inet1.GetChunk(32768)
If yy = "" Or Abs(t - Timer) > 20 Then Exit Do
xx = xx & Uf8ToUf(yy) ‘为了解决中文乱码问题的函数
dl = xx
Loop

Public Function Uf8ToUf(strUf8 As String) As String
'将UF8转为VB内部处理编码UF
'
'
On Error GoTo MyErr
Dim lngStrLen As Long '需转换的字符串长度
Dim byUf8() As Byte '保存源字符串
Dim byUf(1) As Byte '字符串暂存1
Dim strDef As String '字符串暂存2
Dim i As Long '哨兵计数
Dim strUf As String '存放结果字符串

byUf8() = StrConv(strUf8, vbFromUnicode)
'将当前显示为“乱码”Gb2132转换为VB内部处理编码-Unicode码，并保存到Byte数组

lngStrLen = UBound(byUf8) '获得字符串长度

i = 0
Do While i < lngStrLen
If byUf8(i) < 128 Then '非中文..不作处理。
strUf = strUf & Chr(byUf8(i))
i = i + 1
Else '是中文
byUf(1) = ((byUf8(i) And 15) * 16 + (byUf8(i + 1) And 60) / 4)
'取得第一个字节的后4位与第二个字节的中间4位

byUf(0) = (byUf8(i + 1) And 3) * 64 + (byUf8(i + 2) And 63)
'取得第二字节的后2位与第三个字节的后6位

strDef = byUf
strUf = strUf & strDef

i = i + 3
End If
'DoEvents
Loop

'转最后字符时我没有计算出来。。只能用错误处理。。但结果绝对问题
MyErr:
Uf8ToUf = strUf '返回VB内部处理的UF编码
End Function
Public Function getword(aa As String) As String
Dim p As String, s As String
For i = 1 To 20
p = Mid(aa, i, 1)
Select Case p

Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "$"
s = s & p

Case "/"
If Mid(s, i + 1, 1) <> "/" Then s = s & p
End Select
Next

getword = Replace(s, "//", "")
End Function

---

惠山区14749833277： VB的一个简单编程问题!？
仝欣艾可： 素数的定义是只能被其自己和1整除,所以,通过循环: VB的话 function Check(N as Integer) as Boolean '返回结果是Boolean,True:是素数,False:非素数dim loop as integerfor loop=2 to N-1 doif (N mod loop)=0 thenCheck=False '可以整除,非素数Exitend ifend forCheck=True end function '不可以整除,素数 of course,this problem is very easy in programming.

惠山区14749833277： VB编程的几个小问题 - ？
仝欣艾可： 1、来自msdn:Opcode 可选的.是长型值或仅由位图使用的代码.它用来定义在将 pictur 绘制到 object 上时对 picture 执行的位操作(例如, vbMergeCopy 或 vbSrcAnd 操作符).关于位操作符常数的完整列表,请参阅 Visual Basic Help 文件中...

惠山区14749833277： 关于VB编程的一个代码的问题PrivateSubForm - Lo ？
仝欣艾可： 不可以,定义在Form_load和在Command_Click里的都是局部变量,只在当前的块里有效.要在全局用到必须要在通用声明或者类里定义.

惠山区14749833277： 请教一个VB编程问题 - ？
仝欣艾可： 那是肯定的,zz0数据是变长数组,根据分隔符的数量来决定数组的长度,三个分隔符,数组长度自然是3,即0 到 2 .有时需要知道数组的上界值和下界值,这可以通过I,Bound和u:Bound函数来测试.

惠山区14749833277： 一道VB编程问题？
仝欣艾可： 在form_Load事件中写, dim i as integer dim n,m as string n=inputbox(＂输入一个数字＂) for i =len(n) to 1 step -1 m =m & mid(n,i,1) next msgbox ＂反向是＂ & m

惠山区14749833277： vb编程的一个简单问题 - ？
仝欣艾可： msgbox怕是不好改吧:你可建立一个用户窗体(UserForm1),窗体中加一标签(label1) auto_open中这样写:Sub auto_open() UserForm1.Caption = ＂集团有限责任公司＂ UserForm1.Label1.Font.Size = ＂24＂ UserForm1.Label1.ForeColor = vbRed UserForm1.Label1.Caption = ＂ 综合服务中心专用＂ Load UserForm1 UserForm1.Show End Sub

惠山区14749833277： VB编程问题？
仝欣艾可： '在窗体上画一个标签(标题为“添加项目”)、1个文本框(初始内容为空白)、1个下拉式组合框和两个命令按钮. '把两个命令按钮的标题分别设置为“添加”和“统计”;通过属性窗口向组合框中输入若干项目,例如AAAA,BBBB,CCCC,...

惠山区14749833277： VB编程问题 - ？
仝欣艾可： 执行顺序问题,这样写的话,你显示结果的时候,S还没计算出来 应该把text3.text = str(s)这句放在 END SUB前

惠山区14749833277： 一个vb程序的问题 - ？
仝欣艾可： 因为等于Ubound(a),循环还会继续,到下一次的时候就大1了,循环退出

惠山区14749833277： 求高手为我解答一个VB编程问题,十分感谢! - ？
仝欣艾可： WebBrowser1.Enabled=False'使WebBrowser1不可用 WebBrowser1.E