一道简单vb编程题？

答案:4 悬赏:0 手机版

解决时间 2021-04-28 14:51

提问者网友：雨不眠的下
2021-04-28 03:18

已知两个三位数相加之和abc+cba=1333.编程计算并输出能满足这个条件的所有a，b，c，的值··

最佳答案

五星知识达人网友：深街酒徒
2021-04-28 03:39

Private Sub Command1_Click()
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
n = a * 100 + b * 10 + c
m = c * 100 + b * 10 + a
If n + m = 1333 Then Print "a=" & a & " " & "b=" & b & " " & "c=" & c

Next c
Next b
Next a
End Sub

全部回答

1楼网友：风格不统一
2021-04-28 06:30

Private Sub Command1_Click() For a = 0 To 9 For b = 0 To 9 For c = 0 To 9 n = a * 100 + b * 10 + c m = c * 100 + b * 10 + a If n + m = 1333 Then Print n & "+" & m & "=" & n + m Next c Next b Next a End Sub

2楼网友：山君与见山
2021-04-28 05:08

Private Sub Command1_Click() For i = 1 To 1000 If i + StrReverse(i) = 1333 Then Print i; "+ "; StrReverse(i); " ="; " 1333" End If Next End Sub

3楼网友：白昼之月
2021-04-28 04:22

VB： Private Sub Command1_Click() For a = 0 To 9 For b = 0 To 9 For c = 0 To 9 n = a * 100 + b * 10 + c m = c * 100 + b * 10 + a If n + m = 1333 Then Print n & "+" & m & "=" & n + m Next c Next b Next a End Sub 运行结果： 419+914=1333 518+815=1333 617+716=1333 716+617=1333 815+518=1333 914+419=1333 黑体的三个是重复的- -

我要举报

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