第1章 计算机基础知识
一、选择题
1．B 2. A 3. D 4. C 5. B 6. B 7. D 8. C 9. A 10. B 11. D
二、填空题
1. 0 – FF
2. 1 0 2 1
3．内码
4．硬件系统和软件系统 系统软件 应用软件
第2章 操作系统
一、选择题
1，A 2，D 3，C 4，A 5，B 6，A
二、填空题
1， 居中 2， 单击；双击 3， 开始；搜索 4，排列图标
第3章 Office基本操作
一、选择题
1. D 2. C 3. D 4. C 5. A 6. B 7. B
二、填空题
7，C 8，B 9，D 复制；编辑；粘贴 5．查看；8. B 9. A 10. B
1， 右；F1；ctrl+空格键
2， 页面；大纲
3， 状态栏；工具，字数统计
4， Normal.dot
5， 1，8，12，20
6， 段落结束符；换行符
7， 显示比例；从文档中剪切所选内容，并将其放入剪贴板；复制一个位置的格式，然后将其应用到另一个位置
8，.doc; .ppt; .xls
9，对象
10，合并域
11，图形；图片
12，＝；average; John·Smith; =A1+B1+A2+B2; C2*D3-E4; 2*$B$1
13，试图为两个并不相交的区域指定交叉点
14，打包；Ctrl+P
15，普通视图
第4章 计算机网络应用
一，选择题
1，A 2，C 3，B 4，A 5，D 6，D 7，A 8，C 9，A 10，B
二，填空题
1，浏览器 2， 3，计算机网络
4，网络层次结构；TCP/IP参考模型 5，TCP/IP协议
第5章 Visual Basic程序设计语言
一、选择题
1，C 2，D 3，C 4，A 5，C 6，C 7，C 8，A 9，B 10，B或C 11，B 12，C 13，B 14，A 15，A 16，D
二、填空题
1，工程；窗体；标准模块；ocx
2，Text1.Text = \"Hello\"
第6章 Visual Basic程序设计基础
一、选择题
1．C 2. D 3. C 4. C 5. A 6. B (显式声明变量) 7. C 8.A 9. A 10. B 11. C 12. A 13. B 14. A 15. D 16. A 17. D 18. B 19. D 20. D 21. D 22. C 23. B
二、填空
1．(Y mod 4=0 and Y mod 100<>0) or (Y mod 400=0) 2. a<>0 and b^2-4*a*c>=0
3. X mod 5=0 and X mod 2=0 4. 5,459.40,335, 0.67, 67, hello 5. Max,Min,Max,Min
三、编程题
1．统计字符串中数字、字母和其他字符的个数
Private Sub Command1_Click()
Dim s As String, n1 As Integer, n2 As Integer, n3 As Integer
Dim i As Integer, c As String * 1
s = Text1.Text
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= \"0\" And c <= \"9\" Then
n1 = n1 + 1
ElseIf c >= \"A\" And c <= \"Z\" Or c >= \"a\" And c <= \"z\" Then
n2 = n2 + 1
Else
n3 = n3 + 1 End If Next i
Text2.Text = \"数字：\" + Str(n1) + \"个\"
Text3.Text = \"字母：\" + Str(n2) + \"个\"
Text4.Text = \"其他字符：\" + Str(n3) + \"个\" End Sub
第7章 数组
一、单选 C B C A B
二、填空 1．
（1） For I = 1 To 100
（2） 4
（3） For I = 1 To 4
（4） \"S(\" & I & \")=\" & S(I),
2． Text1.Text + Label1(Index).Caption
第8章 过程与函数
一、选择题
1. C 2. A 3. A 4. D 5. C 6. C
二、填空题
1．20 10 10 20 2．10 110
三、编程题
4．显示斐波那切数列
Dim n%, i%, Fibo() As Long
n = Val(InputBox(\"显示几项？(n<=46)\"))
ReDim Fibo(1 To n)
7. D 8. A 3．75 25
Fibo(1) = 1: Fibo(2) = 1
For i = 3 To n
Fibo(i) = Fibo(i - 1) + Fibo(i - 2) Next i
For i = 1 To n
Print Fibo(i),
If i Mod 5 = 0 Then Print
Next i
第9章 界面设计
一、选择题
1．C 2. (1) C (2) A 3. B 4. B 5. C
三、编程题
1． 图片框中显示星号组成的三角形
Private Sub Command1_Click() ' 显示
Dim i As Integer
For i = 1 To 8
Picture1.Print Tab(15 - i); String(2 * i - 1, \"*\")
Next i End Sub
6. B C 7. C 8. B ' 或用双重循环实现
Private Sub Command2_Click() ' 清除
Picture1.Cls End Sub
2．滚动字幕
Dim x As Integer ' （通用）（声明）
Private Sub Form_Load()
HScroll1.Min = 10
HScroll1.Max = 100
Label1.Caption = \"休息中\"
Label1.AutoSize = True '标签大小与文字内容大小相符
'以上属性可在属性窗口设置
x = HScroll1.Value End Sub
Private Sub HScroll1_Change()
x = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
Dim n%
Label1.Left = Label1.Left - x
If Label1.Left + Label1.Width <= 0 Then
Label1.Left = Form1.Width
n = Int(Rnd * 16)
Label1.ForeColor = QBColor(n)
End If
End Sub
' 说明：滚动字幕的速度亦可通过滚动条的Value值控制Timer控件的Intevel来实现。
第10章 数据文件和文件操作控件
一、选择题
1．B 2. B 3. A 4. A B D 都对，其中B、D是相同的，不过用A更好
三、编程题
1．将一个星号组成的三角形写入文件
Private Sub Command1_Click()
Open \"c:\\exam.txt\" For Output As #1
Dim i As Integer
For i = 1 To 5
Print #1, Tab(6 - i); String(2 * i - 1, \"*\")
Next i
5. B
Close #1
End Sub
2．两个文件合并 Dim s$
Open \"c:\\aa.txt\" For Append As #1
Open \"c:\\bb.txt\" For Input As #2
Do While Not EOF(2)
Line Input #2, s
Print #1, s
Loop
Close #1, #2
第11章 图形操作
一、选择题
1．B 2. D 写成 QBColor(Int(Rnd * 16)) 更准确
3. A 图形控件的FillStye属性设为0-Solid则图形呈实心填充
4. D 5. B
