高中信息技术考试vb程序题及答案.docx

高中信息技术考试vb程序题及答案.docx

《高中信息技术考试vb程序题及答案.docx》由会员分享，可在线阅读，更多相关《高中信息技术考试vb程序题及答案.docx（17页珍藏版）》请在冰豆网上搜索。

高中信息技术考试vb程序题及答案

标准化工作室编码[XX968T-XX89628-XJ668-XT689N]

高中信息技术考试vb程序题及答案

第一套

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

PrivateSubForm_Click（）

DimiAsInteger'定义变量i

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

s=0

Fori=2To100Step2

s=s+i

Nexti

=Str（s）

EndSub

2、'填空完成程序，使得当在Text1中输入圆的半径后，单击"计算"按钮，计算圆的周长，并在Text2中显示出来。

PrivateSubCommand1_Click（）

Constpi='定义符号常量

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

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

r=Val

c=pi*2*r

=c

EndSub

第二套

'填空完成程序，计算s=1!

+2!

+3!

+…+8!

的值并在窗体上打印出结果。

PrivateSubForm_Click（）

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

DimpAsSingle

DimiAsInteger'定义一个循环变量

'给s赋初值

s=0

'给p赋初值

p=1

Fori=1To8

p=p*i

s=s+p

Nexti

Print"s=";s

EndSub

'填空完成程序，使得当单击窗体后，计算1+2+3+…+N>500的N的最小值，并在文本框Text1中显示出来。

PrivateSubForm_Click（）

DimsAsInteger'变量s存放和

DimnAsInteger

'为s赋初值

s=0

'为n赋初值

n=0

Do

n=n+1

s=s+n

LoopWhiles<=500

=Str（n）

EndSub

第三套

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

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

不能参赛！

"；

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

"。

PrivateSubCommand1_Click（）

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

t=Val

If>Then

="超重！

不能参赛！

"

Else

="合格，可以参赛！

"

Endif

EndSub

'填空完成程序，使得单击窗体后，计算出1+2+3+…+N<500的N的最大值，并在文本框Text1中显示出来。

PrivateSubForm_Click（）

DimsAsInteger'变量s存放和

DimnAsInteger

'为n赋初值

n=0

'为s赋初值

s=0

DoWhiles<500

n=n+1

s=s+n

Loop

=Str（n-1）

EndSub

第四套

'这是一个简单的显示评语程序，填空完成程序，在文本框Text1中输入一个数后，单击"评语"按钮，在标签Label1显示评语。

'当输入一个小于60的数时，显示"不及格"；

'当输入一个大于等于60且小于85的数时，显示"良好"；

'当输入一个大于等于85的数时，显示"优秀"。

PrivateSubCommand1_Click（）

DimCjAsSingle'定义变量Cj，值由文本框Text1读入

Cj=Val（）

IfCj<60then

="不及格"

EndIf

IfCj>=60AndCj<85Then

="良好"

EndIf

IfCj>=85Then

="优秀"

EndIf

EndSub

'某公司2005年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍

'填空完成程序，使得当单击窗体后，在窗体上输出问题答案。

PrivateSubForm_Click（）

DimpAsSingle'变量p保存年产值

DimnAsInteger'整型变量n为所求年数

P=2000

n=0

DoWhilep<4000

p=p*

n=n+1

Loop

Print"n=";n

EndSub

第五套

'填空完成程序，使得当单击"计算7！

"按钮后，Text1显示7！

的值。

PrivateSubCommand1_Click（）

DimaAsInteger

DimiAsInteger

a=1

Fori=1To7Step1

a=a*i

Nexti

=Str（（3））

EndSub

'填空完成程序，编程计算1-1/2+1/3-1/4+...+1/99-1/100，单击窗体后，在窗体上显示结果。

PrivateSubForm_Click（）

DimsAsSingle

DimiAsInteger

s=0

Fori=1To100Step1

IfiMod2<>0Then

s=s+1/i

Else

s=s-1/i

EndIf

Nexti

Print"s=";s

EndSub

第六套

'填空完成程序，编程计算1+1/2+1/3+1/4...+1/99+1/100，单击窗体后，在窗体上显示结果。

PrivateSubForm_Click（）

DimsAsSingle'定义变量s为单精度型

DimiAsInteger'定义循环变量

s=0

Fori=1To100Step1

s=s+1/i

Nexti

Print"s=";s

EndSub

'填空完成程序，使得当单击"计算1+2+3+…+100"按钮后，文本框Text1显示1+2+3+…+100的值。

PrivateSubCommand1_Click（）

DimaAsInteger

DimiAsInteger

a=0

Fori=1To100Step1

a=a+i

Nexti

=Str（（4））

EndSub

第七套

'填空完成程序，使得单击"显示"按钮后，随机产生10个属于区间[0，100）的自然数，并保存于数组a中。

'然后在窗体上显示这10个数的平均值。

'注：

学生运算结果有可能跟样图中数值不一致。

PrivateSubCommand1_Click（）

Dima（9）AsInteger

DimsAsSingle

DimiAsInteger

s=0

Randomize

Fori=0To9Step1

a（i）=Int（Rnd*100）

Printa（i）

Nexti

Fori=0To9

s=s+a（i）

Nexti

Print"这10个自然数的平均值=";s/10

EndSub

'填空完成程序，左键单击窗体时打印下面所示的图案。

'****

'***

'**

'*

PrivateSubForm_Click（）

DimiAsInteger

DimjAsInteger

Fori=4To1Step-1

