|
http://www.jci.jx.cn/2005/study%5Fcomputer%5Fjsjej/
(1)以下不能在“工程资源管理器”
窗口中列出的文件类型是
A)．bas B)．res C)．fnn
D)．ocx
(2)以下关于窗体的描
述中，错误的是
http://www.255266.net.cn/Class/jisuanjierji/
A)执行UnloadFoMl语句后，窗体Fonn
l消失，但仍在内存中
B)窗体的Ioad事件在加
载窗体时发生
C)当窗体的Enabled属
性为False时，通过鼠标和键盘
对窗体的操作都被禁止
D)窗体的Height、widt
h属性用于设置窗体的高和宽
(3)下列可作为V2sualBasic变量名的
是
A)A#A B)4A C)?xY D)cons
tA
(4)设有如下的记录类
型
Type Student
numberAs string
name As String
age As Integer
End Type
则正确引用该记录类型
变量的代码是
A) Student．name=”张红” B)
Dim As Student
s．name＝”张红”
C) Dim s As Type St
udent D) Dim s As Type
S．name=”张红” s.Dame＝”张
红”
(5)函数String(n，“s
tr”)的功能是
A)把数值型数据转换为字符串
B)返回由n个字符组成的字符串
C)从字符串中取出n个
字符
D)从字符串中第n个字
符的位置开始取子字符串
(6)将数学表达式Cos2(a+b)+5e2写成
Visual Basic的表达式，其正确的形式是
A)Cos(a+b)A2十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。单击
命令按钮时，执行如下事件过
程：
PrlVate Sub Commandl
—C1icko
a$="software and har
dware"
b$＝Right(a$,8)
c$=Mid(a$,1，8)
Msgbox a$,,b$,c$,1
End Sub
则在弹出的信息框的标
题栏中显示的信息是
A)softWare and hardware B)sof
tware C)hardwafe D)1
(8)执行如下语句：
a＝inutBox(”Today”
，”TomorroW，”Yesterday”,
,,"Day before yesterday"，5)
将显示一个输入对话框，在对话框的
输入区中显示的信息是
A)Today B)Tomorro
w C)Yesterday D)Day be
fore yesterday
(9)表示滚动条控件取值范围最大值
的属性是
A)Max B)LargeChange C)Valu
e D)Max—Min
(10)在窗体上画一个名
称为Listl的列表框，一个名称
为Labell的标签。列表框中显示
若干城市的名称。当单击列表框中的
某个城市名时，在标签中显示选中城市的名称。
下列能正确实现上述功能的程序是
A) Private Sub listl_Click()
B)Private Sub Listl_C1ick()
Labell．Caption＝list1.listlndex
Labell．Nanle＝Listl．listindex
End Sub ．End Sub
程序运行后，如果单击
命令按钮，则在窗体上显示的内
容是
A)空白 B)错误提示
C)北京 D)上海
(15)假定有以下函数过程：
Function Fun(S As String) As Str
ing
Dim s1 As String
For i=1 To Len(S)
s1＝UCase(Mid(S，i，
1))十s1
Next i
Fun＝s1
End Function
在窗体上画一个命令按钮，然后编写
如下事件过程：
Prlvate Sub Commmldl
_Click()
Dim Str1 As String，Str2 As Stri
ng
Strl＝inputbox(”请输入一个字符
串”)
Str2=Fun(Strl)
Print Str2
End Sub
程序运行后，单击命令
确
按钮，如果在输入对话框中输入
字符串“abcdefg”，则单击“
定”按钮后在窗体上的输出结果为
A)abcdefg B)ABCDE
FG C)gfedcba D)GFEDCBA
(16)设有语句
open "c：Test．Dat" For OutPut
As#1
则以下错误的叙述是
A)该语句打开C盘根目
录下一个己存在的文件Test．Da
t
B)该语句在C盘根目录
下建立一个名为Test．Dat的文
件
C)该语句建立的文件的文件号为1
D)执行该语句后，就可以通过Print#
语句向文件Test．Dat中写入信息
(17)以下叙述中错误的
是
A)用Shell函数可以调
用能够在Windows下运行的应用
程序
B)用Shell函数可以调
用可执行文件，也可以调用Visu
alBasic的内部函数
C)调用Shell函数的格
式应为：＝Shell(……
)
D)用Shell函数不能执行DoS命令
(18)以下关于过程及过
程参数的描述中，错误的是
A)过程的参数可以是控
件名称
B)用数组作为过程的参数时，使用的
是“传地址”方式
c)只有函数过程能够将
过程中处理的信息传回到调用的
程序中
D)窗体可以作为过程的
参数
(19)在窗体上画一个名
称为TxtA的文本框，然后编写如
下的事件过程：
Private Sub Txta_KeyPress(keyasc
ii as integer)
End Sub
若焦点位于文本框中，则能够触发Ke
yPress事件的操作是
A)单击鼠标 B)双击文本框
C)鼠标滑过文本框 D)按下键盘上
的某个键
(20)目录列表框的Path属性的作用是
A)显示当前驱动器或指
定驱动器上的路径
B)显示当前驱动器或指定驱动器上的
某目录下的文件名
c)显示根目录下的文件名
D)只显示当前路径下的文件
(21)假定有如下事件过程：
PriVate Sub Form_MouseDown(butto
Y As
n As Integer,Shift As Integer, x As Single，
Single)
If Button＝2 then
PopupMenu popForm
End if
End Sub
则以下描述中错误的是
A)该过程的功能是弹出
一个菜单
B)popForm 是在菜单编
辑器中定义的弹出式菜单的名称
C)参数X、Y指明鼠标的当前位置
D)Button=2 表示按下的是鼠标左键
(22)以下能够正确计算
n!的程序是
二级Visual Basic语言程序设计试卷
第5页 (共15页)
A) Private Sub Comma
ndl_ClicK()
n＝5:x＝1
Do
X=x*1
i＝i十1
Loop While i＜n
Print x
End Sub
B) Private Sub Commandl_Click()
n＝5: x＝1：i=1
Do
X＝X*1
i＝i十1
Loop While i＜n
Print x
End Sub
C)Private Sub Comman
dl_Click()
n=5：x＝1：i＝1
Do
X=X*1
i＝i十1
Loop while i、[13]和
[14>处将程序补充完整
。
Private Sub Combol_________
(KeyAscii As integer)
1f KeyAscii＝13 Then
Fori＝0 To Combo1．l
istCount—1
1f Combo1．Text＝______ [13] I
hen
Label2．Caption＝”输入项己在组
合框中”
ExIt Sub
End lf
Next i
Label2．Caption＝“
已成功添加输入项”
Combo1．______ [14] CombO1．Te
xt
End lf
End Sub
(10)设有如下程序
Private sub search(a
()As variant，ByVal key As V
ariant，index%)
Dim I％
ForI＝LBound(a)To UBound(a)
If key＝a(I) Then
index＝I
Exit Sub
End If
Next I
Index＝-1
End Sub
Private Sub Form_Load()
Show
Dtm b() As Variant
Dim n As Integer
b＝Array(1，3，5，7
，9，11，13，15)
Call search(b，11，n)
Printt n
End Sub
程序运行后，输出结果
是________。
|
