中科新闻网养鬼为祸赵茜变坏了?:vb初学者，有问题请教
来源：百度文库 编辑：中科新闻网 时间：2024/05/07 11:22:47
请教一下，谢谢。
首先要一个文本框"text1"
Private Sub Form_Load()
Dim a As Integer '数字的百位
Dim b As Integer '数字的十位
Dim c As Integer '数字的个位
Text1.Text = "" '清空文本框
For i = 100 To 999 '对所有三位数进行处理
a = i \ 100 '当前数整除100，得出百位
b = (i Mod 100) \ 10 '取当前数除以100的余数，再对10整除，得十位
c = ((i Mod 100) Mod 10) '个位
If i = a * a * a + b * b * b + c * c * c Then
'条件成立输出在文本框
Text1.Text = Text1.Text + Str(i) + Chr(10)
End If
Next i
End Sub
For i = 100 To 999
a = Int(i / 100)
b = Int((i - a * 100) / 10)
c = i Mod 10
If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i
Next
以上程序经过我实验输出结果为：
153
370
371
407
for i= 100 to 999
a=int(i/100)
b=int((i-a*100)/10)
c=i mod 10
if a^3+b^3+c^3=i then print i
next
for i=100 to 999
a=i\100
b=(i mod 100)\10
c=i mod 10
if i=a*a*a+b*b*b+c*c*c then print i
next i