VB程序设计教程实验指导.docVIP

自测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 = visual basic Text1 = 程序设计题 End Sub Private Sub Command2_Click() Text1 = visual basic 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 = VB学习 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 e = a Mod 10 个位 d = (a \ 10) Mod 10 十位 c = (a \ 100) Mod 10 百位 b = a \ 1000 千位 i = (e + 7) Mod 10 个位 h = (d + 7) Mod 10 十位 g = (c + 7) Mod 10 百位 f = (b + 7) Mod 10 千位 j = i i = f 交换后的个位 f = j 交换后的千位 k = h h = g 交换后的十位 g = k 交换后的百位 l = f * 1000 + g * 100 + h * 10 + i Text1.Visible = False Print 加密前的4位整数是7439; (Chr(10)); 加密后的结果是; l End Sub 初始界面