vb编程建立一个有10个整数的数组,完成逆序排列
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 17:25:31
OptionExplicitDimarr(100)AsIntegerDimarr1(100)AsIntegerDimiAsIntegerPrivateSubCommand1_Click()Fori=1
窗体中做三个文本框,分别放A,B,及A、B的最大分约数.PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)Dor=aModba=b
PrivateSubForm_Load()Dima(10),i,x,jAsIntegerDimyAsStringFori=0To9Randomizea(i)=Int(Rnd(1)*101)x=x+a(
PrivateSubCommand1_Click()Dima(50),i,nRandomizeFori=1To50a(i)=Int(Rnd*191)+10Printa(i);IfiMod10=0The
'本人亲测可行Private Sub Form_CLICK() Dim arr(9) As In
PrivateSubCommand1_Click()RandomizeDima(10)AsInteger,imasasinteger,iminasinteger,Averageasintegerima
PrivateSubCommand1_Click()RandomizeDima(1To10)Dimmax,min,avemin=50:max=20Fori=1To10a(i)=Int(Rnd*21+3
以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq
http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n
Dimk%Dima%(1To10)PrivateSubCommand1_Click()Fori=1To10Randomizea(i)=Int(Rnd*100+1)NextPrint"a数组:"k=1F
PrivateSubCommandButton1_Click()DimnNumAsLongIfIsNumeric(TextBox1.Text)ThennNum=Val(TextBox1.Text)If
PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,mAsIntegerFori=1To50n=Int(1+Rnd*100)IfnPrintn;m=m
窗体加一按钮,一个文本框PrivateSubCommand1_Click()RandomizeFori=1To100Text1.Text=Int(Rnd*90)+10NextEndSu
再问:谢了,能否把程序给提供一下,我不会再答:好吧!
给个最简单的示例你x=0:y=0fori=1to10a=inputbox("请输入一个任意整数!","提示")ifa=""thenmsgbox"你至少输入一个数!","提示":i=i-1elseif(
Private Sub Command1_Click()Dim rndn As Integer, i As Intege
PrivateSubCommand1_Click()Dima#,b#,c#,d#,x1#,x2#a=Val(InputBox("a=","数据输入框",1))b=Val(InputBox("b=","
PrivateSubCommand1_Click()DimArr(9)AsLong'用于存放产生的10随机数DimiAsLongDimnMaxAsLong'用于存放最大的偶数DimnMinAsLong
写成函数,直接调用Functionprint_num(ByValnumAsInteger)Dimi,n,k,jAsIntegerDimstrAsStringn=Int(num/2)k=0IfnumMo
建立控件数组Text2(0To9)PrivateSubCommand1_Click()DimSumAsDoubleForI=Val(Text1.Text)-1To0Step-1Sum=Val(Text