vb20道程序填空或修改题(附答案) .pdfVIP

Vb20道操作题第1页共24页

595：'填空完成程序，使得当单击窗体后，Label1上显示100以内（含100）偶数之

和。

'注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的

代码。

PrivateSubForm_Click()

DimiAsInteger'定义变量i

DimsAsInteger'定义变量s，用于存放100以内（含100）偶数的和

s=0

Fori=2To100Step2

s=s+i

Nexti

Label1.Caption=Str(s)

EndSub

596：'填空完成程序，使得当在Text1中输入圆的半径后，单击"计算"按钮，计算圆的

周长，并在Text2中显示出来。

Vb20道操作题第2页共24页

'注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应的位置填写正确

代码

PrivateSubCommand1_Click()

Constpi=3.14'定义符号常量

DimcAsSingle'定义周长c为单精度型

DimrAsSingle'定义半径r为单精度型

r=Val(text1.text)

c=pi*(2*r)

text2.text=c

EndSub

597：'填空完成程序，计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。

'注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的

代码

PrivateSubForm_Click()

Vb20道操作题第3页共24页

DimsAsSingle's变量用于存放计算结果

DimpAsSingle

DimiAsInteger'定义一个循环变量

'给s赋初值

s=0

'给p赋初值

p=1

Fori=1To8

p=p*i

s=s+p

Nexti

Print"s=";s

EndSub

Vb20道操作题第4页共24页

598：'举重比赛中，60公斤级选手体重不能超过60公斤。

'填空完成程序，使得在文本Text1中输入一个大于60的数时，标签Label1显示"超

重！不能参赛！"；

'当输入一个小于等于60的数时，标签Label1显示"合格，可以参赛！"。

'注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的

代码

PrivateSubCommand1_Click()

DimtAsSingle'定义变量t，值由文本框Text1读入

t=Val(text1.text)

Ift>60Then

Label1.Caption="超重！不能参赛！"

Else

Label1.Caption="合格，可以参赛！"

Endif

Vb20道操作题第5页共24页

EndSub

599：'填空完成程序，使得当单击窗体后，计算1+2+3+…+N>500的N的最小值，

并在文本框Text1中显示出来。

'注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的

代码

PrivateSubForm_Click()

DimsAsInteger'变量s存放和

DimnAsInteger

'为s赋初值

s=0