UC知道一个VB小问题（简单）
来源：百度知道 编辑：UC知道 时间：2024/05/29 03:37:40
这个程序
Private Sub Form_click()
For i = 100 To 999
a = i \ 100
b = i \ 10 - a * 10
c = i - (i \ 10) * 10
If i = a * a * a + b * b * b + c * c * c Then Print i;
Next i
End Sub
要不要写成
Private Sub Form_click()
For i = 100 To 999
a = int(i \ 100)
b = int(i \ 10 - a * 10)
c = int(i - 10*b-a*100)
If i = a * a * a + b * b * b + c * c * c Then Print i;
Next i
End Sub
Private Sub Form_click()
For i = 100 To 999
a = i \ 100
b = i \ 10 - a * 10
c = i - (i \ 10) * 10
If i = a * a * a + b * b * b + c * c * c Then Print i;
Next i
End Sub
要不要写成
Private Sub Form_click()
For i = 100 To 999
a = int(i \ 100)
b = int(i \ 10 - a * 10)
c = int(i - 10*b-a*100)
If i = a * a * a + b * b * b + c * c * c Then Print i;
Next i
End Sub
加INT是不必要啦..中间的除号是整除, 返回的肯定是整数啦..
不过你可以试试我的:
Private Sub Form_Click()
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 Print i;
Next
End Sub
不需要，自己试下也可以嘛
\与mod运算差不多
不需要，因为变量没有定义，要么就定义变量！