For i = 0 To 19
s = s + i
Next
If A<B Then
r = A
A = B
B = r
End If
Dim t As Integer
t = 0
Do While t <= 100
t = t + 1
Loop
Private Sub Command1_Click()
a = 100: b = 150: c = 2000: d = 2000
Cls
Line (a, b)-(c, d), vbBlue, B
End Sub
Private Sub Form_Click()
a = 3: b = 7
a = a + b : b = a - b : a = a - b
Print a; b
End Sub
PrivateSub Timer1_Timer( )
If s = 1 Then ' 如果s=1
Image1.Visible =True ' 显示Image1控件
Image2.Visible =False ' 隐藏Image2控件
s = 2 ' 将s设置为2
Else ' 否则
Image2.Visible = ______ ' 显示Image1控件
Image1.Visible = ______ ' 隐藏Image2控件
s = 1 ' 将s设置为1
EndIf
EndSub
35题 | 被引用0次