VB程序道考试题Word文档格式.docx

VB程序道考试题Word文档格式.docx

《VB程序道考试题Word文档格式.docx》由会员分享，可在线阅读，更多相关《VB程序道考试题Word文档格式.docx（13页珍藏版）》请在冰豆网上搜索。

y=InputBox（&

请输入y的&

Printx&

amp;

&

和&

y&

的最大公约数是;

;

gys（x,y）

PrivateFunctiongys（ByValmAsInteger,ByValnAsInteger）AsInteger

DimaAsInteger

a=mModn

DoUntila=0

m=n:

n=a:

a=mModn

Loop

gys=n

EndFunction

4、编程求200--400范围内5的倍数或7的倍数之和。

（一个数如果同时是7和5的倍数，则只能加一次。

PrivateSubCommand1_Click（）

Dims1%,s2%,s3%,i%

s1=0

s2=0

Fori=200To400

IfiMod5=0OriMod7=0Then

s1=s1+i

EndIf

IfiMod5=0AndiMod7=0Then

s2=s2+i

s3=s1-s2

Prints3

5、输入一年份，判断它是否为闰年，并显示有关信息。

（判断闰年的条件是：

年份能被4整除但不能被100整除，或者能被400整除）

a=InputBox（&

请输入年份&

IfaMod400=0OraMod4=0AndaMod100&

lt;

&

gt;

0Then

MsgBox（&

Yes&

Else

No&

6、计算100~300之间所有能被3和7整除的数之和。

Fori=100To300

IfiMod21=0Then

s=s+i

Printi;

Print

Print&

s=&

s

7、某次歌曲大奖赛，有7个评委。

如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。

Dimmark!

max!

min!

aver!

i%

aver=0

Fori=1To7

mark=InputBox（&

输入第&

i&

位评委的打分&

Ifi=1Then

max=mark:

min=mark

Ifmark&

minThenmin=mark

maxThenmax=mark

aver=aver+mark

aver=（aver-min-max）/5

Printaver

8、随机产生10个[30,100]内的整数，求最大值及所对应的下标

Dima（1To10）AsInteger,i%,maxa%,m%

Fori=1To10

a（i）=Int（Rnd*70）+30

maxa=a

（1）

Fori=2To10

Ifa（i）&

a

（1）Then

maxa=a（i）

m=i

Printa（i）;

maxa=&

maxa;

下标为&

m

9、随机产生10个[30,100]内的整数，求最小值及所对应的下标。

Dima（1To10）AsInteger,i%,min

a%,m%

a（i）=Int（Rnd*71+30）

m=1

mina=a

（1）

mina=a（i）

Printa（i）

mina=&

mina;

10、随机生成一个整型的二维数组，范围在[10,20]之间，以下三角形式输出该数组。

Dima%（4,4）

Picture1.Cls

Fori=0To4

Forj=0To4

a（i,j）=Int（Rnd*11+10）

Forj=0Toi

Picture1.PrintTab（j*6）;

a（i,j）;

Picture1.Print

11、编写一个过程计算并输出区间[100，1000]内所有素数的和（要求判断素数使用过程（函数或子过程）来实现。

调用该过程。

（提示：

只能被1和自身整除的自然数称为素数。

Functionsushu%（ByValx%）

Dimm%,TagAsBoolean,i%

m=Val（x）

Tag=True

Fori=2Tom-1

If（mModi）=0ThenTag=False

IfTagThensushu=x

Dimi%,k%

Fori=100To1000

Ifsushu（i）ThenList1.AddItemi

Sum=0

Fork=0ToList1.ListCount-1

Sum=Sum+Val（List1.List（k））

Nextk

Label1=&

［100，1000］内所有素数和为:

Sum

12、随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。

Dima（1To10）AsInteger,amin,amax,i%,sum%

amin=a

（1）

amax=a

（1）

sum=a

（1）

amaxThenamax=a（i）

aminThenamin=a（i）

sum=sum+a（i）

max=&

amax,&

min=&

amin,&

