期末自测题（A卷）
文件部分的选择题要做，其它类型的题目不用做，不作考察 选择题其它部分还没有时间做
一、单选题（每题1分，共25分）
1、211.66.160.1 是Internet上的( )。
(A) IP地址 (B)域名 (C)密码 (D)软件编号 2、在以下四个www网址中，（ ）网址不符合www网址书写规则。 (A) www.163.com (B) www.gdpu.cn.edu (C) www.863.net.cn (D) www.tj.net
3、下列字符中，其ASCII码值最小的一个是（ ）。
(A) A (B) a (C) Z (D) X
4、下列软件中属于浏览器的是（ ）。
(A) Excel (B) Internet Explorer (C) QQ (D) Visual Basic 5、电子邮件(E-mail)地址的正确形式是（ ）。
(A)用户名@域名 (B)用户名#域名 (C)用户名/域名 (D)用户名.域名 6、下面变量名不合法的是（ ）。
(A) a2 (B) abcd (C) a$x (D) Cd_E
7、下列表达式中，正确的Visual Basic表达式是（ ）。
(A) 2sin45° (B) ∏*R2 (C) x÷y×5 (D) （x+1）/（x^2+1）/2 8、下面逻辑表达式的值为真的是（ ）。
(A) \(C) \
9、下列过程定义语句说明不合法的是（ ）。
(A) Sub f1(ByRef n() As Integer) (B) Sub f1(ByRef n As Integer) (C) Sub f1(ByVal n() As Integer) (D) Sub f1(ByVal n As Integer) 10、执行下面的4个打印语句，将出错的是（ ）。
(A) Print a = 3 + 5 (B) Print \(C) Print \(D) Print a=; 3 + 5 11、语句 For i = -3 To 20 Step 4 的循环次数为（ ）。 (A) 5 (B) 6 (C) 7 (D) 8
12、下列叙述中错误的是（ ）。
(A) 列表框与组合框都有List属性 (B) 列表框与组合框都有Selected属性 (C) 列表框和组合框都有Text属性 (D) 列表框与组合框都有Enabled属性
13、窗体Form1里有两个对象，分别是图片框P1和标签L1。那么下面关于Print方法的使用中，错误的语句为（ ）。
(A) P1.Print 147 (B) Print 147 (C) Form1.Print 147 (D) L1.Print 147
14、通过设置图像框Image的（ ）属性，可以自动调整图形的大小，以适应图像框Image的尺寸。 (A) Autosize (B) Stretch (C) AutoRedraw (D) Appearance
15、执行语句 Print Left( \，在窗体上显示的内容是（ ）。 (A)VVV (B)Vis (C)s (D) sualBasic 16、以下叙述中正确的是（ ）。
(A) 窗体的Name属性指定窗体的名称，用来标识一个窗体 (B) 窗体的Name属性的值是显示在窗体标题栏中的文本 (C) 可以在运行期间改变对象的Name属性的值 (D) 对象的Name属性值可以为空
17、设x是整型变量，与函数IIf( x > 0 , -x , x )有相同结果的代数式是（ ）。 (A)|x| (B)-|x| (C) x (D )-x
18、将组合框Combo1当前选中的项目内容赋值给变量S，正确的语句是（ ）。 (A) S= Combo1.Text (B) S = Combo1.Value (C) S= Combo1.List (D) S = Combo1.List(0)
19、建立一个图书资料管理输入界面，要求选择图书的借阅情况(借出/未借)、语种（中文/英文/日文/其他）及分类（8类，存在重复分类，一本图书既属于1类，也同时属于2类）。应如何在窗体中利用单选钮和复选框实现（ ）。 (A) 用一组14个复选框来实现
(B) 将8种分类用一组8个复选框、借阅情况和语种用一组6个单选钮实现 (C) 将8种分类用一组8个单选钮、借阅情况和语种用6个复选框实现
(D) 将8种分类用一组8个复选框、借阅情况用一组2个单选钮、语种用一组4个单选钮实现 20、已知A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式是（ ）。 (A) A>=B And B>=C And C>0 (B) A+C>B And B+C >A And C>0 (C)(A+B)>=C And A-B <=C) And C>0 (D) A+B>C And A-B>C And C>0 21、执行（ ）后，会弹出如下图所示的窗口。
(A) x = InputBox(\输入框\请输入VB数据\(B) InputBox(\输入框\请输入VB数据\
(C) x = InputBox(\请输入VB数据\输入框\(D) InputBox(\请输入VB数据\输入框\
22、窗体有Text1文本框和Command1命令按钮，并有以下代码：
Private Sub Command1_Click()
Dim n
If Text1.Text <> \ n = n + 1
Print \口令输入错误\次！\End If End Sub
希望程序运行时若输入口令不正确，显示出错的次数（如下面图），但实际运行时没有出现预期效果（如上面图）。修改方案中正确的是（ ）。
(A)在Dim n后添加一句：n=0 (B)将 Dim n改为Dim n%
(C)将Dim n放到“通用”-“声明”处
(D)将Print \口令输入错误\次！\改为Print \口令输入错误\次！\23、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。
(A)单选按钮 (B) 图片框 (C) 通用对话框 (D) 文本框 24、设有语句Open \，则以下错误的叙述是（ ）。 (A) 该语句打开C盘根目录下一个已存在的文件Test.Dat (B) 该语句在C盘根目录下建立一个名为Test.Dat的文件 (C) 该语句建立的文件的文件号为1
(D) 执行该语句后，就可以通过Print #语句向文件Test.Dat中写入信息 25、滚动条产生Change事件是因为（ ）值改变了。
(A) Max (B) Min (C) Value (D) Caption
二、程序阅读题（每题3分，共15分）
1、执行下面的程序段后，列表框List1中余下的两项为 1 和3 。
For i = 1 To 4
List1.AddItem i Next i
For i = 1 To 2
List1.RemoveItem i
Next i 2、执行下面的程序段后，输出结果为 21 21 。
x = 5
For I = 1 To 20 Step 2 x = x + I \\ 5 Next I
Print x, I
3、执行下面的程序段后，则在Text1中显示的值为 24 。
Dim A%(10, 10), i%, j% For i = 1 To 10 For j = 1 To 10 A(i, j) = i + j Next Next
Text1.Text = A(5, A(2, 3)) + A(7, A(3, 4))
4、执行下面的程序段后，在输入对话框中分别输入321和456，则窗体上的输出结果为 321456 。
a = InputBox(\请输入一个整数\b = InputBox(\请输入一个整数\Print a + b 5、程序运行后，单击命令按钮，则两个标签中显示的内容分别为 5 18 。
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(ByVal a As Integer, b As Integer) a = a * b
b = a + b End Sub
三、填空题（每空2分,共40 分）
1、请完善程序，功能是：随机生成一个8位数的整数，统计0～9这10个数字在生成的8位整数中出现的次数，并显示统计结果。
Dim i%, s&, j%, a(0 To 9) As Integer s = ___int(rnd*9+1) & _int(rnd*10)
&__int(rnd*10)_ & _int(rnd*10) & _int(rnd*10) & _int(rnd*10) & _int(rnd*10) & _int(rnd*10)___
Print \这个八位数是\Print \其中\For j = 1 To 8
c = Val(Mid(s, j, 1)) a(c) = __a(c)+1___ Next j
For i = 0 To 9
If a(i) <> 0 Then
Print i; \出现的次数\ _end if_____ Next i
2、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个命令按钮，标题分别为“计算”。 编写代码实现：
1）程序启动时，将所有的3位素数添加到列表框中。函数Prime用于判断一个数是否为素数。请完善程序。
2）单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。请完善程序。
Function Prime( n% ) As Boolean '判断素数函数
Dim i%
Prime = true For i = 2 To Sqr(n)
If n mod i=0 Then Prime = False Next
End Function
Private Sub Form_ Load ()
Dim i%, j%, t As Boolean For i = 100 To 999
If prime(i)=true Then List1.AddItem i Next i End Sub
Private Sub Command1_Click() ‘计算 Dim i%，sum%
For i = 0 To List1. ListCount-1
Sum = sum + Val(List1.List(i)) Next
Text1.Text = Sum End Sub
3、将“ABC” 添加到列表框List1中第三项的语句为： List1.AddItem \。
?1?x4、求分段函数 y??2?x?2x(x?0)
(x?0) 的值，可用y = IIf( x>=0,1+x,x^2+abs(2*x) )。
5、设置文本框Text1中的文本字体颜色为红色的语句为： Text1.ForeColor = vbRed 。 6、命令按钮Command1左移200，实现语句是 Command1.Move Command1.Left - 200 。 7、将D:根目录下的顺序文件t1.txt内容读入变量S，并显示在文本框Text1中；继而将其中的字母（包括大小写）、数字及其它字符的分别串成不同的字符串，最后将结果显示在图形框P1中。请完善程序段。
Dim s$, i%, c$, n1$, n2$, n3$ Open \【15】 As #1 Do While 【16】
s = 【17】 '文件的内容逐个读入变量s Text1.Text = Text1.Text & s
Loop
Close #1
For i = 1 To Len(s)
c = Mid( 【18】 ) Select Case c
Case 【19】 n1 = n1 & c
Case \ n2 = n2 & c 【20】 n3 = n3 & c End Select Next
P1.Print \字母串为：\P1.Print \数字串为：\P1.Print \其它字符串为：\
四、程序设计题（每题10分，共20分）
1、编程计算圆周率 Pi的近似值。计算公式如下，一直到 1/i 小于0.0000001为止。
2、编写程序，形成数列1，1，1，3，5，9，17，……的前N项（该数列的规律是从第四项开始，每一项是前三项之和），直到某项的值超过50000。