我是一个初学者 能帮我解释下?号处的意思吗

来源:百度知道 编辑:UC知道 时间:2024/06/14 17:32:52
我是一个初学者 能帮我解释下?号处的意思吗
Dim X, Y, a, b As Single
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End
End Sub
Private Sub Form_Load()
Set ball.Picture = LoadPicture(App.Path + "\earth.ico")
X = 10 ?
Y = 10 ?
a = 50 ?
b = 80 ?为什么要这样设置
End Sub
Private Sub Timer1_Timer()
ball.Move X, Y
X = X + a ?
Y = Y + b ?
If X >= Form1.Width - ball.Width Then a = 20 (这里是意思) If Y >= Form1.Height - ball.Height Then b = -30 (起什么作用)
If X <= 0 Then a = 20 ?
If Y <= 0 Then b = 30 ?
End Sub
ball.Move X, Y
X = X + a ?
Y = Y + b

Private Sub Command1_Click() '点击Command1按钮后执行下面语句
Dim a, b, c As String
a = Text1.Text a=文本框text1的值
b = Text2.Text b=文本框text2的值
c = a c=a的值
a = b a又被重新赋予b的值
b = c b再次重新赋予c的值,即等于文本框text1的值
Print "a="; a, "b="; b 在屏幕上打印a= b=
End Sub

最终输出结果:
a= 文本框text2的值 b=文本框text1的值
就是交换变量内容,计算机课用的。
向你推荐个网址,希望对你有帮助http://blog.163.com/jiaxf.ok/blog/static/916484422009529115312637/