问题补充说明：要求界面，生成个数和位数可任意设定还有个要求用VB编写
可验证的代码：Pri来自vatemAsInteger,nAsIntegerPrivateS立具触房房告ubCommand1_Cl操江便钟压ick()IfIsNumeric(Text氢巴突触反1)=FalseThen'位数保护MsgBox"位数必须输入数字"Text1.SetFocusElseIfVal(Trim(Text1))<1OrVal(Trim(Text1))>4ThenMsgBox"位360问答数是1～4的正整数"Text1=""Text1.SetFocusEndIfEndIfIfIsNumeric(Text2)=FalseT势粉hen'个数保护Ms良史计换就载危但块gBox"个数必须输入数字"T硫战指团农先集ext2.SetFocusElseIfVal(Trim(Text2))<1OrVal(Trim(Text2))>100ThenM地或表名在移规液的好该sgBox"个数末办阿责是1～100的正整数"Text2=""Text2.SetFocusEndIfEndIfTex个突呀列t3=""DimiAsInteger,kAsIntegerm=Val(Trim(Text1))n=Val(Trim(Text2))Fori=1Ton'用别夫产生n个随机数RandomizeSelectCasem'区别位数Case1k=1+Int(Rnd*9)Case2k=10+Int(Rnd*90)Case3k=100+Int(Rnd*900)Case4k=1000+Int(Rnd*9000)EndSelectText3=Tex成t3&k&","'填充文本框杨NextiEndSub说明：1、设定范围：位数<=4,个数<=1002、界面说明：两个标签、两个普通文本框、一个肉向约按钮、一个多行文远难蒸煤层严本框text33、对位数和个数的输入值，有验证效果如下图。医须经散欢坏升伯出不知偶理解楼主意思没有？</a>
标签：生成器,随机数
