在一个两位数的两个数字中间插入一个一个数(包括0),变成一个三位数。例如,在72的7与2之间插入6，成为762。

Private Sub Command1_Click()
Dim s As String, ss As String
For i = 10 To 99
s = Trim(Str(i))
For j = 0 To 9
ss = Trim(Str(j))
If CInt(Left(s, 1) & ss & Right(s, 1)) = i * 9 Then Print i, j
Next j
Next i
End Sub

15-135
25-225
35-315
45-405

因为这样的数个位只可能是 5

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer

For i = 15 To 95 Step 5
For j = 0 To 9
If (i \ 10) * 100 + j * 10 + (i Mod 10) = i * 9 Then
Print i, j
End If
Next j
Next i

End Sub