函授大专VB试卷由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb大专试卷”。
兰州交通大学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]。
