Question

问几道VB的题目！急！！！急！！！！！！！！！

6 "
求方程8x-5y=3,在|x|<=150, |y|<=100内的整数解。试问这样的整数解有多少组？
"
7 "
求五位数各位数字的平方和为110的最大的五位数。
"
8 "
若两个素数之差为2，则称这两个素数为双胞胎数。求出[20，1000]之内有多少对双胞胎数。
"
9 "
所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在500-900的范围内所有能被3整除的回文数的个数。
"
10 "
已知A，B为正整数, A<B, A*B=2198，且要求A+B取最小值，求满足上述条件的A值。
"

Answer 1

Private Sub Form_Click()
Dim x, y, z As Integer
For x = -150 To 150
For y = -100 To 100
If 8 * x - 5 * y = 3 Then
z = z + 1
End If
Next
Next
Print "答案共有"; z; "组"
End Sub

------------------

Private Sub Form_Click()
Dim i, j, k, l, m, n, Z As Long
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
For l = 0 To 9
For m = 0 To 9

If i * i + j * j + k * k + l * l + m * m = 110 Then
n = i * 10000 + j * 1000 + k * 100 + l * 10 + m
If n > Z Then
Z = n
End If
End If
Next
Next
Next
Next
Next

Print "最大的五位数是："; Z

End Sub

追问

谢谢，谢谢！冒昧的问句：还能帮帮忙吗？

追答

我晕，好吧

'所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个
'回文数。编写程序，求在500-900的范围内所有能被3整除的回文数的个数。

Private Sub Form_Click()
Dim i, j, k, z As Integer
For i = 5 To 8
For j = 0 To 9
z = i * 100 + j * 10 + i
If z Mod 3 = 0 Then
Print z
k = k + 1
End If
Next
Next
Print k

End Sub

'已知A，B为正整数, A z And A < B Then
Min = z
X = A
Y = B
End If
End If
Next
Next
Print "最小的A+B是："; X; " +"; Y; "="; Min

End Sub

我帮你做了这么多，还不评份？