VB课后习题参考答案.docx

1、VB课后习题参考答案第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章 参考答案一、简答题（略）二、单选题：1A 2. D 3C 4. B 5A 6D 7. C 三、填空题：1设计 运行2Proj1 Demo13程序代码 控件4编译 可执行文件5可视化6窗体对象7视图 F4实验部分（略）第2章 参考答案一、简答题（略）二、找出以下语句中的错误1 False - 错，因为False

2、是VB的关键字或保留字2 Integers - 错，正确的写法是 dim x ,y ,z as integer3 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

3、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

4、-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 Integ

5、er 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 *

6、 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.T

7、ext = 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.T

8、ext = 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

9、) 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二、填

10、空题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

11、 梯形面积为： & 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 = 红L

12、abel2.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 = F

13、alseForm1.FontItalic = FalseForm1.FontBold = TrueForm1.ClsCurrentX = 500CurrentY = 500Print 水光潋艳晴方好，山色空蒙雨亦奇CurrentX = 500CurrentY = 1000Print 欲把西湖比西子，淡妆浓抹总相宜End SubPrivate Sub Command3_Click()Form1.FontBold = FalseForm1.FontUnderline = FalseForm1.FontItalic = TrueForm1.ClsCurrentX = 500CurrentY = 50

14、0Print 水光潋艳晴方好，山色空蒙雨亦奇CurrentX = 500CurrentY = 1000Print 欲把西湖比西子，淡妆浓抹总相宜End SubPrivate Sub Command4_Click()Form1.FontBold = FalseForm1.FontItalic = FalseForm1.FontUnderline = TrueForm1.ClsCurrentX = 500CurrentY = 500Print 水光潋艳晴方好，山色空蒙雨亦奇CurrentX = 500CurrentY = 1000Print 欲把西湖比西子，淡妆浓抹总相宜End SubPrivat

15、e 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 ElseI

16、f 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 40

17、000 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, 优

18、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 Comman

19、d1_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 对不起，猜小了！ + 你已经猜了 +

20、 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

21、= 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

22、) 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

23、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 Opti

24、on3_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，

25、它在属性窗口或程序代码中被设置。 4MouseMove 5指针类型，17 99 6，Shift 7拖放 8move 9KeyPress，对应按键的ASCII码。KeyDown或KeyUp，Shift 10Click，当前窗体的输出位置 11右键，菜单 12ALT 13Visible，Enabled 14Click，1 15Enabled False 16连接符”-” 175 18Clipboard.Clear 19文本，Clipboard.GetText 20PopupMenu，Call PopupMenu 菜单名称实验1Private Sub Text1_Change() If Val(Te

26、xt1.Text) = 0 And Val(Text1.Text) = 15 Then Me.MousePointer = Val(Text1.Text) Else MsgBox 数据输入错误，请输入0-15的数 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End IfEnd Sub2 Private Sub Form_Load() Form1.KeyPreview = True Command1.TabIndex = 0End SubPrivate Sub form_KeyPress(KeyAscii As Integer) Dim Digit1 As Integer I