用VB.net變成找出100~999之間的水仙花數(shù)

Private Sub Form_Click()

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴，公司提供的服務(wù)項目有：空間域名、網(wǎng)站空間、營銷軟件、網(wǎng)站建設(shè)、麻陽網(wǎng)站維護、網(wǎng)站推廣。

Dim i As Integer, n As Integer

Dim a As Integer, b As Integer, c As Integer

'設(shè)a b c 分別表示百位數(shù)，十位數(shù)，個位數(shù)

Print "水仙花數(shù)如下："

For n = 100 To 999 '遍歷100到999所有三位的水仙花數(shù)

a = Int(n / 100) '取百位數(shù)，用int函數(shù)取整數(shù)部分

b = Int((n - a * 100) / 10) '取十位數(shù)

c = n - a * 100 - b * 10 '取個位數(shù)

i = a ^ 3 + b ^ 3 + c ^ 3 '將其各位數(shù)字立方之和相加起來

If i = n Then Print Str(i) ' 判斷各位數(shù)字立方之和相加起來,若等于100-999當(dāng)中的數(shù)那么就輸出來

Next n

End Sub溫馨提示：VB.NET的代碼與VB6.0的代碼是差不多的，你只需稍稍改一下即可。由于我手頭上沒有VB.NET工具所以就不能幫你用VB.NET調(diào)試了。

VB編程水仙花數(shù)

VB實現(xiàn)水仙花數(shù)的程序代碼如下：

PrivateSubCommand_Click()

Fornum=100To999

a=numMod10

b=num\10Mod10

c=num\100

Ifa^3+b^3+c^3=numThenPrintnum

Nextnum

EndSub

實現(xiàn)具體步驟如下：

1.啟動VB程序，新建一個標(biāo)準(zhǔn)的exe項目，如下圖。

2.在窗體上繪制命令按鈕(名稱:命令)，雙擊命令按鈕以進入代碼窗口，如下圖。

3.接下來，開始為命令按鈕編寫單擊事件。click事件實現(xiàn)了上面提供的程序代碼，如下圖。

4.按F5運行程序并單擊命令按鈕。水仙花產(chǎn)量為4:15,370,371,407，如下圖。

擴展資料：

C語言實現(xiàn)水仙花數(shù)的代碼：

#include?stdio.h

#include?stdlib.h

voidmain()

{

inti,j,k,n;

printf("'waterflower'numberis:");

for(n=100;n1000;n++)

{

i=n/100;/*分解出百位*/

j=n/10%10;/*分解出十位*/

k=n%10;/*分解出個位*/

if(n==i*i*i+j*j*j+k*k*k)

{

printf("%-5d",n);

}

}

printf("\n");

}

注意事項：

VB編程的核心思想是組件編程。VB是最早引入組件編程的概念，然后被其他語言采用并成為標(biāo)準(zhǔn)，如vc++、Delphi、PowerBuilder等都采用了組件編程模型，并利用面向?qū)ο蟮木幊碳夹g(shù)，成為當(dāng)今程序設(shè)計的發(fā)展方向之一。

VB編程，由于采用了組件技術(shù)，所以不必從底層開始窗體，控制設(shè)計，可以由工廠通過各種零件裝配生產(chǎn)機器，通過Microsoft或第三方提供的組件，裝配成所需的程序。與什么?VB是代碼，它像膠水一樣，把有限的代碼和組件粘合在一起。結(jié)果是一個完整的應(yīng)用程序。

VB有一個圖形用戶界面(GUI)和快速應(yīng)用程序開發(fā)(RAD)系統(tǒng)，可以很容易地使用daos、RDO、ADO連接到數(shù)據(jù)庫，或者很容易地創(chuàng)建活動的X控件，從而高效地生成類型安全的和面向?qū)ο蟮膽?yīng)用程序。

程序員可以使用VB提供的組件輕松快速地構(gòu)建應(yīng)用程序。VB的組件既可以擁有用戶界面，也可以沒有。這樣一來服務(wù)器端程序就可以處理增加的模塊。

VB使用參數(shù)計算的方法來進行垃圾收集，這個方法中包含有大量的對象，提供基本的面向?qū)ο笾С帧Ｒ驗樵絹碓蕉嘟M件的出現(xiàn)，程序員可以選用自己需要的擴展庫。

請問用VB.NET 來判斷水仙花數(shù) 希望哪個高手指點一下啊，謝謝

Module Module1

Sub Main()

Console.WriteLine("找出100-500水仙花數(shù)：")

For i As Integer = 100 To 500

Dim bai As Integer = i \ 100

Dim shi As Integer = (i - bai * 100) \ 10

Dim ge As Integer = i - bai * 100 - shi * 10

If bai ^ 3 + shi ^ 3 + ge ^ 3 = i Then

Console.Write("{0} ", i)

End If

Next

Console.Read()

End Sub

End Module

當(dāng)前文章：水仙花代碼vb.net 水仙花代碼怎么寫JAVA
網(wǎng)頁地址：http://www.yijiale78.com/article24/dooegje.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App設(shè)計、靜態(tài)網(wǎng)站、標(biāo)簽優(yōu)化、虛擬主機、動態(tài)網(wǎng)站、網(wǎng)站改版

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)