avera=&

sum/10

13、利用随机函数生成一个4×

4的矩阵（即二维矩阵）,范围是[20,50]内的整数,输出该矩阵所有数据之和

Dima%（3,3）

Fori=0To3

Forj=0To3

a（i,j）=Int（Rnd*31+20）

PrintTab（j*5）;

s=a（0,0）+a（1,1）+a（2,2）+a（3,3）+a（3,0）+a（2,1）+a（1,2）+a（0,3）

所有数据之和为：

s;

14、随机产生10个[30,100]内的整数，求最大值、最小值和平均值。

Dima（1To10）AsInteger,amin,amax,i%,avera!

avera=a

（1）

avera=avera+a（i）

avera/10

15、编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定。

Dima（1To10）,amin,i%

a（i）=Int（Rnd*101）

CallProcMin（a（）,amin）

amin=&

amin

SubProcMin（b（）,min）

Dimi%

min=b（LBound（b））

Fori=LBo

und（b）+1ToUBound（b）

Ifb（i）&

minThenmin=b（i）

16、编一个选择排序法子过程，对已知的若干整数按递减次序排列。

提示：

子过程的形式为subsort1（a%（））。

Dimb%（10）,i%

排序前&

b（i）=Int（Rnd*100）

Printb（i）;

排序后&

Callsort（b（））

Subsort（a%（））

Dimi%,m%,n%,min%,t%

n=UBound（a）

Fori=0Ton-1

min=i

Forj=i+1Ton

Ifa（j）&

a（min）Thenmin=j

m=a（i）:

a（i）=a（min）:

a（min）=m

Fori=LBound（a）ToUBound（a）

17、编一个冒泡排序法子过程，对已知的若干整数按递增次序排列。

Fori=0To9

Dimi%,m%,n%,min%,j%

Fori=1Ton

Forj=0Ton-1-i

a（j+1）Thenm=a（j）:

a（j）=a（j+1）:

a（j+1）=m

18、输入一串字符，统计其中字母A（不区分大小写）出现的次数。

Dima（1To26）AsInteger,cAsString

le=Len（Text1）

Fori=1Tole

c=UCase（Mid（Text1,i,1））

Ifc=&

A&

Then

j=Asc（c）-65+1

a（j）=a（j）+1

Label2=&

A的个数为&

a（j）

19、已知有序数组a（），编程插入x（x的值为14）。

数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。

Dima（）,i%,m%,x%,n%

a=Array（4,6,12,20,31,63,75,89,100）

x=Val（Text1）

插入前&

Fori=0Ton

Form=0Ton

Ifx&

a（m）ThenExitFor

Nextm

ReDimPreservea（n+1）

Fori=nTomStep-1

a（i+1）=a（i）

a（m）=x

插入后&

Fori=0Ton+1

20、我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。

n=Int（Log

（2）/Log（1.008）+1）

Label1=n&

年后人数超过26亿&

求100以内的素数。

随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。

利用InputBox函数输入两个整数，求它们的最大公约数。

编程求200--400范围内5的倍数或7的倍数之和。

输入一年份，判断它是否为闰年，并显示有关信息。

计算100~300之间所有能被3和7整除的数之和。

某次歌曲大奖赛，有7个评委。

分别输入7个评委对某个参赛者的打分数，求出该参赛者的平均得分。

随机产生10个[30,100]内的整数，求最大值

及所对应的下标

随机产生10个[30,100]内的整数，求最小值及所对应的下标。

随机生成一个整型的二维数组，范围在[10,20]之间，以下三角形式输出该数组。

编写一个过程计算并输出区间[100，1000]内所有素数的和

随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。

利用随机函数生成一个4×

随机产生10个[30,100]内的整数，求最大值、最小值和平均值。

编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定。

编一个选择排序法子过程，对已知的若干整数按递减次序排列。

编一个冒泡排序法子过程，对已知的若干整数按递增次序排列。

输入一串字符，统计其中字母A（不区分大小写）出现的次数。

已知有序数组a（）。

我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。