vb程序填空瑞.docx

vb程序填空瑞.docx

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

vb程序填空瑞

-----------------------------------------------------

'功能：

要求输入若干学生的成绩，计算平均分和高于平均分的

'人数，并将这两个数据放入数组的最后。

'-------------------------------------------------------

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**********

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）+1

Nexti

Fori=1Ton

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

Nexti

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

EndSub

'功能：

下面的程序段，用于实现在一个nXm的矩阵中，找出值最

'大的元素所在的行和列，并输出其值及行号和列号。

'-------------------------------------------------------

2.PrivateSubForm_Click（）

Dimmat（）AsInteger

Dimnasinteger,mAsInteger

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

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

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

【?

】

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【?

】Then

Max=mat（i,j）

col=j

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

【?

】

EndIf

Nextj

Nexti

Print

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

";mat（row,col）

Print"它所在的行号为：

";row;"列号为：

";col

EndSub

-------------------------------------------------------

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

'-------------------------------------------------------

3.PrivateSubForm_Click（）

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

"

max1=max（34,124,68）

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

max1=【?

】

Printmax1

EndSub

PublicFunctionmax（ByVala%,ByValb%,ByValc%）

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

If【?

】Then

m=a

Else

m=b

EndIf

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

If【?

】Then

max=m

Else

max=c

EndIf

EndFunction

【程序填空】

'-------------------------------------------------------

'功能：

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

'-------------------------------------------------------

4.PrivateSubForm_Click（）

DimsAsSingle,mAsInteger,p#

s=1

Form=1To10

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

p=【?

】

s=s+1/p

Nextm

Prints

EndSub

Functionn（k%）

p=1

Form=1Tok

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

p=【?

】

Nextm

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

【?

】

EndFunction

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：

从键盘输入学生分数，统计学生总人数和各分数段人数，

'即优秀（90-100）、良好（80-89）、中等（70-79）、

'及格（60-69）、不及格（60以下）的人数。

'-------------------------------------------------------

5.PrivateSubForm_Click（）

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

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

msgtitile="输入数据"

score=Val（InputBox（msg,msgtitle））

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

While【?

】

total=total+1

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

SelectCase【?

】

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**********

【?

】

score=Val（InputBox（msg,msgtitle））

Wend

Printn1,n2,n3,n4,n5,total

【程序填空】

'-------------------------------------------------------

'功能：

以下程序段用于求∑n!

'-------------------------------------------------------

6.PrivateSubForm_Click（）

DimsumAsInteger,nAsInteger

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

sum=0

Fori=1Ton

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

sum=【?

】

Nexti

Printsum

EndSub

PrivateFunctionmul（ByValxAsInteger）

DimsAsInteger,iAsInteger

s=1

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

Fori=1To【?

】

s=s*i

Nexti

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

【?

】

EndFunction

EndSub

-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：

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

"结束，统计输入字符中的

'大、小写字母和数字的个数。

'-------------------------------------------------------

7.PrivateSubForm_Click（）

Dimch$,n1%,n2%,n3%

n1=0

n2=0

n3=0

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

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

DoWhile【?

】

SelectCasech

Case"a"To"z"

n1=n1+1

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

Case【?

】

n2=n2+1

Case"0"To"9"

n3=n3+1

EndSelect

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

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

【?

】

Printn1,n2,n3

EndSub

------------------------------------------------------

'8.【程序填空】

'-------------------------------------------------------

'8.功能：

过程suixian可以判断某一个数字是否是水仙花数，利用

'该过程找出三位数中所有水仙花数。

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

'该数本身。

'-------------------------------------------------------

PrivateSubForm_Click（）

DimiAsInteger

Fori=100To999

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

【?

】

Nexti

EndSub

PublicSubsuixian（xAsInteger）

Dimi%,j%,k%

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

i=【?

】

j=（x-i*100）\10

k=x-i*100-j*10

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

If【?

】ThenPrintx

EndSub

-------------------------------------------------------

'9.【程序填空】

'-------------------------------------------------------

'功能：

输入数字1-7,显示其对应是星期几（例:

输入1,显示星期日,

'如果输入其它内容，一律显示"输入错误"）

'-------------------------------------------------------

PrivateSubCommand1_Click（）

dimxasinteger

dimyasstring

x=val（text1.text）

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

【?

】

case1

y="今天是星期日"

case2

y="星期一"

case3

y="星期二"

case4

y="星期三"

case5

y="星期四"

case6

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

