VB程序的設(shè)計教程實驗指導(dǎo)與習題解答上機答案

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 = 程序設(shè)計題End SubPrivate Sub Command2_Click()Text1 = visual basicLabel1 = 程序設(shè)計題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程序設(shè)計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位整數(shù)是7439; (Chr(10); 加密后的結(jié)果是; lEnd Sub初始界面單擊窗體運行后的界面自測練習1Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox(輸入第一個數(shù), 輸入一個數(shù), 8)b = Val(InputBox(輸入第一個數(shù), 輸入一個數(shù), 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, , 輸出的結(jié)果End Sub自測練習2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox(輸入第一個數(shù)的值)b = Val(InputBox(輸入第二個數(shù)的值)c = Val(InputBox(輸入第三個數(shù)的值)d = Val(InputBox(輸入第四個數(shù)的值)e = a + b + c + df = e / 4Print 和=; ePrint 平均值=; fEnd Sub自測練習3Private Sub

9、 Form_Click()Dim h%, f%, x%, y%h = Val(InputBox(輸入總頭數(shù))f = Val(InputBox(輸入總腳數(shù))x = (4 * h - f) / 2y = (f - 2 * h) / 2Print 籠中雞的頭數(shù)為; x; 只Print 籠中兔的頭數(shù)為; 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不是三角形運行結(jié)果：初始窗口：輸入三條邊：運行結(jié)果：直角三角形運行結(jié)果：等邊三角形運行結(jié)果如下：等腰

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初始化窗口：輸入一個數(shù)：運行結(jié)果：自測練習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運行初始界面：運行結(jié)果界面：驗證其他數(shù)字：自測練習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運行初始界面：運行結(jié)果：自測練習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運行初始界面：運行結(jié)果界面：自測練習2：Private Sub Dis_Click()Text1.Text = 菜單程序設(shè)計Text1.FontSize = 20Text1.FontName = 黑體End SubPrivate Sub Hid_Click()Text1.Visible = FalseEnd Sub運行初始界面：運行結(jié)果界面：自測練習3：Private Sub vbhelp_Click()r = MsgBox(幫助, , 程序設(shè)計題)End SubPrivate Sub Vbnew_C

17、lick()r = MsgBox(新建, , 程序設(shè)計題)End SubPrivate Sub vbopen_Click()r = MsgBox(打開, , 程序設(shè)計題)End SubPrivate Sub vbsave_Click()r = MsgBox(存盤, , 程序設(shè)計題)End Sub運行初始界面：運行結(jié)果：自測練習4：Private Sub Command1_Click()CommonDialog1.Action = 1List1.AddItem CommonDialog1.FileNameEnd Sub運行初始界面：運行結(jié)果：自測練習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運行初始界面：運行結(jié)果：自測練習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 字母個數(shù)分別為End SubPrivate Sub F