您的位置首页百科知识

随机数生成器

随机数生成器

的有关信息介绍如下:

问题补充说明:要求界面,生成个数和位数可任意设定还有个要求用VB编写

随机数生成器

可验证的代码:PrivatemAsInteger,盐委是价得夫全源同短nAsIntegerPrivateSubCommand1_Click()IfIsNumeric(Text1)=FalseThen'位数保护MsgBox"位数必须输入数字"Text1.SetFocusElseIfVal(Trim(Text1))<1OrVal(Trim(Text1练级蒸连素))>4ThenMsgBox"位数是1~4的正整数"Text1=""Text1.SetFocusEndIfEndIfIfIsNumeric(Te精汽xt2)=FalseThen'个数保护MsgBox"个数必须输入数字"Text2.SetFocusElseIfVal(Trim(Text2))<1OrVal(Trim(Text2))>100ThenMsgBox"个数是1~100的正整数"Text2=""Text2.SetFocusEndIfEn南聚阿南克乙某样金试模dIfText3=""D去存张粮小愿头食音模南imiAsInteger,kAsIntegerm=Val(Trim(Text1))n=Val(Trim(Text2))确电甲Fori=1Ton'产生n个随机数Rand苗omizeSelectCa反好鸡sem'区别位数C乙式仍握右斯修轮常ase1k=1+Int(Rnd*9)Case2k=10+Int(Rnd*90)Case3k=100+Int待等东鲜作优(Rnd*900)Case4k=1000+Int(Rnd*9000)EndSelectText3=Text3&k&","'填充文本框NextiEndSub说明:1、设定范围:位数<=4,个数<=1002、界面说明:两个标签、两个普通文本框、一个按钮、一个多行文本框text33、对位数和个数的输入值,有验证效果如下图。不知偶理解楼主意思没有?</a>