用vb随机生成20个1000以内的整数,统计其中素数个数,并按升序输出.

privatesubcommand1_click()dima(1to10)asinteger,i,jfori=1to10a(i)=int(rnd*100)+1printa(i);nextprintfo

一分都没有.郁闷.不过还是花点时间给你写一个.vb6.0xp系统测试通过,希望能选择为最佳.另外本人强烈鄙视提问了却不珍惜别人劳动成果,不选任何答案的!PrivateSubForm_Click()'使

Dimm(1To20)AsIntegerDimi,j,cntAsIntegerDimisHasSameAsBooleanFori=1To20'生成100以内的两位正整数m(i)=Int(Rnd()*9

是不是这样：（fomr的autodraw属性要设定为true）PrivateSubCommand1_Click()DimiAsIntegerDimRndNUmAsInteger'定义随机数DimN1A

随机生成100个大写字母存于数组a中,并显示在text1中,字母间用空格隔开,在text2中输入一个大写字母,得出在数组a中出现的次数,在text3中显示.Privatearr(100)Private

第一题dims(1to8)asintegerfori=1to4s(i)=int(rnd*90)+10dowhiles(i)mod2=1s(i)=int(rnd*90)+10loops(i+4)=int

'在窗体上画两个列表框(ListBox),一个按钮(CommandButton)'粘贴以下代码'单击List1里的范围,在List2里列出该分类的所有数据DimNum(1To10000)AsInteg

你拉三个文本框,一个按钮text1和text1拉高一点,MultiLine设置为true,排列如图所示Private Sub Command1_Click()  

Dimk%Dima%(1To10)PrivateSubCommand1_Click()Fori=1To10Randomizea(i)=Int(Rnd*100+1)NextPrint"a数组:"k=1F

PrivateSubCommand1_Click()DimiAsInteger,myTempNumAsInteger,myTempStrAsStringRandomize(Timer)Fori=1To

先建一个大一点的label1框,然后...DimaAsIntegerDimbAsStringDimcAsIntegerDimdAsStringDimeAsIntegerDimfAsIntegerDim

前些天我才写的,是给别人弄的,他要的是1到100的十个数,并且按command2可以到换,我稍加修改给你(别忘了把窗体拉长点哈!短了后面不能显示哦)还要添加一个commandPrivateSubCom

一显示按纽为Button1,文本显示为Txt1.以下为代码：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Even

privatesubcommand1_click()randomizedimaasinteger,basinteger,casintegera=int(rnd*12)+1text1=adob=int(

int（rnd*11）表示0到10的整数int（rnd*1000）表示0到999的整数int（rnd*1001）表示0到1000的整数

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

添加两个控件名字分别为sc、tj的按钮.'定义一个窗体数组变量dima(10)asinteger'生成是个随机数privatesubsc_click()'下面这一句可以得到不同的随机数randomiz

Private Sub Command1_Click()    Cls    Dim r(

产生某闭区间内的整数随机数的公式为：int((上限-下限+1)*rnd)+下限.

PrivateSubCommand1_Click()DimZs(1To35)AsIntegerFori=1To35RandomizeZs(i)=Int(61*Rnd)+20PrintZs(i);Nex