VB 求200到900之间的所有三位数，要求个位数加十位数之和除10的余数为百位数，例如202

用VB编程，明天考试，跪求啊啊啊

Private Sub Form_Load()
'求200到900之间的所有三位数 对应代码FOR循环
For i = 200 To 900
gws = Val(Right(i, 1)) 'right 右边第1个 val将文本转换为数值
sws = Val(Mid(i, 2, 1)) 'Mid 中间第2个
bws = Val(Left(i, 1)) 'Left 左边第2个
he = gws + sws + 0 '个位数加十位数之和
ys = he Mod 10 '除10的余数
If ys = bws Then '余数为百位数
jg = jg & i & " " '保存结果
End If
Next
MsgBox jg '消息框显示结果
End Sub

for i=200 to 900 g=i-int(i/10)*10 s=int(i/10)-int(i/100)*10 b=int(i/100) if (g+s) mod 10=b then debug.print i next i

Private Sub Command1_Click() Dim n As Integer For i = 200 To 900 If (i Mod 10 + (i Mod 100) \ 10) Mod 10 = i \ 100 Then Print i; n = n + 1 If n Mod 5 = 0 Then Print End If Next i End Sub