问题补充说明：要求界面，生成个数和位数可任意设定还有个要求用VB编写能不能把完整程序写下，看的不是很明白！！！... 要求界面，生成个数和位数可任意设定还有个要求 用VB编写能不能把完整程序写下，看的不是很明白！！！ 展开
可验证的代码：
Private m As Integer, n As Integer
Private S360问答ub Command1_Click()
If IsNumeric(Text1) = False Then '位数保护
MsgBox "位数必须输入数字"
Text1.SetFocus
Else
If Val(Trim(Text1)) < 1 Or Val(T话余鸡北岁套的职rim(Text1)) > 4 Then
MsgBox "一位数是1～4的正整数"
Text1 = ""
Text1.SetFocus
End If
End If
If IsNumeri让苏胞否c(Text2) = False Then '个数保护
MsgBox "植刘李树规个数必须输入数字"
Text代剧家配灯错损朝客技2.SetFocus
El火奏际粮波什se
If Val(Trim(Text2)) < 1 Or Val(Trim(Text2)) > 100 Then
MsgBox "个数是1～100的正整数"
Text2 = ""
T川粮季乙第简ext2.SetFocus
End If
End If
Text检系3 = ""
Dim i As Int策面末认eger, k As Integer
m = Val(Trim(Text1))
n = V挥乡样油句电al(Trim(Text2)脸异划倒呢磁)
For i = 1 To n '产生n个随机数
Randomize
Select Case m '区别位数
Case 1
k = 1 + I令件选输端士志道北突着nt(Rnd * 9便针征孩厚入)
Case 2
k = 10 + Int(Rnd * 90)
Case 3
k = 100 + Int(Rnd * 900)
Case 4
k = 1000 + Int(Rnd * 9000)
End Select
Text3 = Text3 & k & "," '填充文本框
N激承早杂广ext i
End Sub
说明：
1求响任酸刘受开紧响露判、设定范围：位数<=4, 个哪司编亚于数<=100
2、界面说明：两个标签、言时早线益连氢密海两个普通文本框、一个按钮、一个多行文本框text3
3、对位数和个数的输入值，有验证
效果如下图。不知偶理解楼主意思没有？
标签：生成器,随机数
