VisualBasic程序设计课后题答案

1、Vb课后题答案参考答案第1章 概述第3章 常用标准控件二选择题：1.C 2. B 3.C. 4.D 5.B 6.B 7.A 8.C 9.B 10.C11.C 12.A 13.C 14.B 15.D16.D 17.C 18.A 19.D 20.A 21.B三编程及上机调试：1.Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenTe

2、xt1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check1.Value = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Command1_Click()Text1.Text = End Sub2. Private Sub Command1_Click()Text2.Text = List1.ListCountEnd SubPriv

3、ate Sub Command2_Click()List1.AddItem Text1.TextText1.Text = End SubPrivate Sub Command3_Click()Dim i As Integeri = List1.ListIndexList1.RemoveItem iCommand3.Enabled = FalseText1.SetFocusText2.Text = List1.ListCountEnd SubPrivate Sub Form_Load()Command3.Enabled = FalseEnd SubPrivate Sub List1_Click(

4、)Command3.Enabled = TrueEnd Sub第4章 VB语言基础二选择题：1.A 2. D 3.D. 4.A 5.A 6.A 7.C 8.D 9.C 10.B11.A 12.D 13.C 14.A 15.A16.C 17.D 18.A 19.B 20.D 21.C 22.A 23.B 24.C 25.C三编程及上机调试：1Private Sub Form_Load() Dim x As Integer, s As String, d As Integer Randomize x = Int(Rnd * 9000 + 1000) s = Trim(CStr(x) d = Val

5、(Right(s, 1) + Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1) Show Print 产生的数；; x; 倒序数; dEnd Sub2Private Sub Form_KeyPress(KeyAscii As Integer) Print 输入字符:; Chr(KeyAscii), ASCII码为:; KeyAsciiEnd SubPrivate Sub Form_DblClick() ClsEnd Sub3Private Sub Form_Click() MsgBox 在这里显示提示 & vbCrLf & 提示信息, 2 + 16, 请确认En

6、d Sub或Private Sub Form_Click()MsgBox 在这里显示提示 + Chr(13) + 提示信息, vbAbortRetryIgnore _+ vbCritical, 请确认End Sub第5章 程序控制结构二单选题1.D 2. C 3.C. 4.D. 5.B 6.C 7.A 8.A 9.D 10.C11.C 12.C 13.B 14.B 四编程及上机调试1. Private Sub Form_Click() Dim x As Integer, y As Integer x = InputBox(请输入一个数值) If x 20 Then y = x 2 + 3 *

7、x + 2 ElseIf x = 10 Then y = Sqr(3 * x) - 2 ElseIf x 0 Then y = 1 / x + Abs(x) End If Print x=; x, y=; yEnd Sub（2）Select Case实现：Private Sub Form_Click() Dim x As Integer, y As Integer x = InputBox(请输入一个数值) Select Case x Case Is 20 y = x 2 + 3 * x + 2 Case 10 To 20 y = Sqr(3 * x) - 2 Case Is 0 y = 1

8、/ x + Abs(x) End SelectPrint x=; x, y=; yEnd Sub2.Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer For i = 100 To 999 a = i 100 b = (i - a * 100) 10 c = i Mod 10 If a 3 + b 3 + c 3 = i Then Print i; k = k + 1 If k Mod 2 = 0 Then Print End If Next iEnd Sub3Private Sub Command1_Cli

9、ck() p = 60: r = 0.014 Do p = p * (1 + r) n = n + 1 Loop Until p = 70 Print n; 年后世界人口达到; p; 亿End Sub4Private Sub Command1_Click() Dim s As Single, x As Integer, t As Single, n As Integer x = Val(InputBox(请输入x的值, , 2) s = 1 n = 1 m = 1 Do n = n + 1 m = -m t = m * n / x (n - 1) If Abs(t) Max Then Max

10、= a(i, j) k = i p = j End If Next jNext iPrint 最大的数为第 & k & 行，第 & p & 列的数： & MaxEnd Sub3.Option Base 1Dim a(4, 5) As Integer 在窗体声明段声明数组Dim i As Integer, j As IntegerPrivate Sub cmdmatrix_Click() 生成数组按钮 Randomize For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(Rnd * 10) 一位的随机数 Picture1.Print a(i, j); 输出元

11、素 Next j Picture1.Print Next iEnd SubPrivate Sub cmdcol_Click() 求列和按钮 Dim colsum As Integer txtcol.Text = For j = 1 To 5 列变量先循环 colsum = 0 For i = 1 To 4 colsum = colsum + a(i, j) Next i txtcol.Text = txtcol.Text & Str(colsum) Next jEnd SubPrivate Sub cmdrow_Click() 求行和按钮 Dim rowsum As Integer txtro

12、w.Text = For i = 1 To 4 行变量先循环 rowsum = 0 For j = 1 To 5 rowsum = rowsum + a(i, j) Next j txtrow.Text = txtrow.Text & CStr(rowsum) & vbCrLf Next iEnd SubPrivate Sub cmdclear_Click() 清除按钮 Picture1.Cls txtcol.Text = txtrow.Text = End SubPrivate Sub cmdexit_Click() 结束按钮 EndEnd Sub4. Option Base 1Privat

13、e Sub Form_Click() Dim a() As Integer, b() As Integer, i As Integer, j As Integer, x As Integer, y As Integer x = InputBox(第一维上界) Do While Not IsNumeric(x) x = Int(InputBox(第一维上界) Loop y = InputBox(第二维上界) Do While Not IsNumeric(x) y = Int(InputBox(第二维上界) Loop ReDim a(x, y) Print 原数组元素为： For i = 1 To

14、 x For j = 1 To y a(i, j) = Int(90 * Rnd) + 10 Print a(i, j); Next j Print Next i Print 转置后数组元素为： For i = 1 To y For j = 1 To x Print a(j, i); Next j Print Next iEnd Sub5. Option Base 1Private Sub Form_Click()Dim a(10, 10) As Integer, i As Integer, j As IntegerFor i = 1 To 10 For j = 1 To 10 If i =

15、j Or i + j = 11 Then a(i, j) = 0 Else a(i, j) = 1 End If Print a(i, j); Next j PrintNext iEnd Sub6. Option ExplicitOption Base 1Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer, k As Integer, a(11) As Integer j = 1 For i = 3 To 21 Step 2 a(j) = i Print a(j); j = j + 1 Next i

16、 Print n = InputBox(请输入一个数) For i = 1 To 10 If n = a(i) Then For j = i To 10 a(j) = a(j + 1) k = k + 1 Next j End If Next i For i = 1 To 9 Print a(i); Next iEnd Sub7. Option Base 1Private Sub Form_Click()Dim a As Variant, k As Integer, i As Integer, j As IntegerDim b As Variantb = Array(17, 35, 128, 235, 89, 121, 143, 189, 231, 94)a = Array(11.3, 12.3, 12#, 11.8, 12.6, 11.6, 12.8, 11.8, 12.4, 12.1)For i = 1 To 9 对数组a的元素排序 k = i For j = i + 1 To 10 If a(k) a(j)