VB试卷5(考试必备)

————————装——————————订————————线————————
辽源职业技术学院考试答案（五）
20 –20 学年第学期期《Visual Basic程序设计》考试试卷命题教师：审批人：
考试方式：笔试答题时间100 分钟考生人数: 人
一、
一、填空题（每空1分，共20分）
1、在VB的工程中，工程文件的扩展名（ vbp ）
2、在运行程序时，若要使文本框获得输入焦点，可调用文本框对象的（ setfoucs ）方法来实
现。

3、窗体的标题栏显示内容由窗体对象的（ caption ）属性决定。

4、VB中的变量如果没有显式声明其数据类型，则默认为（变体类型）
5、VB中运算符被分为四类，分别是（算术运算符）、（关系运算符）、（逻辑运算符）和连
接运算符。

6、在VB中，执行“A=18 MOD 4”语句后，A的值为（ 2 ）
7、窗体的默认坐标原点在（窗体左上角），X轴、Y轴的方向分别是（ X轴向右，Y轴向下）。

8、在数据库的结构中，有（层次模型）、（网状模型）和（关系模型）三种模型。

9、通过控件数组的（ index ）属性，可区分控件数组中的不同元素。

10、在过程调用中,参数的传递可分为( 按地址传递 )和( 按值传递 )。

11、语句：a=“123”+mid(“123456”,3,2),a的值是（ 12334 ），函数len(“today is Sunday”)
的运算结果为（ 15 ）
12、声明一个字符型变量mst，应使用（ dim mst as string ）语句
13、设有数组声明语句：dim a(100)，则数组a有（ 101 ）个元素。

二、选择题（每题2分，共30分）
1、决定控件上文字的字体、字形、大小、效果的属性是（ D ）
A、Text
B、Caption
C、Name
D、Font
2、Visual Basic的编程机制是（ B ）
A、可视化
B、面向对象
C、面向图形
D、事件驱动
3、工具栏中的“启动”按钮的作用是（ B ）
A、运行一个应用程序
B、运行一个窗体
C、打开工程管理窗口
D、打开被选中对象的代码窗口
4、通过以下（ B ）窗口可以在设计时直观地调整窗体在屏幕上的位置。

A、代码窗口
B、窗体布局窗口
C、窗体设计窗口
D、属性窗口
5、下面是合法的变量名为（ A ）
A、x_yz
B、123abc
C、integer
D、X-Y
6、要分配一个3*3的单精度类型的数组，正确的数组声明语句是（ B ）
A、Dim a(9) As Single
B、Dim a(-1 to 1,-5 to -3) As Single
C、Dim a(3,3) As Single
D、Dim a(-3 to 1,-5 to 7) As Single
7、若要向列表框中新增列表项，可使用的方法是（ D ）
A、Add
B、Remove
C、Clear
D、AddItem
8、在过程定义中用下列（ C ）表示形参的传值
A、Var
B、ByRef
C、Byval
D、Value
9、下列函数中（ A ）函数返回的值是数值型的。

A、Instr
B、Mid
C、Space
D、Chr
10、以下声明语句中错误的是（ B ）
A、Const var1=123
B、Dim var2=’ABC’
C、Dim var3
D、Static var4 as Integer
11、控件数组中第一个元素的index值是（ A ）
A、0
B、1
C、空值
D、2
12、要想从子过程调用后返回两个结果，下面子过程说明语句合法的是（ C ）
A、Sub f2(ByVal n%,ByVal m%)
B、Sub f1(n%,ByVal m%)
C、Sub f1(n%, m%)
D、Sub f2(ByVal n%, m%)
13、已知函数定义Function f(x1%,x2%) as integer,则下列调用语句正确的是（ A ）
A、a=f(x,y)
B、call f(x,y)
C、f(x,y)
D、f x y
14、下列控件中，没有caption属性的是（ B ）
A、框架
B、列表框
C、复选框
D、单选按钮
15、如果文本框的Enabled属性设为False，则（ A ）
A、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上
B、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容
C、文本框的文本将变成灰色，用户仍然能改变文本框中内容
D、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容
三、读程序写相应的答案（每题6分，共30分）
1、下列程序运行后，单击Command1按钮，标签label1中显示的内容是（ 7 ）
Option Base 1
Private Sub Command1_Click()
Dim a(3,4) As Integer,I as Integer,j As Integer
For i=1 to 3
For j=1 to 4
A(I,j)=a(I,j)+i+j
Next j
Next i
Label1=a(3,4)
End Sub
2、在窗体上画一个命令按钮，然后编写如下代码
Option Base 1
Private Sub Command1_Click()
Dim a
A=Array(1,2,3,4)
J=1
For i=4 to 1 step -1
S=s+a(i)*j
J=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，输出s的值是（ 1234 ）
3、Private Sub Command1_Click()
X=inputbox()
If x^2=9 then y=x
If x^2<9 then y=1/x
If x^2>9 then y=x^2+1
End Sub
程序运行后，在InputBox中输入3，单击命令按钮，y的运行结果是（ 3 ）4、下列程序段执行后
A=0:B=0
For I= -1 to -2 Step -1
For J=1 to 2
B=B+1
Next J
A=A+1
Next I
A、B的结果分别为（ 2 4 ）
5、编写如下程序,运行后,单击窗体结果为( 1a2b3c4d5e )
Private Sub Form_Click()
A$=”54321”:b$=”abcde”
For j=1 to 5
Print Mid$(a$,6-j,1)+Mid$(b$,j,1);
Next j
Print
End sub
四、编程题（每题10分，共20分）
1、键盘输入10个数，存入数组中，输出其中最小的数和其对应的位数。

Option base 1
Dim a(10) as integer
For i=1 to 10
A(i)=inputbox(“请输入第”& I & “个数”)
Next i
Min=a(1)
For i=2 to 10
If a(i)<min then
Min=a(i)
N=i
End if
Next i
Print min,n
2、计算1到100之内所有的奇数和，并输出。

Dim sum as integer
Sum=0
For i=1 to 100
If I mod 2<>0 then sum=sum+i
Next i
Print sum。