Question

vb中 输入数字n 随机生成n位的数字 程序怎么写

在文本框中输入一个数字n 然后点击按钮生成两个n位的数字，并在两个label框中输出，比如输入 3 ，点击按钮 随即生成两个三位数（3 1 6）、(6 3 8)并把两个数显示在两个Label框中，希望高手解答，尽量详细 简单点 谢谢啦
然后再按另一个按钮 让这两个三位数的对应位相乘再相加就像 3*6+1*3+6*8，把结果输出到另一个文本框中 谢谢啦

Answer 1

Private Sub Command1_Click()
Randomize
a = 10 ^ Val(Text1.Text) - 1'a上限
b = 10 ^ (Val(Text1.Text) - 1)'b下限
Label1.Caption = Int(Rnd * (a - b + 1) + b)'rnd*（上限-下限+1）+下限
Label2.Caption = Int(Rnd * (a - b + 1) + b)
End Sub
假设N为3 3位数的范围在999-100 999等于10的3次方减一 100等于 10的3-1次方

Answer 2

Private Sub Command1_Click()
Dim n As Long
n = Val(Text1.Text)
If n <= 0 Then
Exit Sub
End If

Label1.Caption = makeN(n)
Label2.Caption = makeN2(n)

End Sub

'方法一
Private Function makeN(ByVal n As Long) As String
Dim f As Long
Dim r As String
f = Int(Rnd * 9) + 1 '第一位应该是1-9之间的数
r = CStr(f)
Dim i As Long
For i = 1 To n - 1
f = Int(Rnd * 10) '其它位0-9之间的数
r = r & CStr(f)
Next
makeN = r

End Function

'方法二
Private Function makeN2(ByVal n As Long) As String
Dim f As Long
f = Int(Rnd * (10 ^ n - 10 ^ (n - 1))) + 10 ^ (n - 1) '直接生成10的n-1次方到10的n次方法之间的数
makeN2 = CStr(f)
End Function

Answer 3

Private Sub Command1_Click()
Dim a As Integer
Dim b(2) As Integer
a = Text1.Text
For i = 0 To 2
b(i) = Str(a * Rnd(1)) + 1
Label1.Caption = Label1.Caption & " " & b(i)
Next i
For c = 0 To 2
b(c) = Str(a * Rnd(1)) + 1
Label2.Caption = Label2.Caption & " " & b(c)
Next c
End Sub