计算机代码.docx

计算机代码.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