VB试卷10(考试必备)
- 格式：doc
- 大小：56.00 KB
- 文档页数：4
———————— 装 —————————— 订 ———————— 线 ————————
辽源职业技术学院考试答案（十）
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、在窗体中画点的方法是（ pset ），画圆的方法是（ circle ）
8、在数据库的结构中，有（ 层次模型 ）、（ 网状模型 ）和（ 关系模型 ）三种模型。
9、通过控件数组的（ index ）属性，可区分控件数组中的不同元素。
10、在通用声明段，使用（ dim ）和（ private）声明的变量是窗体/模块级变量。
11、语句：a=123+val(mid(“123456”,3,2)),a的值是（ 157 ），函数left(“计算机程序设计”，
3)的运算结果为（ 计算机 ）
12、设有数组声明语句：dim a(10)，则数组a有（ 11 ）个元素。
二、选择题（每题2分，共30分）
1、决定控件上文字的字体、字形、大小、效果的属性是（ D ）
A、Text B、Caption C、Name D、Font
2、Visual Basic的编程机制是（ B ）
A、可视化 B、面向对象 C、面向图形 D、事件驱动
3、\、/、mod、*四个算术运算符中，优先级别最低的是（ C ）
A、\ B、/ C、mod D、*
4、通过以下（ C ）窗口可以添加控件。
A、代码窗口 B、窗体布局窗口 C、窗体设计窗口 D、属性窗口
题号 一 二 三 四 五 六 七 八 九 总分
标准分
20 30 30 20 100
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、清除对象的内容，可使用的方法是（ B ）
A、Add B、Cls C、Clear D、AddItem
8、在过程定义中用下列（ C ）表示形参的传址
A、Var B、ByRef C、Byval D、Value
9、下列函数中（ B ）函数返回的值是字符型的。
A、Instr B、Mid C、Abs D、sin
10、以下声明语句中错误的是（ B ）
A、Const var1=123 B、Dim var2=’ABC’
C、Dim var3 D、Static var4 as Integer
11、当单选按钮为选中状态，则其值为（ B ）
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、下列控件中，有text属性的是（ D ）
A、标签 B、列表框 C、复选框 D、文本框
15、如果文本框的Enabled属性设为False，则（ A ）
A、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上
B、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容
C、文本框的文本将变成灰色，用户仍然能改变文本框中内容
D、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容
三、读程序写相应的答案（每题6分，共30分）
1、设有如下窗体事件
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
A=Array(1,2,3,4,5,6,7,8,9)
For i=0 to 3
Print a(5-i);
Next i
End sub
程序运行后，单击窗体，则在窗体内显示的结果是（ 6 5 4 3 ）
2、Private Sub Command1_Click( )
Dim x As Integer, y As Integer, z As Integer
x = 5 : y = 7 : z = 0
Me!Text1= ""
Call p1(x, y, z)
Me!Text1 =z
End Sub
Sub p1(a As Integer, b As Integer, c As Integer)
c = a + b
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的内容是（ 12 ）
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、
下列第40句共执行了（ 5 ）次，第41句共执行了（ 10 ）次
30 for i=15 to 2 step -3
40 for j=2 to 4 step 2
41 print i,j
42 next j
43 next i
四、编程题（每题10分，共20分）
1、键盘输入10个数，存入数组中，输出其中所有的偶数。
Option base 1
Dim s(10) as integer
For i=1 to 10
s(i)=inputbox(“请输入第”& I & “个数”)
if s(i) mod 2=0 then print s(i);
Next i
2、编写一个函数，实现计算判断一个数是正数、负数或零
Private fuction x(n as integer)
If n>0 then
Print “这是一个正数”
Elseif n=0 then
Print “这是零”
Else
Print “这是一个负数”
End if
End fuction
