vb用Rnd20到100的二位整数

Private Sub Command1_Click()    Dim i As Integer &

Dimb(100)PrivateSubCommand1_Click()Fori=1To100a=Int(1800*Rnd)+200b(i)=aPrintb(i)NextiEndSubb这个数组里面就保

3再答：6再答：9再答：12再答：12再答：15再答：18再答：21再答：24再答：27再答：30再答：33再答：36再答：39再答：42再答：45再答：48再答：51再答：54再答：57再答：60再

你给的公式不对!应该是π/2＝2^2/1*3×4^2/3*5×.×（这个公式求的精度不高!代码如下：DimPI1AsDoubleDimPI2AsDoubleDimTempAsDoubleDimnAsD

先把Text1的MultiLine属性设为True,这样文本框才能进行换行PrivateSubCommand1_Click()Text1=""'清空Text1中的现有文本Dimscore(1To20)

PrivateSubCommand1_Click()RandomizeDimsAsStringDimnAsIntegerFori=0To11n=48+Int(Rnd*11)SelectCasenCas

DimiAsIntegerDimnAsIntegern=1Fori=1To1234n=n*3Mod100NextiPrintn再问：是求3^1234次方的最后两位的值哦，我有点没看懂~~再答：怎么就没

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

PrivateSubCommand1_Click()Dimi,sAsIntegers=0Fori=1To100IfiMod3=0OriMod7=0Thens=s+1EndIfNextiPrintsEn

3路,我确定.

PrivateSubCommand1_Click()Dimstr_1AsString,MyValueAsIntegerstr_1=""Forn=1To9RandomizeMyValue=Int((36

n=(nmod10)*10+(n\10)

在窗口上建立一个按钮：FunctionTotal(Num1,Num2)AsString'Num1为奇数和'Num2为偶数和Fori=1To100IfiMod20ThenNum1=Num1+iElseN

DimxAsIntegerDima,b,c,dx=1234a=x\1000Mod10b=x\100Mod10c=x\10Mod10d=xMod10Printa,b,c,d与楼上相比,允许原始数字大于或

int((900*Rnd)+100)再问：能具体些吗，小哥再答：dimnasintegerRandomize‘初始化随机函数n=int((900*Rnd)+100)'产生100-999范围内的随机数并

Fori=100To999IfiMod10=3AndiMod7=0ThenPrintiEndIfNexti

PrivateSubCommand1_Click()Dimi%DimsAsSingles=0Fori=1To10s=s+1/compu(i)NextiText1.Text=sEndSubFunctio

PrivateSubCommand1_Click()n=Val(InputBox("n="))t=1Fori=1Ton t=t*i s=s+tNextiPrin

PrivateSubCommand1_Click()Dima()AsIntegerDimkAsInteger,mAsInteger,iAsInteger,jAsIntegerk=0Form=2To10

这个问题不太准确,100到200之间的随机整数,是否包含100和200呢?如果不包含100和200本身,应该这样表示：Int(Rnd()*99)+101如果包含100和200本身,应该这样表示：Int