VB 计算机基础知识

一、选择题

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