visual basic课后答案

第1章 参考答案1第2章 参考答案1第3章 参考答案5第4章 参考答案7第5章 参考答案10第6章 参考答案15第7章 参考答案19第8章 参考答案23第9章 参考答案26第10章 参考答案35第11章 参考答案36第12章 参考答案39第1章 参考答案一、简答题（略）二、单选题：1C 2. D 3C 4. B 5A 6D 7. C 三、填空题：1设计 运行2Proj1 Demo13程序代码 控件4编译 可执行5可视化6窗体对象7视图 F4第2章 参考答案一、简答题（略）二、找出以下语句中的错误1 False - 错，因为False是VB的关键字或保留字2 Integers - 错，正确的写法是 dim x ,y ,z as integer 或Dim x As Integer, y As Integer, z As Integer但两者含义不同。3 a+b=c 改为 c=a+b4 Mode - 错，应改为mod5 37001 - 错，因为x取值范围是 32768 - 327676 - 错，应该写为 /7 .E - 错，E的左边必须是一个数字8 错，赋值符号的左边字符串缺了双引号9 1 - 错，应改为：”1”10 错，正确的是：#01-01-00#三、编写语句完成以下任务1 设这3个数用x、y、z表示，则求3个数乘积的表达式为：x*y*z2 Option explicit3 Form1.print “Print Text to The Windows”4 Dim result as longResult=(x+y+z)/35 Dim x as integer, y as integer, z as integer6 Y=3*x5+2*x4-6*x3-1四、 数据常量有：”Xname”（字符串型）、True(逻辑型)、517.3(实数型) 、2/08/05（日期时间型）、#1-1#（日期时间型）、”String”（字符串型）、1（整型）数据变量有：Xname、XVB关键字：Step五、表达式为：1 62 2002-1-13 xyz123abc4 xyz123abc5 126 11六程序段1在窗体上输出为：5 7 -2 -9 FalseFalse 程序段2在窗体上输出为：VisualThe Demo Basic实验部分1. 参考代码：Private Sub Form_Click() Dim x As Integer, y As Integer, z As Integer x = InputBox(请输入：) y = InputBox(请输入：) z = InputBox(请输入：) Print x + y + z Print x * y * z Print (x + y + z) / 3End Sub2参考代码和界面如下： Private Sub Command1_Click() Dim r As Integer r = InputBox(请输入圆半径：) Label1.Caption = 2 * r & Label1.Caption = Label1.Caption & 3.14 * r 2 & Label1.Caption = Label1.Caption & 2 * 3.14 * rEnd SubPrivate Sub Command2_Click() Dim r As Integer Label1.Caption = r = InputBox(请输入圆半径：) Label1.Caption = 2 * r & Label1.Caption = Label1.Caption & 3.14 * r 2 & Label1.Caption = Label1.Caption & 2 * 3.14 * rEnd SubPrivate Sub Command3_Click() EndEnd Sub3参考代码：Private Sub Form_Click() Dim a As Integer a = InputBox(请输入：) 输入的值分别是16，33等 MsgBox 注意观测！, a, 消息框End Sub4参考代码和界面如下：Private Sub command1_Click() Dim temp As Integer text1.Text = text2.Text = text3.Text = Label4.Caption = + text1.Text = InputBox(请输入第一个数：) text2.Text = InputBox(请输入第二个数：) temp = Val(text1.Text) + Val(text2.Text) text3.Text = tempEnd SubPrivate Sub command2_Click() Dim temp As Integer text1.Text = text2.Text = text3.Text = Label4.Caption = - text1.Text = InputBox(请输入第一个数：) text2.Text = InputBox(请输入第二个数：) temp = Val(text1.Text) - Val(text2.Text) text3.Text = tempEnd SubPrivate Sub Command3_Click() Dim temp As Integer text1.Text = text2.Text = text3.Text = Label4.Caption = * text1.Text = InputBox(请输入第一个数：) text2.Text = InputBox(请输入第二个数：) temp = Val(text1.Text) * Val(text2.Text) text3.Text = tempEnd SubPrivate Sub Command4_Click() Dim temp As Single text1.Text = text2.Text = text3.Text = Label4.Caption = / text1.Text = InputBox(请输入第一个数：) text2.Text = InputBox(请输入第二个数：) temp = Val(text1.Text) / Val(text2.Text) text3.Text = tempEnd Sub第3章 参考答案一、 单选题1D 2. A 3. C 4. D 5. B二、填空题1、SmallChange 2、Locked 设置为True 3、Int(Rnd * 900 + 100)4、(2 * 3.1415926 * R + Exp(-5) * Log(X + 1) 5、续行符 ” _”二、 程序阅读题1、 2、 实验部分：1、 参考代码Private Sub Form_Click()Dim a As Single, b As Single, h As Single, s As Singlea = InputBox(输入梯形的上底)b = InputBox(输入梯形的下底)h = InputBox(输入梯形的高)s = (a + b) * h / 2MsgBox 梯形面积为： & Round(s, 2)End Sub2、参考代码Private Sub Form_Load()Form1.Caption = 颜色示例HScroll1.Max = 255HScroll1.SmallChange = 10HScroll1.LargeChange = 20HScroll2.Max = 255HScroll2.SmallChange = 10HScroll2.LargeChange = 20HScroll3.Max = 255HScroll3.SmallChange = 10HScroll3.LargeChange = 20Label1.Caption = 红Label2.Caption = 绿Label3.Caption = 蓝Label4.Caption = 0Label5.Caption = 0Label6.Caption = 0Text1.Text = End Sub4、参考代码Private Sub Command1_Click()CurrentX = 500CurrentY = 500Print 水光潋艳晴方好，山色空蒙雨亦奇CurrentX = 500CurrentY = 1000Print 欲把西湖比西子，淡妆浓抹总相宜End SubPrivate Sub Command2_Click()Form1.FontUnderline = FalseForm1.FontItalic = FalseForm1.FontBold = TrueForm1.ClsCurrentX = 500CurrentY = 500Print 水光潋艳晴方好，山色空蒙雨亦奇CurrentX = 500CurrentY = 1000Print 欲把西湖比西子，淡妆浓抹总相宜End SubPrivate Sub Command3_Click()Form1.FontBold = FalseForm1.FontUnderline = FalseForm1.FontItalic = TrueForm1.ClsCurrentX = 500CurrentY = 500Print 水光潋艳晴方好，山色空蒙雨亦奇CurrentX = 500CurrentY = 1000Print 欲把西湖比西子，淡妆浓抹总相宜End SubPrivate Sub Command4_Click()Form1.FontBold = FalseForm1.FontItalic = FalseForm1.FontUnderline = TrueForm1.ClsCurrentX = 500CurrentY = 500Print 水光潋艳晴方好，山色空蒙雨亦奇CurrentX = 500CurrentY = 1000Print 欲把西湖比西子，淡妆浓抹总相宜End SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Form_Load()Form1.FontSize = 16Form1.Caption = 字体示例 & TimeEnd Sub第4章 参考答案一、1、A 2、D 3、B 4、D二、1、框架 2、if x12+y12 =9 3、value 4、该框架三、s=4s=5.2s=8实验：1Private Sub Command1_Click() Dim x As Single x = Val(InputBox(请输入X) If x -2 Then Y = (3 * x * x - x - 1) / x ElseIf x Max Then Max = b If c Max Then Max = c Print MaxEnd Sub3.Option ExplicitPrivate Sub Form_Load() Form1.Caption = 个人所得税 Label1.Caption = 薪金总额 Text1.Text = Label2.Caption = Command1.Caption = 计算End SubPrivate Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) x = x - 1600 If x 40000 Or x = 0 And x = 500 And x = 2000 And x = 5000 And x 20000 Then y = 500 * 0.05 + 1500 * 0.1 + 3000 * 0.15 + 15000 * 0.2 + (x - 20000) * 0.25 Else y = 0 End If Label2.Caption = 个人所得税为: & Str(y)End Sub4.Private Sub Form_click() s = Val(InputBox(请输入计算机文化成绩) Select Case s Case 180 To 200 Print s, 优 Case 160 To 179 Print s, 良 Case 140 To 159 Print s, 中 Case 120 To 139 Print s, 及格 Case 0 To 120 Print s, 不及格 Case Else Print s, 输入成绩错误 End SelectEnd Sub第5章 参考答案一、 单选题1、C 2、C 3、C 4、C 5、B二、 填空题1、F 2、7，35 3、0三、 程序阅读1、 3755 46 282、 6四、 程序填空While n = 30k = 0sum + 1 / (k * (k + 1)六、1Private Sub Command1_Click()Dim x As Integer, n As Integer, i As IntegerRandomizex = Int(Rnd(1) * 99 + 1)For i = 1 To 10 y = Val(InputBox(请输入一个小于100的整数, 猜数游戏) If y = x Then MsgBox 恭喜你猜中啦！ + 你猜了 + Str(i) + 次, 48 Exit For ElseIf y x Then MsgBox 对不起，猜大了！ + 你已经猜了 + Str(i) + 次, 48 ElseIf y x Then MsgBox 对不起，猜小了！ + 你已经猜了 + Str(i) + 次, 48 End If If i = 10 Then MsgBox 对不起，你已经猜了10 次，下次再来, vbCritical + vbDefaultButton1 + vbExclamationNextEnd SubPrivate Sub Command2_Click()EndEnd Sub2Private Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerDim n As Integer, i As IntegerClsPrint a, b, cFor a = 1 To 50 For b = a To c For c = b To b If c * c = b * b + a * a Then Print a, b, c n = n + 1 End If Next a Next bNext c Print 符合要求的三角形个数有：; n; 个End Sub3Private Sub Command1_Click()Dim a As Integer, b As IntegerFor a = 1 To 100 For b = 1 To 100 If Int(Sqr(a + b) = (Sqr(a + b) And Int(Sqr(Abs(a - b) = (Sqr(Abs(a - b) Then Print a; b, n = n + 1 If n Mod 3 = 0 Then Print End If Next bNext aEnd Sub4Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 9 For j = 1 To i Print i; *; j; =; i * j; If i * j 0 x1=x mod 10 x=x 10 Text2.Text = text2.text & xloopElseIf Option2.Value = True Then Do while x0 x1=x mod 10 x=x 10 Text2.Text = val(text2.text) + x1 loopElseIf Option3.Value = True Then Text2.text=”1” Do while x0 x1=x mod 10 x=x 10 Text2.Text = val(text2.text) * x1 loopEnd IfEnd SubPrivate Sub Option1_Click()Text2.Text = End SubPrivate Sub Option2_Click()Text2.Text = End SubPrivate Sub Option3_Click()Text2.Text = End Sub6.Private Sub Command1_Click()Dim i As Integer, j As Integer, n As IntegerClsn = Val(InputBox(请输入图案的行数, 输入)For i = 1 To n Print Spc(25 - i); For j = 1 To 2 * i - 1 Print *; Next j PrintNext iEnd Sub第6章 参考答案二填空题1MouseUp 2产生对象.Dragover事件3一个对象的DragMode属性要么是1（自动方式），要么是0（手工方式），它在属性窗口或程序代码中被设置。4MouseMove5指针类型，17（即015，99） 996，Shift7拖放8move9KeyPress，对应按键的ASCII码。KeyDown或KeyUp，Shift 10Click，当前窗体的输出位置11右键，菜单12ALT13Visible，Enabled14Click，115Enabled False16连接符”-”17518Clipboard.Clear19文本，Clipboard.GetText20PopupMenu，Call PopupMenu(菜单名称)实验1Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then If Val(Text1.Text) = 0 And Val(Text1.Text) = 0 And Chr(KeyAscii) = a And Chr(KeyAscii) = A And Chr(KeyAscii) = Z Then Digit1 = KeyAscii + 32 Text1.Text = Chr(KeyAscii) & 的ASCII码为： & KeyAscii & Chr(13) & Chr(10) Text1.Text = Text1.Text & Chr(Digit1) & 的ASCII码为： & Digit1 End IfEnd SubPrivate Sub Command1_Click() EndEnd Sub3Private Sub form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode 16 Then If Shift 1 Then Print Chr(KeyCode); Else Print Chr(KeyCode + 32); End If End IfEnd Sub4 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Select Case Button Case vbRightButton LabRight.BackColor = vbRed 右键 LabMid.BackColor = 12632256 LabLeft.BackColor = 12632256 Case vbMiddleButton 中间键 LabRight.BackColor = 12632256 LabMid.BackColor = vbRed LabLeft.BackColor = 12632256 Case vbLeftButton 左键 LabRight.BackColor = 12632256 LabMid.BackColor = 12632256 LabLeft.BackColor = vbRed End Select Select Case Shift Case 1 Labout.Caption = Shift键被按下 Case 2 Labout.Caption = Ctrl键被按下 Case 4 Labout.Caption = Alt键被按下 Case 3 Labout.Caption = Shift键和Ctrl键被按下 Case 5 Labout.Caption = Shift键和Alt键被按下 Case 6 Labout.Caption = Ctrl键和Alt键被按下 Case 7 Labout.Caption = Shift键、Ctrl键和Alt键盘被按下 Case Else Labout.Caption = End SelectEnd Sub5 Private Sub FontBold_Click() Txtdemo.FontBold = TrueEnd SubPrivate Sub FontItalic_Click() Txtdemo.FontItalic = TrueEnd SubPrivate Sub FontName_Click() On Error Resume Next FontName = InputBox(请输入字体名称：) Txtdemo.FontName = FontNameEnd SubPrivate Sub FontSize_Click() On Error Resume Next FontSize = InputBox(请输入字号：) Txtdemo.FontSize = Val(FontSize)End SubPrivate Sub FontStrikethru_Click() Txtdemo.FontStrikethru = TrueEnd SubPrivate Sub FontUnderline_Click() Txtdemo.FontUnderline = TrueEnd Sub6 Private Sub Txtdemo_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then PopupMenu styleEnd Sub第7章 参考答案一 单选题： 1A 2. C 3. A 4. C 5 B 6 C 7 A二 程序阅读题：11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 11 6 15 20 15 6 11 7 21 35 35 21 7 1三 程序填充题：List1.ListCount * List2.ListCount = 0List1.List(0) List2.List(0)四思考题(略)五 实验：1. Option ExplicitPrivate Sub Command1_Click() Form1.Cls Dim x As Integer Dim a(10) As Integer Dim i As Integer, pos As Integer For i = 1 To 10 a(i) = val(inputbox(“请输入第” & i & ”个数”) Next i Form1.Print 原始数据： For i = 1 To 10 Form1.Print a(i); ; Next i Form1.Print x = Val(InputBox(输入要查找的数x=:) pos = 0 For i = 1 To 10 If x = a(i) Then pos = i Exit For End If Next i If pos 0 Then For i = pos To 9 a(i) = a(i + 1) Next i Form1.Print 删除后数据： For i = 1 To 9 Form1.Print a(i); ; Next i Form1.Print Else MsgBox 数组中未找到 & Str(x) & End IfEnd Sub2. Private Sub Command1_Click() Dim a() As Single, temp As Single Dim n As Byte, i As Byte, j As Byte, k As Byte n = val(InputBox(请输入数组元素个数（2-10个）：, 输入数据) redim a(n) As Single For i = 1 To n a(i) = val(inputbox(“请输入第” & i & ”个数”) Next i For i = 1 To n - 1 排序 k = i 假设下标为i的元素值最小 For j = i + 1 To n If a(j) a(k) Then k = j Next j If ki then temp = a(i): a(i) = a(k): a(k) = temp Next i For i = 1 To n 显示输出 List1.AddItem a(i) Next iEnd Sub3Private Sub Form_Load() List1.AddItem 2:美学概论 List1.AddItem 2:工业心理学 List1.AddItem 2:游泳 List1.AddItem 3:数学史 List1.AddItem 10:数学分析 List1.AddItem 9:VB程序设计End SubPrivate Sub Command1_Click()Dim sum As Integer, score_sumFor i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then List2.AddItem List1.List(i) score_sum = score_sum + Val(List1.List(i) End If Next i Text1.Text =val(text1.text)+ score_sumEnd Sub4Private Sub Command1_Click() Const N = 5 Dim i As Integer, j As Integer Dim A(N, N) As Integer, sum As Integer Dim row As Integer, col As Integer, Max As Integer Randomize For i = 1 To N For j = 1 To N A(i, j) = Int(Rnd * 900) + 100 Next j Next i Form1.Print 原矩阵： For i = 1 To N For j = 1 To N Print A(i, j); Next j Print Next i For i = 1 To N sum = sum + A(i, i) Next i Print Print 主对角线之和： & sum Max = A(1, 1): row = 1: col = 1 For i = 1 To N 控制行变化 For j = 1 To N 控制行内各列 If A(i, j) A(row, col) Then Max = A(i, j) row = i col = j End If Next j Next i Print Form1.Print 最大元素是 & Max & 位置是: & row & colEnd Sub5. 利用控件数组重编例4-6。Private Sub Check1_Click(Index As Integer) Dim Flag As Integer, t As String, i As Integer Flag = 0 t = 你选择了: For i = 0 To 5 If Check1(i).Value = 1 Then t = t + Check1(i).Caption + : Flag = 1 Next i If Flag = 0 Then t = 你没有选择项目! Label1.Caption = tEnd Sub第8章 参考答案一、单选题1C2. D3. C4. B5. B二、填空题1通用2过程，Static ID As Integer3模块级4可变参数三、程序阅读题150100 25100 121002124 4712 122033四、思考题1出错。2出错，因为赋值号的左边应为函数名Fact，不能为函数调用。实验1Private Sub DToB(A As Long) Dim B As String, a1 As Long a1 = A B = Do While A 0 B = (A Mod 2) & B A = A 2 Loop Print 十进制数; a1; 转换二进制数为; BEnd SubPrivate Sub Command1_Click() Dim A As Long A = InputBox(请输入十进制数) DToB (A)End Sub2Function Prime(ByVal A As Long) As Boolean Dim I As Integer For I = 2 To Sqr(A) If A Mod I = 0 Then Exit For Next I If I Sqr(A) Then Prime = True Else Prime = False End IfEnd FunctionPrivate Sub Command1_Click() Dim A As Long, B As Long Dim N As Long Do N = Val(InputBox(请输入一个偶数) Loop While N / 2 N 2 Or N 6 For A = 3 To N / 2 Step 2 If Prime(A) Then B = N - A If Prime(B) Then MsgBox Str(N) & = & Str(A) & + & Str(B) Exit For End If End If Next AEnd Sub3Dim I As IntegerPrivate Sub Command1_Click() I = (I + 1) Mod 16 Label1.BackColor = QBColor(I) Frame1.Caption = QBColor颜色: + Str(I)End SubPrivate Sub Form_Load() I = 0 Label1.Caption = Label1.BackColor = QBColor(I) Frame1.Caption = QBColor颜色: + Str(I)End Sub4Function AverArray(A() As Double) As Double Dim I As Integer, Temp As Double For I = 0 To UBound(A) Temp = Temp + A(I) Next I AverArray = Temp / (UBound(A) + 1)End F