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

1、 WORD 自测1程序代码Private Sub Command1_Click()Label1.FontSize = Label1.FontSize + 3End SubPrivate Sub Command2_Click()Label1.FontBold = TrueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd SubPrivate Sub Command4_Click()Label1.FontSize = 10Label1.FontBold = FalseLabel1.FontUnderline = Fa

2、lseEnd Sub初始窗口：单机放大之后窗口：单机下划线之后窗口：单击加粗之后窗口：单击还原之后窗口：自测2程序代码Private Sub Command1_Click()Label1 = visual basicText1 = 程序设计题End SubPrivate Sub Command2_Click()Text1 = visual basicLabel1 = 程序设计题End Sub初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题3Private Sub Command1_Click()Label1.FontSize = Label1.FontSize * (0.5)End Su

3、bPrivate Sub Command2_Click()Label1.Top = Label1.Top + 30Label1.Width = Label1.Width + 20Label1.Alignment = 1End Sub初始窗口：单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题4程序代码Private Sub Command1_Click()Form1.Caption = VB学习Print 简单的VB程序设计End SubPrivate Sub Command2_Click()ClsEnd SubPrivate Sub Command3_Click()EndEnd Su

4、bPrivate Sub Command3_Click()EndEnd Sub初始化窗口：单击显示之后的窗口：单击清除之后的窗口：单击退出之后的窗口：自测题5程序代码Private Sub Command1_Click()Text1.Text = Text2.Text = End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command3_Click()EndEnd Sub初始化窗口：单击运算之后窗口：单击清除之后的窗口：单击退出之后的窗口：自测

5、练习1Private Sub Command1_Click()Dim a$a = Text1.TextLabel1.Caption = Left(a, 2)End SubPrivate Sub Command2_Click()a = Text1.TextLabel2.Caption = Right(a, 2)End SubPrivate Sub Command3_Click()Text1.Text = Label1.Caption & Label2.CaptionEnd Sub初始窗口界面输入字符串截取前两个字符截取后两个字符字符串连接自测练习2Private Sub Form_Click()

6、Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l%a = 7349e = 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 = ii = f 交换后的个位f = j 交换后的千位k = hh = g 交换后的十位g = k 交换后的百位l = f * 1000 + g * 100 + h * 10

