VB复习题带答案1.docx

VB复习题带答案1.docx

《VB复习题带答案1.docx》由会员分享，可在线阅读，更多相关《VB复习题带答案1.docx（39页珍藏版）》请在冰豆网上搜索。

VB复习题带答案1

程序填空

1、'功能：

要求输入若干学生的成绩，计算平均分和高于平均分的人数，并将这两个数据放入数组的最后。

PrivateSubForm_Click（）

Dimmark（）AsInteger,i%,n%,aver

n=InputBox（"输入学生的人数"）

ReDimmark（1Ton）

aver=0

Fori=1Ton

mark（i）=Int（Rnd*101）

aver=aver+mark（i）

Nexti

'**********SPACE**********preserve

ReDim【?

】mark（1Ton+2）'增加两个元素,存放平均分和高于平均分的人数,原来的学生成绩仍保留

mark（n+1）=aver/n

mark（n+2）=0

Fori=1Ton

'**********SPACE**********

Ifmark（i）>mark（【?

】）Thenmark（n+2）=mark（n+2）+1n+1

Nexti

Fori=1Ton

Print"mark（";i;"）=";mark（i）

Nexti

Print"平均分=";mark（n+1）,"高于平均分人数=";mark（n+2）

EndSub

2、功能：

以下程序的功能如（图1）。

PrivateSubForm_Click（）

Dima%,b%,c%,d!

x1,x2,p,q,r

a=InputBox（"请输入a的值"）

b=InputBox（"请输入b的值"）

c=InputBox（"请输入c的值"）

d=b*b-4*a*c

p=-b/（2*a）

Ifd>=0Then

'**********SPACE**********

If【?

】Thend>0

r=Sqr（d）/（2*a）

x1=p+r

x2=p-r

Else

x1=p

x2=p

'**********SPACE**********

【?

】endif

Print"x1=";x1,"x2=";x2

'**********SPACE**********

【?

】else

q=Sqr（-d）/（2*a）

Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"

EndIf

EndSub

3、功能：

以下程序用于判断一个正整数（≥3）是否为素数。

PrivateSubForm_Click（）

n=InputBox（"请输入一个正整数（≥3）"）

k=Int（Sqr（n））

i=2

swit=0

'**********SPACE**********

DoWhilei<=kAnd【?

】swit=0

'**********SPACE**********

If【?

】Thennmodi=0

swit=1

Else

'**********SPACE**********

【?

】i=i+1

EndIf

Loop

Ifswit=0Then

Printn;"是一个素数"

Else

Printn;"不是素数"

EndIf

EndSub

4、功能：

下面的程序段，用于实现在一个nXm的矩阵中，找出值最大的元素所在的行和列，并输出其值及行号和列号。

PrivateSubForm_Click（）

Dimmat（）AsInteger

Dimnasinteger,mAsInteger

n=Val（InputBox（"请输入矩阵的行数"））

m=Val（InputBox（"请输入矩阵的列数"））

'**********SPACE**********

【?

】ReDimmat（n,m）AsInteger

Fori=1Ton

Forj=1Tom

mat（i,j）=InputBox（"请输入数组元素值"）

mat（i,j）=Val（mat（i,j））

Nextj

Nexti

Print"所建立的矩阵为"

Fori=1Ton

Forj=1Tom

Printmat（i,j）;

Nextj

Print

Nexti

Max=mat（1,1）

Fori=1Ton

Forj=1Tom

'**********SPACE**********

If【?

】Thenmat（I,j）>max

Max=mat（i,j）

col=j

'**********SPACE**********

【?

】row=i

EndIf

Nextj

Nexti

Print

Print"矩阵最大的元素的值为：

";mat（row,col）

Print"它所在的行号为：

";row;"列号为：

";col

EndSub

5、功能：

以下程序段用于实现矩阵转置，即将一个n×m的矩阵的行和列互换

PrivateSubForm_Click（）

Constn=3

Constm=4

Dima（n,m）,b（m,m）AsInteger

ForI=1Ton

Forj=1Tom

a（I,j）=Int（Rnd*90）+10

Nextj

'**********SPACE**********

【?

】nexti

ForI=1Ton

Forj=1Tom

'**********SPACE**********

【?

】b（j,i）=a（I,j）

Nextj

NextI

Print"矩阵转置前"

ForI=1Ton

Forj=1Tom

Printa（I,j）;

Nextj

'**********SPACE**********

【?

】print

NextI

Print"矩阵转置后"

ForI=1Tom

Forj=1Ton

Printb（I,j）;

Nextj

Print

NextI

EndSub

6、下面过程max（）用于求3个数中最大值，利用这个过程求5个数中最大值。

PrivateSubForm_Click（）

Print"5个数34、124、68、73、352的最大值是：

"

max1=max（34,124,68）

'**********SPACE**********

max1=【?

】max（max1,73,352）

Printmax1

EndSub

