level 6
Private Sub Command1_Click()Dim aa As Stringaa = Text1.TextPrint aaEnd Sub
2008年06月06日 05点06分
1
level 6
建2个标签控件分别为label1,label2,caption属性分别为“请输入第一个数”，“请输入第二个数”建2个文本控件分别为text1,text2， caption属性分别为空建1个按扭控件，caption属性为“比较”程序代码为：Private Sub Command1_Click()Dim a As DoubleDim b As Doublea = Val(Text1.Text)b = Val(Text2.Text)If a > b Then MsgBox "最大数是:" & a Else MsgBox " 最大数是:" & bEnd Sub
2008年06月06日 10点06分
3
level 6
建LABEL控件，INPUTBOX控件程序代码；Private Sub Form_Click()Dim a As Doublea = InputBox("请输入一个数")If a < 0 Then MsgBox "您输入的是个负数"Print aEnd Sub
2008年06月06日 11点06分
11
level 6
Private Sub Command1_Click()Dim i, jgjg = 0For i = 1 To 100 jg = jg + 1Next iPrint "1到100所有整数之间的和为:" & jgEnd Sub
2008年06月07日 10点06分
16
level 6
Private Sub Command2_Click()Dim i, jgjg = 0For i = 0 To 100 Step 2 jg = jg + 1Next iPrint "1到100所有偶数之间的和为:" & jgEnd Sub
2008年06月07日 10点06分
17
level 6
Private Sub Command3_Click()Dim i, jgjg = 0For i = 1 To 100 Step 2 jg = jg + 1Next iPrint "1到100所有奇数之间的和为:" & jgEnd Sub
2008年06月07日 10点06分
18
level 6
Private Sub Form_Load()Dim a As IntegerDim b As IntegerDim jgstr As String For a = 1 To 9 jgstr = "" For b = 1 To 9 jgstr = jgstr & a & "*" & b & "=" & a * b & vbTab Next b Print jgstrNext aEnd Sub怎么回事，为什么CLICK没有反应？
2008年06月08日 23点06分
19
