VB实验复习资料.docx

1、VB实验复习资料实验一：用print方法显示窗体的当前位置（P23）程序代码如下： 命令按钮的单击事件Private Sub Command1_Click() 改变 Left 和 Top 属性值移动窗体 Me.Left = Me.Left + 200 Me.Top = Me.Top + 200 Cls 清屏 Print 窗体左上角在屏幕上的坐标为： Print Me.Left; ，; Me.Top Print 单击窗体恢复原位。End SubPrivate Sub Form_Click() 窗体的单击事件 恢复窗体初始位置 Me.Left = 300 Me.Top = 300 Cls Prin

2、t 窗体左上角在屏幕上的坐标为： Print Me.Left; ，; Me.TopEnd Sub实验二：制作密码文本框(P42)程序代码如下： 【显示密码】命令按钮的单击事件Private Sub Command1_Click()Text1.PasswordChar = End Sub【隐藏密码】命令按钮的单击事件Private Sub Command2_Click()Text1.PasswordChar = *End Sub实验三：判断一个数是不是偶数（P69 例 4.2） 程序代码如下：【判断】命令按钮单击事件Private Sub Command1_Click() Dim A As In

3、teger x = Val(Text1.Text) If x Mod 2 = 0 Then Label2.Caption = x & 是偶数。 Else Label2.Caption = x & 是奇数。 End IfEnd Sub【清除】命令按钮单击事件Private Sub Command2_Click() Text1.Text = Label2.Caption = End Sub实验四：判断成绩等级（P75 例4.6） 程序代码如下：【显示等级】命令按钮单击事件Private Sub Command1_Click() Dim Score As Integer Score = Val(Te

4、xt1.Text) Select Case Score Case 90 To 100 Label2.Caption = Score & 分为等级A Case 80 To 89 Label2.Caption = Score & 分为等级B Case 70 To 79 Label2.Caption = Score & 分为等级C Case 60 To 69 Label2.Caption = Score & 分为等级D Case 0 To 59 Label2.Caption = Score & 分为等级E Case Else Label2.Caption = 成绩有误，请重新输入！ End Sele

5、ctEnd Sub实验五：用If语句及嵌套实现3个数字的排序（P85） 程序代码如下：【排序】命令按钮单击事件Private Sub Command1_Click() Dim x As Single, y As Single, z As Single, t As Single x = Val(Text1.Text) y = Val(Text2.Text) z = Val(Text3.Text) If x y Then t = x: x = y: y = t End If If x z Then t = x: x = z: z = t End If If y = 0 Then Combo1.RemoveItem Combo1.ListIndex Label2.Caption = Combo1.ListCount Else Label2.Caption = Label2.Caption =