第一章
答案：
一、单项选择题
2. C
3. D
二、判断题
第二章
一、单项选择题
1. B
2. D
3. A
4. D
5. B 7. D 8. D 9. D 10. A
11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D
21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B
31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A
41. D
二、判断题
1. True
2. True
3. False
4. False
5. False
6. False
7. False
第三章
一、单项选择题
二、判断题
.
第四章
一、单项选择题
二、判断题
三、操作题
1.参考代码：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer Dim sum As Integer
For i = 2 To 10000
sum = 0
For j = 1 To i / 2
k = i Mod j
If 0 = k Then
sum = sum + j
End If
Next j
If i = sum Then
Print i
End If
Next i
End Sub
2.参考代码：
Private Sub Command1_Click()
Dim n%, i%
n = InputBox("请输入天数：")
x = 1
For i = n - 1 To 1 Step -1
x = (x + 1) * 2
Next
Print x
End Sub
第五章
一、单项选择题：
1. B 3. C 4. C 5. D
6. B
7. A
8. D
9. D
11. D
二、多项选择题
2. ABD
3. ABC BC 5. BCD
三、判断题
1. （F）
2. （T）
3. （T）
4. （T）
5. （T）
6.(F)
7.(F)
8.(F)
9.(F) 10.(T)
11.(F) 12.(F) 13.(T) 14.(F) 15.(F)
四、填空题
1.数学日期时间字符串
2. Str(x) Val(x) Asc(x)
3. Sin(30*180)
4. 0
5. 2
6. 16
7. Right(x,5)
8. 123 123 12 0
9. Mid(S, 6, 4)
10. Int(Rnd * 900) + 100
Mid, 3, 1) & Mid, 2, 1) & Mid, 1, 1) 或 Reverse
五、操作题
1、求Sn=n+nn+nnn+nnnn+……nnnnnn…n(a个n)的和，其中a和n分别由随机函数产生的1～9之间的正整数，现假设n=5，a=3，则Sn=5+55+555，求Sn。
Private Sub Form_Click()
Dim a As Integer, n As Integer, s As Long, sn As Long, i As Integer
Cls
Randomize
a = Int(Rnd * 9 + 1) ' 产生1~9之间的整数
n = Int(Rnd * 9 + 1) ' 产生1~9之间的整数
Print "a="; a, "n="; n
For i = 1 To n
s = s + a * 10 ^ (i - 1)
sn = sn + s
Print sn ' 输出前i项之和，输出的最后一个数据为所求
Next i
End Sub
2．利用shall函数调用“写完板”程序。界面设计如下图：
Option Explicit
Private Sub Command1_Click() '打开写字板
Shell "c:\winnt\system32\", vbNormalFocus '打开写字板正常程序大小窗口End Sub
第6章数组
一、单项选择题
1．B 2. B 3. D 4. C 5. B
6. C
7. D
8. D
9. D
二、多选题
1．ABC 2. BCD 3. ACD 4. ABD 5. BCD
三、判断题
1. （F）
2. （F）
3. （T）
4. （F）
5. （F）
6. （T）
7. （T）
8. （F）
9. （T） 10. （T）
四、填空题
1. 字符型
2. ReDim
3. 2
4. 4
5. 二公司
6. 1234
7. 第一次第二次第三次
1 1 1
2 1 3
1 1 1
2 1 3
1 1 1
2 1 3
8. 16 9. 3 10. 33
五、操作题：
1．编写程序，建立并输出一个10*10矩阵，该矩阵两条对角线元素为1，其它元素均为0。
Option Base 1
Option Explicit
Private Sub Form_Load()
Show
Dim a(10, 10) As Integer
Dim x As Integer, y As Integer
For x = 1 To 10
For y = 1 To 10
a(x, y) = 0
If x = y Or x + y = 11 Then
a(x, y) = 1
End If
Print a(x, y); Spc(2);
Next y
Next x
End Sub
2．产生随机函数二维数组a(1 to 10,1 to 10)赋予0到99之间的整数，求出每行a的最大值并把这些最大数放到一维数组b中并用比较交换法降序排列输出各值。
Option Explicit
Private Sub Form_Click()
Dim a%(1 To 10, 1 To 10), b%(1 To 10), i%, j%, max%, t%
For i = 1 To 10
For j = 1 To 10
a(i, j) = Int(Rnd * 99 + 1)
Print Tab(5 * j); a(i, j);
Next j
Next i
Print "各行最大值为："
For i = 1 To 10
max = a(i, 1)
For j = 1 To 10
If a(i, j) > max Then max = a(i, j)
Next j
b(i) = max
Print b(i)
Next i
Print "对各行最大值降序排列后";
For i = 1 To 9
For j = i + 1 To 10
If b(j) > b(i) Then t = b(i): b(i) = b(j): b(j) = t
Next j
Print b(10)
Next i
End Sub
3．输入一系统字符串，并按递减顺序排列。
Option Base 1
Option Explicit
Dim n%, i%, j%, p As Integer
Dim a() As String
--------------------------------------------------------- Private Sub Command1_Click()
ReDim a(n)
For i = 1 To n
a(i) = InputBox("输入原字符串给数组元素" & "a(" & i & ")") Next i
For i = 1 To n
a(i)
Next i
End Sub
----------------------------------------------------------- Private Sub Command2_Click()
Dim t As String
For i = 1 To n - 1
p = i
For j = i + 1 To n
If a(j) > a(p) Then p = j
Next j
t = a(i): a(i) = a(p): a(p) = t
Next i
For i = 1 To n
a(i)
Next i
End Sub
----------------------------------------------------------- Private Sub Command3_Click()
End Sub
------------------------------------------------------------ Private Sub Form_Load()
n = Val(InputBox("请输入要排序的字符串的个数", , 0))
End Sub
第七章
一、单项选择题
二、判断题
第八章
一、单项选择题
1. C 13. A 14. B
二、判断题
8F .
17. T
22. T
第九章
一、单项选择题
二、
第十章
一、单项选择题
二、判断题
三、填空题
1．Caption,Name,Index,Checked,Enabled,Visible 2．标题－
3．&
4．向下移一个等级
5．PopupMenu
6． ToolBar
7．Align
8．ImageList
9. vbModel或1
第十一章
一、单项选择题
二、判断题
三、填空题
EOF(1)
Inputdata = “$” then
#1,Count
第十二章
参考答案
一、单选题
二、填空题
一、单项选择题
二、判断题