大学计算机VB必考操作题汇总全.docx

大学计算机VB必考操作题汇总全.docx

《大学计算机VB必考操作题汇总全.docx》由会员分享，可在线阅读，更多相关《大学计算机VB必考操作题汇总全.docx（33页珍藏版）》请在冰豆网上搜索。

大学计算机VB必考操作题汇总全

PrivateSubCommand1_Click（）

DimxAsInteger,yAsInteger

Text1.Text=InputBox（"请输入年份"）

x=Val（Text1.Text）

Text3.Text=（xMod4）=0And（xMod100<>0）_

Or（xMod4）=0And（xMod400=0）

EndSub

PrivateSubCommand2_Click（）

DimxAsInteger,yAsInteger

Text2.Text=InputBox（"请输入月份"）

y=Val（Text2.Text）

SelectCasey

Case3To5

Text4.Text="春季"

Case6To8

Text4.Text="夏季"

Case9To11

Text4.Text="秋季"

Case1,2,12

Text4.Text="冬季"

EndSelect

EndSub

PrivateSubCommand3_Click（）

DimxAsInteger,yAsInteger

Text1.Text=InputBox（"请输入年份"）

x=Val（Text1.Text）

Text3.Text=（xMod4）=0And（xMod100<>0）_

Or（xMod4）=0And（xMod400=0）

Text2.Text=InputBox（"请输入月份"）

y=Val（Text2.Text）

SelectCasey

Case1,3,5,7,8,10,11

Text5.Text="31天"

Case4,6,9,12

Text5.Text="30天"

Case2

IfText1.Text=0Then

Text5.Text="29天"

Else

Text5.Text="28天"

EndIf

EndSelect

EndSub（判闰年）

PrivateSubCommand1_Click（）

Dimm%,n%,d%,sun%,no$,name$

no=InputBox（"输入学号"）

name=InputBox（"输入姓名"）

m=Val（Text1.Text）

n=Val（Text2.Text）

d=Val（Text3.Text）

sun=m+n+d

Ifm>95Andn>95Andd>95Then

Label5.Caption=name&"获一等奖学金"

ElseIfm>=90Andn>=90Andd>=90Then

Label5.Caption=name&"获二等奖学金"

ElseIfm>=88Andn>=88Andd>=88Then

Label5.Caption=name&"获三等奖学金"

Else

Label5.Caption=name&"没有奖学金"""

EndIf

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Label5.Caption=""

EndSub

PrivateSubCommand3_Click（）

End

EndSub（判奖学金）

PrivateSubCommand1_Click（）

Dimx!

f!

x=Val（InputBox（"请输入x的值"））

If（x<0Andx<>-3）Then

f=x^2+x-6

ElseIf（x>=0Andx<10Andx<>2Andx<>3）Then

f=x^2-5*x+6

Else

f=x^2-x-1

EndIf

MsgBox"f（x）的值是"&f

EndSub（求f（x））

PrivateSubCommand1_Click（）

Dimm!

n%,d!

m=Val（Text1.Text）

n=Val（Text2.Text）

d=n-110

Label5.Caption="按你的身高，标准体重为：

"&d&"公斤"

Ifm-d>5Then

Label6.Caption="你比较胖，请注意瘦身"

ElseIfm=dThen

Label6.Caption="你是标准体重"

Else

Label6.Caption="你比较瘦，请注意锻炼"

EndIf

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Label5.Caption=""

Label6.Caption=""

EndSub

PrivateSubCommand3_Click（）

End

EndSub（胖瘦）

PrivateSubCommand1_Click（）

Dimm$,n%,d!

m=Text1.Text

n=Val（Text2.Text）

d=Val（Text3.Text）

Ifm="男"Andn>=18Andn<=20Andd>1.63Then

Label5.Caption="符合征兵条件"

ElseIfm="女"Andn>=16Andn<=18Andd>1.6Then

Label5.Caption="符合征兵条件"

Else

Label5.Caption="不符合征兵条件"

EndIf

EndSub

PrivateSubCommand2_Click（）

End

EndSub（征兵）

PrivateSubCommand1_Click（）

Dimm!

n,r%,dj!

m=Val（Text1.Text）

n=Val（Text2.Text）

dj=Val（Text3.Text）

SelectCasem

Case9To12

r=90

Case12To16

r=80

Case16To21

r=70

EndSelect

Label5.Caption="打折率为：

"&Str（r）&"%"

Label6.Caption="共收款"&r*dj*n/100&"元"

EndSub

PrivateSubCommand2_Click（）

End

EndSub

PrivateSubForm_Load（）

Text1.Text=Time（）

EndSub（买水果）

