各位大佬，这两题咋整呀，感觉VB好难哟

Private Sub Command1_Click()
Dim i As Long, j As Long, k As Long
For i = 100 To 999
For j = 100 To 999
If Abs(i - j) < 8 And j >= i Then
If Abs(i - j) = 0 Or Abs(i - j) = 1 Or Abs(i - j) = 3 Or Abs(i - j) = 5 Then
If (i + j) <> 1948 And (1948 Mod (i + j) = 0) Then Me.Print Abs(i - j), i * 1000 + j
End If
If Abs(i - j) = 2 Or Abs(i - j) = 4 Or Abs(i - j) = 6 Then
If (i + j) = 1948 Then Me.Print Abs(i - j), i * 1000 + j
End If
End If
Next
Next
End Sub
5 241246
3 242245
1 243244
0 487487
6 971977
4 972976
2 973975

Private Sub Command1_Click()
Dim x As Single, x0 As Single, x1 As Single, a As Single
a = Val(InputBox("请输入百一度个数知a="))
If Abs(a) < 0.000001 Then
x = 0
Else
x0 = a / 2
x1 = (2 / 3 * x0) + a / (3 * x0 ^道 2)
Do While Abs(x1 - x0) > 0.00001
x0 = x1
x1 = (2 / 3 * x0) + a / (3 * x0 ^ 2)
Loop
x = x1
End If
Print a & "的立版方根权为;"; x
End Sub