模拟试题1_4767

Visual Basic可视化程序设计模拟试题（专科）
得分
一、选择题（每题1．5分，共36分）
1．Visual Basic采用（）的编程方法。

A）面向对象B）面向过程C）面向问题D）面向用户
2．程序运行过程中始终保持不变的是（）。

A）数组B）表达式C）常量D）变量
3．表达式3 ^ 2 * 2 + 3 MOD 10 \ 4的值是（）。

A）18 B）1 C）19 D）0
4．字符型的常量是（）。

A）"2002/5/29" B）#2002/5/29#
C）2002/5/29 D）2002-5-29
5．将条件“X是小于100的非负数”用Visual Basic的表达式表示为（）。

A）0≤X＜100 B）0<= X< 100
C）0<=X AND X<100 D）0<= X OR X< 100
6．语句Print "123" + 456 执行后，显示的结果是（）。

A）123456 B）579 C）123 D）456
7．Visual Basic 6.0有3种版本，下列不属于这3个版本的是（）。

A）学习版B）标准版C）专业版D）企业版
8．使用（）方法可以向列表框中添加项目。

A）AddItem B）Clear C）RemoveItem D）SetFocus
9．下面的变量名合法的是（）。

A）k_integer B）k integer C）integer D）k- integer 10．可以得到焦点的控件是（）。

A）标签B）框架C）文本框D）计时器
11．执行以下程序段后，i的值为（）。

For i = 1 To 10 Step 2
y=y + 1
Next i
A）10 B）不确定C）11 D）12
12．函数InputBox的前三个参数，依次为（）。

A）提示信息、标题、默认值B）标题、提示信息、默认值
C）默认值、提示信息、标题D）默认值、标题、提示信息
13．能够声明动态数组的语句是（）。

A）Dim S(1 To 10)As Integer B）Static W(5,5) As Long
C）Dim G(9) As String D）Private Y() As Byte
14．为了在按下回车执行某个命令按钮的事件过程，需要把命令按钮的一个属性设置为True，这个属性是（）。

A）Value B）Default C）Cancel D）Enabled 15．下列表达式的值为2123的是（）。

A）Val("123asd") & 2000 B）Val("123asd") + 2000
C）Str(123) & "2000" D）Str(123) + "2000"
16．要想在过程调用后返回两个结果，下面的过程定义语句合法的是（）。

A）Sub Pro(x,y) B）Sub Pro(x,Byval y)
C）Sub Pro(Byval x,y) D）Sub Pro(Byval x,Byval y) 17．可以在窗体模块的通用声明段中声明（）。

A）全局变量B）全局常量
C）全局数组D）全局用户自定义类型18．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Command1_Click()
y = 0
For i = 1 To 15
x = 2 * i -1
If x Mod 3 = 0 Then y =y + 1
Next i
Label1.Caption = y
End Sub
程序运行后，单击命令按钮，则标签中显示的内容是（）。

A）1 B）5 C）27 D）45 19．在设计模式下，双击窗体Form1的空白处，打开代码窗口，显示（）事件过程。

A）Form_Click B）Form1_Load
C）Form_Load D）Form1_Click
20．运行时，要向图片框Pic中加载C:\windows\pic.bmp图像文件，应使用语句（）。

A）Picture1.Picture="C:\windows\ pic.bmp "
B）Picture1.Picture=LoadPicture("C:\windows\ pic.bmp ")
C）Pic.Picture=LoadPicture(C:\windows\ pic.bmp)
D）Pic.Picture=LoadPicture("C:\windows\ pic.bmp ")
21．设a="MicrosoftVisualBasic"，则以下使变量的b值为VisualBasic的语句是（）。

A）b=Left(a,10) B）b=Mid(a,10)
C）b=Right(a,10) D）b=Mid(a,11,10)
22．以下关于MsgBox的叙述中，错误的是（）。

A）MsgBox函数返回一个整数
B）通过MsgBox 函数可以设置信息框中图标和按钮的类型
C）MsgBox 语句没有返回值
D）MsgBox 函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量
23．在窗体上画一个名称为Timer的计时器控件，要求每隔0.5秒发生一次
计时事件，则以下正确的属性设置语句是（）。

A）Timer.Interval=0.5 B）Timer.Interval=5
C）Timer.Interval=50 D）Timer.Interval=500
24．产生[10,100]之间的随机整数，Visual Basic表达式是（）。

A）Int(Rnd()*90)+10 B）Int(Rnd()*91)+10
C）Int(Rnd())+90 D）Int(Rnd()*10)+90
二、填空题（每空2分，共30分）
25．计时器事件之间的间隔通过______属性设置，如果希望每秒产生100个事件，应将其属性值设置为______。

26．对象是数据和代码的集合，属性、______和______是对象的三个特征。

27．控件的名称相同但索引号不同，称为______。

28．假定有一个文本框，其名称为text1，为了使该文本框具有焦点，应执行的语句是______。

29．数学表达式2
sin30︒Visual Basic中应该写为______。

30．求表达式"qaz"="QAZ"的结果为______。

31．dim str1(9) as string*9中string*9表示______。

32．表达式Int(10*Rnd+50)所表示的随机数的范围为[50, ______]。

33．求表达式Left("123abc",3)的结果为______。

34．Visual Basic 6.0 的三种工作状态分别为______、运行、______。

35．工程文件的扩展名是______，窗体文件的扩展名是______。

三、阅读程序，按要求写出程序运行后的结果（共34分）
36．以下程序段的输出结果为______。

(10分)
m=2:=5
Do
m=m+2
n=n-1
Loop While n>5
Print m
37．以下程序段的输出结果为______。

(10分)
Function F(z As Integer)
x = 1
Static y
x = x + 1
y = y + 1
F = z + x + y
End Function
Private Sub Command1_Click()
Dim a As Integer
a = 3
For i = 1 To 3
Print F(a);
Next i
End Sub
38．下列程序是完成求1～100之间的所有能被3和5同时整除的数的和。

请将程序补充完整。

(7分)
Dim I As Integer, S As Integer
S = 0
For I = 5 to 100
If then
S = S + I
End If
Next I
Print "S="; S
39．下列程序的输出结果为______。

(7分) For i=1 to 4
Print Tab(5-i);
For j=1 to 2*i-1
Print "*";
Next j
Print
Next i。