74vb.docx
- 文档编号:24369265
- 上传时间:2023-05-26
- 格式:DOCX
- 页数:74
- 大小:471.55KB
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
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
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 74 vb