11.(F) 12.(F) 13.(T) 14.(F) 15.(F)
四、填空题
1.数学日期时间字符串
2.Str(x)Val(x)Asc(x)
3.Sin(30*3.14/180)
4.0
5.2
6.16
7.Right(x,5)
8.123 123 12 0
9.Mid(S, 6, 4)
10.Int(RndText1.Text* 900) + 100
a(x, y) = 1
End If
Print a(x, y); Spc(2);
Next y
Print
Next x
End Sub
2．产生随机函数二维数组a(1 to 10,1 to 10)赋予0到99之间的整数，求出每行a的最大值并把这些最大数放到一维数组b中并用比较交换法降序排列输出各值。
Option Explicit
11.B 12.B 13.B 14.A 15.C 16.A 17.C 18.A 19.C 20.D
二、多选题
1．ABC2. 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.T 2.F 3.F 4.T 5.T 6.F 7.T 8.T
三、填空题
1．Caption,Name,Index,Checked,Enabled,Visible
2．标题－
3．&
4．向下移一个等级
5．PopupMenu
6．MicrosoftWindowsCommonControls6.0ToolBar
21.T 22.F 23.F 24.F 25.T 26.T 27.F 28.F
第八章
一、单项选择题
1. C 2.B 3.C 4.B 5.B 6.D 7.B 8.C 9.B 10.B 11.D 12.C 13. A 14. B 15.D 16.D 17.D 18.C
二、判断题
1.T 2.F 3.F 4.T 5.F 6.T 7.T8F.9.T 10.F
二、判断题
1.F 2.T 3.F 4.F 5.T 6.F 7.T
三、操作题
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()
11.T 12.F 13.T 14.T15.T 16.T 17.T 18.F 19.T 20.T
21.F 22. T
第九章
一、单项选择题
1.D 2.C 3.B 4.A 5.D 6.B 7.A 8.B 9.B 10.C 11.A 12.D
二、1.T 2.T 3.F 4.T 5.F
第十章
一、单项选择题
1.A 2.A 3.C 4.B 5.B 6.D 7.A 8.D 9.C 10.C 11.A 12.B 13.B 14.C 15.A 16.D
Mid(Text1.Text, 3, 1) & Mid(Text1.Text, 2, 1) & Mid(Text1.Text, 1, 1)或 Reverse(Text1.Text)
五、操作题
1、求Sn=n+nn+nnn+nnnn+……nnnnnn…n(a个n)的和，其中a和n分别由随机函数产生的1～9之间的正整数，现假设n=5，a=3，则Sn=5+55+555，求Sn。
Next j
Print
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
Print "对各行最大值降序排列后";
For i = 1 To n
List2.AddItem a(i)
Next i
End Sub
-----------------------------------------------------------
Private Sub Command3_Click()
List1.Clear
List2.Clear
11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F .
第四章
一、单项选择题
1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A
21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D
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
四、填空题
1.字符型2.ReDim3.24.45.二公司6.1234
7.第一次第二次第三次
1 1 1 2 1 3
1 1 1 2 1 3
1 1 1 2 1 3
8.169.310.33
五、操作题：
1．编写程序，建立并输出一个10*10矩阵，该矩阵两条对角线元素为1，其它元素均为0。
Option Base 1
41. D
二、判断题
1.True2.True3.False4.False5.False6.False7.False
第三章
一、单项选择题
1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A
16.C 17.B
二、判断题
1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F
Dim n%, i%, j%, p As Integer
Dim a() As String
---------------------------------------------------------
Private Sub Command1_Click()
ReDim a(n)
For i = 1 To n
End Sub
------------------------------------------------------------
Private Sub Form_Load()
n = Val(InputBox("请输入要排序的字符串的个数", , 0))
End Sub
第七章
一、单项选择题
1.B 2.A 3.D 4.A 5.B 6.B 7.C 8.D 9.B 10.B
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)
int Tab(5 * j); a(i, j);
11. A12. A13. C14. C15. A16. C17. 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
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.B2.C 3.C4.C5.D
6.B7.A8.D9.D10.D
11. D 12.A 13.D 14.A 15.A
第一章
答案：
一、单项选择题
1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C
二、判断题
1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T
第二章
一、单项选择题
1. B2. D3. A4. D5. B6.A7. D8. D9. D10. A
a(i) = InputBox("输入原字符串给数组元素" & "a(" & i & ")")