vb編程pdf

① VB編程水仙花數

VB實現水仙花數的程序代碼如下：

PrivateSubCommand_Click()

Fornum=100To999

a=numMod10

b=num10Mod10

c=num100

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

Nextnum

EndSub

實現具體步驟如下：

1.啟動VB程序，新建一個標準的exe項目，如下圖。

(1)vb編程pdf擴展閱讀：

C語言實現水仙花數的代碼：

#include<stdio.h>

#include<stdlib.h>

voidmain()

{

inti,j,k,n;

printf("'waterflower'numberis:");

for(n=100;n<1000;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(" ");

}

注意事項：

VB編程的核心思想是組件編程。VB是最早引入組件編程的概念，然後被其他語言採用並成為標准，如vc++、Delphi、PowerBuilder等都採用了組件編程模型，並利用面向對象的編程技術，成為當今程序設計的發展方向之一。

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

VB有一個圖形用戶界面(GUI)和快速應用程序開發(RAD)系統，可以很容易地使用s、RDO、ADO連接到資料庫，或者很容易地創建活動的X控制項，從而高效地生成類型安全的和面向對象的應用程序。

程序員可以使用VB提供的組件輕鬆快速地構建應用程序。VB的組件既可以擁有用戶界面，也可以沒有。這樣一來伺服器端程序就可以處理增加的模塊。

VB使用參數計算的方法來進行垃圾收集，這個方法中包含有大量的對象，提供基本的面向對象支持。因為越來越多組件的出現，程序員可以選用自己需要的擴展庫。

② VB編程，超簡單的。求編寫代碼

第一題：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("請輸入當前顧客購買雞蛋的重量（以公斤為單位）")
If x < 3 Then
Y = 7.6 * x
Else
Y = 7.6 * x * 0.8
End If
Print Format(Y, "0.00")
End Sub

第二題：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("請輸入顧客所乘的公里數")
If x / Fix(x) = 1 Then
x = x
Else
x = Fix(x) + 1
End If

If x > 15 Then
Y = 7 + 13 * 1.5 + (x - 15) * 2.1
ElseIf x > 2 Then
Y = 7 + (x - 2) * 1.5
Else
Y = 7
End If

Print Y
End Sub