2003|2009年4月全国计算机等级考试二级visualBasic笔试试卷（含答案）(1)
日期：09-27| http://www.59wj.com |计算机二级考试|人气:947次
2003|2009年4月全国计算机等级考试二级visualBasic笔试试卷（含答案）(1)
在答题卡的相应位置上，答在试卷上不得分。
(1)以下不能在“工程资源管理器”窗口中列出的文件类型是
a)．bas b)．res c)．fnn d)．ocx
(2)以下关于窗体的描述中，错误的是
a)执行unloadfoml语句后，窗体fonnl消失，但仍在内存中
b)窗体的ioad事件在加载窗体时发生
c)当窗体的enabled属性为false时，通过鼠标和键盘对窗体的操作都被禁止
d)窗体的height、width属性用于设置窗体的高和宽
(3)下列可作为v2sualbasic变量名的是
a)a#a b)4a c)?xy d)consta
(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 student d) dim s as type
s．name=”张红” s.dame＝”张红”
(5)函数string(n，“str”)的功能是
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)在窗体上画一个命令按钮，名称mandl。单击命令按钮时，执行如下事件过
程：
prlvate submandl—c1icko
a$="software and hardware"
b$＝right(a$,8)
c$=mid(a$,1，8)
msgbox a$,,b$,c$,1
end sub
则在弹出的信息框的标题栏中显示的信息是
a)software and hardware b)software c)hardwafe d)1
(8)执行如下语句：
a＝inutbox(”today”，”tomorrow，”yesterday”,,,"day before yesterday"，5)
将显示一个输入对话框，在对话框的输入区中显示的信息是
a)today b)tomorrow c)yesterday d)day before yesterday
(9)表示滚动条控件取值范围最大值的属性是
a)max b)largechange c)value 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)上海:
www.59wj.com
:
www.59wj.com
:
www.59wj.com
页
www.59wj.com
form2中定义的过程：
public sub frmffunction2()
end sub
mdlfunc中定义的过程：
public sub mdlfunction()
end sub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是
a)上述三个过程都可以在工程中的任何窗体或模块中被调用
b)frmfunction2和mdlfunction过程能够在工程中各个窗体或模块中被调用
c)上述三个过程都只能在各自被定义的模块中调用
d)只有mdlfunction过程能够被工程中各个窗体或模块调用(29)窗体上有两个名称分别为textl、text2的文本框，一个名称mandl的命令按钮。运行后的窗体外观如图所示。
设有如下的类型声明
type person
name as string*8
major as string*20
end type
当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件test29．dat中。设文本框中的数据已正确地赋值给person类型的变量p。则能够正确地把数据写入文件的程序段是
a)0pen”c：＼test29．dat" for random as#1
put #1，1，p
close #1
b)open "c:＼test29.dat" for random as #1
get#1，1，p
c10se #1
c)open "c＼test29．dat" for random as #1 len＝len(p)
put #1，1，p
close #1
d)open "c：＼test29．dat " for random as #1=len(p)
get #1，1，p
close #1
(30)在窗体上画一个名称mondialogl的通用对话框，一个名称mandl的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为"save"，缺省文件名为“savefile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是
a)private submand_c1ick()
mondialogl．filename=“savefile”
mondialogl.filter＝"all files|*.*|(*.txt)|*.txt|(*.doc)．|*.doc"
mondialogl．filterindex=2
mondialogl．dial0g．title＝"save"
mondialogl．action＝2
end sub
b)private submandl—click()
mondialogl．filename＝"savefile"
mondialogl．filter＝"a11 files|*.*|(*.txt)|*.txt|*．doc|*．doc"
c0mmondialogl．filterindex＝1
mondialogl．dialogtitle＝"save"
mondialogl．action＝2
end sub
c)private sub cmmandl_c1ick()
mondialogl．filename＝"save"
mondialogl．filter＝"a11files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
mondialogl．filterindex＝2
c0mmondialogl．dialogtitle＝"savefile"
mondialogl．action＝2
end sub
d)private submandl_c1ick()
mondialogl．filename＝"savefile"
mondialogl．filter＝"all files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
mondialogl．filterindex=1
mondialogl．dialogtitle=“save”
mondialogl．action＝1
end sub :
www.59wj.com
end sub
(7)设有如下程序
private sub form_click()
dim a as integer，b as integer
a＝20：b=50
pla，b
p2a，b
p3a,b
print"a＝"；a,"b＝"；b
end sub
sub pl(x as integer，byval y as integer)
x=x十10．
v＝v十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＝______和b=______。
(8)在窗体上画一个名称mandl的命令按钮，编写如下事件过程
private submandl_c1ick()
dim as string
a=_____[11]
for i ＝1 to 5
print space(6—i)；mid$3(a，6—i，2*i—1)
二级v1sualbmic语言程序设计试卷第13页 (共15页)
nexti
end sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
456
34567
2345678
123456789
请填空。(9)在窗体上画一个名称bo1的组合框，画两个名称分别label1和label2及caption
属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项
后按回车键(ascii码为13)时，如果输入的项在组合框的列表中不存在，则自动
添加到组合框的列表中，并在label2中给出提示“已成功添加输入项”如图所示；
如果存在，则在label2中给出提示“输入项已在组合框中”。请在[12>、[13]和
[14>处将程序补充完整。
private subbol_________<12> (keyascii as integer)
1f keyascii＝13 then
fori＝0 tobo1．listcount—1
1fbo1．text＝______ [13] ihen
label2．caption＝”输入项己在组合框中”
exit sub
end lf
next i
label2．caption＝“已成功添加输入项”
bo1．______ [14]bo1．text
end lf
end sub :
www.59wj.com
www.59wj.com
:
如果觉得《2003|2009年4月全国计算机等级考试二级visualBasic笔试试卷（含答案）(1)》计算机二级考试,计算机二级考试真题,国家计算机二级考试,计算机二级考试试题,计算机二级考试大纲不错，可以推荐给好友哦。