《2023年全国计算机等级考试二级笔试试卷.doc》由会员分享，可在线阅读，更多相关《2023年全国计算机等级考试二级笔试试卷.doc（80页珍藏版）》请在金锄头文库上搜索。
1、全国计算机等级考试二级笔试试卷Visual Basic语言程序设计(考试时间：90分钟，满分100分)二二年八月一、选择题(每题2分，共70分) 下列各题A) 、B) 、C) 、D) 四个选项中，只有一个选项是对的的，请将对的选项涂写在答题卡相应位置上，答在试卷上不得分。(1) 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是A) 工程资源管理器窗口B) 工具箱窗口C) 代码窗口D) 属性窗口(2) 以下叙述中对的的是A) 窗体的Name属性指定窗体的名称，用来标记一个窗体B) 窗体的Name属性的值是显示在窗体标题栏中的文本C) 可以在运营期间改变对象的Name属性的值D) 对象的Nam
2、e属性值可认为空(3) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是A) 单选按钮B) 图片框C) 通用对话框D) 文本框(4) 设有如下变量声明Dim TestDate As Date为变量TestDate对的赋值的表达方式是A) TextDate=#1/1/2023#B) TestDate=#“1/1/2023”#C) TextDate=date(“1/1/2023”)D) TestDate=Format(“m/d/yy”,“1/1/2023”)(5) 设有如下声明：Dim X As Integer假如Sgn(X) 的值为-1，则X的值是A) 整数B) 大于0的整数C) 等于0
3、的整数D) 小于0的数(6) 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运营时，三次单击命令按钮Commandl后，窗体上显示的结果为A) 15 16B) 15 6C) 15 15D) 5 6(7) 设a=3,b=5，则以下表达式值为真的是A) a=b And b10B) (ab)Or(b0)C) (a0)D) (-3+5a)And(b0)(8) 设有语句x=InputBo
4、x(“输入数值”，“0”，“示例”)程序运营后，假如从键盘上输入数值10并按回车键，则下列叙述中对的的是A) 变量X的值是数值10 B) 在InputBox对话框标题栏中显示的是“示例”C) 0是默认值 D) 变量X的值是字符串“10”(9) 从键盘上输入两个字符串，分别保存在变量str1、str2中。拟定第二个字符串在第一个字符串中起始位置的函数是A) LeftB) MidC) StringD) Instr(10)设a=“Visual Basic”，下面使b=“Basic”的语句是A) b=Left(a,8,12) B) b=Mid(a,8,5)C) b=Rigth(a,5,5) D) b=
5、Left(a,8,5)(11) 以下可以触发文本框Change事件的操作是A) 文本框失去焦点B) 文本框获得焦点C) 设立文本框的焦点D) 改变文本框的内容(12) 在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，规定每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ ()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是A) EnabledB) VisibleC) Interval D) Timer(13) 在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体
6、”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。规定程序运营时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图) ，则可以实现上述规定的语句序列是A) Option1.value=TrueB) Option1.Value=TrueCheck1.Value=False Check1.Value=TrueC) Option2.Value=FalseD) Option1.Value=TrueCheck1.Value=True Check1.Value=1(14) 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把
7、该命令按钮的一个属性设立为True，这个属性是A) ValueB) DefaultC) CancelD) Enabled(15) 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click()For I=1 To 4For J=0 To 1Print Chr$(65+I);Next JPrintNext IEnd Sub程序运营后，假如单击命令按钮，则在窗体上显示的内容是A) BBB) AC) BD) AACCBBCCBBBDDDDCCCDDDCCCCEEEEEDDDDEEEEDDDDD(16) 图像框有一个属性，可以自动调整图形的大
8、小，以适应图像框的尺寸，这个属性是A) AutosizeB) StretchC) AutoRedrawD) Appearance(17) 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x10 Then xit forNextText1.Text=Str(n)End Sub程序运营后，单击命令按钮，在文本框中显示的值是A) 2 B) 3D) 4D) 5(19) 在窗体上画一个名称为T
9、ext1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10,10) As IntegerDim i,j As IntegerFor i=1 To 3For j=2 To 4array1(i,j)=i+jNext jNext IText1.Text=array1(2,3)+array1(3,4)End Sub程序运营后，单击命令按钮，在文本框中显示的值是A) 12B) 13C) 14D) 15(20) (20) 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private S
10、ub Command1_Click()Dim i As Integer,j As IntegerDim a(10,10)As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrintNext jEnd Sub程序运营后，单击命令按钮，窗体上显示的是A) 123B) 234C) 147D) 123246 345 258 456369 456 369 789 (21) 设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera=Array(
11、1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);NextEnd Sub程序运营后，单击窗体，则在窗体上显示的是A) 4 3 2 1B) 5 4 3 2C) 6 5 4 3 D) 7 6 5 4(22) 下列叙述中对的的是A) 在窗体的Form_Load事件过程中定义的变量是全局变量B) 局部变量的作用域可以超过所定义的过程C) 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D) 在调用过程时，所有局部变量被系统初始化为0或空字符串(23) 在窗体上画一个命令按钮，名称为Command1。程序运营后，假如单击命
12、令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，假如是奇数，过程F1返回1，否则返回0。可以正的确现上述功能的代码是A) Private Sub Command1_Click()x=InputBox(“请输入整数”)a=F1(Val(x)Print aEnd SubFunction F1(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd FunctionB) Private Sub Command1_Click()x=InputBo
13、x(“请输入整数”)a=F1(Val(x)Print aEnd SubFunction F1(ByRef b As Integer)If b Mod 2=0 ThenF1=0ElseF1=1End IfEnd FunctionC) Private Sub Command1_Click()x=InputBox(“请输入整数”)F1(Val(x)Print aEnd SubFunction F1(ByRef b As Integer)If b Mod 2=0 ThenF1=1ElseF1=0End IfEnd FunctionD) Private Sub Command1_Click()x=InputBox(“请输入整数”)F1(Val(x)Print aEnd SubFunction F1(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function
