VB程序設(shè)計(jì)教程實(shí)驗(yàn)指導(dǎo)與習(xí)題解答上機(jī)答案

1、自測(cè)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 = FalseEnd

2、 Sub初始窗口：?jiǎn)螜C(jī)放大之后窗口：?jiǎn)螜C(jī)下劃線之后窗口：?jiǎn)螕艏哟种蟠翱冢簡(jiǎn)螕暨€原之后窗口：自測(cè)2程序代碼Private Sub Command1_Click()Label1 = "visual basic"Text1 = "程序設(shè)計(jì)題"End SubPrivate Sub Command2_Click()Text1 = "visual basic"Label1 = "程序設(shè)計(jì)題"End Sub初始窗口：?jiǎn)螕麸@示之后窗口：?jiǎn)螕艚粨Q之后的窗口：自測(cè)題3Private Sub Command1_Click()Label

3、1.FontSize = Label1.FontSize * (0.5)End SubPrivate Sub Command2_Click()Label1.Top = Label1.Top + 30Label1.Width = Label1.Width + 20Label1.Alignment = 1End Sub初始窗口：?jiǎn)螕艨s小兩倍之后的窗口：?jiǎn)螕粝蛴蚁陆且苿?dòng)之后的窗口：自測(cè)題4程序代碼Private Sub Command1_Click()Form1.Caption = "VB學(xué)習(xí)"Print "簡(jiǎn)單的VB程序設(shè)計(jì)"End SubPrivate S

4、ub Command2_Click()ClsEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command3_Click()EndEnd Sub初始化窗口：?jiǎn)螕麸@示之后的窗口：?jiǎn)螕羟宄蟮拇翱冢簡(jiǎn)螕敉顺鲋蟮拇翱冢鹤詼y(cè)題5程序代碼Private Sub Command1_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) + Val(Tex

5、t2.Text)End SubPrivate Sub Command3_Click()EndEnd Sub初始化窗口：?jiǎn)螕暨\(yùn)算之后窗口：?jiǎn)螕羟宄蟮拇翱冢簡(jiǎn)螕敉顺鲋蟮拇翱冢鹤詼y(cè)練習(xí)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.

