期末自测题（B卷）
一、单选题（每题1分，共25分）
1、211.66.160.1 是Internet上的( )。
(A) IP地址 (B)域名 (C)密码 (D)软件编号 2、www.gdpu.edu.cn是Internet上的( )。
(A) IP地址 (B)域名 (C)密码 (D)软件编号 3、计算机病毒是（ ）。
(A) 一种令人生畏的传染病 (B) 一种使硬盘无法工作的细菌
(C) 一种可治的病毒性疾病 (D) 一种使计算机无法正常工作的破坏性程序 4、下列表示存储容量的数据中，（ ）是最大的。
(A) 1.44MB (B) 20480KB (C) 1 GB (D)48657 Byte 5、下列设备中，不能作为计算机输出设备的是（ ）。
(A)显示器 (B)绘图仪 (C)扫描仪 (D)打印机 6、下列字符序列中，可以作为变量名的是（ ）。
(A) a24 (B) ab*d (C) a$x (D) Cd E 7、表达式 5 Mod 3+3\\5*2的值是（ ）。
(A) 0 (B) 2 (C) 4 (D) 6
8、改变控件在窗体中的上下位置，应修改控件的（ ）属性。
(A) Top (B) Left (C) Width (D) Right 9、下列语句错误的是（ ）。
(A) Exit For (B) Exit If (C) Exit Do (D) Exit Sub
10、在默认情况下，InputBox函数返回值的类型为（ ）。
(A) 数值 (B)字符串 (C) 变体 (D) 数值或字符串(视输入的数据而定) 11、窗体上有一水平滚动条，其Max为1，Min为100。以下叙述中正确的是（ ）。 (A) 程序运行时，若使滚动块向左移动，滚动条的Value属性值会增大 (B) 程序运行时，若使滚动块向左移动，滚动条的Value属性值会减小 (C) 由于滚动条的Max值小于Min值，程序出错
(D) 由于滚动条的Max值小于Min值，程序运行时滚动条的长度会缩为一点，滑块无法移动
12、在窗体上有两个名分别为Op1、Op2的单选按钮，一个名称为Ck1的复选框。程序运行后，要求Op1和Ck1被选中，以下能实现上述操作的程序段是（ ）。 (A) Op1.Value = True (B) Op1.Value = True
Ck1.Value = True Ck1.Value = 1 (C) Op1.Value = False Ck1.Value = 0
(D) Op1.Value = True
Ck1.Value = 2
13、设x=30,执行语句y = IIf(x > 10, x + 10, IIf(x < 0, x ^ 2, x ^ 3))后，y值是（ ）。
(A) 30 (B) 40 (C) 900 (D) 2700 14、以下定义数组或给数组元素赋值的语句中，正确的是（ ）。 （A）Dim a As Variant （B）Dim a(10) As Integer
a=Array(1,2,3,4,5) a=Array(1,2,3,4,5)
（C）Dim a%(10)
a(1)=\（D）Dim a(3),b(3) As Integer
a(0)=0:a(1)=1:a(2)=2:b=a
15、下列语句中错误的是（ ）。
(A) Text1.Text = List1.Text (B) Label1.Caption = List1.Text (C) List1.Name =List1.Text (D) Command1.Caption = List1.Text 16、下列叙述中错误的是（ ）。
(A) 列表框与组合框都有List属性 (B) 列表框有Selected属性，而组合框没有 (C) 列表框和组合框都有Style属性 (D) 组合框有Text属性，而列表框没有 17、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（ ）。 (A) = (B) * (C) & (D) - 18、将组合框Combo1当前选中的项目下标赋值给变量S，正确的语句是（ ）。 (A) S= Combo1.Text (B) S = Combo1.ListIndex (C) S= Combo1.List (D) S = Combo1.List(0)
19、要向文件t1.txt添加数据，正确的文件打开命令是（ ）。
(A) Open \B) Open \ (C) Open \20、表达式Abs(-5) + Len(\的值是（ ）。
(A) -5ABCDE (B) 5ABCDE (C) 0 (D) 10
21、执行语句 Print Mid( \，在窗体上显示的内容是（ ）。 (A)s (B)Vis (C)sua (D) sualBasic 22、VB中窗体、图片框或图像框装入图形可使用（ ）函数。
(A) LoadPicture (B) PictureLoad (C) LoadImage (D) Imageload 23、有如下声明语句：Dim str1 As String*5，则执行语句Str1= \Basic \后，str1的值是（ ）。
(A) Visual (B) Visua (C) Visual Basic (D) V
24、窗体上有两个列表框List1和List2，List1中有若干项目（如下图所示），并有下面程序：
Private Sub Command1_Click()
For k = 0 To List1.ListCount - 1 If List1.Selected(k) Then
List2.AddItem List1.List(k) List1.RemoveItem k End If Next k End Sub 程序运行时若按图示在List1中选中2个项目并单击命令按钮，则产生的结果是（ ）。 (A)在List2中添加了“物理”、“计算机”两项 (B)在List1中删除了“物理”、“计算机”两项 (C)同时产生(A) 和(B) 的结果 (D)出现错误提示
25、能表示身高H超于1.7米且体重W小于62.5千克的逻辑表达式是（ ）。
(A) H > 1.7 And W <= 62.5 (B) H <= 1.7 Or W >= 62.5 (C) H > 1.7 And W < 62.5 (D) H > 1.7 Or W < 62.5
二、程序阅读题（每题3分，共15分）
1、程序运行后，单击命令按钮，输出结果为 1 3 5 。
Private Sub Command1_Click() Dim num As Integer num = 1
Do Until num > 6 Print num;
num = num + 2.4 Loop End Sub 2、以下程序片段运行后输出a的值是 3 。
a = 0
For i = 1 To 3 For j = 1 To 3
If j < i Then a = a + 1 Next j Next i Print a
3、 程序运行后，单击命令按钮，则两个标签中显示的内容分别为 25 3 。
Private Sub Command1_Click() Dim x%, y% x = 5: y = 3 Call proc(x, y) Label1.Caption = x Label2.Caption = y End Sub
Private Sub proc(a As Integer, ByVal b As Integer) a = a* a b = b + b End Sub 4、程序运行后，单击命令按钮，则变量 a 的值是 负 。
Private Sub Command1_Click() temp = Int (-0.8) Select Case temp Case Is < 0
a = \负\ Case 0 a = \零\ Case Is > 0 a = \正\ End Select End Sub
5、执行下面的程序段后，输出结果为 93 。
Dim A%(10, 10), i%, j% For i = 1 To 10 For j = 1 To 10 A(i, j) = i * j Next Next
Print A(5, A(2, 3)) + A(7, A(3, 3))
三、填空题（共40 分，每空2 分）
1、要使用下列For循环执行20次，请在下划线处填入正确的值。
For k= 99 To –2 Step -5
2、命令按钮Command1右移200，实现语句是 Command1.Move Command1.Left+200 。 3、设a、b、c都是整型变量，判断“a和b中有一个小于c”的表达式是 iif(a>b,b Private Sub Command1_Click() Dim s$, a%(65 To 90), i%, max%, n% s = Text1.Text For i = 1 To Len(s) n = Asc( Ucase(mid(s,I,1)) ) If n >= 65 And n <= 90 Then A(n)=a(n)+1 End If Next max = 65 For i = 65 to 90 If a(i) > a(max) Then max=i Next Print \使用频率最高的是:\共出现\次。\End Sub 5、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个命令按钮，标题分别为“计算”。 1）程序启动时，将1000以内完数添加到列表框中。函数PerfNum用于判断一个数是否为完数(一个数如果恰好等于它的因子之和，这个数就被称为“完数”。一个数的因子是指除了该数本身以外能够被其整除的数)。请完善程序。 2）单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。请完善程序。 Function PerfNum ( n% ) As Boolean '判断完数函数 Dim i% , s% For i = 1 To n - 1 If 【9】 Then s = s + i Next i If 【10】 Then PerfNum = True Else PerfNum = False End Function Private Sub Form_ 【11】 () Dim i%, j%, t As Boolean For i = 1 To 1000 If 【12】 Then List1.AddItem i Next i End Sub Private Sub Command1_Click() '计算 Dim i%，sum% For i = 0 To 【13】 Sum = sum + 【14】 Next Text1.Text = Sum End Sub 6、设有一个文本文件c:\\aa.txt，其中有若干内容，如图，窗体界面如图所示。 1）将文本文件c:\\aa.txt的数据读出来存放到数组中，并在列表框中显示。请完善程序。 2）在Text1中输入一个名字或姓氏，将找到的显示在Text2中，否则显示找不到。请完善程序。 Dim a$(), n% Private Sub Command1_Click() '取数 Open \【15】 As #1 Do While Not EOF(1) n = n + 1 【16】 Preserve a(n) 【17】 #1 , a(n) List1.AddItem a(n) Loop Close #1 End Sub Private Sub Command2_Click() '查找 flag = False For i = 1 To 【18】 If a(i) = Text1 Or Left(a(i), Len(Text1)) = Text1 Then Text2 = Text2 & a(i) & vbCrLf 【19】 End If Next If 【20】 Then MsgBox \找不到！\End Sub 四、程序设计题（每题10分，共20分） 1、今年我国的国民生产总值为300670亿元,若今后每年以9%的增长率增长, 编写程序计算多少年后能实现国民生产总值翻一番? 2、编写程序，计算并输出数列1，2，3，5，16，231……的前N项（该数列的规律是从第三项开始，每一项是前两项的平方差），N值通过InputBox输入。