vb随机生成10个一位正整数,对所有偶数求阶乘

Dima%(1To20)Fori=1To20a(i)=Int(Rnd*90+10)Printa(i);NextPrintFori=1To20Ifa(i)Mod2=1ThenPrinta(i);EndI

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

随机数rand（）函数产生,乘上10在加上1取整就是1—10,同理乘以100再加上1就是1-99,就利用这个思路.做做试试吧!

#include"stdio.h"#include"time.h"#include"stdlib.h"intisprime(intn)//判断n是否是素数,是返回1,不是返回0{ inti;

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

OptionBase1OptionExplicitDima(11)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerPicture1.ClsPicture

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

PrivateSubCommand1_Click()Fori=0To99RandomizeIfiMod10=0ThenPrintPrintInt(Rnd*90+10);ElsePrintInt(Rnd

Public Function IsPrime(ByVal x As Integer) As Boolean  

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

PrivateSubCommand1_Click()Dima(10)RandomizeDimsumAsInteger,minAsInteger,maxAsIntegersum=0:min=100:ma

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

OptionBase1Dima(20)PrivateSubForm_Load()RandomizeFori=1To10a(i)=Int(10+90*Rnd)NextEndSubPrivateSubCo

'窗体放一个按钮Command1PrivateSubCommand1_Click()Randomize'初始化随机数生成器DimJiShuHangAsString'奇数行DimOuShuHangAsS

Randomize初始化随机数发生器Rnd()获取0~1之间的随机数,乘以90后再加上10,取整后就是10~90之间的了然后挑选出来Mod3=0的数据排序就是了再问：就是mod3=0后不会排序啊再答：

PrivateSubCommand1_Click()RandomizeDimiAsInteger,jAsInteger,kAsIntegeri=Int(Rnd*10)'0-9j=Int(Rnd*90)

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

subform_click()dima%(20)fori=1to20a(i)=int(rnd()*10+1)printa(i),nextendsu

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

为了生成某个范围内的随机整数,可使用以下公式：Int((upperbound-lowerbound+1)*Rnd+lowerbound)upperbound是随机数范围的上限,而lowerbound则