【?

】

case7

y="星期六"

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

【?

】

y="输入错误"

endselect

Text2.Text=y

EndSub

-------------------------------------------------------

'10.【程序填空】

'-------------------------------------------------------

'功能：

求1!

+2!

+……+10!

的值。

'-------------------------------------------------------

PrivateSubForm_Click（）

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

【?

】

s=1

ForI=2To10

t=t*I

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

【?

】

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

【?

】

Prints

EndSub

------------------------------------------------------

'11.【程序填空】

'-------------------------------------------------------

'功能：

求A,B,C三个数的最大值。

'-------------------------------------------------------

PrivateSubCommand1_Click（）

A=Val（Text1.Text）

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

【?

】

C=Val（Text3.Text）

IfA>BAndA>CThen

MAXDATE=A

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

ElseIf【?

】Then

MAXDATE=B

Else

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

【?

】

EndIf

Label1.Caption=MAXDATE&"是最大值"

EndSub

12.程序填空】

'-------------------------------------------------------

'功能：

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

'则显示"-"；若等于"0",则显示"零"。

'-------------------------------------------------------

PrivateSubCommand1_Click（）

x=Val（Text1.Text）

SelectCasex

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

【?

】

Label1.Caption="+"

CaseIs<0

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

【?

】

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

【?

】

Label1.Caption="零"

EndSelect

EndSub

------------------------------------------------------

'13.【程序填空】

'-------------------------------------------------------

'功能：

输入任何一个英文字母x,

'若x的值为"a","c","d-f",则显示x的大写字母；

'若x的值为"m","o","p-z",则显示x的小写字母；

'若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。

'-------------------------------------------------------

PrivateSubCommand1_Click（）

x=Text1.Text

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

【?

】

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

Case【?

】

Label1.Caption=UCase（x）

Case"m","o","p"To"z"

Label1.Caption=LCase（x）

CaseElse

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

【?

】

EndSelect

EndSub

14.【程序填空】

'-------------------------------------------------------

'功能：

根据输入的学习成绩,分别显示优秀（90分以上）,良好

'（75分以上）,及格（60分以上）,不及格几个等级。

'-------------------------------------------------------

PrivateSubCommand1_Click（）

x=Val（Text1.Text）

Ifx>=90Then

Label1.Caption="优秀"

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

ElseIf【?

】Then

Label1.Caption="良好"

ElseIfx>=60Then

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

【?

】

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

【?

】

Label1.Caption="不及格"

EndIf

End'-------------------------------------------------------

15.【程序填空】

'-------------------------------------------------------

'在窗体上画1个命令按钮，其名称为Command1，然后编写如下事

'件过程,程序运行后，单击命令按钮，将产生100个0-1000以内

'的随机整数，放入数组arr中，然后查找并输出这100个数中的

'最大值Max和最小值Min，

'-------------------------------------------------------

PrivateSubCommand1_Click（）

Dimarr（1To100）AsInteger,i%,Max%,Min%

Fori=1To100

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

arr（i）=【?

】

Nexti

Max=arr

（1）

Min=arr

（1）

Fori=1To100

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

If【?

】Then

Max=arr（i）

EndIf

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

If【?

】Then

Min=arr（i）

EndIf

Nexti

Print"Max=";Max,"Min=";Min

EndSub

EndSub

'-------------------------------------------------------

'16.【程序填空】

'-------------------------------------------------------

'功能：

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

'-------------------------------------------------------

PrivateSubCommand1_Click（）

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

Dima（1To5）【?

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

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）

Dimt#,i%

t=1

Fori=LBound（a）ToUBound（a）

t=t*a（i）

Nexti

tim=t

EndFunction

'17.功能：

以下程序段用于计算n的阶乘：

n！

。

（1！

=1）

'----------------------------------

PublicFunctionfac（nAsInteger）AsInteger

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

Ifn=【?

】Then

fac=1

Else

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

fac=n*fac（【?

】）

EndIf

EndFunction

PrivateSubCommand1_Click（）

Print"fac（4）=";fac（4）

EndSub

-------------------------------------------------------

'18.【程序填空】

'-------------------------------------------------------

'题目：

已知用inputbox函数输入两个数x和y，比较它们的大小，

'使得x大于y。

'-------------------------------------------------------

PrivateSubForm_Click（）

DimxAsSingle,yAsSingle

x=InputBox（"输入数据1：

"）

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

y=【?

】

Print"x值","y值"

Printx,y

Ifx