6、Caption & Label2.CaptionEnd Sub初始窗口界面輸入字符串截取前兩個(gè)字符截取后兩個(gè)字符字符串連接自測(cè)練習(xí)2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l%a = 7349e = a Mod 10 '個(gè)位d = (a 10) Mod 10 '十位c = (a 100) Mod 10 '百位b = a 1000 '千位i = (e + 7) Mod 10 '個(gè)位h = (d + 7) Mod 10 '十位g = (c

7、+ 7) Mod 10 '百位f = (b + 7) Mod 10 '千位j = ii = f '交換后的個(gè)位f = j '交換后的千位k = hh = g '交換后的十位g = k '交換后的百位l = f * 1000 + g * 100 + h * 10 + iText1.Visible = FalsePrint "加密前的4位整數(shù)是7439" (Chr(10); "加密后的結(jié)果是" lEnd Sub初始界面單擊窗體運(yùn)行后的界面自測(cè)練習(xí)1Private Sub Form_Click()Dim a%,

8、b%, c%, d%, e%, f!a = Val(InputBox("輸入第一個(gè)數(shù)", "輸入一個(gè)數(shù)", 8)b = Val(InputBox("輸入第一個(gè)數(shù)", "輸入一個(gè)數(shù)", 7)c = a + bd = a - be = a * bf = a / bf = Fix(f * 100 + 0.5) / 100MsgBox "x+y=" & c & Chr(10) & "x-y=" & d & Chr(10) & "

9、;x*y=" & e & Chr(10) & "x/y=" & f, , "輸出的結(jié)果"End Sub自測(cè)練習(xí)2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox("輸入第一個(gè)數(shù)的值")b = Val(InputBox("輸入第二個(gè)數(shù)的值")c = Val(InputBox("輸入第三個(gè)數(shù)的值")d = Val(InputBox("輸入第四個(gè)數(shù)的值")e

10、 = a + b + c + df = e / 4Print "和=" ePrint "平均值=" fEnd Sub自測(cè)練習(xí)3Private Sub 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ù)為"

11、 y; "只"End Sub自測(cè)練習(xí)1：Private Sub Form_Click()Dim a%, b%, c%a = Val(InputBox("請(qǐng)輸入第一條邊", "邊長(zhǎng)")b = Val(InputBox("請(qǐng)輸入第二條邊", "邊長(zhǎng)")c = Val(InputBox("請(qǐng)輸入第三條邊", "邊長(zhǎng)")If a + b > c And a + c > b And b + c > a ThenIf a * a + b * b =

12、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不是三角形運(yùn)行結(jié)果：初始窗口：輸入三條邊：運(yùn)行結(jié)果：直角三角形運(yùn)行結(jié)果：等邊三

13、角形運(yùn)行結(jié)果如下：等腰三角形：一般三角形自測(cè)練習(xí)2：Private Sub Form_Click()Dim a%, b!a = Val(InputBox("請(qǐng)輸入")If a Mod 2 = 0 And a Mod 3 = 0 And a Mod 5 = 0 Thenb = Sqr(a)Print a, bElseEndEnd IfEnd Sub初始化窗口：輸入一個(gè)數(shù)：運(yùn)行結(jié)果：自測(cè)練習(xí)3Private Sub Command1_Click()Dim a%, b%a = Val(Text1.Text)Select Case a > 0Case a < 20Msg

14、Box "行李費(fèi)為0.2元/kg", , "行李費(fèi)"Case a >= 20 And a < 50MsgBox "行李費(fèi)為0.3元/kg", , "行李費(fèi)"Case a >= 50 And a < 100MsgBox "行李費(fèi)為0.4元/kg", , "行李費(fèi)"Case Elseb = 0.2 * 100 + (a - 100) * 0.5: MsgBox "行李費(fèi)為" & b & "元", ,

15、"行李費(fèi)"End SelectEnd Sub初始窗口：輸入10：輸入25：輸入55：輸入120：自測(cè)練習(xí)1Option Base 1Private Sub Form_Click()Dim i%, a(1 To 20) As Integera(1) = 1: a(2) = 1Print a(1);Print a(2);For i = 3 To 10a(i) = a(i - 1) + a(i - 2)Print a(i);Next iPrintFor i = 11 To 16a(i) = a(i - 1) + a(i - 2)Print a(i);Next iPrintFor

16、i = 17 To 20a(i) = a(i - 1) + a(i - 2)Print a(i);Next i初始界面：運(yùn)行結(jié)果界面：自測(cè)練習(xí)2Option Base 1Private Sub Form_Load()Form1.Width = 10000Form1.Height = 5000End SubPrivate Sub Command1_Click()Dim i%, j%, t%, a(1 To 4, 1 To 4) As IntegerFor i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 10) + 1Picture1.Print a(i,

17、j);Next jPicture1.PrintNext iPicture3.Print "對(duì)角線的元素如下"For i = 1 To 4Picture3.Print a(i, i);Next iPicture3.PrintFor i = 1 To 4Picture3.Print a(i, 5 - i);Next iFor i = 1 To 4t = a(1, i)a(1, i) = a(4, i)a(4, i) = tNext iFor i = 1 To 4t = a(i, 2)a(i, 2) = a(i, 3)a(i, 3) = tNext iFor i = 1 To 4

18、For j = 1 To 4Picture2.Print a(i, j);Next jPicture2.PrintNext iEnd Sub運(yùn)行初始界面：運(yùn)運(yùn)行結(jié)果界面：自測(cè)練習(xí)1Sub itostr(a As Integer)Dim b%, c$a = Val(Text1.Text)While a >= 1c = Chr(a Mod 10 + 48) & ca = a 10WendText2.Text = c End SubPrivate Sub Command1_Click()Dim a As Integera = Val(Text1.Text)Call itostr(a)E

19、nd Sub運(yùn)行初始界面：運(yùn)行結(jié)果界面：驗(yàn)證其他數(shù)字：自測(cè)練習(xí)2：Public Function area(n) As DoubleDim c#, d#, e#, s#n = Val(Text2.Text)c = (1 - 0) / nWhile e <= 1d = I * c: e = (I + 1) * cs = s + (Sin(d) + Sin(e) * c / 2I = I + 1Wendarea = sEnd FunctionPrivate Sub Command1_Click()Dim s As DoubleCall area(n)Text1.Text = area(n)E

20、nd Sub運(yùn)行初始界面：運(yùn)行結(jié)果：自測(cè)練習(xí)3Private Sub Form_click()n = Val(InputBox("請(qǐng)輸入n的值")x = Val(InputBox("請(qǐng)輸入x的值")Print "e的值=" es(n, x)End Sub Private Function es(n, x)Dim a As Double, b As Double, c As Double, i As Integera = 1: b = 1: c = 1For i = 1 To na = x * a: b = b * i: c = c +

21、 a / bNext ies = cEnd Function運(yùn)行初始界面：輸入數(shù)據(jù)：運(yùn)行結(jié)果：自測(cè)練習(xí)4：For i = 1 To 4 For j = i + 1 To 5 If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next jNext iFor i = 1 To 5Print a(i); " "Next iFor i = 1 To 5 If Y < a(i) Then t = a(i): a(i) = Y: Y = t End IfNext iFor i = 1 To 6 a(6) =

22、 tNext iEnd FunctionPrivate Sub Command1_Click()Dim i#, a%(1 To 6), Y%Y = Val(InputBox("輸入y的值", "輸入數(shù)據(jù)")Insertfun a%(), YPrintFor i = 1 To 6 Print a(i); " "Next iEnd Sub運(yùn)行初始界面：插入數(shù)據(jù)：運(yùn)行結(jié)果：41011060藍(lán)志鵬 資源1102 實(shí)驗(yàn)8自測(cè)練習(xí)1：Private Sub Command1_Click()If Ch1.Value = 1 ThenText1.Te

23、xt = "報(bào)名參加羽毛球比賽"End IfIf Ch2.Value = 1 ThenText1.Text = "報(bào)名參加乒乓球比賽"End IfIf Ch1.Value = 1 And Ch2.Value = 1 ThenText1.Text = "報(bào)名參加羽毛球，乒乓球比賽"End IfEnd Sub運(yùn)行初始界面：運(yùn)行結(jié)果：自測(cè)練習(xí)4：Private Sub Form_Load()Label1.Alignment = 2Label1.FontSize = 24Label1.FontName = "黑體"Labe

24、l1.ForeColor = &HFF&End SubPrivate Sub Option1_Click()Label1.Caption = "我是學(xué)生"End SubPrivate Sub Option2_Click()Label1.Caption = "我是教師"End SubPrivate Sub Option3_Click()Label1.Caption = "我是工人"End SubPrivate Sub Option4_Click()Label1.Caption = "我是農(nóng)民"End

25、Sub運(yùn)行初始界面：運(yùn)行結(jié)果：自測(cè)練習(xí)6：Private Sub Command1_Click()For i = 0 To Combo1.ListCount - 1If Combo1.List(i) = Combo1.Text ThenExit ForEnd IfNext iIf i > Combo1.ListCount - 1 ThenCombo1.AddItem Combo1.TextEnd IfEnd SubPrivate Sub Command2_Click()If Combo1.ListIndex <> -1 ThenCombo1.RemoveItem Combo1

26、.ListIndexFor i = 0 To Combo1.ListCount - 1If Combo1.List(i) = Combo1.Text ThenCombo1.RemoveItem iEnd IfExit ForNext iEnd IfEnd SubPrivate Sub Command3_Click()Combo1.ClearEnd Sub運(yùn)行初始界面:自測(cè)練習(xí)7：Private Sub Command1_Click()Timer1.Interval = 1Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()lbltemp1.Fo

27、ntSize = 20lbltishi.FontSize = 20Label1.FontSize = 20Label2.FontSize = 20End SubPrivate Sub Timer1_Timer()VSbwd.Value = VSbwd.Value + 10lbltem = VSbwd.ValueIf VSbwd >= 100 Thenlbltishi = "水開了"Timer1.Enabled = FalseEnd IfEnd Sub運(yùn)行初始界面：運(yùn)行結(jié)果：自測(cè)練習(xí)1：Private Sub myhelp_Click()frmAbout.ShowEnd

28、 SubPrivate Sub mymenu1_Click()Text1.Text = "百貨大樓"End SubPrivate Sub mymenu2_Click()Text1.Text = "利客隆"End SubPrivate Sub mymenu3_Click()Text1.Text = "稻香村"End Sub運(yùn)行初始界面：運(yùn)行結(jié)果界面：自測(cè)練習(xí)2：Private Sub Dis_Click()Text1.Text = "菜單程序設(shè)計(jì)"Text1.FontSize = 20Text1.FontName =

29、 "黑體"End SubPrivate Sub Hid_Click()Text1.Visible = FalseEnd Sub運(yùn)行初始界面：運(yùn)行結(jié)果界面：自測(cè)練習(xí)3：Private Sub vbhelp_Click()r = MsgBox("幫助", , "程序設(shè)計(jì)題")End SubPrivate Sub Vbnew_Click()r = MsgBox("新建", , "程序設(shè)計(jì)題")End SubPrivate Sub vbopen_Click()r = MsgBox("打開", , "程序設(shè)計(jì)題")End SubPrivate Sub vbsave_Click()r = MsgBox("存盤", , "程序設(shè)計(jì)題")End Sub運(yùn)行初始界面：運(yùn)行結(jié)果：自測(cè)練習(xí)4：Private Sub Command1_Click()CommonDialog1.Action = 1List1.AddItem CommonDialog1.FileNameEnd Sub運(yùn)行初始界面：運(yùn)行結(jié)果：