VB程序设计教程实验指导与习题解答上机答案

自测 1 程序代码

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click() = True End Sub

Private Sub Command3_Click() = True End Sub

Private Sub Command4_Click() = 10 = False = False End Sub

初始窗口： 单机放大之后窗口： 单机下划线之后窗口： 单击加粗之后窗口：

自测 2

单击还原之后窗口：

程序代码

Private Sub Command1_Click() Label1 = \Text1 = \程序设计题 \End Sub

Private Sub Command2_Click() Text1 = \Label1 = \程序设计题 \End Sub

初始窗口： 单击显示之后窗口： 单击交换之后的窗口： 自测题 3

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click() = + 30

End Sub= + 20 = 1

初始窗口：

单击缩小两倍之后的窗口： 单击向右下角移动之后的窗口： 自测题 4 程序代码

Private Sub Command1_Click() = \学习 \

Print\简单的VB程序设计\End Sub

Private Sub Command2_Click() Cls End Sub

Private Sub Command3_Click() End End Sub

Private Sub Command3_Click() End End Sub

初始化窗口： 单击显示之后的窗口：击清除之后的窗口：

自测题 5

单击退出之后的窗口：

单