VB Code:
Option Explicit
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim e As Long
Dim f As Long
Dim g As Long
Dim h As Long
Dim i As Long
Dim svar As Double
Private Sub Command1_Click()
a = 1
b = 2
c = 3
d = 4
e = 5
f = 6
g = 7
h = 8
i = 9
svar = 2#
Do While (svar <> 1)
Do
a = Rnd * 10
Loop While (a < 1 Or a > 9)
Do
b = Rnd * 10
Loop While ((b < 1 Or b > 9)) Or (b = a)
Do
c = Rnd * 10
Loop While (c < 1 Or c > 9) Or (c = a Or c = b)
Do
d = Rnd * 10
Loop While (d < 1 Or d > 9) Or (d = a Or d = b Or d = c)
Do
e = Rnd * 10
Loop While (e < 1 Or e > 9) Or (e = a Or e = b Or e = c Or e = d)
Do
f = Rnd * 10
Loop While (f < 1 Or f > 9) Or (f = a Or f = b Or f = c Or f = d Or f = e)
Do
g = Rnd * 10
Loop While (g < 1 Or g > 9) Or (g = a Or g = b Or g = c Or g = d Or g = e Or g = f)
Do
h = Rnd * 10
Loop While (h < 1 Or h > 9) Or (h = a Or h = b Or h = c Or h = d Or h = e Or h = f Or h = g)
Do
i = Rnd * 10
Loop While (i < 1 Or i > 9) Or (i = a Or i = b Or i = c Or i = d Or i = e Or i = f Or i = g Or i = h)
DoEvents
svar = Calcu(a, b, c, d, e, f, g, h, i)
Loop
Text1.Text = "a = " & a & vbCrLf & "b = " & b & vbCrLf & "c = " & c & vbCrLf & "d = " & d & vbCrLf & "e = " & e & vbCrLf & "f = " & f & vbCrLf & "g = " & g & vbCrLf & "h = " & h & vbCrLf & "i = " & i & vbCrLf
Text1.Text = Text1.Text & vbCrLf & svar
End Sub
Public Function Calcu(a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, g As Long, h As Long, i As Long) As Double
b = b * 10
e = e * 10
h = h * 10
Calcu = (a / (b + c)) + (d / (e + f)) + (g / (h + i))
End Function