VB語(yǔ)言程序設(shè)計(jì)課后編程及上機(jī)調(diào)試參考答案

1、VB語(yǔ)言程序設(shè)計(jì)課后編程及上機(jī)調(diào)試參考答案ex0101Private Sub Label1_Click() Caption = "練習(xí)" Command1.Caption = "確定" Label1.FontBold = True Label1.AutoSize = True Label1.Caption = "Visual Basic程序設(shè)計(jì)教程"End Subex0102Private Sub Command1_Click() Txt.Text = "我有電腦"End SubPrivate Sub Comman

2、d2_Click() Txt.Text = "我沒(méi)有電腦"End SubPrivate Sub Command3_Click() Txt.Text = "" '一對(duì)雙撇號(hào)，中間不留空End Subex0104Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * xEnd Subex0202Private Sub Form_Click() Dim r As Single, s As Single r = 4.6 s = 3.14159 *

3、 r 2 Text1.Text = "圓的面積為" & sEnd Subex0204Private Sub Command1_Click() '"最大化"按鈕 Form1.WindowState = 2 '最大化End SubPrivate Sub Command2_Click() '"復(fù)原"按鈕 Form1.WindowState = 0 '復(fù)原End SubPrivate Sub Command3_Click() '"最小化"按鈕 Form1.WindowStat

4、e = 1 '最小化End Subex0205Private Sub command1_click() Dim x As Single Dim y As Single x = Val(Text1.Text) y = Val(Text2.Text) Text3.Text = x * x + y * yEnd Subex0206Private Sub command1_click() Dim x As String x = Text1.Text Text2.Text = Left(x, 1) + Right(x, 1)End Subex0301Private Sub Form_Load()

5、 Dim x As Integer, y As Integer Dim a As Integer, b As Integer, c As Integer x = Val(InputBox("請(qǐng)輸入一個(gè)三位數(shù)") a = Int(x / 100) '求百位數(shù) b = Int(x / 10) - a * 10 '求十位數(shù) c = x Mod 10 '求個(gè)位數(shù) Show y = c * 100 + b * 10 + a '生成倒序數(shù) Print x; "倒序數(shù)為：" y '顯示倒序數(shù)End Subex0302Privat

6、e Sub Command1_Click() n = Val(Text1.Text) Randomize x = Int(1 + n * Rnd) Label1.Caption = "第一個(gè)隨機(jī)數(shù)" + Str(x) x = Int(1 + n * Rnd) Label2.Caption = "第二個(gè)隨機(jī)數(shù)" + Str(x) x = Int(1 + n * Rnd) Label3.Caption = "第三個(gè)隨機(jī)數(shù)" + Str(x)End Subex0303Private Sub Cmd1_Click() Lab1.Visible

7、 = True Lab1.Caption = "您已下達(dá)顯示命令"End SubPrivate Sub Form_Click() Cmd1.Visible = TrueEnd Subex0304Private Sub Form_KeyPress(KeyAscii As Integer) Show Print "輸入字符：" Chr(KeyAscii), "ASCII碼為;" KeyAsciiEnd SubPrivate Sub Form_DblClick() ClsEnd Subex0305Private Sub Form_Load(

8、) x = MsgBox("在這里顯示提示信息", 4 + 0, "請(qǐng)確認(rèn)") x = MsgBox("在這里顯示" + Chr(13) + "提示信息", 3 + 0, "請(qǐng)確認(rèn)") x = MsgBox("在這里顯示" + Chr(13) + "提示信息", 2 + 16 + 0, "請(qǐng)確認(rèn)")End Subex0401Private Sub Form_Load() Dim x As Long, s As String x = In

9、putBox("輸入一個(gè)整數(shù)(135000)") s = "奇數(shù)" If x Mod 2 = 0 Then s = "偶數(shù)" MsgBox sEnd Subex0402Private Sub Command1_Click() Dim a As Single, b As Single Dim c As Single, d As Single Dim m As Single, n As Single, x As Single Show a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text

10、3.Text) d = Val(Text4.Text) If a > b Then '求a、b中的較大數(shù) m = a Else m = b End If If c > d Then '求c、d中的較大數(shù) n = c Else n = d End If If m > n Then '求m、n中的較大數(shù) x = m Else x = n End If Text5.Text = xEnd Subex0403Private Sub Command1_Click() Dim t As String, p As String t = Mid(Text1.Text,

