Private Sub Form_Click()
Randomize
For i=1 to 20
T=Int(Rnd*900)+100
If T Mod 2=0 then
List1.additem T
Else
List2.AddItem T
End If
End Sub
No7
Private Sub Command1_Click
Dim S as string,S1 as String
S=Text1.Text
For i=1 to Len(S)
If Mid(S,i,1)>="0" And Mid(S,i,1)<="9" Then
S1=S1 & Mid(S,i,1)
End If
Next
Text2.Text=S1
No5:
字型型常量在使用時,兩邊要加半角的雙引號,如 "abc"
日期型常量在使用時,兩邊要加半角的井號,如 #2008-5-21#
字符常量的有: A,B
日期常量的有: C,D
什麽都不是的有 E F
No6:
合法的變量名有:A,D
B,C,F三個,不是以字母開頭,錯
E 中間不能有&,只能出現字母/數字/下劃線