vb 中求100到1000之间的水仙花数.
我写的程序,大家看看有什么错误?运行不了啊!!! Private Sub Form_Load()Dim a, b, c, i As Integer For i = 100 To 1000 a = i / 100 '百位上的数 b = (i / 10) Mod 10 '十位上的数 c = i Mod 10 '个位上的数 If 100 * a + 10 * b + c = a * a * a + b * b * b + c * c * c Then Print iEnd IfNext iEnd Sub。
全部回答
Private Sub Form_Load() 1，装载窗体时不能运行Print应改为form_click
Dim a, b, c, i As Integer
For i = 100 To 1000
a = i / 100 '百位上的数 2，你把整除符号记错了，此处应将"/"改为"\"
b = (i / 10) Mod 10 '十位上的数 3,此处应改为b=(i-a*100)\10
c = i Mod 10 '个位上的数
If 100 * a + 10 * b + c = a * a * a + b * b * b + c * c * c Then
Print i '因100 * a + 10 * b + c =i，可以简化程序改为i
End If
Next i
End Sub
修改后为：
Private Sub form_click()
Dim a, b, c, i As Integer
For i = 100 To 1000
a = i \ 100 '百位上的数
b = (i - a * 100) \ 10 '十位上的数
c = i mod 10 '个位上的数
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
Print i
End If
Next i
End Sub
结果有5个，其中1000，a=10, b=0, c=0
10*10*10 + 0 =1000
。
。
因为在窗体编程下，print输出就不行了。
放一个Text控件，反正就只要能显示结果，随便你放什么样显示输出控件，这样就可以了。
Private Sub Form_Load()
Dim a, b, c, i As Integer
For i = 100 To 999
a = i \ 100
b = (i \ 10) Mod 10
c = i Mod 10
If i = a ^ 3 + b ^ 3 + c ^ 3 Then
Text1。
Text = Text1。Text + Str(i) + ","
End If
Next i
End Sub
你的程序里有几点错误的地方，第一就是 / ，这个不是整除，153/100=1。
53而不是1 ，因为在VB还有整除符号 \。 153\100=1;
所以 a和b都要改。
100*a+10*b+c 这一句话是多余的，因为它就是i。
a*a*a倒没有什么，不过因为VB里^本来就有这个幂运算符，可以写成a^3这样更好。
类似问题换一批
热点推荐
热度TOP
-
-
广州人流去玛莱医院好不好？
453人阅读
-
徐州华美吸脂怎么样？
39人阅读
-
后来听说这病容易复发是真的吗？
51人阅读
-
嘉兴联勤男科医院好不好呢？
0人阅读
-
长春早孕检查费用
1人阅读