VB学习资料(11)

VB入门必备,初学者也能看懂,这篇主要是VB入门基础,但却对你深入学习理解VB有很大的帮助,10个财富值,你不亏。

也可

s=0 n =1

Do Until n>100 s=s+n n=n+1 Loop

【例】将十进制数转换为二进制数 Private Sub Form_Click() Dim m As Integer

m = InputBox("enter m:") a$ = ""

While m <> 0 r = m Mod 2 a$ = r & a$ m = m \ 2 Wend

Print a$

End Sub 注意：

a$ = a$ & r 则为：4=001

列表框

列表框的方法

AddItem方法：用于在列表框中插入一个列表项。 格式：

列表框. AddItem 项目字符串[,索引值]

如省略索引值，则在列表框的最后插入新列表项。 【例】将文本框内容添加到列表框1 Private Sub Command1_Click() List1.AddItem Text1.Text End Sub

多重循环 说明：

（1）必须完整嵌套，不得交叉。

（2）Exit For语句和Exit Do语句只能退出当前层循环。