Printa
答案：
=======（答案1）=======
100
第15题（1.0分）
以下程序的功能是:
生成20个200-300之间的随机整数,输出其中能被5整除的数并求出它们的和.
PrivateSubCommand1_Click（）
Fori=1to20
x=int（【1】*101+200）
if【2】=0then
printx
s=s+【3】
Endif
Nexti
print"sub=";s
Endsub
答案：
=======（答案1）=======
Rnd
=======（答案2）=======
xmod5
=======（答案3）=======
x
第16题（1.0分）
下面程序段显示【1】个"*".
ForI=1To5
Forj=2ToI
Print"*";
Nextj
Nexti
答案：
=======（答案1）=======
10
第17题（1.0分）
在窗体上添加一个名称为text1的文本框，并建立一个名为option1含有三个元素的
控件数组，option1（0）的标题为"宋体"，option1
（1）的标题为"黑体"，
option1
（2）的标题为"隶书"。
程序运行后，如果单击某个单选按钮，则文本框中的
字体根据所选择的单选按钮切换。
对以下程序补充：
PrivateSubOption1_Click（IndexAsInteger）
SelectCase【1】
Case0:
a="宋体"
Case1:
a="黑体"
Case2:
a="隶书"
EndSelect
Text1.fontname=a
答案：
=======（答案1）=======
index
第18题（1.0分）
假设有语句Dima（1To5,1To9）AsInteger，则数组a中全部元素的个数为【1】。
答案：
=======（答案1）=======
45
第19题（1.0分）
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
StaticxAsInteger
dimi%,y%
Cls
Fori=1To2
y=y+x
x=x+2
Next
Printx,y
EndSub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是【1】。
答案：
=======（答案1）=======
1218
二、判断共16题（共计16分）
第1题（1.0分）
在VB的工具栏中包括了所有的VB控件,我们不能再加载其他的控件.
答案：
N
第2题（1.0分）
VisualBasic集成的主窗口中不包括属性窗口。
答案：
N
第3题（1.0分）
""是一个字符串,而""不是一个字符串.
答案：
N
第4题（1.0分）
在vb中，字符型常量应使用“#”号将其括起来．
答案：
N
第5题（1.0分）
利用PrivateConst声明的符号常量,在代码中不可以再赋值.
答案：
Y
第6题（1.0分）
VB的所有控件在程序运行以后都是可见的。
答案：
N
第7题（1.0分）
列表框包含了组合框的功能.
答案：
N
第8题（1.0分）
在VB中,计时器（Timer）定期激活Timer事件,使Timer中的代码执行一次.
答案：
Y
第9题（1.0分）
通过改变属性窗口中的Name属性,可以改变窗体上显示的标题.
答案：
N
第10题（1.0分）
如果列表框的listcount的属性为10,则列表框最后一项的listindex值为10.
答案：
N
第11题（1.0分）
vb中赋值语句的功能是将赋值号右边表达式的值赋给赋值号左边的变量中。
答案：
Y
第12题（1.0分）
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Move500,500
EndSub
程序运行后，单击命令按钮，执行的操作为：
命令按钮移动到距窗体左边界、上边界各500
的位置。
答案：
N
第13题（1.0分）
由语句Ifx=1Theny=1可知：
x=1为赋值语句，y=1为关系表达式。
答案：
N
第14题（1.0分）
For循环语句正常结束（即不是通过ExitFor语句或强制中断）其循环控制变量的值一定
大于"终值"，并等于"终值"+"步长"。
答案：
N
第15题（1.0分）
声明数组语句：
Dima（1to3）asinteger，则该数组元素可以存放整型数据。
答案：
Y
第16题（1.0分）
系统提供的诸如sqr（）等函数不属于过程.
答案：
N
三、单项选择共27题（共计27分）
第1题（1.0分）
VisualBasic是一种（）程序设计语言.
A:
过程式
B:
非过程式
C:
机器
D:
低级
答案：
B
第2题（1.0分）
作为一个给编辑、编译、运行与一体的集成环境,VisualBasic的工作状态可分为设计、中断、和（）三种模式.
A:
开发
B:
运行
C:
插入断点
D:
逐句跟踪
答案：
B
第3题（1.0分）
表达式2*3^2+4*2/2+3^2的值是（）
A:
30
B:
31
C:
49
D:
48
答案：
B
第4题（1.0分）
假设ac是一个string类型的变量，以下赋值语句错误的是（）
A:
ac="123"
B:
ac="true"
C:
ac=false
D:
ac="#11/16/06#"
答案：
C
第5题（1.0分）
将数学表达式a≤x≤b写成VB的表达式，其正确的形式是（）
A:
a≤xandx≤b
B:
a≤xorb≥x
C:
a<=xorx<=b
D:
a<=xandb>=x
答案：
D
第6题（1.0分）
INT（100*RND
（1））产生的随机整数的闭区间是（）.
A:
[0,99]
B:
[1,100]
C:
[0,100]
D:
[1,99]
答案：
A
第7题（1.0分）
设a=3,b=5,则以下表达式值为真的是（）.
A:
a>=bAndb>10
B:
（a>b）Or（b>0）
C:
（a<0）Eqv（b>0）
D:
（-3+5>a）And（b>0）
答案：
B
第8题（1.0分）
文本框没有_____属性.
A:
Enabled
B:
Visible
C:
BackColor
D:
Caption
答案：
D
第9题（1.0分）
标签文本的对齐方式由（）属性的设置值决定。
A:
BorderStyle
B:
BackStyle
C:
AutoSize
D:
Alignment
答案：
D
第10题（1.0分）
设计动画时，通常使用时钟控件（）的属性来控制动画速度。
A:
Enabled
B:
Interval
C:
Timer
D:
Move
答案：
B
第11题（1.0分）
当运行程序时,系统自动执行启动窗体的（）事件过程.
A:
Load
B:
Click
C:
UnLoad
D:
GotFocus
答案：
A
第12题（1.0分）
为了使文本框同时具有垂直和水平滚动条，应先把multiLine属性设置为True，然后
再把ScrollBars属性设置为（）。
A:
0
B:
1
C:
2
D:
3
答案：
D
第13题（1.0分）
改变控件在窗体中的上下位置应修改控件的（）属性.
A:
Top
B:
Left
C:
Wide
D:
Height
答案：
A
第14题（1.0分）
要使标签所在处透明显示背景,应把其Backstyle属性设置为（）.
A:
0
B:
1
C:
2
D:
3
答案：
A
第15题（1.0分）
窗体的Caption属性的作用是（）.
A:
确定窗体的名称
B:
确定窗体的标题
C:
确定窗体的边界类型
D:
确定窗体的字体
答案：
B
第16题（1.0分）
为了给x,y,z这3个变量赋初值3,下面正确的赋值语句是
A:
x=3:
y=3:
z=3
B:
x=3,y=3,z=3
C:
x=y=z=3
D:
xyz=3
答案：
A
第17题（1.0分）
以下Case语句中错误的是;
A:
Case0To10
B:
CaseIs>10
C:
CaseIs>10AndIs<50
D:
Case3,5,Is>10
答案：
C
第18题（1.0分）
下列多分支选择结构的Case语句,写法错误的是（）.
A:
Case1,5,7,9
B:
Case8To12
C:
CaseIs<"Man"
D:
Case5To2
答案：
D
第19题（1.0分）
下列循环语句中在任何情况下都至少执行一次循环体的是（）。
A:
DoWhile<条件>
循环体
Loop
B:
While<条件>
循环体
Wend
C:
Do
循环体
LoopUntil<条件>
D:
DoUntil<条件>
循环体
Loop
答案：
C
第20题（1.0分）
设有如下程序段：
x=2
Fori=1To10Step2
x=x+i
Next
运行以上程序后，x的值是（）。
A:
26
B:
27
C:
38
D:
57
答案：
B
第21题（1.0分）
下面程序段输出的结果是
PrivateSubCommand1_Click（）
x=8
Fori=0To20Step5
x=x+i
Next
Print"X=";x
EndSub
A:
X=210
B:
X=218
C:
X=50
D:
X=58
答案：
D
第22题（1.0分）
在窗体上添加一个命令按钮，编写如下代码：
OptionBase1
PrivateSubCommand1_Click
Dima
A=Array（1,2,3,4）
J=1
Fori=4To1Step-1
S=s+a（i）*j
J=j*10
Nexti
Prints
EndSub
程序运行后，单击命令按钮，输出结果是
A:
4321
B:
12
C:
34
D:
1234
答案：
D
第23题（1.0分）
用下面语句定义的数组的元素个数是（）
DimA（-2To4）AsInteger
A:
6
B:
5
C:
7
D:
8
答案：
C
第24题（1.0分）
要定义一个含有12个元素的二维数组，则以下定义正确的语句是（）。
A:
Dima（-2TO0，2）
B:
Dima（3，2）
C:
Dima（5，3）
D:
Dima（1TO-5，-1TO-3）
答案：
B
第25题（1.0分）
以下关于过程及过程参数的描述中，错误的是（）。
A:
调用过程时可以用控件名称作为实际参数
B:
用数组作为过程的参数时，使用的是"传地址"方式
C:
只有函数过程能够将过程中处理的信息传回到调用的程序中
D:
窗体（Form）可以作为过程的参数
答案：
C
第26题（1.0分）
以下关于函数过程的叙述中，正确的是:
A:
函数过程形参的类型与函数返回值的类型没有关系
B:
在函数过程中，过程的返回值可以有多个
C:
当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D:
如果不指明函数过程参数的类型，则该参数没有数据类型
答案：
A
第27题（1.0分）
Sub过程与Function过程最根本的区别是（）。
A:
Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以
B:
Function过程可以有形参，Sub过程不可以
C:
Sub过程不能返回值，而Function过程能返回值
D:
两种过程参数的传递方式不同
答案：
C
四、程序填空共4题（共计40分）
第1题（10.0分）
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：
已知用inputbox函数输入两个数x和y，比较它们的大小，
'使得x大于y。
'-------------------------------------------------------
PrivateSubForm_Click（）
DimxAsSingle,yAsSingle
x=InputBox（"输入数据1：
"）
'**********SPACE**********
y=【?
】
Print"x值","y值"
Printx,y
Ifx'**********SPACE**********
【?
】
'**********SPACE**********
【?
】
'**********SPACE**********
【?
】
EndIf
Printx,y
EndSub
答案：
=======（答案1）=======
InputBox（"输入数据2:
"）
=======（答案2）=======
t=x
=======（答案3）=======
x=y
=======（答案4）=======
y=t
第2题（10.0分）
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：
在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写
'如下几个事件过程：
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一
'次（见样图）。
请填空。
'-------------------------------------------------------
PrivateSubForm_Load（）
Timer1.Enabled=False
'**********SPACE**********
Timer1.Interval=【?
】
EndSub
PrivateSubForm_Click（）
'**********SPACE**********
Timer1.Enabled=【?
】
EndSub
PrivateSubTimer1_Timer（）
'**********SPACE**********
Label1.Caption=【?
】
EndSub
答案：
=======（答案1）=======
1000
=======（答案2）=======
True
=======（答案3）=======
Time
第3题（10.0分）
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：
'以下程序段分别以子过程和函数来计算某级数部分和，
'级数公式如图1所示。
'-------------------------------------------------------
Functionjishu1（x!
eps#）AsDouble
Dimn%,s#,t#
n=1:
s=0:
t=1
DoWhile（Abs（t）>=eps）
s=s+t
t=t*x/n
n=n+1
Loop
'**********SPACE**********
【?
】
EndFunction
Subjishu2（s#,x!
eps#）
Dimn%,t#
n=1:
s=0:
t=1
DoWhile（Abs（t）>=eps）
s=s+t
t=t*x/n
n=n+1
Loop
EndSub
PrivateSubCommand1_Click（）
Dimf1#,f2#
f1=jishu1（2#,0.000001）
'**********SPACE**********
【?
】jishu2（f2,2#,0.000001）
Print"f1=";f1,"f2=";f2
EndSub
答案：
=======（答案1）=======
jishu1=s
=======（答案2）=======
call
第4题（10.0分）
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：
窗体上添加一个名为command1的命令按钮，程序运行后，单击命令按钮，要求执
'行3次循环体，请将程序补充完整。
'-------------------------------------------------------
PrivateSubCommand1_Click（）
Dimx%
x=1
'**********SPACE**********
【?
】
x=x+2
Printx
'**********SPACE**********
【?
】Untilx>7
EndSub
答案：
=======（答案1）=======
Do
=======（答案2）=======
Loop
五、程序设计共2题（共计20分）
第1题（10.0分）
'-------------------------------------------------
'【程序设计】
'-----------------------
升级会员 