《VB计算机基础知识.doc》由会员分享，可在线阅读，更多相关《VB计算机基础知识.doc（9页珍藏版）》请在金锄头文库上搜索。
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， 右；F1；c
2、trl+空格键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 9，A 10
3、，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. C 12. A 13. B 14
4、. 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) or (Y mod 400=0) 2. a0 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 Int
5、eger, n3 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 Then n2 = n2 + 1 Else n3 = n3 + 1 End IfNext i Text2.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( & I & )= & S(I), 2 Text1.Text + Label1(Index).Caption 第8章 过程与函数一、选择题1. C 2. A 3. A 4. D 5. C 6. C 7. D 8. A 二、填空题120 10 10 20 210 110 375 25 三、编程题4显示斐波那切数列 Dim n%, i%, Fibo() As Long n = Val(InputBox(显示几项？(n=46) ReDim Fibo(1 To n) Fib
7、o(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章 界面设计一、选择题1C 2. (1) C (2) A 3. B 4. B 5. C 6. B C 7. C 8. B 三、编程题1 图片框中显示星号组成的三角形Private Sub Command1_Click() 显示 Dim i As Integer For i = 1 To 8 Picture1.
8、Print Tab(15 - i); String(2 * i - 1, *) 或用双重循环实现 Next iEnd Sub Private Sub Command2_Click() 清除 Picture1.ClsEnd Sub 2滚动字幕Dim x As Integer （通用）（声明）Private Sub Form_Load() HScroll1.Min = 10 HScroll1.Max = 100 Label1.Caption = 休息中 Label1.AutoSize = True 标签大小与文字内容大小相符 以上属性可在属性窗口设置 x = HScroll1.ValueEnd S
9、ub Private Sub HScroll1_Change() x = HScroll1.ValueEnd 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 IfEnd Sub 说明：滚动字幕的速度亦可通过滚动条的Value值控制Timer控件的Intevel来实现。 第10章
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 #1 Dim i As Integer For i = 1 To 5 Print #1, Tab(6 - i); String(2 * i - 1, *) Next i Close #1End Sub 2两个文件合并Dim s$Open c:aa.txt For Append As #1Open c:bb.txt For Input As #2Do While Not EOF(2) Line Input #2, s Print #1, sLoopClose #1, #2 第11章 图形操作一、选择题1B 2. D 写成 QBColor(Int(Rnd * 16) 更准确 3. A 图形控件的FillStye属性设为0-Solid则图形呈实心填充4. D 5. B
