VB程序设计试卷A

《VB程序设计》
考试试题
一、选择题
1．在设计阶段，当双击窗体上的某个控件时，所打开的窗口是( )
A) 工程资源管理器窗口B) 工具箱窗口
C) 代码窗口D) 属性窗口
2. 以下叙述中正确的是( )
A) 窗体的Name属性指定窗体的名称，用来标识一个窗体
B) 窗体的Name属性的值是显示在窗体标题栏中的文本
C) 可以在运行期间改变对象的Name属性的值
D) 对象的Name属性值可以为空
3. 设有如下变量声明( )
Dim TestDate As Date
为变量TestDate正确赋值的表达方式是
A) TextDate=#1/1/2002# B) TestDate= #“1/1/2002”#
C) TextDate=date(“1/1/2002”)D) TestDate=Format(“m/d/yy”,
“1/1/2002”)
4. 设有如下声明：
Dim X As Integer
如果Sgn(X) 的值为1，则X的值是( )
A) 整数B) 大于0的整数C) 等于0的整数 D) 小于0的数
5. 设a=“Visual Basic”，下面使b=“Basic”的语句是( )
A) b=Left(a,8,12) B) b=Mid(a,8,5)
C) b=Rigth(a,5,5) D) b=Left(a,8,5)
6. 在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为
Timerl，要求每一秒钟在文本框中显示一次当前的时间。

程序为：Private Sub Timer1_ （）
TxtTime.text=Time
End Sub
在下划线上应填入的内容是 ( )
A) Enabled B) Visible C) Interval D) Timer
7. 以下不属于Visual Basic系统的文件类型是 ( )
A) .frm B) .bat C) .vbg D) .vbp
8. 使用哪一个方法将一个项目加到列表框中？ ( )
A) Print B) RemoveItem C) AddItem D)Clear
9. 过程调用时，若采用传址方式，则有哪些情况？（）
A）实参随形参的变化而变化。

B）实参不随形参变化
C）形参前必须加Byval D)实参可是变量或表达式
10．表达式 3^2+10 mod 3-2 的值是什么？（）
A）9 B）7 C）8 D）4
11. 通常，文本框的SetFocus方法不能使用在哪一个事件中？（）
A）Form_Click B) Form_Load
C) Command_Click D) Label_Click
12. 当某一个按钮的哪一种属性设置为False时，该按钮不可见？（）
A）Enable B）Visible C）Default D）Cancel
13. 下列符号中运算级别最高的是哪一个？（）
A）* B）/ C）MOD D）^
14. 运行下面的程序，单击窗体后，屏幕上显示结果是什么？（）
Private Sub Form_Click ( )
Dim x , y as integer
x=1 : y=0
Do while x<3
y=y+x ‘ A语句
x=x+1 ‘ B语句
Loop
Print x , y
End Sub
A) 3 4 B) 3 5 C) 1 4 D) 3 3
15. 上题中，若将A语句和B语句互换，则程序的运行结果是什么？（）
A）和上题运行结果相同 B）程序无法运行
C）3 5 D）7 3
16．数学表达式SIN35º，写成VB表达式是什么？（）
A）SIN25 B）SIN（25） C）SIN（25） D）SIN（35*3.14/180）17．假定A是Boolean型变量，下面赋值语句不正确的是（）A）A=“TRUE” B）A=TRUE C）A=#TRUE# D）A=12<15
18．X是小于100的非负数，用VB表达式表示正确的是（）
A）0〈=X〈100 B） 0〈= X〈100
C）0〈=X AND X〈100 D） 0〈=X OR X〈100
19．下面哪一项不是结构化程序设计的基本结构（）
A）过程结构 B）顺序结构 C）选择结构 D）循环结构20．语句“Circle (1000,1000) , 500 , -6 , -3”将绘制的图形是（）A）圆 B）圆弧 C）椭圆 D）扇形
二、判断题
1．如果x是一个已声明的整型变量，则执行赋值语句x=”3”+5之后，变量x 的值是“出错”。

（）
2．设有如下通过Sub语句定义的Examsub过程：Sub Examaub ( x as integer )，则调用该过程的语句是“Examaub 16000”是正确的。

（）
3．在代码中清除图片框Picture1中图形，则“Picture1.Picture = Loadpicture(“”)”是错误的语句。

（）
4．当移动控件、重新设定其尺寸时，Top和Left属性会自动改变。

（）5．下列程序的输出结果是8。

（）
Private Sub Form_Click ( )
K=0
For I=1 to 2
For j=1 to 3
K=k+1
Next j
Next I
Print k
End Sub
三、读程序，写出程序运行后的结果
1、P rivate Sub Form_Click ( )
Dim x% , y%
x=inputbox (“enter x ”)
y=inputbox (“enter y ”)
If x>y then
print x – y
Else
print y – x
end if
End Sub
分别输入 4，5
该程序运行后结果为：
2、 Public a as integer
Private Sub Form_Click ( )
Dim I as integer
a=100
For I =1 to 3
Call test
Next I
Print a
End Sub
Public Sub test ( )
Static a as integer
a=a+5
Print a,
End Sub
该程序运行后结果为：
3、Private Sub Form_Click ( )
Dim I% , f& , n%
n=5
f=1
for I=1 to n
f = f * I
next I
print n ; “ ! = ” ; f
end Sub
该程序运行后结果为：
四、写出程序实现的功能
1、open “e :\shu.txt ” for output as # 1
print # 1 , 130 ; 140 ; 150
close # 1
该程序的功能是：
2、Private Sub Form_Click()
Dim t%, I%, j%, a(20) As Integer
For I = 1 To 20
a(I) = InputBox("输入一个整数")
Print a(I);
Next I
Print
For I = 1 To 19
For j = I+1 To 20
If a(I) < a(j) Then
t = a(I): a(I) = a(j): a(j) = t End If
Next j
Next I
For I = 1 To 20
Print a(I);
Next I
End Sub
该程序的功能是：
五、编写程序
1．设计程序，输入任意的3个数，求出3个数中的最大值。

2．从键盘输入一个整数，判断该数是否是素数，然后输出判断结果。

（注：判断素数用函数实现，再进行调用）。

3、打印Fibonacci数列前20项。

该数列的第一项为1，第二项为1，从第三项开始，每项都是前两项的和。

（即：Fib(1)=1，Fib(2)=1 , Fib(n)=Fib(n-1)+Fib(n-2) (n>=3) ）(可用数组，也可选择用递归调用的方法)。