11、 5, 1) Select Case t Case "2" p = "博士生" Case "3" p = "碩士生" Case "4" p = "本科生" Case "5" p = "專(zhuān)科生" Case Else p = "無(wú)效學(xué)號(hào)" End Select Text2.Text = Left(Text1.Text, 2) + "級(jí)" Text3.Text = pEnd Subex0404Priva

12、te Sub Command1_Click() r = 0: g = 0: b = 0 If Check1.Value = 1 Then r = 255 End If If Check2.Value = 1 Then g = 255 End If If Check3.Value = 1 Then b = 255 End If Label1.BackColor = RGB(r, g, b)End SubPrivate Sub Command2_Click() EndEnd Subex0405Private Sub Form_Load() LabClk.Caption = "0"

13、; LabClk.Alignment = 1 LabClk.BorderStyle = 1 LabClk.FontSize = 22 LabClk.FontName = "黑體" TimClk.Interval = 1000End SubPrivate Sub TimClk_Timer() LabClk.Caption = Val(LabClk.Caption) + 1End Subex0406Private Sub Form_Load() Command1.Enabled = False Command2.Enabled = FalseEnd SubPrivate Sub

14、 Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.SelLength > 0 Then Command1.Enabled = True End IfEnd SubPrivate Sub Command1_Click() Command1.Enabled = True Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() Text2.Text = Text1.SelText Command1.Enable

15、d = False Command2.Enabled = FalseEnd Subex0501Private Sub Form_Load() Dim k As Integer, s As Integer, t As Integer s = 0 For k = 1 To 100 Step 2 s = s + k Next k Show Print "1100范圍內(nèi)的奇數(shù)和：" sEnd Subex0502Private Sub Form_Load() Dim s As Single Show s = 0 For k = 1 To 200 s = s + k / (1 + k

16、* k) Next k Print Int(s * 10 + 0.5) / 10End Subex0503Private Sub Form_Load() Show k = 2 s = 0 Do While k < 101 s = s + k * (k - 1) k = k + 2 Loop Print sEnd Subex0504Private Sub Form_Load() Dim k As Integer, a As Integer, b As Integer Dim c As Integer, n As Integer Show n = 0 Print "三位數(shù)的水仙花數(shù)

17、是：" For k = 100 To 999 a = Int(k / 100) b = Int(k - 100 * a) / 10) c = k Mod 10 If a * a * a + b * b * b + c * c * c = k Then Print k n = n + 1 End If Next k Print "一共有" & n & "個(gè)水仙花數(shù)"End Subex0505Private Sub Form_Load() Show For k = 1000 To 9999 If k Mod 78 = 0 Then

18、a = Int(k / 1000) b = Int(k / 100) - 10 * a c = Int(k / 10) - 100 * a - 10 * b d = k Mod 10 If a = b And c = d Then Print k End If End If Next kEnd Subex0506Private Sub Command1_Click() Dim s As String, y As String Dim x As String, t As String s = Text1.Text: y = "" For k = 1 To Len(s) x =

19、 Mid(s, k, 1) t = UCase(x) If t >= "A" And t <= "Z" Then y = y + x End If Next k Text2.Text = yEnd Subex0507Private Sub Command1_click() '"顯示"按鈕單擊事件 FontSize = 12 Cls For i = 0 To List1.ListCount - 1 '逐項(xiàng)判斷 If List1.Selected(i) Then '真時(shí)為選定 Print List1.L

20、ist(i) End If Next iEnd Subex0508Private Sub Form_Load() Show For a = 1 To 9 For b = 1 To 9 For c = 1 To 9 For d = 1 To 9 x = a * 1000 + b * 100 + c * 10 + d y = b * 1000 + a * 100 + a * 10 + c z = d * 100 + d * 10 + a If x - y = z Then Print "A=" & a & ",B=" & b &

21、; ",C=" & c & ",D=" & d End If Next d Next c Next b Next aEnd Subex0601Private Sub Command1_Click() Dim a(10) As Integer, min As Integer, pos As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Print a(i); Next i Print min = a(1) pos = 1 For k = 2 To 10 If

22、a(k) < min Then min = a(k) pos = k End If Next k Print "最小數(shù)：" min, "位置：" posEnd Subex0602Private Sub Form_Load() Dim a As Variant, b As Variant Dim c(8) As Integer a = Array(3, 4, 2, 1, 5, 7, 8, 11, 13) b = Array(10, 6, 12, 9, 13, 8, 8, 1, 16) For k = 0 To 8 c(k) = a(k) + b(k)

