| |
Расположите на форме элемент CommandButton.
Данная функция генерирует число, состоящее из
стольких цифр (n), сколько вы зададите в
качестве параметра функции. Также опционно вы
можете задать, может ли генерируемое число
состоять из меньшего количества символов, чем
число n.
В первом варианте генерируется только 5-ти
значное число. Во втором варианте может быть
сгенерировано любое n-значное число (n<=5).
Function GenXzn(ByVal nLen As Long, Optional ByVal NoZero As Boolean = False) As
Double
Dim s$, i%
Do While (Len(s) < nLen)
i = Int(Rnd() * 9)
If (CBool(i) Or Not (CBool(i) Or NoZero)) Then s = s & i
Loop
GenXzn = Int(s)
End Function
Private Sub Command1_Click()
MsgBox GenXzn(5, True) 'вариант 1
'MsgBox GenXzn(5) 'вариант 2
End Sub
|
|