VB期末考试试题及答案(1)

一、单项选择题（共10分）

5、设a=\，b=\，c=\，d=\，执行语句x=IIf((ad), \后，x的值为___【5】___ 。

6、在VB中，描述对象特征的数据称为对象的___【6】___。

7、有下面的表达式x1=val(“1e2abcd”)，运行后，x1的值为：___【7】___ 。 8、产生一个两位数的随机数的表达式为：___【8】___。

9、只有控件对象的Enabled和Visible属性值均为___【9】___ 时，该控件对象才能接受焦点。 10、设a=10，b=5，c=1，执行语句Print a>b>c后，窗体上显示的是___【10】___ 。

四、 读程序写结果

请将答案填写在答题卷对应位置处，答在试卷上不得分。 1、下面程序执行后a的值是___【1】___。 Private Sub Command1_Click() Dim a As Integer, b As Integer a = 1: b = 1 Do While b <> 5 a = b - a b = b + 1 Loop

页脚内容11

一、单项选择题（共10分）

Print a End Sub

2、下列程序运行后，单击窗体时显示的结果是___【2】___。 Private Sub Form_Click() Dim x As Integer x = 1 mysub x Print x End Sub

Private Sub mysub(x As Integer) x = 3 * x - 1

If x < 5 Then x = x + 9 End Sub

3、单击窗体，程序运行后结果是___【3】___。 Private Sub form_Click()

Dim i As Integer, j As Integer

页脚内容12

一、单项选择题（共10分）

i = 22: j = 44 Call mysub(i, j) Print j End Sub

Public Sub mysub(ByVal x As Integer, y As Integer) x = y + x y = x Mod y End Sub

4、程序运行时，单击Command1按钮，显示结果是___【4】___。 Private Sub Command1_Click() Dim a As Variant, s As Integer Dim i As Integer, j As Integer a = Array(1, 2, 3, 4) j = 1

For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10

页脚内容13

一、单项选择题（共10分）

Next i Print s End Sub

5、程序运行时，单击Command1按钮，显示结果是___【5】___。 Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 1 To 100 i = i + 4 n = n + 1 i = i + 2

If i > 30 Then Exit For Next i Print n, i End Sub

五、 编写程序题

请将程序代码写在答题卷对应位置处，答在试卷上不得分。

页脚内容14

一、单项选择题（共10分）

1、生成大小为1到100的50个随机整数，使用选择排序法对这些数进行由小到大的排序，并将其显示出来。(8分)

2、编写一函数过程计算1到n的累乘，参数n在调用时传递，函数名为mul。在主程序中调用该函数完成计算sum=1!+2!+3!+4!+5!，然后把sum结果打印出来。(6分)

3、找出所有四位整数的回文数，并把找出的这些回文数保存在顺序文件”c:\\abc.txt”中。(顺读和倒读都一样的字符串称“回文”，如：“level”，“1221”) (6分)

第一部分：客观题

一、 单项选择题

1-5、 DDBDD 6 -10、 CBDDC 11-15、 DADBD 16-20、 CBBBC 21-25、 BBDBC 26-30 、DACBD

二、 判断题

1、B 2、B 3、B 4、A 5、A 6、B 7、B 8、B 9、B 10、B

第二部分：主观题 三、填空题

1、a^2+b^2 2、86.57 3、 157 4、 REM 5、 “A” 6、 属性

页脚内容15