计算机代码.docx
- 文档编号:9772146
- 上传时间:2023-02-06
- 格式:DOCX
- 页数:9
- 大小:15.30KB
计算机代码.docx
《计算机代码.docx》由会员分享,可在线阅读,更多相关《计算机代码.docx(9页珍藏版)》请在冰豆网上搜索。
计算机代码
数组
(1)
注:
text1的multiline要改成ture
OptionBase1
Dima()AsInteger,iAsInteger,jAsInteger,v1AsInteger
PrivateSubCommand1_Click()
v1=InputBox("请输入方阵数")
ReDima(v1,v1)
Fori=1Tov1
Forj=1Tov1
a(i,j)=10+Int(Rnd*90)
Picture1.Printa(i,j);
Nextj
Picture1.Print
Nexti
EndSub
PrivateSubCommand2_Click()
Dimsun1AsInteger
Fori=1Tov1
sum1=0
Forj=1Tov1
sum1=sum1+a(i,j)
Nextj
Text1.Text=Text1.Text&sum1&vbCrLf
Nexti
EndSub
PrivateSubCommand3_Click()
Dimsum2AsInteger
Forj=1Tov1
sum2=0
Fori=1Tov1
sum2=sum2+a(i,j)
Nexti
Text2.Text=Text2.Text&sum2&""
Nextj
EndSub
PrivateSubCommand4_Click()
Dimsum3AsInteger
Fori=1Tov1
Forj=1Tov1
Ifi+j=v1+1Ori=jThensum3=sum3+a(i,j)
Nextj
Nexti
Text3.Text=sum3
EndSub
数组
(2)
Sort(i)=10+int(rnd*90)
i10
sort(i)>sort(j)
数组(3)
第一种先输入n的值,然后点击按钮则同时在picture和text中出现两个矩阵
注:
text2的multiline属性要改为ture
Optionbase1
PrivateSubCommand1_click()
Dima()asinteger
Dimnasinteger,iasinteger,jasinteger,tempasinteger
n=val(text2.text)
redima(n,n)
fori=1ton
forj=iton
a(i,j)=10+int(rnd*90)
picture1.printa(i,j);
nextj
picture1.print
nexti
fori=1ton
forj=1ton
temp=a(I,j)
a(I,j)=a(j,i)
a(j,i)=temp
nextj
nexti
fori=1ton
forj=1ton
text1.text1=text1.text&a(I,j)&“”
nextj
text1.text=text1.text&vbcrlf
nexti
第二种输入n后picture生成矩阵,点下按钮则进行转置
注意同上
OptionBase1
Dima()AsInteger
DimnAsInteger,iAsInteger,jAsInteger,tempAsInteger
PrivateSubText2_change()
n=Val(Text2.Text)
ReDima(n,n)
Fori=1Ton
Forj=1Ton
a(i,j)=10+Int(Rnd*90)
Picture1.Printa(i,j);
Nextj
Picture1.Print
Nexti
EndSub
PrivateSubCommand1_Click()
Fori=1Ton
Forj=iTon
temp=a(i,j)
a(i,j)=a(j,i)
a(j,i)=temp
Nextj
Nexti
Fori=1Ton
Forj=1Ton
Text1.Text=Text1.Text&a(i,j)&""
Nextj
Text1.Text=Text1.Text&vbCrLf
Nexti
EndSub
过程
(1)
sum=sum+score(i)
round(av,1)
a()assingle,maxvassingle,minvassingle
forI=2toubound(a,1)
过程
(2)
2n-1
Exitfunction
true
val(text1.text)
3
Judge(i)
i=i+2
过程(3)
PrivateSubCommand1_Click()
DimiAsInteger
Fori=10To9999
Ifarm(i)ThenPrinti
Nexti
EndSub
PrivateFunctionarm(xAsInteger)AsBoolean
n=Len(CStr(x))
Fori=1Ton
sum=sum+Mid(x,i,1)^n
Nexti
Ifsum<>xThen
ExitFunction
Else
arm=True
EndIf
EndFunction
综合
(1)
OptionBase1
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger,maxAsInteger,minAsInteger,maxhgsAsInteger,maxlesAsInteger,minhgsAsInteger,minlesAsInteger
Dima(4,5)AsInteger
Fori=1To4
Forj=1To5
a(i,j)=10+Int(Rnd*31)
Picture1.Printa(i,j);
Nextj
Picture1.Print
Nexti
max=a(1,1):
min=a(1,1):
maxhgs=1:
maxles=1:
minhgs=1:
minles=1
Fori=1To4
Forj=1To5
Ifa(i,j)>maxThenmax=a(i,j):
maxhgs=i:
maxles=j
Nextj
Nexti
Fori=1To4
Forj=1To5
Ifa(i,j)=maxThenPicture2.Printa(i,j);i;j
Nextj
Nexti
Fori=1To4
Forj=1To5
Ifa(i,j) minghs=i: minles=j Nextj Nexti Fori=1To4 Forj=1To5 Ifa(i,j)=minThenPicture2.Printa(i,j);i;j Nextj Nexti EndSub PrivateSubCommand2_Click() Picture1.Cls Picture2.Cls EndSub PrivateSubCommand3_Click() End EndSub 综合 (2) 注: text3的multiline属性要改为ture PrivateSubCommand1_Click() DimaAsInteger,bAsInteger,iAsInteger,xAsInteger a=Val(Text1.Text) b=Val(Text2.Text) Text3.Text="幻影素数对: " Fori=aTob x=0 Forj=len(cstr(i))to1step-1 x=Mid(i,j,1)&x Nextj Ifpu(i)Andpu(x)ThenText3.Text=Text3.Text&vbCrLf&i&"和"&x Nexti EndSub PrivateFunctionpu(xAsInteger)AsBoolean DimiAsInteger Fori=2Tox-1 IfxModi=0ThenExitFunction Nexti pu=True EndFunction PrivateSubCommand2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text1.SetFocus EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 代码