试题.docx
- 文档编号:28642825
- 上传时间:2023-07-19
- 格式:DOCX
- 页数:19
- 大小:20.48KB
试题.docx
《试题.docx》由会员分享,可在线阅读,更多相关《试题.docx(19页珍藏版)》请在冰豆网上搜索。
试题
全国计算机等级考试二级笔试试卷
VisualBasic语言程序设计
(考试时间90分钟,满分100分)
2004年9月18日
一、选择题(
(1)—(20)每小题2分,(21)—(30)每小题3分,共70分)
下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。
(1)设窗体上有一个文本框,名称为text1,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是:
A)text1.maxlength=0B)text1.enabled=flase
C)text1.visible=flaseD)text1.width=0
答案:
B
(2)以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是
A)Form1.Name="VisualBasic窗体"
B)Form1.Title="VisualBasic窗体"
C)Form1.Caption="VisualBasic窗体"
D)Form1.Text="VisualBasic窗体”
答案:
C
(3)在窗体上画一个名称为Text1的文本框,然后画一个名称为HScroll1的滚动条,其Min和Max属性分别为0和100。
程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示:
以下能实现上述操作的程序段是
A)PrivateSubHScroll_Change()
Text1.Text=HScroll1.Value
EndSub
B)PrivateSubHScroll_Click()
Text1.Text=HScroll1.Value
EndSub
C)PrivateSubHScroll_Change()
Text1.Text=HScroll.Caption
D)PrivateSubHScroll_Click()
Text1.Text=HScroll.Caption
EndSub
答案A
(4)设菜单中有一个菜单项为"Open"。
若要为该菜单命令设计访问键,即按下Alt及字母O时,能够执行"Open"命令,则在菜单编辑器中设置“Open"命令的方式是
A)把Caption属性设置为&Open
B)把Caption属性设置为O&pen
C)把Name属性设置为&Open
D)把Name属性设置为O&pen
答案A
(5)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
x=InputBox("Input")
SelectCasex
Case1,3
Print"分支1"
CaseIs>4
Print"分支2"
CaseElse
Print"Else分支"
EndSelect
EndSub
程序运行后,如果在输入对话框中输入2,则窗体上显示的是
A)分支1B)分支2C)Else分支D)程序出错
答案C
(6)以下关于MsgBox的叙述中,错误的是
A)MsgBox函数返回一个整数
B)通过MsgBox函数可以设置信息框中图标和按钮的类型
C)MsgBox语句没有返回值
D)MsgBox函数的第一个参数是一个整数,该参数只能确定对话框中显示的按钮数量
答案D
(7)在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是
A)Timer1.InterVal=0.5B)Timer1.Interval=5
C)Timer.Interval=50D)Timer1.Interval=500
答案D
(8)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
StaticxAsInteger
Cls
Fori=1To2
y=y+x
x=x+2
Next
Printx,y
EndSub
程序运行后,连续三次单击Command1按钮后,窗体上显示的是
A)42B)1218C)1230D)46
答案:
B
(9)以下关于多重窗体程序的叙述中,错误的是
A)用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体
B)在多重窗体程序中,各窗体的菜单是彼此独立的
C)在多重窗体程序中,可以根据需要指定启动窗体
D)对于多重窗体程序中,而且单独保存每个窗体
答案:
A
(10)以下关于文件的叙述中,错误的是
A)顺序文件中的记录一个接一个地顺序存放
B)随机文件中记录的长度是随机的
C)执行打开文件的命令后,自动生成一个文件指针
D)LOF函数返回给文件分配的字节数
答案B
(11)以下叙述中错误的是
A)事件过程是响应特定事件的一段程序
B)不同的对象可以具有相同名称的方法
C)对象的方法是执行指定操作的过程
D)对象事件的名称可以由编程者指定
答案D
(12)以下合法的VisualBasic标识符是
A)ForLoopB)ConstC)9abcD)a#x
答案A
(13)当一个复选框被选中时,它的Value属性的值是
A)3B)2C)1D)0
答案C
(14)表达式5Mod3+3\5*2的值是
A)0B)2C)4D)6
答案B
(15)设x=4,y=8,z=7,以下表达式的值是
x A)1B)-1C)TrueD)False 答案D (16)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() a$="VisualBasic" PrintString(3,a$) EndSub 程序运行后,单击命令按钮,在窗体上显示的内容是 A)VVVB)VisC)sicD)11 答案A (17)设有如下程序段: x=2 Fori=1To10Step2 x=x+i Next 运行以上程序后,x的值是 A)26B)27C)38D)57 答案B (18)以下叙述中错误的是 A)在KeyPress事件过程中不能识别键盘的按下与释放 B)在KeyPress事件过程中不能识别回车键 C)在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母 D)在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符 答案B (19)执行如下两条语句,窗体上显示的是 a=9.8596 PrintFormat(a,"$00,00.00") A)0,009.86B)$9.86C)9.86D)$0,009.86 答案D (20)在窗体上画一个名称为CommandDialog1的通用对话框,一个名称为Command1的命令按钮。 然后编写如下事件过程: PrivateSubCommand1_Click() CommonDialog1.FileName="" CommonDialog1.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle="VBTest" CommonDialog1.Action=1 EndSub 对于这个程序,以下叙述中错误的是 A)该对话框被设置为“打开”对话框 B)在该对话框中指定的默认文件名为空 C)该对话框的标题为VBTest D)在该对话框中指定的默认文件类型为文本文件(*.Txt) 答案D (21)设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。 窗体Form1的程序代码如下: PrivateSubCommand1_Click() DimaAsInteger a=10 Callg(Form2,a) EndSub PrivateSubg(fAsForm,xAsInteger) y=IIf(x>10,100,-100) f,Show f.Caption=y EndSub 运行以上程序,正确的结果是 A)Form1的Caption属性值为100B)Form2的Caption属性值为-100 C)Form1的Caption属性值为-100D)Form2的Caption属性值为100 答案B (22)在窗体上画一个名称为Command1的命令按钮,并编写如下程序: PrivateSubCommand1_Click() DimxAsInteger StaticyAsInteger x=10 y=5 Callf1(x,y) Printx,y EndSub PrivateSubf1(ByRefx1AsInteger,y1AsInteger) x1=x1+2 y1=y1+2 EndSub 程序运行后,单击命令按钮,在窗体上显示的内容是 A)105B)125C)107D)127 答案D (23)设有如下程序 OptionBase1 PrivateSubCommand1_Click() Dima(10)AsInteger DimnAsInteger n=InputBox("输入数据") Ifn<10Then CallGetArray(a,n) EndIf EndSub PrivateSubGetArray(b()AsInteger,nAsInteger) Dimc(10)AsInteger j=0 Fori=1Ton b(i)=CInt(Rnd()*100) Ifb(i)/2=b(i)\2Then j=j+1 c(j)=b(i) EndIf Next Printj EndSub 以下叙述中错误的是 A)数组b中的偶数被保存在数组c中 B)程序运行结束后,在窗体上显示的是c数组中元素的个数 C)GetArray过程的参数n是按值传送的 D)如果输入的数据大于10,则窗体上不显示任何显示 答案C (24)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: OptionBase1 PrivateSubCommand1_Click() Dima a=Array(1,2,3,4,5) Fori=1ToUBound(a) a(i)=a(i)+i-1 Next Printa(3) EndSub 程序运行后,单击命令按钮,则在窗体上显示的内容是 A)4B)5C)6D)7 答案B (25)阅读程序 OptionBase1 PrivateSubForm_Click() Dimarr,Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) Fori=1To10 Ifarr(i)/3=arr(i)\3Then Sum=Sum+arr(i) EndIf Nexti PrintSum EndSub 程序运行后,单击窗体,输入结果为 A)13B)14C)27D)15 答案C (26)在窗体上画一个名称为File1的文件列表框,并编写如下程序: PrivateSubFile1_DblClick() x=Shell(File1.FileName,1) EndSub 以下关于该程序的叙述中,错误的是 A)x没有实际作用,因此可以将该语句写为: CallShell(File1,FileName,1) B)双击文件列表框中的文件,将触发该事件过程 C)要执行的文件的名字通过File1.FileName指定 D)File1中显示的是当前驱动器、当前目录下的文件 答案A (27)在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签,两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500,如图所示。 编写如下程序: PrivateSubForm_Load() Timer1.Enabled=False EndSub PrivateSubCommand1_Click() Timer1.Enabled=True EndSub PrivateSubTimer1_Timer() IfLabel1.Left Label1.Left=Label1.Left+20 Else Label1.Left=0 EndIf EndSub 程序运行后,单击“开始”按钮,标签在窗体中移动。 对于这个程序,以下叙述中错误的是 A)标签的移动方向为自右向左 B)单击“停止”按钮后再单击“开始”按钮,标签从停止的位置继续移动 C)当标签全部移出窗体后,将从窗体的另一端出现并重新移动 D)标签按指定的时间时隔移动 答案A (28)执行以下程序段 a$="abbacddcba" Fori=6To2Step-2 X=Mid(a,i,i) Y=Left(a,i) z=Right(a,i) z=UCase(X&Y&z) Nexti Printz 输出结果为 A)ABAB)BBABBAC)ABBABAD)AABAAB 答案B (29)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: OptionBase1 PrivateSubCommand1_Click() DimaAsVariant a=Array(1,2,3,4,5) Sum=0 Fori=1To5 Sum=sum+a(i) Nexti x=Sum/5 Fori=1To5 Ifa(i)>xThenPrinta(i); Nexti EndSub 程序运行后,单击命令按钮,在窗体上显示的内容是 A)12B)123C)345D)45 答案D (30)假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。 Model1代码如下: PublicxAsInteger PublicyAsInteger SubS1() x=1 S2 EndSub SubS2() y=10 Form1.Show EndShow Model2的代码如下: SubMain() S1 EndSub 其中SubMain被设置为启动过程。 程序运行后,各模块的执行顺序是 A)Form1->Model1->Model2 B)Model1->Model2->Form1 C)Model2->Model1->Form1 D)Model2->Form1->Model1 答案C 二、填空题(每空2分,共30分) 请将每空的正确答案写在答题卡【1】~【15】序号的横线上,答在试卷上不得分。 (1)设有如下程序段: a$="BeijingShanghai" b$=Mid(a$,InStr(a$,"g")+1) 执行上面的程序段后,变量b$的值为__Shanghai___。 (2)以下程序段的输出结果是___3____。 num=0 Whilenum<=2 num=num+1 Wend Printnum (3)窗体上有一个名称为List1的列表框,一个名称为Text1的文本框,一个名称为Label1、Caption属性为“Sum”的标签,一个名称为Command1、标题为“计算”的命令按钮。 程序运行后,将把1~100之间能够被7整除的数添加到列表框。 如果单击“计算”按钮,则对List1中的数进行累加求和,并在文本框中显示计算结果,如图所示。 以下是实现上述功能的程序,请填空。 PrivateSubForm_Load() Fori=1To100 IfiMod7=0Then __List1.AddItemi____ EndIf Next EndSub PrivateSubCommand1_Click() Sum=0 Fori=0To__List1.ListCount-1___ Sum=Sum+__List1.List(i)_____ Next Text1.Text=Sum EndSub (4)本程序的功能是利用随机数函数模拟投币,方法是: 每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。 在窗体上有三个文本框,名称分别是Text1、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图所示。 程序运行后,在文本框Text1中输入总次数,然后单击“开始”按钮,按照输入的次数模拟投币,分别统计出现正面、反面的次数,并显示结果。 以下是实现上述功能的程序,请填空。 PrivateSubCommand1_Click() Randomize n=CInt(Text1.Text) n1=0 n2=0 Fori=1To__n___ r=Int(Rnd*2) Ifr=___1____Then n1=n1+1 Else n2=n2+1 EndIf Next Text2.Text=n1 Text3.Text=n2 EndSub (5)阅读程序: OptionBase1 PrivateSubForm_Click() Dima(3)AsInteger Print"输入的数据是: "; Fori=1To3 a(i)=InputBox("输入数据") Printa(i); Next Print Ifa
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 试题