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

答案:3 悬赏:60 手机版

解决时间 2021-02-02 10:50

提问者网友：富士山上尢
2021-02-02 00:57

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

最佳答案

五星知识达人网友：末日狂欢
2021-02-02 02:07

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

全部回答

1楼网友：傲气稳了全场
2021-02-02 05:06

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

2楼网友：山河有幸埋战骨
2021-02-02 03:28

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息