vb程序阅读题与填空题.docx

vb程序阅读题与填空题.docx

《vb程序阅读题与填空题.docx》由会员分享，可在线阅读，更多相关《vb程序阅读题与填空题.docx（40页珍藏版）》请在冰豆网上搜索。

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．写出下面程序的运行结果。