74vb.docx
《74vb.docx》由会员分享，可在线阅读，更多相关《74vb.docx（74页珍藏版）》请在冰豆网上搜索。
74vb
001
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimxAsString,yAsString
DimiAsInteger
Dimtemp1AsString,temp2AsString
x=Text1.Text
y=""
Fori=1Tolen（Text1.Text）
temp1=Mid（x,i,1）
temp2=lcase（temp1）
y=y+temp2
Nexti
Text2.Text=y
EndSub
002
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimiAsInteger,aAsInteger,bAsInteger,cAsInteger
Fori=100To999
a=i\100
b=（i-a*100）\10
c=iMod10
Ifa^3+b^3+c^3=iThenPrinti
Nexti
EndSub
003
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dims（9）AsSingle
Fori=0To9
S（i）=Val（InputBox（"请输入一个数"））
Nexti
Fori=9To0Step-1
Prints（i）
Nexti
EndSub
004
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dimh,m,s,ssAsInteger
ss=Val（text1.text）
h=ss\3600
m=（ss-h*3600）\60
s=（ss-h*3600）Mod60
Label1.Caption=CStr（h）
Label2.Caption=CStr（m）
Label3.Caption=CStr（s）
EndSub
005
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dima,b,c,maxAsInteger
a=Val（Text1.Text）
b=Val（Text2.Text）
c=Val（Text3.Text）
Ifa>bThenmax=aElsemax=b
Ifc>maxThenmax=c
Label3.Caption=CStr（max）
EndSub
006
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dimi,jAsInteger
Fori=1To4
PrintTab（6-i）;
Forj=1To4
Print“*”;
Nextj
Print
Nexti
EndSub
007题目要求不清
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dimx,sAsSingle
x=Val（Text1.Text）
If①Then
s=4*②
Else
s=4*x
EndIf
Label1.Caption=CStr（s）
EndSub
008
'请不要更改源程序的结构，删除原题里的①、②。
填写正确的代码，使程序完善
'共有56人要乘船，大船限乘6人，小船限乘4人，
'坐大船每条10元，坐小船每条8元。
'打开"工程1.vbp"填空完成程序，使得当单击"显示所有可能的乘船方式"按钮时，
'输出全部可能的大船数、小船数及所需要的钱数。
PrivateSubCommand1_Click（）
Dimi,jAsInteger'变量i表示大船数,j表示小船数
DimmAsInteger'变量m表示所需钱数
Print"大船数","小船数","所需钱数"
Fori=1To10
j=Int（（56-i*6）/4）+1
m=j*8+i*10
Printi,j,m
Nexti
EndSub
009
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
Dima,b,c,x,nAsInteger
PrivateSubCommand1_Click（）
Randomize
Label6.Caption="第"&n&"道题"
a=Int（Rnd*10）
b=Int（Rnd*10）
Label1.Caption=a
Label2.Caption=b
n=n+1
EndSub
PrivateSubCommand2_Click（）
c=a+b
x=Val（text1.text）
Ifc=xThen
Label3.Caption="正确"
Else
Label3.Caption="错误"
EndIf
EndSub
PrivateSubForm_Load（）
N=1
EndSub
010
'请不要更改源程序的结构，删除原题里的①、②。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Label1.top=command1.top
EndSub
PrivateSubCommand2_Click（）
Label1.top=command2.top
EndSub
011
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dima,b,c,pAsSingle
a=Val（Text1.Text）
b=Val（text2.text）
c=Val（Text3.Text）
p=b*b-4*a*c
Ifp>=0Then
X1=（-b+Sqr（p））/（2*a）
X2=（-b-Sqr（p））/（2*a）
Print"X1=";X1
Print"X2=";X2
Endif
Print"该方程无实数根"
EndIf
EndSub
012
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimxAsSingle,yAsSingle
a=3:
b=-5
x=Val（InputBox（"请输入x的值"））
Ifx<0Then
y=x+5*a
Else
y=x-2*b
endif
Print"y=";CStr（y）
EndSub
013
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger
DimbaiAsInteger,shiAsInteger
DimgAsInteger
a=Val（text1.text）
bai=a\100
shi=（a-bai*100）\10
g=aMod10
b=g*100+shi*10+bai
text2.text=CStr（b）
EndSub
014
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimsAsSingle
DimqAsSingle
DimaAsSingle
DimbAsSingle
DimcAsSingle
a=Val（InputBox（"请输入边长a的值：
"））
b=Val（InputBox（"请输入边长b的值：
"））
c=Val（InputBox（"请输入边长c的值：
"））
q=（a+b+c）/2
s=sqr（q*（q-a）*（q-b）*（q-c））
Prints
EndSub
015
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimyearAsInteger
year=Val（InputBox（"请输入年号:
"））
If（（yearMod4=0）And（yearMod100<>0））or（yearMod400=0）Then
Print“是闰年”
Else
Print“不是闰年”
EndIf
EndSub
016
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimWuyuanAsInteger
DimYiyuanAsInteger
DimWujiaoAsInteger
ForWuyuan=1To20
ForYiyuan=1To95
Wujiao=100-Wuyuan–yiyuan
IfWuyuan*5+Yiyuan*1+Wujiao*0.5=100Then
Print"Wuyuan="&Wuyuan&",Yiyuan="&Yiyuan&",Wujiao="&Wujiao
Endif
NextYiyuan
NextWuyuan
EndSub
017
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimxAsSingle
DimcostAsSingle
x=Val（InputBox（"请输入苹果公斤数：
"））
Ifx<=2Then
cost=x*6.8
Else
cost=x*6.8*0.8
endif
Printcost
EndSub
018
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PublicFunctionFib（nAsInteger）AsInteger
If（n=1）Or（n=2）Then
Fib=1
Else
Fib=Fib（n-1）+Fib（n-2）
Endif
EndFunction
PrivateSubCommand1_Click（）
DimSAsInteger
S=Fib（10）
Print"S="&CStr（S）
EndSub
019
020
'请不要更改源程序的结构，删除原题里的①、②。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dima,b,cAsinteger
Leta=Val（Text1.Text）
Letb=Val（Text2.Text）
Letc=Val（Text3.Text）
If（a+b>c）And（a+c>b）And（b+c>a）Then
LetText4.Text="OK"
Else
LetText4.Text="NO"
Endif
EndSub
021
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dimi,a,bAsInteger
Fori=100To999
a=i\100
b=（i-a*100）\10
c=i-a*100-b*10
Ifa*a*a+b*b*b+c*c*c=iThen
PrintCStr（i）
Endif
Nexti
EndSub
022
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dimh,x,yasSingle
Letx=Val（Text1.Text）
Leth=Val（Text2.Text）
Lety=x-（h/100）*0.5
LetText3.Text=cstr（y）
EndSub
023
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Constpi=3.14
dimr,sasSingle
r=Val（T1.text）
s=pi*r*r
T2.Text=cstr（s）
EndSub
024
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dimn,iAsLong
DimyesAsboo
Letn=Val（Text1.Text）
Letyes=True
Fori=2Ton\2
IfnModi=0Then
Letyes=②
EndIf
Nexti
IfyesThen
LetText2.Text="yes"
Else
LetText2.Text="no"
EndIf
EndSub
025
''请不要更改源程序的结构，删除原题里的①、②、③、④。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimaAsInteger
DimbAsInteger
DimtAsInteger
a=Val（Text1.Text）
b=Val（Text2.Text）
t=a
a=b
b=t
Text1.Text=a
Text2.Text=b
EndSub
026
'请不要更改源程序的结构，删除原题里的①、②、③、④。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimaAsInteger
a=Val（text1.text）
Ifamod2=0Then
Label1.③="偶数"
Else
Label1.Caption="奇数"
Enidif
EndSub
027
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubForm_Click（）
DimiAsInteger
DimjAsInteger
Print
Fori=-3To0
PrintTab（3）;
Forj=1To3step1
Print“*”;
Next
Print"*"
Next
EndSub
028
'请不要更改源程序的结构，删除原题里的①、②、③、④。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimsAsSingle's计算存款
DimyAsInteger'y计算年份
DimrAsSingle'r是年利率
s=①
y=0
r=Val（InputBox（"输入年利率","数据输入框"））
DoWhiles<2000
y=y+1
s=s*（1+r）
Loop
Printy;"年以后，存款可以达到2000元"
EndSub
029
'请不要更改源程序的结构，删除原题里的①、②、③、④。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimtzAsInteger'tz是桃子数
DimtsAsInteger'ts是天数
tz=1
Forts=1To9
tz=（tz+1）*2
Nextts
Print"最初共有桃子"&tz
EndSub
030
'请不要更改源程序的结构，完善程序，将①替换为正确的代码
PrivateSubCommand1_Click（）
①=Text1.Text
EndSub
031
'请不要更改源程序的结构，删除原题里的①、②。
填写正确的代码，使程序完善
PrivateSubForm_Load（）
Timer1.Interval=1000
①
EndSub
PrivateSubTimer1_timer（）
②
EndSub
032
'请不要更改源程序的结构，删除原题里的①、②。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimxAsSingle
x=Val（InputBox（"请输入x的值！
"））
①
y=0.8*x
Else
②
y=0.7*x
Else
Print"输入的数据出界！
"
EndIf
EndIf
Printx,y
EndSub
033
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimxAsInteger
DimsAsInteger
DimiAsInteger
Fori=1①
x=Val（InputBox（"NO."&i））
②
PrintCStr（x）
Nexti
Print"total:
"&③
EndSub
034
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimwAsInteger'w是行李重量
DimpjAsInteger'pj是机票价格
DimfyAsSingle
w=Val（Text1.Text）
pj=Val（Text2.Text）
Ifw<=20Then
①
Else
fy=（w-20）*pj*0.015
②
Text3.Text=③
EndSub
035
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
Dima（100）AsInteger
PrivateSubCommand1_Click（）
DimtotalAsInteger
①
Fori=1To100
Ifa（i）Mod2=0Then
②
EndIf
Nexti
PrintCStr（total）
EndSub
PrivateSubForm_Load（）
Randomize
Fori=1To100
③=Int（Rnd*1000）
Nexti
EndSub
036
'请不要更改源程序的结构，删除原题里的①、②、③、④。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dima（10）AsInteger
Fori=1To10
a（i）=Int（Rnd*1000）
Nexti
Fori=1To①
Forj=②
Ifa（i）③a（j）Then
a（0）=a（i）
a（i）=a（j）
④
EndIf
Nextj
Nexti
Fori=1To10
PrintCStr（a（i））
Nexti
EndSub
037
''请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimxAsLong
Forx=67008To67998Step10
If（xMod67=0）Or（xMod78=0）Then
Printx
EndIf
Nextx
EndSub
038
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubForm1_Click（）
DimtzAsSingle,sgAsSingle
DimbzAsSingle
tz=Val（InputBox（"请输入您的体重：
"））
sg=Val（InputBox（"请输入您的体重：
"））
bz=tz/sg^2
Ifbz>25Then
MsgBox（"您的身材偏胖，需要加强锻炼！
"）
Else
Ifbz<25Then
MsgBox（"您的身材偏瘦，需要补充营养！
"）
Else
MsgBox（"您的身材真棒！
"）
EndIf
EndIf
EndSub
PrivateSu
升级会员 