VB实验详解.docx

第 1 章
实验一
任务一
Private Sub Form_click()
= "good good study , day day up !"
End Suivate Sub Command1_Click()
= 1
End Sub
Private Sub Command2_Click()
= 3
End Sub
Private Sub Command3_Click()
= 0
End Sub
任务四
Private Sub Form_Load()
=
= + -
=
= + -
End Sub
Private Sub HScroll1_Change()
=
End Sub
Private Sub VScroll1_Change()
=
End Sub
任务五
Dim a As Single, r As Single, x0 As Single, y0 As Single
Private Sub Command1_Click()
= 500
= True
End Sub
Private Sub Command2_Click()
= False
End Sub
Private Sub Form_Load()
r = / 2
x0 = + / 2
y0 = + / 2
= x0
= y0
= x0 + r
= y0
End Sub
Private Sub Timer1_Timer()
a = a - 30
= r * Cos(a * / 180) + x0
= y0 - r * Sin(a * / 180)
End Sub
第 3 章 选择结构程序设计实 验 一
任务一
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = InputBox(" 输入第一个数据 ")
b = InputBox(" 输入第二个数据 ")
If a > b Then Print " 较大的数是 "; a Else Print " 较大的数是 "; b End Sub
任务二
Private Sub Command1_Click()
Dim a As String * 1
a = InputBox(" 输入一个字符 ")
If a >= "A" And a <= "Z" Then
Print LCase(a)
Else
Print a
End If
End Sub
任务三
Private Sub command1_Click()
If text1 = " 张三 " And text2 = "123456" Then


Else
MsgBox " 用户名或密码错误 "
End If
End Sub
任务四
一个文本，一个命令按钮
Dim a As Single
a = Text1
If Int(a) = a Then
Print a & " 是整数 "