7、 + iText1.Visible = FalsePrint 加密前的4位整数是7439; (Chr(10); 加密后的结果是; lEnd Sub初始界面单击窗体运行后的界面自测练习1Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox(输入第一个数, 输入一个数, 8)b = Val(InputBox(输入第一个数, 输入一个数, 7)c = a + bd = a - be = a * bf = a / bf = Fix(f * 100 + 0.5) / 100MsgBox x+y= & c & Chr(10)

8、& x-y= & d & Chr(10) & x*y= & e & Chr(10) & x/y= & f, , 输出的结果End Sub自测练习2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox(输入第一个数的值)b = Val(InputBox(输入第二个数的值)c = Val(InputBox(输入第三个数的值)d = Val(InputBox(输入第四个数的值)e = a + b + c + df = e / 4Print 和=; ePrint 平均值=; fEnd Sub自测练习3Private Sub

9、 Form_Click()Dim h%, f%, x%, y%h = Val(InputBox(输入总头数)f = Val(InputBox(输入总脚数)x = (4 * h - f) / 2y = (f - 2 * h) / 2Print 笼中鸡的头数为; x; 只Print 笼中兔的头数为; y; 只End Sub自测练习1：Private Sub Form_Click()Dim a%, b%, c%a = Val(InputBox(请输入第一条边, 边长)b = Val(InputBox(请输入第二条边, 边长)c = Val(InputBox(请输入第三条边, 边长)If a + b

10、c And a + c b And b + c a ThenIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b = c * c = a * a ThenPrint 直角ElseIf a = b And b = c ThenPrint 等边三角形ElseIf a = b Or a = c Or b = c ThenPrint 等腰三角形ElsePrint 一般三角形End IfElsePrint 不是三角形End IfEnd Sub不是三角形运行结果：初始窗口：输入三条边：运行结果：直角三角形运行结果：等边三角形运行结果如下：等腰

11、三角形：一般三角形自测练习2：Private Sub Form_Click()Dim a%, b!a = Val(InputBox(请输入)If a Mod 2 = 0 And a Mod 3 = 0 And a Mod 5 = 0 Thenb = Sqr(a)Print a, bElseEndEnd IfEnd Sub初始化窗口：输入一个数：运行结果：自测练习3Private Sub Command1_Click()Dim a%, b%a = Val(Text1.Text)Select Case a 0Case a = 20 And a = 50 And a = 1c = Chr(a Mod

12、 10 + 48) & ca = a 10WendText2.Text = c End SubPrivate Sub Command1_Click()Dim a As Integera = Val(Text1.Text)Call itostr(a)End Sub运行初始界面：运行结果界面：验证其他数字：自测练习2：Public Function area(n) As DoubleDim c#, d#, e#, s#n = Val(Text2.Text)c = (1 - 0) / nWhile e a(j) Then t = a(i): a(i) = a(j): a(j) = t End If

13、Next jNext iFor i = 1 To 5Print a(i); ;Next iFor i = 1 To 5 If Y Combo1.ListCount - 1 ThenCombo1.AddItem Combo1.TextEnd IfEnd SubPrivate Sub Command2_Click()If Combo1.ListIndex -1 ThenCombo1.RemoveItem Combo1.ListIndexFor i = 0 To Combo1.ListCount - 1If Combo1.List(i) = Combo1.Text ThenCombo1.Remove

14、Item iEnd IfExit ForNext iEnd IfEnd SubPrivate Sub Command3_Click()Combo1.ClearEnd Sub运行初始界面:自测练习7：Private Sub Command1_Click()Timer1.Interval = 1Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()lbltemp1.FontSize = 20lbltishi.FontSize = 20Label1.FontSize = 20Label2.FontSize = 20End SubPrivate Sub

15、Timer1_Timer()VSbwd.Value = VSbwd.Value + 10lbltem = VSbwd.ValueIf VSbwd = 100 Thenlbltishi = 水开了Timer1.Enabled = FalseEnd IfEnd Sub运行初始界面：运行结果：自测练习1：Private Sub myhelp_Click()frmAbout.ShowEnd SubPrivate Sub mymenu1_Click()Text1.Text = 百货大楼End SubPrivate Sub mymenu2_Click()Text1.Text = 利客隆End SubPri

16、vate Sub mymenu3_Click()Text1.Text = 稻香村End Sub运行初始界面：运行结果界面：自测练习2：Private Sub Dis_Click()Text1.Text = 菜单程序设计Text1.FontSize = 20Text1.FontName = 黑体End SubPrivate Sub Hid_Click()Text1.Visible = FalseEnd Sub运行初始界面：运行结果界面：自测练习3：Private Sub vbhelp_Click()r = MsgBox(帮助, , 程序设计题)End SubPrivate Sub Vbnew_C

17、lick()r = MsgBox(新建, , 程序设计题)End SubPrivate Sub vbopen_Click()r = MsgBox(打开, , 程序设计题)End SubPrivate Sub vbsave_Click()r = MsgBox(存盘, , 程序设计题)End Sub运行初始界面：运行结果：自测练习4：Private Sub Command1_Click()CommonDialog1.Action = 1List1.AddItem CommonDialog1.FileNameEnd Sub运行初始界面：运行结果：自测练习1：Private Sub Command1_

18、Click()Dim a As String, n%, i%, j%Open E:Data.txt For Input As #1Input #1, an = Len(a)j = 0For i = 1 To nIf Mid(a, i, 1) = % Then j = j + 1Next iClose #1Open E:Datares.txt For Output As #1Print #1, jClose #1End Sub运行初始界面：运行结果：自测练习3：Private Sub Form_Click()Dim x$Open e:txt2.txt For Input As #1Do While Not EOF(1)Line Input #1, x$LoopClose #1Open e:txt1.txt For Append As #1Print #1, x$Close #1End Sub运行初始界面：自测练习4Private Sub Form_load()Print 26个英文字母PrintPrint a b c d e f g h i j k l m n o p q r s t u v w x y zPrint 字母个数分别为End SubPrivate Sub F