Forj=1ToiStep1

Print"*";

Nextj

print

Nexti

EndSub

第八套

'填空完成程序，问：

鸡兔同笼，共有100条腿，40个头，问鸡有几只，兔有几只

'单击窗体后，在窗体上显示结果。

PrivateSubForm_Click（）

DimJiAsInteger'Ji变量表示鸡的个数

DimTuAsInteger'Tu变量表示兔的个数

DimLegAsInteger'Leg变量表示腿数

ForJi=1To40

Tu=40-ji

'计算腿数

Leg=ji*2+Tu*4

'如果腿正好100只，则打印。

IfLeg=100Then

Print"鸡=";Ji;"只","兔=";Tu;"只"

EndIf

NextJi

EndSub

'填空完成程序，使得单击"显示"按钮后，显示下面的图形：

'@

'@@

'@@@

'@@@@

'@@@@@

'@@@@@@

PrivateSubCommand1_Click（）

DimiAsInteger'定义i为整型变量

DimjAsInteger'定义j为整型变量

Fori=1To6Step1

Forj=1ToIStep1

Print"@";

Nextj

Print

Nexti

EndSub

第九套

'填空完成程序，使得单击"显示"按钮时，Text1、Text2分别显示变量x、y的值。

PrivateSubCommand1_Click（）

Dimx,yAsInteger

x=10

y=100

Ifx

'以下三条语句交换x,y的值

t=x

x=y

y=t

EndIf

=Str（x）

=Str（y）

EndSub

'填空完成程序，使得单击"显示"按钮后，在窗体上显示如图99乘法表。

PrivateSubCommand1_Click（）

DimiAsInteger

DimjAsInteger

Fori=1To9Step1

Print"";

Forj=1To9

Printi*j

PrintvbTab;

Nextj

print

Nexti

EndSub

第十套

'填空完成程序，使得在Text1中输入一个数，单击"判断"按钮后，判断这个数是奇数还是偶数

'并在Label1中显示"奇数"或"偶数"出来。

PrivateSubCommand1_Click（）

DimaAsSingle

DimbAsSingle

'从Text1中读入这个数,并保存在变量a中

a=Val

b=aMod2

Ifb=0Then

="偶数"

Else

="奇数"

endif

EndSub

'填空完成程序，使得单击"显示"按钮后，随机产生10个属于区间[0，100）的自然数，

'并保存于数组a中，然后在窗体上显示这10个数中的最大值。

PrivateSubCommand1_Click（）

Dima（9）AsInteger

DimmaxAsInteger

DimIAsInteger

Print

Randomize

Fori=0To9Step1

a（i）=Int（Rnd*100）

Printa（i）

Nexti

max=a（0）

Fori=1To9

Ifmax

max=a（i）

EndIf

Nexti

Print"这10个自然数中的最大值=";Str（（3））

EndSub

'填空完成程序:

单击"计算5!

"按钮后，Text1显示5!

的值。

PrivateSubCommand1_Click（）

DimaAsInteger

DimiAsInteger

a=1

Fori=2To5

a=a*i

Next__i___

=Str（a）

EndSub

第十四套

'某公司每年的销售收入均比前一年增长10个百分点，按此速度，需要多少年可以实现销售收入翻两番（即4倍）的目标。

'填空完成程序，使得当单击窗体后，在窗体上输出问题答案。

PrivateSubForm_Click（）

DimiAsSingle

DimsAsInteger'设s为所求年数,定义为整型,结果由窗体输出

i=1

s=0

DoWhile___i<=4_____

i=_i*

s=s+1

Loop

Print"s=";s

EndSub

'在横线处添加代码实现单击该按钮，窗体的背景色由原来的默认色变为红色（红：

&HFF&）

PrivateSubCommand1_Click（）

backcolor=&HFF&

EndSub

第十五套

'已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。

'填空完成程序，求方程的根。

要求：

如果方程无实数根，则输出"无实数根"，否则输出两个实数根。

PrivateSubCommand1_Click（）

Dima,b,c,dAsSingle

Dimx1,x2AsSingle

a=Val

b=Val

c=Val

Ifa<>0Then'判断a是否等于0

d=b^2-4*a*c

Ifd>=0Then'判断是否有实数根

x1=（-b+Sqr（d））/（2*a）

x2=（-b-Sqr（d））/（2*a）

=Str（x1）

=Str（x2）

Else

=”无实数根”

EndIf

EndIf

EndSub

'填空完成程序，打印如图所示的图案。

'

*

'**

'

***

'**

'*

PrivateSubForm_Click（）

DimiAsInteger'定义i为整型变量

DimjAsInteger'定义j为整型变量

Fori=-2To2

Forj=1To3-abs（i）

Print“*”;

Nextj

Print'换行

Nexti

EndSub

第十八套

'填空完成程序，计算s=1!

+2!

+3!

+…+8!

的值并在窗体上打印出结果。

PrivateSubForm_Click（）

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

DimpAsSingle

DimiAsInteger'定义一个循环变量

'给s赋初值

s=0

'给p赋初值

p=1

Fori=1To8

p=p*i

s=s+p

Nexti

Print"s=";s

EndSub

第十九套

'填空完成程序，使得当单击"计算1+2+3+…+100"按钮后，文本框Text1显示1+2+3+…+100的值。

PrivateSubCommand1_Click（）

DimaAsInteger

DimiAsInteger

a=0

Fori=1To100Step1

a=a+i

Nexti

=Str（a）

EndSub