vb水仙花数找错误

襄阳城

<p>vb水仙花数找错误</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：0 -</p>
<p>解决时间：2010-9-23 11:49</p>
<p>Private Sub Form_Click()</p>
<p>Dim a， b， c， i As Integer</p>
<p>For i = 100 To 999</p>
<p>a = Val(i / 100)</p>
<p>b = Val((i - a * 100) / 10)</p>
<p>c = Val(i - a * 100 - b * 10)</p>
<p>If i = a ^ 3 + b ^ 3 + c ^ 3 Then</p>
<p>Print i</p>
<p>End If</p>
<p>Next i</p>
<p>End Sub</p>
<p>我点击后不显示。也找不出为什么  求各位vb高手帮我一下，谢啦</p>
<p>提问者： 相识n我 - 一级</p>
<p>最佳答案</p>
<p>另一个思路：</p>
<p>Private Sub Form_Click()</p>
<p>Dim a， b， c As Integer \'a(个)b(十)c(百)</p>
<p>For a = 0 To 9</p>
<p>For b = 0 To 9</p>
<p>For c = 1 To 9</p>
<p>If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then</p>
<p>MsgBox 100 * c + 10 * b + a</p>
<p>End If</p>
<p>Next c</p>
<p>Next b</p>
<p>Next a</p>
<p>End Sub</p>
<p>............犯了知识性错误：</p>
<p>val函数改为int：</p>
<p>val函数是提取字符串中的有效数字</p>
<p>int是取整，在此例中是为了得到十位，百位上的数字。</p>
<p>0</p>
<p>回答者：</p>
<p>xlzzc - 八级   2010-9-23 09:00</p>
<p>我来评论>></p>
<p>提问者对于答案的评价：</p>
<p>谢谢，我是个VB的初学者，可以和你成为朋友吗？我的QQ664557339.</p>
<p>真的谢谢了</p>