VB:按钮每次出现随机两位数

Randomizedima(10)asintegersum=0fori=1to10a(i)=int(rnd*90+10)sum=sum+a(i)nextPrint"SUM:"&Sumavr=sum/1

PrivateSubCommand1_Click()Dima(10To99)AsIntegerFori=1To1000x=Int(90*Rnd())+10‘产生10~99的随机数a(x)=a(x)+1

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

PrivateSubCommand1_Click()Dima(10,6)AsString*2,b(30)AsIntegerDimmaxAsInteger,maxiAsInteger,maxjAsInt

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

"相邻两位求和就不用给你了吧,这要是不会,就别做了.

Public Function IsPrime(ByVal x As Integer) As Boolean  

a=int(rnd*100):b=int(rnd*100)ifa>bthenprint"a>b"ifb再问：你所设的值是固定的某一数字吗？我想表达的是先出现一个随机数字，然后再出现一个随机数字，两个数

创建一个VB工程,在窗体上放置一个文本输入框text1,一个标签Label1,三个按钮,名称分别为Command1“开始”Command2“暂停”Command3“退出”再加入一个定时器timer1,

程序编好了,在附件中.

代码改过了.：DimCurrentNumberAsIntegerDimarr()AsIntegerDimfinish,ifgetAsBooleanFunctiongetRnd(iAsInteger)A

Dima%(1To6,1To6),b%(1To6,1To6)PrivateSubCommand1_Click()Fori=1To5Forj=1To5a(i,j)=Int(Rnd*90+10)Pictu

在窗体form1上画一个label1显示算式、一个text1输入答案,一个command1（更换命题）和一个command2（提交答案）.然后将以下代码黏贴到form1代码窗运行.你自己的代码做了部分

生成按钮代码：PrivateSubCommand1_Click()RandomizeFori=1To100t=Int(Rnd()*900+100)IftMod2=0ThenList1.AddItemt

仅仅是随机数的话,每个数字出现的概率是相等的,产生一定数量的随机数后,你会看到每个数字出现的次数概率是接近的,数量越大,就显现的比较明显.如果在1-10里随机产生,第一次产生单个数字的概率1/10第二

定义三个变量,比如：inta[],w,jieguo;//数组a的值是0-100的整数,w的值是加法还是减法,jieguo是最后的运算结果.a[0]=(int)(Math.random()*100);a

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

是的!

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

int(a)是返回一个小于或等于a的整数.rnd*90也就是产生0-90之间的数,不包括0和99.rnd*90+10是产生10-100之间的数,不包括10和100.int(rnd*90)是产生0-89