vb随机输出一位数的加减乘除运算代码

窗体中加命令按钮,单击事件代码如下：PrivateSubCommand1_Click()  Randomize  Dima(1To20)AsInteger&nb

规定利用Mod跟“/”来编码廷垃圾的,本来两个函数就搞定了.PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimiAsInt

command1完成第一题,command2完成第二题PrivateSubCommand1_Click()Dimx%(1To10),n%,i%n=1DoWhilen

先把产生的三个随机数保存在一个数组中,输出该三个随机数,然后将数组中的逆序并输出,

OptionExplicitPrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerFori=1To50Forj=1To4PrintInt(Rnd*46

privatesubcommand1_click()fori=1to15randomizea=int(Rnd*20)+80ifi=1thenmax=a:min=aifmaxathenmin=aprin

Dima(10)Fori=0To9a(i)=Int(100+100*Rnd)NextiFori=0To8Forj=iTo9Ifa(i)t=a(i)a(i)=a(j)a(j)=tEndIfNextjNe

这是我做的,你参考一下.

dimsasinteger,aasinteger,basinteger,casintegers=Rnd()*900+100a=s\100b=s\100-a*10c=smod100-b*10然后用if判

'vb6测试成功OptionExplicitPrivateFunctionmax(b()AsInteger)AsIntegerDimiAsIntegerDimjAsIntegerFori=1To6Fo

你交作业啊,这么简单的问题,还好意思来这问.自己稍微动动脑子好不好,懒成这样,有没有点血性?!

程序+码已提交、.

OptionExplicit'设计时要设置text4的multiline属性为T'设计时要设置text4的scrollbars属性为2PrivateSubCommand1_Click()DimiAsL

PrivateSubCommand1_Click()Dima(29)AsInteger,tmpAsIntegerDimiAsInteger,jAsIntegerRandomizeTimeFori=0T

1)t=a(i)这句下标越界了,因为这时i=112)判断素数的语句也有点逻辑上的错误.3)随机数有可能重复.我改了下,请参考：PrivateSubForm_Click()Dima(1To10),iAs

functionsj(i%,a%,b%)aslongDimx%x=Int(Rnd*(b-a+1))+asj=xEndfunctionPrivateSubCommand1_Click()Dimn%,a%

dima(30)fori=1to30a(i)=int(rnd(97+3))ifisprime(a(i))=truethenprinta(i);nextifunctionisprime(xasinteg

Private Sub Command1_Click()    Cls    Dim r(

分别用random(),max(),min(),avg()函数.

是“奇数”吗..?另外一共就产生十个,每行显示十个……是不是产生任意多个,然后每行输出十个?奇数的话范围就在11~99之间,用2n+1法产生奇数的话n的取值范围就是5~49新建工程,窗体上放个文本框,