vb中随机产生数字并显示求和等式
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/18 05:23:37
'本人亲测可行Private Sub Form_CLICK() Dim arr(9) As In
随机生成100个大写字母存于数组a中,并显示在text1中,字母间用空格隔开,在text2中输入一个大写字母,得出在数组a中出现的次数,在text3中显示.Privatearr(100)Private
先把Text1的MultiLine属性设为True,这样文本框才能进行换行PrivateSubCommand1_Click()Text1=""'清空Text1中的现有文本Dimscore(1To20)
改用通用的获取随机字符的方式.定义一个字符串strAph="abcd.ABCD..."取随机一个字符a=mid(strAph,int(rnd(52))+1)
PrivateSubCommand1_Click()DimIAsInteger,NAsInteger,MaxAsInteger,MinAsIntegerMin=100RandomizeForI=1To
PrivateSubCommand1_Click()Dima()AsString,xAsIntegera=Split("7,8,54,69,12,32",",")Randomizet=Int(6*Rn
PrivateSubCommand1_Click()Dima(10)RandomizeDimsumAsInteger,minAsInteger,maxAsIntegersum=0:min=100:ma
创建一个VB工程,在窗体上放置一个文本输入框text1,一个标签Label1,三个按钮,名称分别为Command1“开始”Command2“暂停”Command3“退出”再加入一个定时器timer1,
LS的回答有可能出来100(三位数)改为a=int(Rnd*100)b=int(Rnd*100)
Dima%(1To6,1To6),b%(1To6,1To6)PrivateSubCommand1_Click()Fori=1To5Forj=1To5a(i,j)=Int(Rnd*90+10)Pictu
PrivateSubCommand1_Click()a=Chr(Int(Rnd*26+65))str1=a&(Int(Rnd*(100000)+0))SelectCaseaCase"B"str2="是
'窗体放一个按钮Command1PrivateSubCommand1_Click()Randomize'初始化随机数生成器DimJiShuHangAsString'奇数行DimOuShuHangAsS
PrivateSubForm_click()DimA(1To10)RandomizeForI=1To10A(I)=Int(Rnd*90)+10NextIForI=1To9'选择法p=IForJ=I+1
先建一个大一点的label1框,然后...DimaAsIntegerDimbAsStringDimcAsIntegerDimdAsStringDimeAsIntegerDimfAsIntegerDim
dima(9)asintegerprivatesubcommand1_click()dimiasintegerrandomizefori=0to9a(i)=int(rnd*101)text1.text
Dima(5)AsDoublefori=1to5a(i)=fix(rnd*10)nextiFori=1To4Forj=1To5-iIfa(j)temp=a(j)a(j)=a(j+1)a(j+1)=te
通过SubMain启动Submain()Dima(9)AsInteger,pAsDouble,iAsInteger,nAsIntegerp=0n=0Fori=0To9a(i)=Rnd*100p=p+a
是的!
楼主看看这个:Private Sub Command1_Click() Dim aNum(19) As Long,&
PrivateSubCommand1_Click()c=InputBox("","","")Fora=1To100b=Int(Rnd*99)IfInt(Right(Str(b),1))=Int(c)T