VB语句习题.docx
《VB语句习题.docx》由会员分享，可在线阅读，更多相关《VB语句习题.docx（15页珍藏版）》请在冰点文库上搜索。
VB语句习题
条件语句
1、2006.9（33）在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：
PrivateSubCommand1_Click（）
A=75
IfA>60ThenI=1
IfA>70ThenI=2
IfA>80ThenI=3
IfA>90ThenI=4
MsgBoxI
EndSub
窗体打开运行后，单击命令按钮，则消息框的输出结果是A）1B）2C）3D）4
2、2007.4（31）在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：
PrivateSubCimmandl_Click（）
a=75
Ifa>60Then
k=1
Elselfa>70Then
k=2
Elselfa>80Then
k=3
Elselfa>90Then
k=4
Endlf
MsgBoxk
EndSub
窗体打开运行后，单击命令按钮，则消息框的输出结果是A）1B）2C）3D）4
3、2009.9（32）在窗体中有一个文本框Text1，编写事件代码如下：
PrivateSubForm_Click（）
X=val（Inputbox（“输入x的值”））
Y=1
IfX〈〉0ThenY=2
Text1.value=Y
EndSub
打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是
A）1B）2C）3D）4
4、2007.9（13在窗体中使用一个文本框（名为num1）接受输入值，有一个命令按钮run13，事件代码如下：
PrivateSubrun13_Click（）
IfMe!
num1>=60Then
result="及格"
ElseIfMe!
num1>=70Then
Result="良好"
ElseIfMe!
num1>=85Then
1506358297Result="优秀"
EndIf
MsgBoxresult
EndSub
打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是
For-Next语句
1、2006.4（填11）在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
PrivateSubCommand1_Click（）
Dims，i
Fori=1To10
s=s+i
Nexti
MsgBoxs，i
EndSub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 。
2、2006.9（34）在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：
PrivateSubCommand1_Click（）
s=”ABBACDDCBA”
ForI=6To2Step-2
x=Mid（s,I,I）
y=Left（s,I）
z=Right（s,I）
z=x&y&z
NextI
MsgBoxz
EndSub
窗体打开运行后，单击命令按钮，则消息框的输出结果是
A）AABAABB）ABBABAC）BABBAD）BBABBA
3、2006.9（填15）在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：
PrivateSubCommand1_Click（）
Dimb,k
Fork=1to6
B=23+k
Nextk
MsgBoxb+k
EndSub
窗体打开运行后，三次单击命令按钮，消息框的输出结果是_______。
4、2007.4（33）设有如下程序：
PrivateSubCimmandl_Click（）
DimsumAsDouble,xAsDouble
Sum=0
n=0
Fori=1To5
x=n/i
n=n+1
sum=sum+x
Nexti
EndSub
该程序通过For循环来计算一个表达式的值，这个表达式是
A）1+1/2+2/3+3/4+4/5B）1+1/2+1/3+1/4+1/5
C）1/2+2/3+3/4+4/5D）1/2+1/3+1/4+1/5
5、2007.9（12）在窗体中使用一个文本框（名为x）接受输入值，有一个命令按钮test，事件代码如下：
PrivateSubtest_Click（）
y=0
Fori=0ToMe!
x
y=y+2*i+1
Nexti
MsgBoxy
EndSub
打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是。
6、2008.4（11）
在窗体中有一个名为Command1的命令按钮,Click事件的代码如下:
PrivateSubCommand1_Click（）
f=0
Forn=1To10Step2
f=f+n
nextn
Me!
Lb1.Caption=f
EndSub
单击命令按钮后,标签显示的结果是
7、2008.9（34）在窗体中有一个命令按钮（名称为run34），对应的事件代码如下：
PrivateSubrun34_Click（）
sum=0
Fori=10To1Step-2
sum=sum+i
Nexti
MsgBoxsum
EndSub
运行以上事件，程序的输出结果是（）。
A）10B）30C）55D）其他结果
8、2005.4（填13）以下是一个竞赛评分程序。
8位评委，去掉一个最高分和一个最低分，计算平均分（设满分为10分）。
请填空补充完整。
。
PrivateSubForm_Click（）
DimMaxasInteger,MinasInteger
DimiasInteger,xasInteger,sasInteger
DimpasSingle
Max=0
Min=10
Fori=1to8
x=Val（InputBox（“请输入分数：
”））
if ThenMax=x
if ThenMin=x
s=s+x
NextI
s=
p=s/6
MsgBox“最后得分：
”&p
EndSub
9、2008.9（填12）已知数列的递推公式如下：
f（n）=1 当n=0,1时
f（n）=f（n-1）+f（n-2） 当n>1时
则按照递推公式可以得到数列：
1,1,2,3,5,8,13,21,34,55, ……。
现要求从键盘输入n值，输出对应项的值。
例如当输入n为8时，应该输出34。
程序如下，请补充
完整。
PrivateSubrunl1_Click（）
f0=1
f1=1
num=Val（InputBox（"请输入一个大于2的整数:
"））
Forn=2To___________
f2=___________
f0=f1
f1=f2
Nextn
MsgBoxf2
EndSub
10、2009.9（33）
在窗体中有一个命令按纽Command1和一个文本框Text1，编写事件代码如下：
PrivateSubCommand1_Click（）
ForI=1To4
X=3
Forj=1To3
Fork=1To2
X=X+3
Nextk
Nextj
NextI
Text1.value=Str（X）
EndSub
打开窗体运行后，单击命令按钮，文本框Text1输出的结果是
A）6B）12C）18D）21
11、2009.9（34）在窗体中有一个命令按钮Command1，编写事件代码如下：
PrivateSubCommand1_Click（）
Dim s As Integer
s=p
（1）+p
（2）+p（3）+p（4）
debug.Prints
EndSub
PublicFunctionp（N As Integer）
Dim Sum As Integer
Sum=0
Fori=1ToN
Sum=Sum+i
Nexti
P=Sum
EndFunction
打开窗体运行后，单击命令按钮，输出的结果是：
A）15 B）20 C）25 D）35
12、2009.9（填12某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。
请填空完成规定的功能。
Subcommand1_click（）
Dimmark!
aver!
i%,max1!
min1!
aver=0
Fori=1To7
Mark=InputBox（“请输入第”&i&“位评为的打分”）
Ifi=1then
max1=mark:
min1=mark
Else
Ifmark min1=mark
ElseIfmark>max1then
EndIf
EndIf
Nexti
aver=（aver-max1-min1）/5
MsgBoxaver
EndSub
13、2005.9（填11）
设有以下窗体单击事件过程：
PrivateSubForm_Click（）
a=1
Fori=1To3
SelectCasei
Case1,3
a=a+1
Case2,4
a=a+2
EndSelect
Nexti
MsgBoxa
EndSub
打开窗体运行后，单击窗体，则消息框的输出内容是
DoWhile-Loop语句
1、2005.4（填11）
某个窗体已编写以下事件过程。
打开窗体运行后，单击窗体，消息框的输出结果为。
PrivateSubForm_Click（）
DimkasInteger,nasInteger,masInteger
n=10;m=l;k=1
DoWhilek<=n
m=m*2
k=k+1
Loop
MsgBoxm
EndSub
2、2009.3（35）
在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
PrivateSubCommand1_Click（）
MsgBoxf（24,18）
EndSub
PublicFunctionf（mAsInteger,nAsInteger）AsInteger
DoWhilem<>n
DoWhilem>n
m=m-n
Loop
DoWhilem n=n-m
Loop
Loop
f=m
EndFunction
窗体打开运行后，单击命令按钮，则消息框的输出结果是
A）2 B）4 C）6 D）8
3、2008.4（13）
下列子过程的功能是:
将当前数据库文件中”学生表”的学生”年龄”都加1,请在程序空白的地方填写适当的语句,使程序实现所需要的功能
PrvateSubSetAgePlus1_Click（）
DimdbAsDAO.Database
DimrsAsDAO.Recordset
DimfdAsDAO.Field
Setdb=CurrentDb（）
Setrs=db.OpenRecordset（“学生表”）
setfd=rs.field（“年龄”）
DoWhileNotrs.EOF
rs.Edit
fd=
rs.Update
Loop
rs.Close
db.Close
Setrs=Nothing
Setdb=Nothing
EndSub
Do-LoopWhile语句
1、2006.4（33）
以下程序段运行结束后，变量x的值为
x=2
y=4
Do
x=x*y
y=y+1
Loop While y<4
A．2 B．4C．8 D．20
Do-LoopUntil语句
1、2006.4（填13）
设有如下代码：
x=1
do
x=x+2
loop until
运行程序，要求循环体执行3次后结束循环，在空白处填入适当语句。
2、2009.3（34）
设有如下过程：
X=1
Do
X=x+2
Loopuntil________
运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是
A）X<=7 B）X<7 C）X>=7 D）X>7
嵌套循环
2、2006.4（34）
在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：
PrivateSubCommand1_Click（）
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Nextj
Nexti
MsgBoxx
EndSub
打开窗体后，单击命令按钮，消息框的输出结果是
A．7 B．15 C．157 D．538
3、2005.9（35）
n=0
fori=1to3
forj=-4to-1
n=n+1
nextj
nexti
运行完毕后，n的值是
A）0 B）3 C）4 D）12
4、2006.9（31）
在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：
PrivateSubCommand1_Click（）
Dima（10,10）
Form=2To4
Forn=4To5
a（m,n）=m*n
Nextn
Nextm
MsgBoxa（2,5）+a（3,4）+a（4,5）
EndSub
窗体打开运行后，单击命令按钮，则消息框的输出结果是
A）22B）32C）42D）52
5、2006.9（填14）
下面VBA程序段运行时，内层循环总次数是_________。
Form=0To7Step3
Forn=m-1Tom+1
Nextn
Nextm
6、2007.9（35）在窗体中使用一个文本框（名为n）接受输入的值，有一个命令按钮run，事件代码如下：
PrivateSubrun_Click（）
result=""
Fori=1ToMe!
n
Forj=1ToMe!
n
result=result+"*"
Nextj
result=result+Chr（13）+Chr（10）
Nexti
MsgBoxresult
EndSub
打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是______。
A）****B）*
*******
*********
***********
C）****D）****
**********
************
**************
7、2008.4（35）
在窗体中有一个命令按钮run35,对应的事件代码如下:
PrivateSubrun35_Enter（）
DimnumAsInteger
DimaAsInteger
DimbAsInteger
DimiAsInteger
Fori=1to10
num=InputBox（“请输入数据:
“,”输入”,1）
IfInt（num/2）=num/2Then
a=a+1
Else
b=b+1
EndIf
Nexti
MsgBox（“运行结果:
a=”&Str（a）&“,b=”&Str（b））
EndSub
运行以上事件所完成的功能是
A>对输入的10个数据求累加和
B>对输入的10个数据求各自的余数,然后再进行累加
C>对输入的10个数据分别统计有几个是整数,有几个是非整数
D>对输入的10个数据分别统计有几个是奇数,有几个是偶数
升级会员 