PublicFunctionmax（ByVala%,ByValb%,ByValc%）

'**********SPACE**********

If【?

】Thena>b

m=a

Else

m=b

EndIf

'**********SPACE**********

If【?

】Thenm>c

max=m

Else

max=c

EndIf

EndFunction

7、功能：

以下程序段利用随机函数生成15个10-100之间的整数，然后用选择法将其从小到大排序。

PrivateSubForm_Click（）

Constn=15

Dima（1Ton）AsInteger

DimiAsInteger,jAsInteger,tAsInteger,minAsInteger

Randomize

Fori=1Ton

'**********SPACE**********

a（i）=【?

】int（rnd*91+10）

Nexti

Fori=1Ton

Printa（i）;

Nexti

Print

Fori=1Ton-1

'**********SPACE**********

【?

】t=I

Forj=i+1Ton

Ifa（j）

Nextj

'**********SPACE**********

If【?

】Thent<>i

min=a（i）:

a（i）=a（t）:

a（t）=min

EndIf

Nexti

Fori=1Ton

Printa（i）;

Nexti

EndSub

8、功能：

下面的程序段用于实现以下功能：

利用冒泡法将一组整数从小到大排序。

PrivateSubForm_Click（）

Constn=15

Dima（1Ton）AsInteger,workAsBoolean

DimiAsInteger,jAsInteger,xAsInteger

Randomize

Fori=1Ton

a（i）=Int（90*Rnd）+10

Nexti

Fori=1Ton

Printa（i）;

Nexti

Print

'**********SPACE**********

Fori=nTo2【?

】step-1

work=True

Forj=1Toi-1

Ifa（j）>a（j+1）Then

x=a（j）:

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

a（j+1）=x

'**********SPACE**********

【?

】work=false

EndIf

Nextj

'**********SPACE**********

IfworkThen【?

】exitfor

Nexti

Fori=1Ton

Printa（i）;

Nexti

EndSub

9、功能：

以下程序的功能如（图1）。

PrivateSubForm_Click（）

DimsAsSingle,mAsInteger,p#

s=1

Form=1To10

'**********SPACE**********

p=【?

】n（m）

s=s+1/p

Nextm

Prints

EndSub

Functionn（k%）

p=1

Form=1Tok

'**********SPACE**********

p=【?

】p*m

Nextm

'**********SPACE**********

【?

】n=p

EndFunction

10、功能：

从键盘输入学生分数，统计学生总人数和各分数段人数，即优秀（90-100）、良好（80-89）、中等（70-79）、及格（60-69）、不及格（60以下）的人数。

PrivateSubForm_Click（）

Dimscore%,n1%,n2%,n3%,n4%,n5%

msg="请输入分数（-1结束）"

msgtitile="输入数据"

score=Val（InputBox（msg,msgtitle））

'**********SPACE**********

While【?

】score>=0andscore<=100

total=total+1

'**********SPACE**********

SelectCase【?

】score

CaseIs>=90

n1=n1+1

CaseIs>=80

n2=n2+1

CaseIs>=70

n3=n3+1

CaseIs>=60

n4=n4+1

CaseElse

n5=n5+1

'**********SPACE**********

【?

】endselect

score=Val（InputBox（msg,msgtitle））

Wend

Printn1,n2,n3,n4,n5,total

EndSub

11、功能：

以下程序段用于实现：

输入两个正整数m和n，求其最大公因数和最小公倍数。

PrivateSubForm_Click（）

Dima%,b%,num1%,num2%,temp

num1=InputBox（"请输入一个正整数"）

num2=InputBox（"请输入一个正整数"）

'**********SPACE**********

If【?

】Thennum1

temp=num1:

num1=num2:

num2=temp

EndIf

a=num1

b=num2

'**********SPACE**********

DoWhile【?

】b<>0

temp=aModb

a=b

'**********SPACE**********

【?

】b=temp

Loop

Print"最大公因数为：

";a

Print"最小公倍数为：

";num1*num2/a

EndSub

12、功能：

利用下面的过程求m!

和m*n

PrivateSubForm_Click（）

DimmAsInteger,nAsInteger

m=2

n=3

'**********SPACE**********

【?

】findm,n

EndSub

PrivateSubfind（xAsInteger,yAsInteger）

Dims,iAsInteger

'**********SPACE**********

【?

】s=1

Fori=1Tox

s=s*i

'**********SPACE**********

p=【?

】x*y

Nexti

Prints,p

EndSub

13、功能：

以下程序段用于求∑n!

PrivateSubForm_Click（）

DimsumAsInteger,nAsInteger

n=InputBox（"请输入一个正整数"）

sum=0

Fori=1Ton

'**********SPACE**********

sum=【?

】sum+mul（i）

Nexti

Printsum

EndSub

PrivateFunctionmul（ByValxAsInteger）

DimsAsInteger,iAsInteger

s=1

'**********SPACE**********

Fori=1To【?

