（A）True
（B）1
（C）-1
（D）0
答案：
D 知识点：
运算的优先级 章：
3
286 下列语句中的_____语句可以用来正确地声明一个动态数组.
（A）PrivateA（n）asinteger
（B）DimA（）AsInteger
（C）DimA（,）asInteger
（D）DimA（1ton）
答案：
B 知识点：
数组声明 章：
3
264 语句Print"5*20"显示结果是____
（A）"5*20"
（B）出错
（C）5*20
（D）100
答案：
C 知识点：
Print方法 章：
4
330
设a、b、c为整型变量，其值分别为1、2、3，以下程序段的输出结果是（ ）
a=b:
b=c:
c=a
Printa;b;c
（A）123
（B）231
（C）321
（D）232
答案：
D 知识点：
赋值语句 章：
4
302 以下循环语句中在任何情况下都至少执行一次循环体的是 。
（A）DoWhile<条件>循环体Loop
（B）While<条件>循环体Wend
（C）Do循环体LoopUntil<条件>
（D）DoUntil<条件>循环体Loop
答案：
C 知识点：
D0-Loop结构语句 章：
4
323 设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是 。
（A）PrintA=x+y
（B）Print"A=";x+y
（C）Print"A="+Str（x+y）
（D）Print"A="&x+y
答案：
A 知识点：
Print方法 章：
4
360 执行下面的程序段后，x的值为（ ）。
x=5
Fori=1To20Step2
x=x+i\5
ifx>2thenexitfor
Nexti
（A）5
（B）22
（C）21
（D）24
答案：
A 知识点：
exitfor语句 章：
4
447
optionbase0
dimxasvariant
x=arra（7,5,3,2,1,6）
printx
（1）,x（4）,x（5）
（A）516
（B）721
（C）716
（D）521
答案：
A 知识点：
OptionBase 章：
4
297
阅读下面的程序段:
a=0
Fori=1To3
Forj=1Toi
Fork=jTo3
a =a+1
Nextk
Nextj
Nexti
执行上面的三重循环后,a的值为 .
（A）3
（B）9
（C）14
（D）21
答案：
C 知识点：
For-Next结构语句 章：
4
337
执行以下程序段后，变量c$的值为（）。
a$="VisualBasicPrograming"
b$="Quick"
c$=b$&UCase（Mid$（a$,7,6））
（A）VisualBASICPrograming
（B）QuickBasicPrograming
（C）QUICKBasic
（D）QuickBASIC
答案：
D 知识点：
Ucase（） 章：
5
448 DimMyString
MyString=Str（459） 的返回值是（ ）。
（A）"459"
（B）"459"
（C）"+459"
（D）"-459"
答案：
B 知识点：
str（） 章：
5
343
设有语句
x=InputBox（“输入数值”，“0”，“示例”）
程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（）。
（A）变量X的值是10
（B）InputBox对话框标题栏中显示的是“示例”
（C）0是默认值
（D）InputBox对话框标题栏中显示的是“输入数值”
答案：
A 知识点：
inputbox（） 章：
5
1141 与过程的变量形参相结合的实参不可以是（）。
（A）变量
（B）常数
（C）数组元素
（D）数组
答案：
D 知识点：
参数传递_参数匹配 章：
6
1127 某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：
FunctionMaxValue（a（）AsInteger）AsInteger
Dimmax%
max=1
Fork=2To10
Ifa（k）>a（max）Then
max=k
EndIf
Nextk
MaxValue=max
EndFunction
程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是（）.
（A）语句max=1应改为max=a
（1）
（B）语句Fork=2To10应改为Fork=1To10
（C）语句MaxValue=max应改为MaxValue=a（max）
（D）If语句中的条件a（k）>a（max）应改为a（k）>max
答案：
C 知识点：
Function过程_数组作为参数 章：
6
1135 变量I为整型变量，若实参书写为（I），则它和对应形参之间的数据传递方式是（）。
（A）按值传递
（B）按地址传递
（C）按参数传递
（D）按位置传递
答案：
A 知识点：
参数传递_常数表达式作实参 章：
6
37 事件过程是指______所执行的程序代码。
（A）运行程序
（B）设置属性时
（C）使用控件时
（D）响应某个事件
答案：
D 知识点：
事件过程_综合 章：
6
34 c在面向对象方法中，类的实例称为 。
知识点：
对象 章：
1
57 cVB有三种工作模式：
设计模式、运行模式及 。
知识点：
中断模式 章：
1
35 c在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对 的font属性进行了设置。
知识点：
VB集成开发环境 章：
1
618 c若要使命令按钮不可操作，要对（ ）属性进行设置
知识点：
命令按钮_行为类属性 章：
2
20 c若窗体有列表框，则List1.List（List1.ListIndex）的值等于List1的 属性值。
知识点：
列表框_Text属性 章：
2
619 c若要控件在运行时不显示，可对控件的（ ）属性进行设置
知识点：
控件综合 章：
2
624 c整型的类型符号为（ ）
知识点：
变量类型 章：
3
623 c在一行语句内写多条语句，每个语句之间可使用（ ）符号进行分隔
知识点：
程序代码的书写规则 章：
3
148 c设有如下程序
PrivateSubForm_Click（）
DimaAsInteger,sAsInteger
n=8
s=0
Do
s=s+n
n=n-1
LoopWhilen>0
Prints
EndSub
执行以上程序,显示结果为 .
知识点：
D0-Loop结构语句 章：
4
632 c 语句用于要求变量进行显式声明.
知识点：
OptionExplicit 章：
4
634 cPrivateSubForm_Click（）
DimxAsBoolean
x=100
Printx
EndSub
执行上述程序后，显示的值为 。
知识点：
赋值语句 章：
4
466 cInputBox函数返回值的类型为（ ）
知识点：
inputbox（） 章：
5
470 c
设a=6，则执行x=IIf（a>5,-1,0）后，x的值为（）。
知识点：
IIf（） 章：
5
635 cpublicxasinteger
privatesubform_click（）
dimxasinteger
x=15
Me.x=20
print x
endsub
执行以上程序，显示内容为 。
知识点：
模块级变量及全局变量的应用 章：
6
636 cprivatesubcommand1_click（）
staticxasinteger
x=x+10
endsub
程序执行后，连续三次单击命令按钮command1，则x的值为 。
知识点：
静态变量与静态过程 章：
6
96 d请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。
（15分）
1.在名称为Form1的窗体中，建立一个名称为Cmd1、标题为“显示”的命令按钮。
要求程序运行后，如果单击“显示”按钮，则执行语句Form1.Print"显示"；如果单击窗体，则执行语句Form1.Cls。
注意：
保存时必须存放在考生文件夹（T:
\）下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。
2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。
编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。
程序中不能使用任何变量，直接显示字符串。
注意：
保存时必须存放在考生文件夹（T:
\）下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。
vb1100-1answer.frm;vb1100-2answer.frm 知识点：
form1.name;cmd1.caption;代码form1.print"显示"；代码Form1.Clsform1.name;type（cmd1）;cmd1.caption;cmd2.caption;代码print"数理化";代码print"政史地" 章：
0 编号：
1100
93 x1.在考生文件夹（T:
\）中有工程文件vb4001-1.vbp及其窗体文件vb4001-1.frm，该程序是不完整的，请在有"？
"号的地方填入正确内容，然后删除"？
"及所有注释符（即'号）但不能修改其他部分。
存盘时不得改变文件名和文件夹。
（10分）
本题内容如下：
窗体上已有两个文本框，名称为Txt1、Txt2，一个控制按钮，标题为"转换"。
要求在窗体上补充三个单选框，名称分别为Opt1、Opt2、Opt3的标题分别为"大写转小写小写转大写"、"全部大写"、"全部小写"。
要求补充完整代码窗口的代码后，在Txt1中输入一段字符，选中"大写转小写小写转大写"，单击转换按钮后，Txt2显示大小写相反的字符串；选中"全部小写"，单击转换按钮后，Txt2显示全部小写的字符串；选中"全部大写"，单击转换按钮后，Txt2显示全部大写的字符串。
2.在考生文件夹（T:
\）中有工程文件vb4001-2.vbp及其窗体文件vb4001-2.frm，该程序是不完整的，请在有“？
”号的地方填入正确内容，然后删除“？
”及所有注释符（即“'”号），但不能修改其他部分。
保存时不得改变文件名和文件夹。
（10分）
本题描述如下：
在窗体上有一个列表框，名称为List1；一个文本框，名称为Text1；一个命令按钮，名称为C1，标题为“复制”。
要求程序运行后，在列表框中自动建立4个列表项，分别为Item1、Item2、Item3和Item4。
如果选择列表框中的一项，单击“复制”按钮，就可以把该项复制到文本框中。
vb4001-1answer.frm,vb4001-2answer.frm 知识点：
3个?
3个?
章：
0 编号：
4001
97 y综合应用题（15分）
在考生文件夹（T:
\）中有工程文件vb5001.vbp及其窗体文件vb5001.frm，该程序是不完整的，请在有“？
”号的地方填入正确内容，然后删除“？
”及所有注释符（即“'”号），
但不能修改其他部分。
本题描述如下：
在名称为Form1的窗体上有两个单选按钮，名称分别为Opt1和Opt2，标题分别为“100～
200之间素数之和”和“200～400之间素数之和”；一个文本框，名称为Text1；两个命
令按钮，其名称分别为Cmd1和Cmd2，标题分别为“计算”和“存盘”。
程序运行后，
如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数
之和，并在文本框中显示出来。
如果单击“存盘”按钮，则把计算结果存入out.txt文件
中，该文件必须放在考生文件夹（T:
\）中。
（在考生文件夹（T:
\）中有标准模块mode.bas，其中的putdata过程可以把结果存入指定的文件，而isprime函数可以判断整数x是否为素数，
如果是素数，则函数返回True，否则返回False，考生可以将该模块文件添加到自己的工程中）
注意：
必须把素数之和存入考生文件夹（T:
\）下的out.txt文件中，否则没有成绩。
保存程序时必须存放在考生文件夹（T:
\）下，窗体文件名为vb5001.frm，工程文件名为vb5001.vbp。
vb5001answer.frm;out.txt文件 知识点：
out.txt文件为3167或9660;3个?
章：
0 编号：
5001
窗体底端
升级会员 