VB课后习题答案1..docVIP

第1章 选择题 1-5 DCDBB 6-10 DCCCC 第2章 选择题 1 A 2 D 3 C 4 B 5 A 6 D 7 A 8 B 9 C 10 C 填空题 对象、属性、值 视图、工具箱 属性、对象、事件、方法 事件和方法 窗体对象 第3章　VB语言基础参考答案 一．选择题 1．B 2.B 3.B 4.C 5.C 6.D 7.A 8.B 9.B 10.B 11.A 第4章 一．选择题 1-5 BCCAC 6-10 BCBCA 11-14 ABDD 二．编程题 1.顺序结构，选择结构，循环结构 2.Private Sub Form_Click() Dim i As Integer, s As Single s = 0 For i = 1 To 5 x = Val(InputBox(请输入第 i 个数)) Print x; s = s + x Next i Print Print 五个数的和为：; s, 平均值为：; s / 5 End Sub 3．Private Sub Form_Click() n$ = InputBox(请输入您的姓名) AGE$ = InputBox(请输入您的年龄) addr$ = InputBox(请输入您的通信地址) pos$ = InputBox(请输入您的邮政编码) tel$ = InputBox(请输入您的电话号码) Print Print Tab(6); 姓名; Space$(3); 年龄; Space$(3); 通信地址; Space$(5); 邮政编码; Space$(3); 电话号码 Print Print Tab(5); n$; Space$(3); AGE$; Space$(3); addr$; Space$(3); pos$; Space$(3); tel$ End Sub 4．Private Sub Form_Click() Dim z As String, x As Integer, y As String Randomize Timer x = Int(Rnd * 9000) + 1000 Print 产生的随机数为：; x y = CStr(x) For i = 4 To 1 Step -1 z = z Mid(y, i, 1) Next i Print 倒序数为：; z End Sub 5．Private Sub Form_Click() Dim p As Double Dim r As Single Dim n As Integer p = 1300000000# r = 0.01 n = 0 Do Until p = 1700000000# p = p * (1 + r) n = n + 1 Loop Print n; 年后，我国人口达到17亿 End Sub 6．Private Sub Form_Click() Dim a As Single, b As Single, c As Single, s As Single, area As Single a = Val(InputBox(请输入a边的边长)) b = Val(InputBox(请输入b边的边长)) c = Val(InputBox(请输入c边的边长)) If a + b = c Or b + c = a Or c + a = b Then MsgBox 所输入的值不能构成三角形 Else s = (a + b + c) / 2 area = Sqr(s * (s - a) * (s - b) * (s - c)) Print 三角形的面积为：; area End If End Sub 7．Private Sub Command1_Click() Dim r As Single, tax As Single r = Val(Text1.Text) If r = 800 Then tax = 0 ElseIf r 800 And r = 2000 Then tax = (r - 800) * 0.1 ElseIf r 2000 Then tax = (r - 800) * 0.2 End If Text2.Text = Str(tax) End Sub 8．Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer, t As Integer Print 水仙花数如下： For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 t = i * 100 + j * 10 + k