】x

s=s*i

Nexti

'**********SPACE**********

【?

】mul=s

EndFunction

14、功能：

从键盘上输入一串字符，以"?

"结束，统计输入字符中的大、小写字母和数字的个数。

PrivateSubForm_Click（）

Dimch$,n1%,n2%,n3%

n1=0

n2=0

n3=0

ch=InputBox（"请输入一个字符"）

'**********SPACE**********

DoWhile【?

】ch<>?

SelectCasech

Case"a"To"z"

n1=n1+1

'**********SPACE**********

Case【?

】"A"To"Z"

n2=n2+1

Case"0"To"9"

n3=n3+1

EndSelect

ch=InputBox（"请输入一个字符"）

'**********SPACE**********loop

【?

】

Printn1,n2,n3

EndSub

15、功能：

下面的程序实现：

从键盘输入一个数字，将其插入一个有序数组中，插入后的数组仍保持有序。

PrivateSubForm_Click（）

Dima（10）AsInteger,xAsInteger

Fori=1To8

a（i）=2*i-1

Printa（i）;

Nexti

Print

x=InputBox（"请输入要插入的整数"）

'**********SPACE**********

【?

】a（0）=x

i=8

DoWhilea（i）>x

'**********SPACE**********

【?

】a（i+1）=a（i）

i=i-1

Loop

'**********SPACE**********

Ifi>0Then【?

】a（i+1）=x

Fori=1To9

Printa（i）;

Nexti

EndSub

16、功能：

过程suixian可以判断某一个数字是否是水仙花数，利用该过程找出三位数中所有水仙花数。

所谓"水仙花数"是指一个3位数，其各位数字立方和等于该数本身。

PrivateSubForm_Click（）

DimiAsInteger

Fori=100To999

'**********SPACE**********

【?

】suixiani

Nexti

EndSub

PublicSubsuixian（xAsInteger）

Dimi%,j%,k%

'**********SPACE**********

i=【?

】x\100

j=（x-i*100）\10

k=x-i*100-j*10

'**********SPACE**********

If【?

】ThenPrintxi^3+j^3+k^3=x

EndSub

17、功能：

输入一个数,若大于0,则显示"+"；若小于0，则显示"-"；若等于"0",则显示"零"。

PrivateSubCommand1_Click（）

x=Val（Text1.Text）

SelectCasex

'**********SPACE**********

【?

】CaseIs>0

Label1.Caption="+"

CaseIs<0

'**********SPACE**********

【?

】Label1.Caption="-"

'**********SPACE**********

【?

】case0

Label1.Caption="零"

EndSelect

EndSub

18、功能：

以下程序段用于计算数组中各元素的乘积。

PrivateSubCommand1_Click（）

'**********SPACE**********

Dima（1To5）【?

】,b%（2To10）,i%,t1#,t2#AsIinteger

Fori=1To5

a（i）=i

Nexti

Fori=2To10

b（i）=i

Nexti

t1=tim（a（））

t2=tim（b（））

Print"t1=";t1,"t2=";t2

EndSub

'**********SPACE**********

Functiontim（【?

】AsInteger）a（）

Dimt#,i%

t=1

Fori=LBound（a）ToUBound（a）

t=t*a（i）

Nexti

tim=t

EndFunction

19、功能：

本程序功能为，单击窗体，Form1的输出结果为

'A1=10B1=20

'A2=20B2=10

'**********SPACE**********

PublicSubSwap1【?

】xAsInteger,ByValyAsInteger）（ByVal

DimtAsInteger

t=x

x=y

y=t

EndSub

PublicSubSwap2（xAsInteger,yAsInteger）

DimtAsInteger

t=x

x=y

y=t

EndSub

PrivateSubForm_Click（）

DimaAsInteger,bAsInteger

a=10

b=20

'**********SPACE**********

【?

】a,b

Form1.Print"A1=";a,"B1=";b

a=10

b=20

'**********SPACE**********

【?

】a,b

Form1.Print"A2=";a,"B2=";b

EndSub

20、功能：

求表达式s=x/2!

+x^3/4!

+...+x^（2n-1）/（2n）!

的值，并在窗体上输出。

PrivateSubForm_Click（）

DimxAsSingle

DimnAsInteger

DimsumAsSingle

x=Val（InputBox（"PleaseinputxValue:

"））

n=Val（InputBox（"Pleaseinputainteger:

"））

'**********SPACE**********

sum=【?

】

Print"s=";sum

EndSub

Functions（nAsInteger,xAsSingle）AsSingle

DimiAsSingle,tAsLong

s=0

Fori=1Ton

t=1

Forj=1To2*i

'**********SPACE**********

【?

】

Nextj

'**********SPACE**********

s=s+x^（【?

】）/t

Nexti

EndFunction

21、功能：

写出程序运行后，单击窗体，Form1上显示的内容sum函数的功能为累加求和

'isum=1

'isum=