В данной программе после условного оператора b=5 и при невыполнении условия.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Dim i As Long, t As Integer, s As Single, b As Integer, k As Integer
Private Sub Form_Click()
Form1.Cls
Form1.Refresh
For i = 1 To 99999
s = i * 10 ^ (k - 38 )
t = 0
While i Mod 10 ^ (t + 1 ) = 0
t = t + 1
Wend
If 38 - t - k > 7 Then b = 5
If Len(CStr(s)) > Len(CStr(i)) + b - t And s - i * 10 ^ (k - 38 ) <> 0 And k > 25 Then
Form1.Print s, i
L= L + 1
End If
Next i
Form1.Caption = Str$(k) + " " + Str$(L)
k = k + 1
End Sub
Private Sub Form_Load()
k = 25
L = 0
End Sub
учимся использвать тэги для кода
