vb編程怎麼生成程序

A. VB程序設計一般的四個步驟

1、建立應用程序界面

2、設置對象的屬性

3、編寫應用程序的代碼

4、保存和運行程序

VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接資料庫，或者輕松的創建ActiveX控制項，用於高效生成類型安全和面向對象的應用程序。程序員可以輕松的使用VB提供的組件快速建立一個應用程序。

(1)vb編程怎麼生成程序擴展閱讀

VB語言缺點

Visual Basic 語言具有不支持繼承、無原生支持多線程、異常處頌做理不完汪局善等三項明顯缺點，使其有所局限性（此些缺點皆已在 vb .net 獲得改進）。

1、不支持繼承

VB 5.0 和 VB 6.0 都是基於對象的編程語言，但是不包含繼承特性。VB 中提供了特殊的類的功能，但是還是不能滿足程序員的需求。

2、無原生支持多線程

Visual Basic 對於多線程無原生支持，只能通過Windows API的調用實現，且極其的不穩定。因為在API創建的線程中，並沒有自動初始化運行時庫，導致部分的函數無法使用。一般的，在VB6等早期的VB開發環境下，使用API創建線程的目的是完成容易使程序假死的大量數據或者邏輯的計算。

3、異常處理不完善

Visual Basic 中內置異常處理，即使未寫異常處理代碼，一旦用戶出錯也會彈出一個明確寫出出錯原因對話框，接著程序終止。

Visual Basic 中可以使用 Err.Raise拋出異常。對系統及用戶拋出的異常的處理常用兩種模式：一是使用 On Error Resume Next 處理錯誤；另一種是使用 On Error Goto 將運行引入錯誤處理代碼。但相對 C++ 等語言而言，這樣的異常處困櫻讓理破壞了代碼的結構。

B. 用VB編寫一個計算器程序的代碼

1、創建控制項組的方法
首先創建一個命令按鈕，調整其大小（覺得合適就行），名稱為Command1，Caption 屬性為數字 0 ；然後進行「復制」和「粘貼」，當選擇「粘貼」時，出現對話框提示已有一個同名控制項，詢問是否創建控制項組，選擇「是」後，即創建了一個名為「Command」的控制項組。

這時，第一個按鈕的Index屬性值默認為「0」，第二個的Index屬性值自動設為「1」，並且大小與第一個按鈕相同，只需修改其 Caption 屬性為數字「1」並將其拖至合適位置即可。此後繼續使用「粘貼」的方法建立其他控制項組中其餘按鈕，共20個按鈕，每建立一個，就將它拖到合適處，並修改相應的Caption屬性值。

2、各控制項組其屬性設置如下：

二、編寫代碼

Dim s1 As Single， s2 As Single， ysf As String

『定義兩個單精度數變數用與存放參與運算的數，一個字元型存放運算符

Private Sub Command1_Click（Index As Integer）

Text1.Text = Text1.Text & Command1（Index）.Caption 』將command1的單擊事件與文本框顯示的內容連接

End Sub

Private Sub Command2_Click（）

Text1.Text = Text1.Text + 「。」

If （InStr（Text1.Text， 「。」） = 1） Then 『第一位不能為小數

Text1.Text = 「」

End If

If InStr（Text1.Text， 「。」） 《 Len（Text1.Text） Then 』防止出現兩個小數點

Text1.Text = Left

（Text1.Text， Len（Text1.Text） - 1）

End If

End Sub

Private Sub

Command3_Click（）

s2 = Val（Text1.Text） 『開始加減乘除運算

Select Case ysf Case 「+」

Text1.Text = s1 + s2

Case 「-」

Text1.Text = s1 - s2

Case 「*」

Text1.Text = s1 * s2

Case 「/」

If s2 = 0 Then

MsgBox 「分母不能為零！」

Text1.Text = 「」

Else

Text1.Text = s1 / s2 End If End Select

Text1 = IIf（Left（Text1.Text， 1） = 「。」， 0 & Text1.Text， Text1.Text） 『

這個很關鍵，如果沒有這個的話，得出小於1的小數前面沒有0

End Sub

Private Sub Command4_Click（）

If Text1.Text = 「」 Then 』文本為空就結束

Exit Sub

End If

Text1.Text = Left（Text1.Text， Len（Text1.Text） - 1） 『文本退一格

End Sub

Private Sub Command5_Click（）

Text1.Text = 「」 』清除當前框內文本

End Sub

Private Sub Command6_Click（Index As Integer）

s1 = Val（Text1.Text） 『將s1隱藏起來 ysf = Command6（Index）.Caption

Text1.Text = 「」

End Sub

Private Sub Command7_Click（）

If Left（Text1.Text， 1） 《》 「-」 Then 』判斷作為負數

Text1.Text = 「-」 & Text1.Text

Else

Text1.Text = Right（Text1.Text， Len（Text1.Text） - 1）

End If

End Sub

Private Sub Command8_Click（）

Text1.Text = Text1.Text * Text1.Text 『平方

End Sub

拓展資料

Visual Basic（VB）是由微軟公司開發的包含環境的事件驅動編程語言。它源自於BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接資料庫，或者輕松的創建ActiveX控制項。程序員可以輕松地使用VB提供的組件快速創建一個應用程序。

參考鏈Visual Basic——網路接