VB編程，找出所有的“水仙花數”。

這個程序在VB中與VC中是有些些不同的，因為VC中當定義每位為整型時，它不會有四舍五入規則的，而VB中則不同。比如：VC中（153/100）%10=1，而VB中它算出來的為2，所以註意這個就可以了。在VB中就先從個位判斷，是否超過或等於5，是的話就讓它減去0.5，不是的話直接操作。

VB中程序如下：壹個按鈕，壹個標簽就可以了。

Dim m As Integer

Dim m1 As Integer

Dim m2 As Integer

Dim m3 As Integer 'm,m1,m2,m3最好是分開定義不然會出現ByRef參數類型不符的錯誤

Dim str As String

Private Sub Command1_Click()

For m = 100 To 999

m3 = m Mod 10

If m3 >= 5 Then

m2 = (m / 10 - 0.5) Mod 10 '因為當個位數大於5時，m/10會進壹位，即十位會比原來的數據多1，所以要把這個四舍五入的位取消五入規則

Else

m2 = (m / 10) Mod 10

End If

If m2 >= 5 Then

m1 = m / 100 - 0.5 '原因同上

Else

m1 = m / 100

End If

If ((cubic(m1) + cubic(m2) + cubic(m3)) = m) Then

str = str + CStr(m) + vbCrLf '把每計算出的數據存到str中，並換行

Label2.Caption = str

End If

Next m

End Sub

Function cubic(data As Integer) As Double

cubic = data * data * data

End Function

結果如下圖：

上一篇:查尋三菱重工變頻空調1.5,溫度26,10小時需多少度電？

下一篇:新加坡數學適合國內的孩子學嗎