23、 Next k Show For k = 0 To 8 Print c(k) Next kEnd Subex0603Private Sub Form_Load() Dim d() As Integer Dim k As Integer, t As Integer, m As Integer Dim h As Integer, n As Integer n = Val(InputBox("請(qǐng)輸入數(shù)組個(gè)數(shù)n：") ReDim d(n) Show Print "處理前數(shù)據(jù) :" Randomize For k = 1 To n d(k) = Int(101 *

24、 Rnd - 50) Print d(k); Next k Print m = Int(n / 2) For k = 1 To m h = n - k + 1 t = d(h): d(h) = d(k): d(k) = t Next k Print "處理的結(jié)果 :" For k = 1 To n Print d(k); Next kEnd Subex0604Private Sub Form_Load() Dim a(8, 8) As Integer, n As Integer Dim s As Long, i As Integer, j As Integer Show R

25、andomize n = 8 For i = 1 To n For j = 1 To n x = Int(90 * Rnd + 10) '產(chǎn)生一個(gè)隨機(jī)數(shù) a(i, j) = x Next j Next i s = 0 For i = 1 To n For j = 1 To n s = s + a(i, j) Next j Next i Print "所有元素之和；" s Print For i = 1 To n s = 0 For j = 1 To n s = s + a(i, j) Next j Print "第" i; "行元素之和

26、；" s Next i Print s = 0 For i = 1 To n s = s + a(i, i) Next i Print "主對(duì)角線元素之和；" s Print s = 0 For i = 1 To n For j = 1 To n If i = 1 Or i = n Or j = 1 Or j = n Then s = s + a(i, j) End If Next j Next i Print "所有靠邊元素之和；" sEnd Subex0605Option Base 1Private Sub Form_Load() Dim

27、a(8, 8) As Integer, n As Integer Dim max As Integer, r As Integer, c As Integer Show Randomize n = 8 For i = 1 To n For j = 1 To n x = Int(900 * Rnd + 100) '產(chǎn)生一個(gè)隨機(jī)數(shù) a(i, j) = x Print x; Next j Print Next i max = 0: r = 1: c = 1 Print For i = 1 To n For j = 1 To n If a(i, j) > max Then '判斷

28、有無(wú)更大數(shù) max = a(i, j): r = i: c = j End If Next j, i Print "最大值為：" max Print "位于行：" r, "列：" cEnd Subex0606Dim n As IntegerPrivate Sub Cmd1_Click() n = n + 1 If n = 3 Then n = 0 Opt1(n).Value = TrueEnd SubPrivate Sub Form_Load() n = 1End Subex0607Private Sub Form_Load() Di

29、m a(20) As Integer Randomize a(1) = Int(10 + 90 * Rnd) k = 1 Do While k < 20 x = Int(10 + 90 * Rnd) f = 0 For j = 1 To k If x = a(j) Then f = 1 Exit For End If Next j If f = 0 Then k = k + 1 a(k) = x End If Loop Show For j = 1 To 20 Print a(j) Next jEnd Subex0701Private Sub Form_Click() Dim s As

30、Long s = 0 For k = 1 To 10 s = s + jc(k) Next k Print sEnd SubFunction jc(n) As Long Dim t As Long t = 1 For k = 1 To n t = t * k Next k jc = tEnd Functionex0702Private Sub Form_Load() Dim a As Single, b As Single, c As Single Dim d As Single, m As Single, n As Single Show a = Val(InputBox("輸入第

31、1個(gè)數(shù)") b = Val(InputBox("輸入第2個(gè)數(shù)") c = Val(InputBox("輸入第3個(gè)數(shù)") d = Val(InputBox("輸入第4個(gè)數(shù)") m = max(a, b) '求a、b中的較大數(shù) n = max(c, d) '求c、d中的較大數(shù) Print "最大數(shù)為：" & max(m, n) '求m、n中的較大數(shù)End SubFunction max(x, y) As Single If x > y Then max = x Else

32、max = y End IfEnd Functionex0703Private Sub Command1_Click() Dim d(5) As Single, m As Single For k = 0 To 5 d(k) = Val(Text1(k).Text) Next k Call Max(d(0), d(1), d(2), m) Call Max(m, d(3), d(4), m) Call Max(m, m, d(5), m) Text2.Text = mEnd Subex0704Private Sub Form_Load() Dim x As Long Show x = Val(

33、InputBox("輸入一個(gè)數(shù)") Print x; "的位數(shù)為：" fnws(x)End SubFunction fnws(x As Long) As Integer Dim n As Integer n = 1 Do While x 10 > 0 n = n + 1 x = x 10 Loop fnws = nEnd Functionex0705Private Sub C1_Click() Form1.HideEnd Subex0705APrivate Sub C2_Click() Form1.ShowEnd Subex0706Dim n As

34、 IntegerPrivate Sub Command1_Click() usern = Trim(Text1.Text) passw = Trim(Text2.Text) If usern = "username" And passw = "password" Then Form1.Hide Form2.Show Else n = n + 1 Text1.SetFocus If n = 3 Then Form1.Hide Form3.Show End If End If Text1.Text = "" Text2.Text = &q

35、uot;"End Subex0706APrivate Sub Command1_Click() Form2.Hide Form1.ShowEnd Subex0906BPrivate Sub Command1_Click() Unload Form1 Unload Form2 Unload Form3 EndEnd Subex0802Private Sub Form_Load() Dim i As Integer, j As Integer Show For i = 1 To 12 Print String(20 - i, 32); '輸出當(dāng)前行左邊的空格，分號(hào)表示下一輸出項(xiàng)緊

36、接輸出 For j = 1 To 2 * i - 1 '輸出2*i-1個(gè)字符 If j <= i Then '按左、右兩邊指定輸出字符 k = j '左邊輸出的字符 Else k = 2 * i - j '右邊輸出的字符 End If If k > 9 Then k = k + 7 '字母的ASCII碼比數(shù)字大7 Print Chr(k + 48); '以字符格式輸出 Next j Print '換行 Next iEnd Subex0803Dim t As Single, f As IntegerPrivate Sub Com

37、mand1_Click() '“產(chǎn)生原稿文按鈕 Randomize s = "" For k = 1 To 30 x = Chr(Int(Rnd * 26) + 97) '隨機(jī)產(chǎn)生小寫(xiě)字母 s = s + x Next k Text1.Text = s '顯示在文本框中 Text2.Text = "" Text2.Locked = False '允許錄入 Text2.SetFocus '設(shè)置焦點(diǎn) Text3.Text = "" Text4.Text = "" f = 0 &#

38、39;第1次按鍵標(biāo)記，0表示未按鍵End SubPrivate Sub Command2_Click() '“結(jié)束按鈕 EndEnd SubPrivate Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As Integer, k As Integer If f = 0 Then '第1次按鍵時(shí)，開(kāi)始計(jì)時(shí) t = Timer '用t保存第1次按鍵的時(shí)間 f = 1 '1表示已按鍵和進(jìn)入錄入過(guò)程 End If If Len(Text2.Text) < 30 Then Text3.Text

39、 = Round(Timer - t, 1) & "秒" '顯示用戶(hù)當(dāng)前所用時(shí)間 Else c = 0 For k = 1 To 30 '統(tǒng)計(jì)錄入正確的字母?jìng)€(gè)數(shù) If Mid(Text1.Text, k, 1) = Mid(Text2.Text, k, 1) Then c = c + 1 End If Next k Text2.Locked = True '禁止錄入 Text4.Text = Round(c / 30 * 100, 2) & "%" '顯示準(zhǔn)確率 End IfEnd Subex0901Pri

40、vate Sub Command1_Click() Open "靜夜思.txt" For Input As #1 Do While Not EOF(1) '文件未結(jié)束時(shí)，循環(huán) Input #1, x List1.AddItem x Loop Close #1End Subex0902Dim d(1 To 20) As IntegerPrivate Sub Command1_Click() '"產(chǎn)生隨機(jī)數(shù)" For i = 1 To 20 d(i) = Int(1 + 99 * Rnd) List1.AddItem d(i) Next iE

41、nd SubPrivate Sub Command2_Click() '"保存" Open "MyFile4.txt" For Output As #1 For i = 1 To 20 Write #1, d(i) Next i Close #1End SubPrivate Sub Command3_Click() '"讀出" Open "MyFile4.txt" For Input As #1 Do While Not EOF(1) Input #1, x List2.AddItem x Loop

42、 Close #1End SubPrivate Sub Command4_Click() '"結(jié)束" EndEnd Subex0903Private Sub Form_Load() Show For k = 1 To 6 fn = ".第7章ex070" & k & ".vbp" If Dir(fn) = "" Then Print Mid(fn, 4) & "未編寫(xiě)！" Else Print Mid(fn, 4) & "已編寫(xiě)！" End If Next kEnd Subex0904Private Sub Form_Load() chedir = "C:Documents and SettingsLinMy Documentsfsodir" If Dir(chedir, 16) = "" Then MkDir chedir End If chefile = "C:Wi