Hitno potreban pomocj
Treba da napravim program koji cje da odredi numericke vrednosti slova na osnovu
DONALD
+GERALD
---------
ROBERT
Pisem u visual basicu:
Private Sub cmdStart_Click()
Dim D As Double
Dim O As Double
Dim N As Double
Dim A As Double
Dim L As Double
Dim G As Double
Dim E As Double
Dim R As Double
Dim B As Double
Dim T As Double
'Dim i1 As Double
'Dim i2, i3, i4, i5, i6, i7, i8, i9, i10 As Double
For D = 1 To 9
Next D
For O = 1 To 9
Next O
For N = 1 To 9
Next N
For A = 1 To 9
Next A
For L = 1 To 9
Next L
For G = 1 To 9
Next G
For E = 1 To 9
Next E
For R = 1 To 9
Next R
For B = 1 To 9
Next B
For T = 1 To 9
Next T
If (100000 * D + 10000 * O + 1000 * N + 100 * A + 10 * L + D) + (100000 * G + 10000 * E + 1000 * R + 100 * A + 10 * L + D) = (100000 * R + 10000 * O + 1000 * B + 100 * E + 10 * R + T) Then
'MsgBox (D & "is D")
txtD.Text = D
End If
'MsgBox ("A=" & i1)
End Sub
Mislim da nextovi nisu na dobrom mestu, sta predlazete da uradim???
|