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

自测1 程序代码

Private Sub Command1_Click()

Label1.FontSize = Label1.FontSize + 3 End Sub

Private Sub Command2_Click() Label1.FontBold = True End Sub

Private Sub Command3_Click() Label1.FontUnderline = True End Sub

Private Sub Command4_Click() Label1.FontSize = 10 Label1.FontBold = False Label1.FontUnderline = 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()

Label1.FontSize = Label1.FontSize * (0.5) End Sub

Private Sub Command2_Click() Label1.Top = Label1.Top + 30 Label1.Width = Label1.Width + 20 Label1.Alignment = 1 End Sub 初始窗口：

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

Private Sub Command1_Click() Form1.Caption = \学习\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

程序代码

Private Sub Command1_Click() Text1.Text = \Text2.Text = \End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub

Private Sub Command3_Click() End End Sub 初始化窗口： 单击运算之后窗口： 单击清除之后的窗口： 单

击

退

出

之

后

的

窗

口

：

自测练习1

Private Sub Command1_Click() Dim a$ a = Text1.Text

Label1.Caption = Left(a, 2) End Sub

Private Sub Command2_Click() a = Text1.Text

Label2.Caption = Right(a, 2) End Sub

Private Sub Command3_Click()

Text1.Text = Label1.Caption & Label2.Caption End Sub 初始窗口界面 输入字符串 截取前两个字符 截取后两个字符 字符串连接 自测练习2

Private Sub Form_Click()

Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l% a = 7349