程序汇总.docx
- 文档编号:7970060
- 上传时间:2023-01-27
- 格式:DOCX
- 页数:14
- 大小:24.08KB
程序汇总.docx
《程序汇总.docx》由会员分享,可在线阅读,更多相关《程序汇总.docx(14页珍藏版)》请在冰豆网上搜索。
程序汇总
一元二次方程求解
PrivateSubCommand1_Click()
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
s=b*b-4*a*c
Ifs<0Then
Print"方程无解"
Else
X1=(-b+Sqr(s))/2*a
X2=(-b-Sqr(s))/2*a
EndIf
PrintX1,X2
EndSub
杨辉三角1
PrivateSubCommand1_Click()
Dimy(10,10)AsInteger,i%,j%
y(1,1)=1
y(1,2)=1
y(2,2)=1
Printy(1,1)
Printy(1,2);y(2,2)
Fori=2To9
y(i,1)=1
Printy(i,1);
Forj=2Toi+1
y(i,j)=y(i-1,j)+y(i-1,j-1)
Printy(i,j);
Nextj
杨辉三角2
PrivateSubCommand1_Click()
DimnAsInteger,a(1To10)AsInteger,i%
a
(1)=1
IfText1.Text=""Then
Print"请输入打印的行数"
ExitSub
EndIf
n=Val(Text1.Text)
PrintTab(22);a
(1)
Fori=2Ton
Forj=iTo2Step-1
a(j)=a(j)+a(j-1)
Nextj
Forj=1Toi
PrintTab(19-3*i+6*j);a(j);
Nextj
Nexti
EndSub
2、选择法排序的过程调用。
PrivateSubCommand1_Click()
Dimshuzhu(10)AsInteger,i%,j%,k%,m%
Randomize
Print"======================"
Print"theoriginalnumber"
Fori=1To10'生成随机的数组,并显示
shuzhu(i)=Int(Rnd()*40)
PrintTab(i*5);shuzhu(i);
Nexti
Fori=2To10
Callchoose_sort(shuzhu(),12-i)'这个地方请思考,还可以如何修改
Nexti
Print"======================"
Print"thesortednumber"
Fori=1To10
PrintTab(i*5);shuzhu(i);
Nexti
EndSub
PrivateSubchoose_sort(a()AsInteger,xAsInteger)
imax=1
Forj=2Tox'注意内层循环的起始值和终值
Ifa(imax) Nextj t=a(imax)'交换每一轮选出来的最大值到当前数组的最后 a(imax)=a(x) a(x)=t EndSub 3、插入法排序的过程调用。 PrivateSubCommand2_Click() Dimshuzhu(10)AsInteger,i%,j%,k%,m% Randomize Print"======================" Print"theoriginalnumber" Fori=1To10'生成随机的数组,并显示 shuzhu(i)=Int(Rnd()*40) PrintTab(i*5);shuzhu(i); Nexti Print Fori=2To10 Callinsert_sort(shuzhu(),i) Nexti Print"======================" Print"thesortednumber" Fori=1To10 PrintTab(i*5);shuzhu(i); Nexti Print EndSub PrivateSubinsert_sort(a()AsInteger,xAsInteger) Dimi%,k%,m% m=a(x)'取出要插入元素 Fori=1Tox-1'找到应该插入的位置 Ifm Nexti Fork=xToiStep-1'注意这里要保留数值i a(k)=a(k-1) Nextk a(i)=m'插入元素 EndSub 删除字符。 函数过程实现。 Dima(10)AsInteger,i%,j%,k%,m% PrivateSubCommand1_Click() m=Text1.Text n=Text2.Text Text3.Text=Delestr(m,n) EndSub PublicFunctionDelestr(s1,s2)AsString Dimi%,j% j=Len(s2) i=InStr(s1,s2) DoWhilei>0 s1=Left(s1,i-1)+Mid(s1,i+j) i=InStr(s1,s2) Loop Delestr=s1 EndFunction 1、插入法排序 Dima(10)AsInteger,i%,j%,k%,m% Print"======================" Print"theoriginalnumber" Randomize Fori=1To10'生成随机的数组,并显示 a(i)=Int(Rnd()*40) Print"a(";i;")=";a(i) Nexti Forj=2To10 m=a(j)'取出要插入元素 Fori=1Toj-1'找到应该插入的位置 Ifm Nexti Fork=j-1ToiStep-1'注意这里要保留数值i a(k+1)=a(k) Nextk a(i)=m'插入元素 Nextj Print"======================" Print"thesortednumber" Fori=1To10 Print"a(";i;")=";a(i) Nexti 、选择法排序,方法一 PrivateSubCommand1_Click() Dima(10)AsInteger Dimi%,j% Randomize'产生真正随机数 Fori=1To10 a(i)=Int(Rnd()*71+30) Print"a(";i;")=";a(i)'注意书写的格式 Nexti Fori=1To9 imax=i Forj=i+1To10'注意内层循环的起始值和终值
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序 汇总