PrivateSubCommand1_Click（）

Dimm%,n%,r%,dj!

m=Val（Text1.Text）

n=Val（Text2.Text）

dj=Val（Text3.Text）

SelectCasem

Case1To5

Ifn<=20Thenr=20Elser=30

Case7To9

Ifn<=20Thenr=5Elser=15

CaseElse

r=20

EndSelect

Label4.Caption="所订机票的优惠率为：

"&Str（r）&"%"

Label6.Caption="单张票价为"&（100-r）*dj/100&"元"&"，共收款"&（100-r）*dj*n/100&"元"

EndSub

PrivateSubCommand2_Click（）

End

EndSub

PrivateSubForm_Load（）

Text1.Text=Month（Date）

EndSub（机票优惠）

PrivateSubCommand1_Click（）

i=Val（Text1.Text）

j=Val（Text2.Text）

k=Val（Text3.Text）

m=Val（Text4.Text）

If（i

i=j:

j=c

If（i

i=k:

k=c

If（i

i=m:

m=c

If（j

j=k:

k=c

If（j

j=m:

m=c

If（k

k=m:

m=c

Text5.Text=i

Text6.Text=j

Text7.Text=k

Text8.Text=m

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

Text5.Text=""

Text6.Text=""

Text7.Text=""

Text8.Text=""

EndSub

PrivateSubCommand3_Click（）

End

EndSub（四个数排序）

PrivateSubCommand1_Click（）

i=Val（Text1.Text）

j=Val（Text2.Text）

k=Val（Text3.Text）

m=i

If（i

If（m

Text4.Text=m

EndSub

PrivateSubCommand3_Click（）

End

EndSub（三个数的大数）

PrivateSubCommand1_Click（）

i=Val（Text1.Text）

j=Val（Text2.Text）

k=Val（Text3.Text）

m=Abs（i）

If（m

If（m

Text4.Text=m

EndSub

PrivateSubCommand3_Click（）

End

EndSub（按绝对值求大数）

PrivateSubCommand1_Click（）

Dimm!

n!

r%,dj!

Text1.Text=InputBox（"请输入你的收入"）

m=Val（Text1.Text）

SelectCasem

Case1000To1500

r=2:

n=（m-1000）*r/100:

dj=m-n

Case1501To5000

r=3:

n=（m-1500）*r/100:

dj=m-n

CaseIs>5000

r=4:

n=（m-1500）*r/100:

dj=m-n

CaseElse

r=0:

n=0:

dj=m

EndSelect

Text2.Text=n&"元"

Text3.Text=dj&"元"

EndSub

PrivateSubCommand2_Click（）

End

EndSub（税金）

PrivateSubCommand1_Click（）

EndSub

PrivateSubForm_Click（）

DimaAsSingle,bAsSingle,cAsSingle

DimDAsSingle,x1AsSingle,x2AsSingle

a=Val（InputBox（"请输入一元二次方程的系数a"））

b=Val（InputBox（"请输入一元二次方程的系数b"））

c=Val（InputBox（"请输入一元二次方程的系数c"））

Ifa=0Then

a=InputBox（"请重新输入系数a"）

EndIf

D=b*b-4*a*c

IfD>=0Then

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

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

Print"x1=";Format（x1,"0.####"）

Print"x2=";Format（x2,"0.####"）

Else

Print"此方程在实数范围内无解"

EndIf

EndSub（求根）

PrivateSubCommand1_Click（）

DimstrAsString,s!

n%

n=0

PrintTab（5）;"成绩";Tab（20）;"等级"

Print

Fori=1To5

Text1.Text=InputBox（"请输入学生的成绩"）

IfVal（Text1）<0OrVal（Text1）>100Then

str="数据不合法"

n=n+1

Else

IfVal（Text1）>=60Then

str="合格"

Else

str="不合格"

EndIf

s=s+Val（Text1.Text）

EndIf

PrintTab（5）;Val（Text1）;Tab（20）;str

Nexti

Print

PrintTab（10）;"平均成绩为:

"&s/（5-n）

EndSub（计算成绩）

PrivateSubCommand2_Click（）

Dimi%,n%,sum!

sum=0:

n=0

Fori=101To500Step2

sum=sum+i

n=n+1

Nexti

Text1.Text=sum

Text2.Text=n

EndSub

PrivateSubCommand1_Click（）

Dimi%,n%,sum!

i=101:

sum=0:

n=0

DoUntili>500

sum=sum+i

n=n+1

i=i+2

Loop

Text1.Text=sum

Text2.Text=n

EndSub（所有奇数和他们的和）

PrivateSubForm_Click（）

n1=InputBox（"输入n"）

m1=InputBox（"输入m"）

