计算机等级考试
一、选择题((1)-(20)每小题2分，(21)-(30)每小题3分，***70分)
(1)表单上有一个名为text1的文本框。程序运行后，要求文本框不能接受键盘输入，但能输出信息。以下属性设置正确:
a)text 1 . maxlength = 0 B)text 1 . enabled = flase
c)text 1 . visible = flase D)text 1 . width = 0
(2)下面的语句可以在Form1的标题栏显示“VisualBasic Form”。
a)表格1。name = "visual basic窗体"
b)Form 1 . title = " Visual Basic Form "
c)Form 1 . caption = " Visual Basic窗体"
d)Form 1 . text = " Visual Basic Form "
(3)在窗体上绘制一个名为Text1的文本框，然后绘制一个名为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动条，滚动条的当前值会显示在文本框中，如图所示:
可以实现上述操作的程序段如下
a)私有Sub HScroll_Change()
Text1。Text=HScroll1。价值
末端接头
b)私有Sub HScroll_Click()
Text1。Text=HScroll1。价值
末端接头
c)私有Sub HScroll_Change()
Text1。Text=HScroll。标题
d)私有Sub HScroll_Click()
Text1。Text=HScroll。标题
末端接头
(4)将菜单项设置为“打开”。如果你想为这个菜单命令设计一个访问键，也就是在按Alt和字母O的时候，可以执行“打开”命令。在菜单编辑器中设置“打开”命令的方法如下
a)将标题属性设置为&；打开
b)将标题属性设置为o &；笔
c)将Name属性设置为&；打开
d)将名称属性设置为o &；笔
(5)在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程:
私有子命令1_Click()
x=InputBox(“输入”)
选择案例x
案例1.3
打印“分行1”
案例是& gt四
打印“分支2”
其他情况
打印“Else分支”
结束选择
末端接头
程序运行后，如果在输入对话框中输入2，则表单上显示的内容是
a)分支1 B)分支2 C) Else分支d)程序错误。
(6)下列关于MsgBox的说法是错误的。
msgbox函数返回一个整数。
MsgBox函数可用于设置信息框中图标和按钮的类型。
msgbox语句没有返回值。
msgbox函数的第一个参数是一个整数，只能决定对话框中显示的按钮个数。
(7)在窗体上绘制一个名为Timer1的定时器控件，要求每0.5秒发生一次定时器事件。那么下面正确的属性设置语句是
a)定时器1。间隔=0.5 B)定时器1。间隔=5
定时器。间隔=50 D)定时器1。间隔=500
(8)在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程:
私有子命令1_Click()
静态x为整数
Cls
对于i=1到2
y=y+x
x=x+2
然后
打印x，y
末端接头
程序运行后，在连续三次单击Command1按钮后，表单上显示的内容是
a)4 2 B)12 18 C)12 30D)4 6
(9)下列关于多窗体程序的说法中，错误的是
A) Hide方法不仅可以隐藏窗体，还可以清除内存中的窗体。
b)在多表单程序中，每个表单的菜单都是相互独立的。
c)在多窗体程序中，可以根据需要指定启动窗体。
d)对于多表单程序，每个表单单独保存。
(10)以下关于文件的描述中，错误的是
a)顺序文件中的记录按顺序逐个存储。
b)随机文件中记录的长度是随机的。
c)执行打开文件的命令后自动生成文件指针。
D)D)LOF函数返回分配给文件的字节数。
(11)下列说法中错误的是
a)事件流程是响应特定事件的程序。
b)不同的对象可以有相同的名称。
c)对象的方法是执行指定操作的过程。
d)对象事件的名称可由程序员指定。
(12)以下是合法的Visual Basic标识符
a)对于Loop B) Const C) 9abc D) a#x
(13)选中复选框时，其Value属性的值为
A) 3 B) 2 C) 1 D) 0
(14)表达式5 Mod 3+3\5*2的值为
A) 0 B) 2 C)4 D) 6
(15)设x = 4，y = 8，z = 7，下面表达式的值为
x & lty和(不是y & gtz)或z & ltx
A) 1 B) -1 C)真D)假
(16)在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程:
私有子命令1_Click()
a$="VisualBasic "
打印字符串(3，a$)
末端接头
程序运行后，单击命令按钮，表单上显示的内容是
a)VVV B)Vis C)sic D)11
(17)具有以下程序段:
x=2
对于i=1至10步骤2
x=x+i
然后
运行上述程序后，x的值为
A) 26 B) 27 C) 38 D) 57
(18)下列说法中错误的是
a)在按键事件期间，无法识别键盘的按下和释放。
b)在按键事件期间无法识别回车键。
c)在KeyDown和KeyUp事件的过程中，键盘输入的“A”和“A”被视为同一个字母。
d)在KeyDown和KeyUp事件期间，来自键盘的“1”输入和来自右小键盘的“1”输入被视为不同的字符。
(19)执行下面两条语句，表单显示
a=9.8596
打印格式(a，“00，00.00美元”)
a)0 009.86美元B)9.86美元C) 9.86美元D)0 009.86美元
(20)在名为CommandDialog1的表单上画一个名字。
常规对话框，一个名为Command1的命令按钮。然后编写以下事件过程:
私有子命令1_Click()
CommonDialog1。文件名= " "
CommonDialog1。Filter="All
文件|*。*|(*.Doc)|*。Doc|(*。Txt)|*。Txt "
CommonDialog1。FilterIndex=2
CommonDialog1。DialogTitle="VBTest "
CommonDialog1。动作=1
末端接头
对于这个程序，下列说法是错误的
a)该对话框被设置为“打开”对话框。
b)在此对话框中指定的默认文件名为空。
c)对话框的标题是VBTest。
d)该对话框中指定的默认文件类型是文本文件(*。Txt)。
(21)
假设一个项目由两个窗体组成，它们的名字分别是Form1和Form2，在Form1上有一个名为Command1的命令按钮。Form1的程序代码如下:
私有子命令1_Click()
将a作为整数变暗
a=10
呼叫g(表格2，a)
末端接头
Private Sub g(f表示形式，x表示整数)
y = IIf(x & gt；10,100,-100)
f，显示
f.标题=y
末端接头
运行上述程序，正确的结果是
a)表单1的标题属性值是100b)表单2的标题属性值是-100。
c)表单1的标题属性值为-100d)表单2的标题属性值为100。
(22)在表单上绘制一个名为Command1的命令按钮，并编写以下程序:
私有子命令1_Click()
将x标注为整数
整数形式的静态y
x=10
y=5
调用f1(x，y)
打印x，y
末端接头
私有Sub f1(ByRef x1为整数，y1为整数)
x1=x1+2
y1=y1+2
末端接头
程序运行后，单击命令按钮，表单上显示的内容是
a)10 5 B)12 5 C)10 7D)12 7
(23)有以下程序
选件基础1
私有子命令1_Click()
将a(10)作为整数维数
将n表示为整数
N=InputBox(“输入数据”)
如果n & lt那么10
调用GetArray(a，n)
如果…就会结束
末端接头
Private Sub GetArray(b()为整数，n为整数)
Dim c(10)为整数
j=0
对于i=1到n
b(i)=CInt(Rnd()*100)
如果b(i)/2=b(i)\2那么
j=j+1
c(j)=b(i)
如果…就会结束
然后
打印j
末端接头
下列说法中错误的是
a)数组b中的偶数保存在数组c中。
b)程序运行后，C数组中元素的个数显示在表单上。
getarray进程的参数n通过值传递。
d)如果输入数据大于10，则表单上不会显示任何内容。
(24)在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程:
选件基础1
私有子命令1_Click()
暗淡的
a=数组(1，2，3，4，5)
对于i=1到UBound(a)
a(i) = a(i)+i-1
然后
打印a(3)
末端接头
程序运行后，单击命令按钮，表单上显示的内容是
4 B) 5 C) 6 D)7
(25)阅读程序
选件基础1
私有子窗体_Click()
点心、点心
总和= 0
arr = Array(1，3，5，7，9，11，13，15，17，19)
对于i=1至10
如果arr(i)/3 = arr(i)\3，则
Sum =Sum+arr(i)
如果…就会结束
接下来我
打印总和
末端接头
程序运行后，点击表单，输入结果是
a)13 B)14 C)27D)15
(26)在表单上画一个名为File1的文件列表框，并编写以下程序:
私有子文件1_DblClick()
x=Shell(文件1。文件名，1)
末端接头
在下面的程序描述中，错误是
A) x没有实际功能，所以这个语句可以写成:调用shell(文件1，文件名，1)。
b)双击文件列表框中的文件，这将触发事件过程。
c)要执行的文件的名称由File1指定。文件名
D)File1显示当前驱动器和当前目录中的文件。
(27)
在窗体上绘制一个名为Label1、标题为“VisualBasic Examination”的标签，带有两个分别名为Command1和Command2、标题为“Start”和“Stop”的命令按钮，然后绘制一个名为Timer1的定时器控件，并将其Interval属性设置为500，如图所示。
编写以下程序:
私有子窗体_Load()
定时器1。启用=假
末端接头
私有子命令1_Click()
定时器1。启用=真
末端接头
私有子定时器1_Timer()
如果Label1。Left & lt宽度呢
Label1。左= Label1。向左+ 20度
其他
Label1。左=0
如果…就会结束
末端接头
程序运行后，点击“开始”按钮，标签在表单中移动。
对于这个程序，下列说法是错误的
a)标签的移动方向是从右向左。
b)点击“停止”按钮，然后点击“开始”按钮，标签将从停止位置继续移动。
c)当所有标签移出表单时，它们将从表单的另一端出现并再次移动。
d)标签以指定的间隔移动。
(28)执行以下程序段
a$="abbacddcba "
对于i=6到2的第二步
X=Mid(a，I，I)
y =左(a，I)
z =右(a，I)
z = UCase(X & amp；Y & ampz)
接下来我
打印z
输出结果是
A)ABA B)BBABBA C)ABBABA D)AABAAB
(29)在窗体上绘制一个名为Command1的命令按钮，然后编写以下程序:
选件基础1
私有子命令1_Click()
将a作为变体变暗
a =数组(1，2，3，4，5)
总和=0
对于i=1到5
总和=总和+a(i)
接下来我
x =总和/5
对于i =1到5
如果a(i)>x然后打印a(I)；
接下来我
末端接头
程序运行后，单击命令按钮，表单上显示的内容是
A)1 2 B) 1 2 3 C) 3 4 5 D) 4 5
(30)假设一个项目由一个表单文件Form1和两个标准模块文件Model1和Model2组成。
型号1的代码如下:
整数形式的公共x
整数形式的公共y
Sub S1()
x =1
S2
末端接头
S2群岛
y=10
表单1。显示
结束演出
模型2的代码如下:
副总管()
S1
末端接头
其中Sub Main被设置为开始该过程。程序运行后，各模块的执行顺序如下
a)表格1->型号1->；模型2
b)型号1->模型2->表单1
c)模型2->型号1->；表单1
d)模型2->form 1->；型号1
二、填空(每空2分，***30分)
请将正确答案写在答题卡序号横线1 ~ 15的每一个空白处，答案不在试卷上计分。
(1)具有以下程序段:
a$= "北京上海"
b$=Mid(a$，InStr(a$，" g))+1
执行上述程序段后，变量b$的值为__1__。
(2)下面这个程序段的输出结果是_ _ ^ 2 _ _。
num =0
While num & lt=2
num = num+1
行
打印编号
(3)
表单上有一个名为List1的列表框、一个名为Text1的文本框、一个名为Label1的标签和一个名为Command1的名为“Calculation”的命令按钮。程序运行后，1到100之间能被7整除的数会被添加到列表框中。如果点击计算按钮，List1中的数字会被累加求和，计算结果会显示在文本框中，如图所示。下面是实现上述功能的程序。请填空。
私有子窗体_Load()
对于i=1至100
如果我Mod 7 =0，那么
_3___
如果…就会结束
然后
末端接头
私有子命令1_Click()
总和=0
对于i=0到__4___
总和=总和+__5_____
然后
Text1。文本=总和
末端接头
(4)
这个程序的功能是用随机数函数来模拟抛硬币。方法是一次随机产生一个0或1的整数，相当于抛硬币，1代表正面，0代表反面。表单上有三个文本框，名称分别是Text1、Text2和Text3，用于显示用户输入的硬币总数、正面出现的次数和反面出现的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后点击“开始”按钮，根据输入的次数模拟抛硬币，分别统计正面和反面的次数，并显示结果。下面是实现上述功能的程序。请填空。
私有子命令1_Click()
使不规则化
n=CInt(Text1。正文)
n1=0
n2=0
For i=1到__6__
r=Int(Rnd*2)
如果r = _ _ _ 7 _ _ _ _，则
n1=n1+1
其他
n2=n2+1
如果…就会结束
然后
文本2。Text=n1
短信3。Text=n2
末端接头
(5)阅读程序:
选件基础1
私有子窗体_Click()
将a(3)作为整数变暗
打印"输入的数据是:"；
对于i=1到3
A(i)=InputBox(“输入数据”)
打印a(一)；
然后
打印
如果a(1)& lt；答(2)那么
t=a(1)
a(1)=a(2)
a(2)= _ _ 8 _ _ _
如果…就会结束
如果a(2)>答(3)那么
m=a(2)
ElseIf a(1)>答(3)那么
m=___9___
其他
m=__10___
如果…就会结束
中间打印的数字“是:”；m
末端接头
程序运行后，点击表格，在输入对话框中输入三个整数，程序将输出三个数的中间数，如图。请填空。
(6)
在窗体上绘制一个名称为“Command1”、标题为“Calculation”的命令按钮，绘制七个标签，其中五个标签组成一个名称为Label1的控件数组；名为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签3的标题为“计算结果”。运行程序时，会自动生成五个随机数，显示在标签控件数组的每个标签中，如图所示。点击“计算”按钮，累加标签数组中每个元素的值，计算结果显示在Label2中。请填空。
私有子命令1_Click()
总和= 0
对于i=0到4
Sum=Sum+__11__
然后
_ _ _ 12 _ _ =总和
末端接头
(7)在窗体上绘制两个命令按钮，名称分别为Command1和Command2，标题分别为Initialization和Sum。程序运行后，如果点击“初始化”命令按钮，给数组A的每个元素赋值；如果单击“求和”命令按钮，可以求出数组A的元素之和，并显示在文本框中，如图所示。请填空。
选件基础1
Dim a(3，2)为整数
私有子命令1_Click()
对于i=1到3
对于j=1到2
__13__=i+j
下一个j
末端接头
私有子命令2_Click()
对于j=1到3
对于i=1到2
s=s+__14__
接下来我
下一个j
Text1。Text= __15__
末端接头
问题太多了，无法一一列举。这是给你的一个网站:
/book2824550/