满意答案
lijing1426
.11.14
采纳率：57%等级：9
已帮助：418人
可验证的代码：PrivatemAsInteger,nAsIntegerPrivateSubCommand1_Click()IfIsNumeric(Text1)=FalseThen'位数保护MsgBox"位数必须输入数字"Text1.SetFocusElseIfVal(Trim(Text1))<1OrVal(Trim(Text1))>4ThenMsgBox"位数是1～4的正整数"Text1=""Text1.SetFocusEndIfEndIfIfIsNumeric(Text2)=FalseThen'个数保护MsgBox"个数必须输入数字"Text2.SetFocusElseIfVal(Trim(Text2))<1OrVal(Trim(Text2))>100ThenMsgBox"个数是1～100的正整数"Text2=""Text2.SetFocusEndIfEndIfText3=""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=Text3&k&","'填充文本框NextiEndSub说明：1、设定范围：位数<=4,个数<=1002、界面说明：两个标签、两个普通文本框、一个按钮、一个多行文本框text33、对位数和个数的输入值，有验证效果如下图。不知偶理解楼主意思没有？
00分享举报
