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
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实验教程答案精选文档
第一章
答案：
一、单项选择题
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
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
Private Sub Command1_Click() '打开写字板
Shell "c:\winnt\system32\write.exe", vbNormalFocus '打开写字板正常程序大小窗口
End Sub
第6章 数组
一、单项选择题
1．B2.B 3.D4.C5.B
6.C7.D 8. D 9. D 10.A
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。
16.C 17.B 18.D 19.C 20.B
21.A 22.B 23.B24.C 25.B
26.B 27.A 28.A 29.D 30.A
二、多项选择题
1.BCD 2.ABD3. ABC4.ABC5. BCD
三、判断题
1.（F）2.（T）3.（T）4.（T）5.（T）
6.(F) 7.(F) 8.(F) 9.(F) 10.(T)
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.字符型2.ReDim3.24.45.二公司6.1234
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
二、判断题
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
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 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之间的整数
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
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.B2.C 3.C4.C5.D
6.B7.A8.D9.D10.D
11. D 12.A 13.D 14.A 15.A