1、第 1 章 计算机基础知识一、选择题1B 2. A 3. D 4. C 5. B 6. B 7. D 8. C 9. A 10. B 11. D二、填空题1. 0 FF2. 1 0 2 13内码4硬件系统和软件系统 系统软件 应用软件 第 2 章 操作系统一、选择题1，A 2，D 3，C 4，A 5，B 6，A 7，C 8，B 9，D二、填空题1， 居中 2， 单击；双击 3， 开始；搜索 4， 复制；编辑；粘贴 5查看；排列图标 第 3 章 Office 基本操作一、选择题1. D 2. C 3. D 4. C 5. A 6. B 7. B 8. B 9. A 10. B二、填空题1， 右；
2、F1；ctrl+空格键2， 页面；大纲3， 状态栏；工具，字数统计4， Normal.dot5， 1，8，12，206， 段落结束符；换行符7， 显示比例；从文档中剪切所选内容，并将其放入剪贴板；复制一个位置的格式，然后将其应用到另一个位置8，.doc; .ppt; .xls9，对象10，合并域11，图形；图片12，；average; JohnSmith; =A1+B1+A2+B2; C2*D3-E4; 2*$B$113，试图为两个并不相交的区域指定交叉点14，打包；Ctrl+P15，普通视图 第 4 章 计算机网络应用一，选择题1，A 2，C 3，B 4，A 5，D 6，D 7，A 8，C
3、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，工程；窗体；标准模块；ocx2，Text1.Text = “Hello“ 第 6 章 Visual Basic 程序设计基础一、选择题1C 2. D 3. C 4. C 5. A 6. B (显式声明变量 ) 7. C 8.A 9. A 10. B 11.
4、 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 1000 and b2-4*a*c=03. 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
5、 As IntegerDim i As Integer, c As String * 1s = Text1.TextFor i = 1 To Len(s)c = Mid(s, i, 1)If c = “0“ And c = “A“ And c = “a“ And c = “z“ Thenn2 = n2 + 1Elsen3 = n3 + 1End IfNext iText2.Text = “数字：“ + Str(n1) + “个“Text3.Text = “字母：“ + Str(n2) + “个“Text4.Text = “其他字符：“ + Str(n3) + “个“End Sub第 7 章 数
6、组一、单选 C B C A B二、填空 1（1） For I = 1 To 100（2） 4（3） For I = 1 To 4（4） “S(“ String(2 * i - 1, “*“) 或用双重循环实现Next iEnd SubPrivate Sub Command2_Click() 清除Picture1.ClsEnd Sub 2滚动字幕Dim x As Integer （通用） （声明）Private Sub Form_Load()HScroll1.Min = 10HScroll1.Max = 100Label1.Caption = “休息中“Label1.AutoSize = Tru
7、e 标签大小与文字内容大小相符以上属性可在属性窗口设置x = HScroll1.ValueEnd Sub Private Sub HScroll1_Change()x = HScroll1.ValueEnd SubPrivate Sub Timer1_Timer()Dim n%Label1.Left = Label1.Left - xIf Label1.Left + Label1.Width = 0 ThenLabel1.Left = Form1.Widthn = Int(Rnd * 16)Label1.ForeColor = QBColor(n)End IfEnd Sub 说明：滚动字幕的速
8、度亦可通过滚动条的 Value 值控制 Timer 控件的 Intevel 来实现。第 10 章 数据文件和文件操作控件一、选择题1B 2. B 3. A 4. A B D 都对，其中 B、D 是相同的，不过用 A 更好 5. B三、编程题1将一个星号组成的三角形写入文件Private Sub Command1_Click()Open “c:exam.txt“ For Output As #1Dim i As IntegerFor i = 1 To 5Print #1, Tab(6 - i); String(2 * i - 1, “*“)Next iClose #1End Sub2两个文件合并Dim s$Open “c:aa.txt“ For Append As #1Open “c:bb.txt“ For Input As #2Do While Not EOF(2)Line Input #2, sPrint #1, sLoopClose #1, #2第 11 章 图形操作一、选择题1B 2. D 写成 QBColor(Int(Rnd * 16) 更准确 3. A 图形控件的 FillStye 属性设为 0-Solid 则图形呈实心填充4. D 5. B
