下面程序的功能是找出100到999之间所有的“水仙花数”,请用正确的内容填空。所谓“水仙花数”是指一个三位数,其各位数字的立方和等于该数本身,例如153=13+53+33,故153是“水仙花数”。 Private Sub Form Click( ) Dim p As Integer For n =100 To 999 a=...
下面程序的功能是找出100到999之间所有的“水仙花数”,请用正确的内容填空。所谓“水仙花数”是指一个三位数,其各位数字的立方和等于该数本身,例如153=13+53+33,故153是“水仙花数”。 Private Sub FormClick( ) Dim p As Integer For n =100 To 999 a=___ b=Int((n-a*100)/10) c=n Mod10 p=...
下面程序的功能是找出100到999之间所有的“水仙花数”,请用正确的内容填空。所谓“水仙花数”是指一个三位数,其各位数字的立方和等于该数本身,例如153=13+53+33,故153是“水仙花数”。Private Sub Form_Click ()Dim p As IntegerFor n = 100 To 999a =___b = Int (( n – a * 100 ) / 10 )c...