编程实例Word文档下载推荐.docx
- 文档编号:4074136
- 上传时间:2023-05-02
- 格式:DOCX
- 页数:30
- 大小:23.09KB
编程实例Word文档下载推荐.docx
《编程实例Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《编程实例Word文档下载推荐.docx(30页珍藏版)》请在冰点文库上搜索。
计算落体
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
ConstgAsSingle=9.81
DimvAsSingle,oAsSingle,tAsSingle,sAsSingle
v=InputBox("
初?
速ù
度è
"
o=InputBox("
角?
t=2*v*Math.Sin(o*Math.PI/180)/g
s=v*Math.Sin(2*o*Math.PI/180)/g
MsgBox("
落?
地?
所ù
需è
时骸?
间?
t&
落?
运?
动ˉ的?
射?
程ì
s)
EndClass
实验30
(2)
随机产生奇偶数并输出
DimxAsInteger
x=Int(Rnd()*100)
IfxMod2=0Then
MsgBox(x&
是?
偶?
数簓"
Else
奇?
EndIf
比较三个数的大小并输出
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
DimaAsSingle,bAsSingle,cAsSingle,xAsSingle,yAsSingle
请?
a"
b"
c"
Ifa>
bThen
x=a
y=b
x=b
y=a
Ifc>
aThen
x=c
Ifc<
y=c
最?
大洙?
x&
最?
小?
计算当T<
120时的计算(循环语句)
DimtAsSingle,fAsSingle
t=InputBox("
t"
Ift<
120Then
f=0.06*t+2
f=0.06*t+2="
f)
f=0.06*t*0.85
f=0.06*t*0.85="
判断成绩等级
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
DimyAsString
x=InputBox("
成é
绩¨
Ifx>
=90Then
y="
ElseIfx>
=80Then
=70Then
=60Then
D"
E"
等台?
级?
为a"
Case选择
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
DimxAsSingle,yAsSingle
SelectCasex
CaseIs<
=-1
y=x-1
=2
y=2*x
=10
y=x*(x+2)
CaseElse
y=0
EndSelect
y="
计算算数根
PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click
Dimx1AsSingle,x2AsSingle,xAsSingle
x=b^2-4*a*c
=0Then
x1=-b+Math.Sqrt(x)/2/a
x2=-b-Math.Sqrt(x)/2/a
x1=Math.Sqrt(-x)/2/a
x2=-Math.Sqrt(-x)/2/a
-b/2/a&
x1&
ix2="
x2&
i"
循环语句
实验31
Dima(19)AsInteger
DimiAsInteger
DimnAsInteger
DimsAsSingle
s=0
n=InputBox("
n"
Fori=1Ton
s=s+1/(i*(i+1))
Next
s="
求下标是奇偶数的代码
Dima(10)AsInteger
DimyAsInteger
x=0
Fori=1To10
InputBox("
第台?
i&
个?
IfiMod2=0Then
x=x+a(i)
y=y+a(i)
下?
标括?
为a奇?
数簓的?
元a素?
和í
y&
为a偶?
x)
画星星图
DimrAsInteger,sAsInteger,cAsInteger,y(5)AsString,jAsInteger,ysAsString
ys="
r=1
DoWhiler<
=4
c=10-r:
s=1
y(r)=y(r)&
Space(c+s)
DoWhiles<
=2*r-1
*"
s=s+1
Loop
r=r+1
Forj=1To4
ys=ys&
y(j)&
Chr(10)
MsgBox(ys)
画图
DimrAsInteger,sAsInteger,cAsInteger,y(5)AsString,ysAsString
r=4
DoWhiler>
=1
r=r-1
随机产生几个数并输出相关条件的个数
DimsAsString
s="
Fori=0To19
a(i)=Int(Rnd()*100)
s=s&
a(i)&
"
Ifa(i)>
50Then
x=x+1
ElseIfa(i)<
10Then
y=y+1
MsgBox(s&
vbCrLf&
50万?
元a以?
上?
的?
业唉?
务?
人?
数簓为a"
10万?
随机产生并排序
PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.Click
'
Dima(19)AsInteger
DimtAsInteger
DimjAsInteger
DimxAsString
x="
a(i)=Int(Rnd()*100)
x=x&
Forj=19Toi+1Step-1
Ifa(j)<
a(j-1)Then
t=a(j)
a(j)=a(j-1)
a(j-1)=t
y=y&
PrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.Click
DimaAsInteger
Dimb(9)AsInteger
DimsAsInteger
DimuAsString
Randomize()
a=Int(Rnd()*90000000+10000000)
Fori=0To7
s=Mid(a,i+1,1)
b(s)=b(s)+1
u="
8位?
数簓为a:
阰("
a&
)"
vbCrLf
Fori=0To9
u=u&
出?
现?
次?
数簓:
阰"
b(i)&
MsgBox(u)
PrivateSubButton9_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton9.Click
Dimb(19)AsInteger
b(i)=Int(Rnd()*90000000+10000000)
s=s&
MsgBox(s)
PrivateSubButton10_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton10.Click
DimtAsSingle
i=1
t=1/(i*(i+1))
DoWhilet>
=0.000001
s=s+t
i=i+1
PrivateSubButton11_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton11.Click
Do
LoopWhilet>
PrivateSubButton14_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton14.Click
Dima()AsInteger
数簓组哩?
数簓量?
ReDima(n)
a(i)=InputBox("
PrivateSubButton15_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton15.Click
DimtAsString
Dima()AsString
DimlAsInteger
t="
s=InputBox("
要癮排?
序ò
字?
符?
串?
l=Len(s)
ReDima(l)
Fori=1Tol
a(i)=Mid(s,i,1)
Forj=lToi+1Step-1
y=y&
a(i)
PrivateSubButton16_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton16.Click
Dimi_0AsInteger
Dimj_0AsInteger
Dimmfz_bz(9,9)AsString
Dimmfz(9,9)AsString
魔§
方?
阵ó
阶×
数簓N"
Ifn<
3Orn>
9OrnMod2<
>
1Then
您ú
数簓N不?
在ú
范?
围§
内ú
,?
3-9之?
ExitSub
始?
化ˉ
Fori=1To9
Forj=1To9
mfz_bz(i,j)=0
mfz(i,j)="
Nextj
Nexti
mfz(1,n\2+1)=1
mfz_bz(1,n\2+1)=1
i_0=1
j_0=n\2+1
Forysz=2Ton*n
Ifmfz(i_0,j_0)>
nAnd(mfz(i_0,j_0)Modn=0)Then
i=i_0+1
j=j_0
ElseIfi_0=1Then
i=n
j=j_0+1
ElseIfj_0=nThen
i=i_0-1
j=1
Ifmfz_bz(i,j)=1Then
mfz(i,j)=ysz
mfz_bz(i,j)=1
i_0=i
j_0=j
Nextysz
排?
列完?
毕?
t=mfz(i,j)
Format(t,"
{0,4}"
实验33
计算油钱
DimtAsInteger,fAsSingle,xAsString
t=Val(TextBox1.Text)
f=7.69*t
x=Str$(f)+"
元a"
Label2.Text=x
TextBox1.Focus()
PrivateSubForm1_Load(ByValsenderAsObject,ByValeAsSystem.EventArg
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 编程 实例