vb程序阅读题与填空题.docx
《vb程序阅读题与填空题.docx》由会员分享，可在线阅读，更多相关《vb程序阅读题与填空题.docx（41页珍藏版）》请在冰豆网上搜索。
vb程序阅读题与填空题
VB程序阅读题与程序填空题综合练习
1、阅读下面程序，当单击窗体之后，窗体上输出的是.
PrivateSubForm_Click（）
DimiAsInteger,jAsInteger
DimkAsInteger
k=0
Fori=0To10Step3
Forj=1To10
Ifj〉=5Theni=i+4:
ExitFor
j=j+1
k=k+1
Next
Ifi〉8ThenExitFor
Next
Printk
EndSub
2、阅读下面的事件过程。
单击窗体后，在文本框Text1和Text2中显示的内容分别
是和;若将程序中A语句与B语句的位置互换，再次执行程序，
单击窗体后在Text1和Text2中显示的内容分别是和。
PrivateSubForm_Click（）
DimxAsInteger，yAsInteger
x=1：
y=0
DoWhilex<3
y=y+x’A语句
x=x+1'B语句
Loop
Text1。
Text=x
Text2。
Text=y
EndSub
3、下面程序段中，k循环共执行次，在窗体上显示的结果是。
DimbAsInteger，kAsInteger
b=1
Fork=1To5
b=b＊k
Ifb〉=15Then
ExitFor
Else
k=k+1
EndIf
Nextk
Printk，b
4、以下是按钮cmdl的Click事件过程，求1~100之间的所有质数。
质数的个数显示在窗体上，在划线处填上缺少的内容。
PrivateSubcmdl_Click（）
DimintNumAsInteger，int1AsInteger,int2AsInteger
intNum=0
Forint1=
Forint2=2Toint1\2
If（int1Modint2）=0Then
intNum=1
EndIf
Next
If
sNum=sNum+1
EndIf
Next
Print
EndSub
5、若命令按钮的名称为CmdExit，程序要求单击以上命令按钮时，程序停止运行。
请在画线处中填入适当的内容。
PrivateSubCmdExit_（）
EndSub
6、下面的事件过程判断文本框txt1中输入的数所在区间，并在文本框txt2中输出判断结果。
在画线处填入正确的内容。
PrivateSubComandl_Click（）
Dimint1AsInteger
int1=val（txt1.Text）
SelectCaseint1
Case
txt2.Text="值为0”
Case
txt2。
Text=”值在1和10之间（包括1和10）”
Case
txt2.Text="值大于10"
CaseElse
txt2.Text=”值小于0”
EndSelect
EndSub
四、读程序题，写出程序运行结果。
1．运行结果：
PrivateSubForm_Click（）
ForI=1To9
Forj=1To30—3＊I
Print””;
Nextj
Fork=1ToI
Printk;
Nextk
Fork=I—1To1Step—1
Printk；
Nextk
Print
NextI
EndSub
2．运行结果:
PrivateSubCommand1_Click（）
StaticSAsInteger
DimiAsInteger
S=1
Fori=1To5
S=S＊i
Nexti
PrintS
EndSub
3．运行结果：
ForX=5To1Step–1
ForY=1To6—X
PrintTab（Y+5）；”＊";
NextY
Print
NextX
4．运行结果：
S=0：
T=0：
U=0
ForX=1To3
ForY=1ToX
ForZ=YTo3
S=S+1
NextZ
T=T+1
NextY
U=U+1
NextX
PrintS;T；U
5．运行结果：
PrivateSubCommand1_Click（）
DimbAsInteger
a=3.6
b=3。
6
Text1.Text=a
Text2。
Text=b
EndSub
2．以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：
除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。
PrivateSubCommand_Click（）
X=Val（Text1.Text）
If
（1）Then
PrintX
Else
（2）
（3）
（4）
EndIf
EndSub
五、编程题
1．设计一个计算程序。
该程序用户界面如图所示，由四个文本框：
文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：
命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成．程序运行后，用户按清除按钮,则清除文本框中显示的内容，按计算按钮,则计算三科平均成绩。
单击退出按钮则退出。
PrivateSubCommand1_Click（）
Text1。
Text=［1]
Text2。
[2］=””［2］
[3］。
Text=""［3]
EndSub
PrivateSubCommand2_Click（）
IfText1.［4]="”OrText2.Text=[5]OrText3。
Text=""Then［4]
MsgBox"成绩输入不全！
”［5］
Else
Text4。
Text=（［6］+Val（Text2。
Text）［6］
+Val（Text3。
Text））/［7］[7]
[8］[8]
EndSub
PrivateSubCommand3_Click（）
Unload［9］[9］
[10]Sub［10]
3．设计一个欢迎程序。
该程序用户界面如图所示.要求程序运行后,用户选中粗体复选框时“欢迎您！
”几个字的字体变成粗体，用户选中斜体复选框时“欢迎您!
”几个字的字体变成斜体。
若取消选中,则恢复原字体。
按结束,则退出.
4．任给3个数，求其中间数，写出程序代码。
三、阅读程序题
1．阅读下列程序并写出程序运行结果
PrivateSubForm_Click（）
DimsAsLong，fAsLong,nAsInteger，iAsInteger
n=3
Fori=1Ton
f=f+i
s=s+f
Next
Print”s=";s
EndSub
写出程序运行时单击窗体后，窗体Form1上的输出结果。
运行结果：
2．阅读下列程序并写出程序运行结果
PrivateSubCommand1_Click（）
x=0
DoWhilex〈100
x=（x+2）＊（x+4）
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
Text3.Text=Val（Text1.Text）+Val（Text2。
Text）
EndSub
文件框Text3的结果是：
运行结果：
3．阅读下列程序并写出程序运行结果
PrivateSubCommand1_Click（）
DimSum1AsInteger，Sum2AsInteger
Sum1=0:
Sum2=1
ForI=1To4
ForJ=1ToI
Sum2=Sum2＊J
NextJ
Sum1=Sum1+Sum2
NextI
PrintSum1
EndSub
写出程序运行时单击命令按纽后，窗体上的输出结果.
运行结果：
4.阅读下列程序并写出程序运行结果
PrivateSubCommand1_Click（）
DimxAsInteger
6．阅读下列程序并写出程序运行结果
PrivateSubCommand1_Click（）
DimA（2To7）AsInteger
DimbAsInteger
Forb=2To7
A（b）=b
Nextb
Text1.Text=A（b-2）
EndSub
程序运行后，单击命令按纽文本框Text1的结果是：
StaticsAsInteger
x=Val（InputBox（"请输入一个正整数="））
Ifx<6Then
s=s*x
Else
s=s+x
EndIf
Text1。
Text=”s=”＆Str（s）
EndSub
程序运行时连续3次单击Command1,且设输入
的数据为6、5、4时，分别写出文本框Text1的值。
5．阅读下列程序并写出程序运行结果
PrivateSubForm_Click（）
DimA（1To3）AsString
DimcAsInteger,jAsInteger
A
（1）=“2”
A
（2）=“4”
A（3）=“6”
c=0
Forj=1to3
c=c+Val（A（j））
Nextj
Printc
EndSub
写出程序运行时单击窗体后,窗体Form1上的结果：
11.阅读下列程序并写出程序运行结果
PrivateSubForm_Click（）
StaticSumAsInteger
I=1
Whilei<=3
Sum=Sum+I
I=I+1
Wend
PrintSum
EndSub
点击两次后，Sum的值应该是：
运行结果：
7．阅读下列程序并写出程序运行结果
Subtest（iAsInteger）
i=i+1
EndSub
PrivateSubForm_Click（）
DimxAsInteger
x=4
Print"x=”；x
Calltest（x）
Print"x="；x
EndSub
8.阅读下列程序并写出程序运行结果
PrivateSubForm_Click（）
a=1:
b=1
Print”A=";a；"，B=”；b
Callmult（a）
Print"A=”；a;”,B="；b
EndSub
PrivateSubmult（x）
x=2＊x
b=3＊b
EndSub
9.阅读下列程序并写出程序运行结果
PrivateSubForm_Click（）
DimiAsInteger，aAsInteger
k=0
Fori=1To6
Ifi〉3Then
a=a+4
Else
a=a+1
EndIf
Nexti
Printi，a
EndSub
写出程序运行时单击窗体后，Form1上的输出结果。
10.阅读下列程序并写出程序运行结果
SubChange（ByValxAsInteger，ByValyAsInteger）
DimtAsInteger
t=x
x=y
y=t
Printx,y
Endsub
PrivateSubForm_Click（）
DimaAsInteger,bAsInteger
a=3:
b=4
Changea，b
Printa，b
EndSub
写出程序运行时单击窗体后，Form1上的输出结果
（20） 下列程序段执行结果为（）
x=5
y=-6
If Not x>0 Then x=y-3 Else y=x+3
Print x—y； y-x
A） —3 3 B） 5 -9C） 3 -3 D） -6 5
（23） 单击命令按钮时，下列程序的执行结果为（）
Private Sub Command1_Click（）
Dim x As Integer, y As Integer
x=12:
y=32
Call Proc（x,y）
Print x； y
End Sub
Public Sub Proc（n As Integer, ByVal m As Integer）
n=n Mod 10
m=m Mod 10
End Sub
A） 1232 B） 232C） 23 D） 123
二、填空题
（1） 完成下面的程序,使显示结果如下图所示。
Private Sub Form_Click（）
FontSize=18
Sample＄=" 【1】 "
x=（ScaleWidth-TextWidth（Sample$） ） /2
y=（ScaleHeight-TextHeight（Sample＄） ） /2
CurrentX=x
CurrentY=y
【2】 Sample＄
End Sub
（2） 下列程序的功能是：
当x〈50时,y=0。
8×x;当50≤x≤100时,y=0.7×x；当x〉100时，没有意义.请填空。
Private Sub Command1_Click（）
Dim x As Single
x=InputBox（"请输入x的值！
"）
【3】
Case Is < 50
y=0.8 * x
Case 50 To 100
y=0.7 ＊ x
【4】
Print "输入的数据出界！
”
End Select
Print x, y
End Sub
35.窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序:
Dim y As Integer
Private Sub Command1_Click（）
Dim x As Integer
x=2
Text1。
Text= p2（p1（x）,y）
Text2.Text= p1（x）
End Sub
Privage Function P1（x As Integer） As Integer
x =x+y：
y=x+y
P1=x+y
End Function
Private Function P2（x As Integer， y As Integer） As Integer
P2= 2＊x+y
End Function
当单击1 次和单击2次命令按钮后，文本框Text1和Text2内的值分别是（C）
5．执行了以下的程序后，列表框中的数据项有________。
SubForm_click（）
Fori=0To4
List1.AddItemi
Next
Fori=1To2
List1.RemoveItemi
Next
Endsub
31.如下程序，运行的结果是（B）
Private Sub Form_Click（）
Dim m As Integer，i As Integer,x（10） As Integer
For i= 0 to 4
x（i）=i + 1
Next i
For i=1 to 2
Call proc（x）
Next i
For i= 0 to 4
Print x（i）；
Next i
End Sub
Public Sub proc（a（） As Integer）
Static i As Integer
Do
a（i）=a（i）+a（i+1）
i=i+1
Loop While i〈2
End Sub
32。
假设有以下程序段：
For I=1 to 3
For j=5 to 1 Step -1
Print I＊j
Next j
Next I
则语句Print I＊j的执行次数I、j的值分别是（A）
33.在窗体上一个文本框,其名称为Text1,然后编写如下事件过程：
Private Sub Text1_KeyPress（KeyAscii As Integer）
Dim str As String ，n As Integer
str = UCase （Chr（KeyAscii））
n=Len（str）
Text1=String（n, str）
End Sub
程序运行后，如果在键盘上输入单字母"K”，则在文本框Text1中显示的内容为（）
5.下面的程序输入X的值,按以下公式求Y值。
PrivateSubCommand1_Click（）
X=Val（Text1。
Text）
SelectCaseX
Case【1】
Print”X<—100ORX〉200”
Case【2】
Y=100—X
Case【3】
Y=100+X
Case【4】
Y=400
EndSelect
Text2.Text=Y
EndSub
6．以下程序是利用公式
来计算
的值.其中，变量k表示当前符号项，t表示当前项，n表示当前项的序号,要求精度控制在0.00001内。
试分析程序,完成空格处填的内容。
DimpiAsSingle,tAsSingle
DimnAsSingle，kAsSingle
pi=0:
n=1
k=1:
t=1
DoWhile（【1】）
pi=pi+t
k=-k
t=【2】
n=n+1
Loop
pi=【3】
Print"pi="；pi
7．下列程序的功能是输出的前20项,按每行5个数的形式输出。
Fibonacci数列：
F1=1，F2=1,Fn=Fn-1+Fn—2（n>=2）
DimaAsInteger，bAsInteger
DimcAsInteger，iAsInteger
a=1:
b=1：
i=3
Printa,b,
DoWhile（i<=20）
c=a+b
a=b
b=c
【1】
If【2】Then
Print
EndIf
【3】
Loop
EndSub
4．执行下面的程序段后，s的值为____________.
a=5
Fori=2。
6To4.9Step0.6
s=s+1
Nexti
5．下面是一个体操评分程序.20位评委，除去一个最高分和一个最低分,计算平均分（设满分为10分）.
Max=0
Min=10
Fori=1To20
n=Val（InputBox"请输入分数”）
If______________ThenMax=n
If______________ThenMin=n
s=s+n
Nexti
s=______________
p=s/18
Print”最高分";Max，”最低分";Min
Print”最后得分:
"；p
6．下面程序的功能是求1到100的平方和，如果平方和超过了1000则跳出循环，输出此时的和S.
9．以下程序段，程序运行后，要求执行4次循环。
x=1
Do
x=x+1
print15
loopUntil___________
10．下列程序运行后，内层循环的循环总次数___________。
Forx=1to4
Fory=1tox
Printy
Nexty
Nextx
ForI=1To100
s=s+i*i
Ifs>1000Then
______________
EndIf
nexti
abc:
Prints
7．以下程序段的输出结果是____________。
num=0
Whilenum<=2
num=num+1
Printnum
Wend
8．以下程序段的输出结果是____________.
DimjAsInteger,sAsInteger
Do
3．写出下面程序的运行结果。
PrivateSubForm_Click（）
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Nextj
Nexti
printx
EndSub
s=s+j
j=j+1
LoopUntilj=5
Print"s=”;s
四、程序阅读题
1．写出下面程序的运行结果.
PrivateSubForm_Click（）
DimsAsInteger，kAsInteger,mAsInteger,nAsInteger
s=1
Form=1To3
Forn=mTo3
Fork=nTomStep-1
s=s*k
Nextk，n,m
Prints
EndSub
2．写出下面程序的运行结果。
Pr
升级会员 