兰州交通大学02级计算机网络专业可视化编程技术
姓名_____________(考试时间100分钟)
一、选择题(每小题4分，共15题，60分)
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项写在试卷的括号内。
(1)以下不能在\"工程资源管理器\"窗口中列出的文件类型是()
A)．basB)．resC)．frmD)．ocx
(2)以下关于窗体的描述中，错误的是 ()
A)执行Unload Forml语句后，窗体Forml消失，但仍在内存中
B)窗体的Load事件在加载窗体时发生
C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止
D)窗体的Height、Width属性用于设置窗体的高和宽
(3)下列可作为Visual Basic变量名的是()
A)A#AB)4AC)?xyD)constA
(4)设有如下的记录类型 ()
Type Student
number As string
name As String
age As Integer
End Type
则正确引用该记录类型变量的代码是
A) Student．name=\"张红\"B) Dim s As Student s．name＝\"张红\"
C) Dim s As Type StudentD) Dim s As Type s．name=\"张红\" s.name＝\"张红\"
(5)函数String(n，\"str\")的功能是 ()
A)把数值型数据转换为字符串
B)返回由n个字符组成的字符串
C)从字符串中取出n个字符
D)从字符串中第n个字符的位置开始取子字符串
(6)将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是 ()
A)Cos(a+b)^2十5*exp(2)B)Cos^2(a+b)+5*exp(2)
C)Cos(a+b)^2十5*ln(2)D)Cos^2(a+b)+5*ln(2)
(7)在窗体上画一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过 程： Private Sub Command 1_C1ick()
a$=\"software and hardware\"
b$＝Right(a$,8)
c$=Mid(a$,1，8)
Msgbox a$,,b$,c$,1
End Sub
则在弹出的信息框的标题栏中显示的信息是 ()
A)software and hardwareB)softwareC)hardwafeD)1
(8)执行如下语句：
a＝InputBox(\"Today\"，\"Tomorrow，\"Yesterday\",,,\"Day before yesterday\"，5)将显示一个输入对话框，在对话框的输入区中显示的信息是 ()
A)TodayB)TomorrowC)YesterdayD)Day before yesterday
(9)表示滚动条控件取值范围最大值的属性是 ()
A)MaxB)LargeChangeC)valD)Max-Min
(10)在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是 ()
A) Private Sub Listl_Click()
B)Private Sub Listl_C1ick()
Label1．Caption＝List1.ListIndex Label1．Name＝Listl．ListIndex
End Sub End Sub
C)Private Sub Listl_Click()
D)Private Sub Listl_Click()
Label1．Name＝Listl.Text Label1．Caption＝Listl.Text
End Sub End Sub
(11)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
n=InputBox(\" \")
For i=1 to n
For j=1 to i
x=x+1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是 ()
A)3B) 4C)5D) 6
(12)以下关于菜单的叙述中，错误的是()
A)在程序运行过程中可以增加或减少菜单项
B)如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项
C)弹出式菜单在菜单编辑器中设计
D)利用控件数组可以实现菜单项的增加或减少
(13)在窗体上画三个单选按钮，组成一个名chkOption的控件数组。用于标识各个控件数组元素的参数是()
A) TagB) IndexC) ListIndexD) Name
(14)在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Option Base 0
Private Sub Command1_Click()
Dim city As Variant
city=Array(\"北京\"，\"上海\"，\"天津\"，\"重庆\")
Print city(1)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是 ()
A)空白B)错误提示C)北京D)上海
(15)从键盘上输入两个字符串，分别保存在变量str
1、str2中，确定第二个字符串在第一个字符串中起始位置的函数是（）
A) LeftB) MidC) StringD) Instr
二、填空题(每空4分，共20分)
请将每空的正确答案写在 [1]一[10]序号的横线上。
(1)visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是 _________[1]。
(2)Visual Basic提供的对数据文件的三种访问方式为随机访问方式 __________[2]和二进制访问方式。
(3)执行下面的程序段后，变量S的值为_________[3]。
S＝5
For i ＝2.6 To 4.9 Step 0.6
S=S+1
Next i
(4)为了在运行时把d:\\pic文件夹下的图形文件a.jpg装入图片框Picturel，所使用的语
句为______________________________________________________________________________[4]。
(5)计时器控件能有规律的以一定时间间隔触发________[5]事件，并执行该事件过程中的程序代码。
三．程序设计题（每空4分，共20分）
(1)以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。Private Sub Commandl_C1ick()
For i＝1 To 20
x＝Int( _______[1]*200+100)
If i Mod ______[2]＝0 Then
Print x
S＝S+______[3]
End If
Next i
Print \"Sum＝\";S
End Sub
(2)设有如下程序
Private Sub Form_Click()
Dim a AS Integer，b As integer
a＝20：b=50
pl a，b
p2 a，b
p3 a, b
Print \"a＝\"；a,\"b＝\"；b
End Sub
Sub pl(x As Integer，ByVal y As Integer)
x=x+10
y=y+20
End Sub
Sub p2(byVal x As Integer, y As Integer)
x=x+10
y=y+20
End Sub
Sub p3(ByValx As Integer, ByVal y As Integer)
x=x+10
y=y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a＝______[4]和b= _______[5]。