Ifm1>n1Then'm>n

m=m1:

n=n1

Else

m=n1:

n=m1

EndIf

Do

r=mModn

Ifr=0ThenExitDo

m=n

n=r

Loop

Print

PrintTab（5）;m1;",";n1;"的最大公约数为:

";n

EndSub（最大公约数）

PrivateSubCommand1_Click（）

Dims!

f!

n%

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

s=0:

f=1

Fori=1Ton

f=i*i/（i+1）

s=s+f

Nexti

MsgBox"s=1*1/（1+1）+2*2/（2+1）+...="&s

EndSub（求和）

PrivateSubCommand1_Click（）

Dimi%,n#,t#,e#,x!

t1#

e=0'存放累加和结果

i=0'计数器

n=1'存放阶乘的值

t=1'级数第i项值

t1=1'存放x的幂

x=InputBox（"输入x的值：

"）

DoWhilet>0.00001

e=e+t

i=i+1

n=n*i

t1=t1*x

t=t1/n

Loop

Print"计算了";i;"项";"e的^x的值是";e

EndSub（求e的值）

PrivateSubCommand2_Click（）

'Dimx%,y%,z%

Forx=1To33

Fory=1To20

z=100-x-y

If9*x+15*y+z=300Then

Picture2.Printx,y,z

EndIf

Nexty

Nextx

EndSub

PrivateSubCommand1_Click（）

'Dimx%,y%,z%

Forx=1To33

Fory=1To20

Forz=3To99Step3

If（3*x+5*y+z\3=100）And（x+y+z=100）Then

Picture1.Printx,y,z

EndIf

Nextz

Nexty

Nextx

EndSub（白鸡问题）

PrivateSubCommand1_Click（）

Dimi!

n!

sum!

i=1:

sum=1:

n=1

DoUntilsum>20000

sum=sum*i

n=n+1

i=i+n

Loop

Text1.Text=sum

Text2.Text=n-1

EndSub（求和）

PrivateSubCommand1_Click（）

s=0

Fori=300To400

IfiMod3=0Then

num7=num7+1

s=s+i

EndIf

Nexti

Print"100-400之间能被3整除的数字和为：

";s

EndSub（求3的倍数和）

PrivateSubCommand1_Click（）

Dims!

f!

n%

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

s=0:

f=1

Fori=1Ton

s=s+1/f

f=f*i

Nexti

Print"s=1+1/2!

+1/3!

+...=";s

EndSub（求s的值）

PrivateSubCommand1_Click（）

num=0

num7=0

Fori=1To100

IfiMod7=0Then

num7=num7+1

num=num+i

EndIf

Nexti

Text1.Text=Str（num）

Text2.Text=Str（num7）&"个"

EndSub（求7的倍数）

PrivateSubCommand1_Click（）

Dims!

f!

n%

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

s=0:

f=1

Fori=1Ton

f=f*i

s=s+f/（i+1）

Nexti

Print"s=1!

/2+2!

/3+3!

/4+...=";s

EndSub（求s的值）

PrivateSubCommand1_Click（）

Dimi!

n!

sum!

f!

i=1:

sum=1:

n=1:

f=1

DoUntilf<0.000001

i=i*（n+1）

f=1/（i-1）

sum=sum+f

n=n+1

Loop

Text1.Text=sum

Text2.Text=n-1

EndSub（求和）

PrivateSubCommand1_Click（）

Dims!

f!

n%

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

s=0:

f=1

Fori=1Ton

f=2*i-1

s=s+1/f

Nexti

Print"s=1+1/3+1/5+1/7+...=";s

EndSub（求s的值）

PrivateSubForm_Click（）

DimpAsSingle

DimrAsSingle

DimnAsInteger

p=15000

r=0.05:

r1=0.08

n=0

Do

p=p*（1+r）

n=n+1

LoopUntiln=5

Do

p=p*（1+r1）

n=n+1

LoopUntilp>30000

Printn;"年后","产值=";p;"是原来的两倍以上"

EndSub（求产量翻番）

OptionBase1

PrivateSubmax1（ByValm1%,ByValm2%,ByValm3%,ByValm4%）

Max=m1

Ifm2>MaxThenMax=m2

Ifm3>MaxThenMax=m3

Ifm4>MaxThenMax=m4

Text5.Text=Max

EndSub

PrivateSubCommand1_Click（）

m1=Val（Text1.Text）

m2=Val（Text2.Text）

m3=Val（Text3.Text）

m4=Val（Text4.Text）

Callmax1（m1,m2,m3,m4）

EndSub（求最大数）

OptionBase1

PrivateFunctionmin（ByValm1%,ByV