vb語言程序簡單設計實例（5款vb語言設計程序分享）

vb語言程序設計簡介

以vb程序設計語言為工具，對特定的問題進行分析，并設計出解題的算法，根據得到的算法，用vb語言編寫出源程序的過程就是vb程序設計。

編寫計算機程序需要使用計算機編程語言。計算機編程語言是人和計算機“對話”的橋梁。就像人類的語言一樣，計算機編程語言也有很多。目前較為廣泛使用的語言有“C++”、“Pascal”、“Basic”等。在眾多的計算機編程語言中，以BASIC語言最為易學易用。

BASIC是英文Beginner’s All purpose Symbolic Instruction Code的縮寫，意思為初學者通用符號指令代碼，一直都是程序設計入門的首選語言。

1991年，Visual Basic（簡稱VB）面世，他是第三代BASIC語言，它不但秉承了BASIC語言的易學易用的優點，而且增加了圖形界面設計工具。它簡化了復雜的窗口程序編寫過程，讓編程者將更多的精力致力于問題的求解過程。

vb語言程序設計實例（一）

Option Explicit Private Sub Command1_Click（） Dim i%， j%， r！ i = Val（Text1.Text） j = Val（Text2.Text） Picture1.Print i; j; Call gysh（i， j） Picture1.Print “最大公約數是” & i r = Val（InputBox（“輸入半徑”）） Call S（r） End Sub Public Function gysh（m As Integer， n As Integer） As Integer Dim t% Do t = m Mod n： m = n： n = t Loop While t 《》 0 End Function Public function S（r?。?Const pi = 3.1415926 S = pi * r ^ 2 MsgBox “圓面積為：” & S End function Public Function 定積分（） End Function

vb語言程序設計實例（二）

Dim a（） As Integer， i%， j%， n%， t% Private Sub Command1_Click（） Picture1.Print “排序前的數組為：” n = Val（InputBox（“請輸入一個 3 到 100 的整數”）） ReDim a（1 To n） Randomize For i = 1 To n a（i） = Int（Rnd * 100） + 1 Picture1.Print Tab（（（i - 1） Mod 5） * 6）; a（i）; Next i End Sub Private Sub Command2_Click（） Picture1.Print Picture1.Print “排序后的數組為：” For i = 1 To n - 1 For j = i + 1 To n If a（i） 》 a（j） Then t = a（i） a（i） = a（j） a（j） = t End If Next Next For i = 1 To n Picture1.Print Tab（（（i - 1） Mod 5） * 6）; a（i）; Next End Sub

vb語言程序設計實例（三）

Dim a（）， i%， j% Private Sub Command1_Click（） Dim n% n = Val（InputBox（“請輸入一個整數”）） Randomize ReDim a（n） For i = 1 To n a（i） = Int（Rnd * 100） + 1 Next i Picture1.Print “選擇法排序后的數組為：” For i = 1 To n - 1 For j = i + 1 To n If a（i） 》 a（j） Then t = a（i）： a（i） = a（j）： a（j） = t End If Next Next For i = 1 To n Picture1.Print Tab（（（i - 1） Mod 5） * 6）; a（i）; Next Picture1.Print End Sub Private Sub Command2_Click（） Dim n% n = Val（InputBox（“請輸入一個整數”）） Randomize ReDim a（n） For i = 1 To n a（i） = Int（Rnd * 100） + 1 Next i Picture2.Print “冒泡排序法后的數組為：” For i = 1 To n-1 For j = n To i-1 Step -1 If a（j-1） 》 a（j） Then t = a（j）： a（j） = a（j-1）： a（j-1） = t End If Next Next For i = 1 To n

Picture2.Print Tab（（（i - 1） Mod 5） * 6）; a（i）; Next Picture2.Print End Sub

vb語言程序設計實例（四）

Dim a（）， i%， j%， n%， m%， t% Private Sub Command1_Click（） n = Val（InputBox（“請輸入一個整數”）） Call fuzhi（n） Picture1.Print “選擇排序法后的數組為：” Call paixu（n） Picture1.Print ReDim Preserve a（n） End Sub Private Sub Command2_Click（） m = Val（InputBox（“請輸入一個整數”）） Call fuzhi（m） Picture1.Print “冒泡排序法后的數組為：” For i = 1 To m - 1 For j = m To i + 1 Step -1 If a（j - 1） 》 a（j） Then t = a（j - 1）： a（j - 1） = a（j）： a（j） = t End If Next Next For i = 1 To m Picture1.Print Tab（（（i - 1） Mod 5） * 6）; a（i）; Next Picture1.Print End Sub Private Sub Command3_Click（） ReDim a（t） Picture1.Print “合并后的數組為：” Call paixu（t）

Picture1.Print End Sub Public Sub fuzhi（n%） Randomize ReDim a（n） For i = 1 To n a（i） = Int（Rnd * 100） + 1 Next i End Sub Public Function paixu（n%） As Integer For i = 1 To n - 1 For j = i + 1 To n If a（i） 》 a（j） Then t = a（i）： a（i） = a（j）： a（j） = t End If Next Next For i = 1 To n Picture1.Print Tab（（（i - 1） Mod 5） * 6）; a（i）; Next End Function

vb語言程序設計實例（五）

Dim i%， j%， s% Private Sub Command1_Click（） Picture1.Cls Picture1.Scale （0， 0）-（10， 10） For i = 1 To 9 Picture1.Line （1， i）-（9， i） Picture1.Line （i， 1）-（i， 9） Next Picture1.FillColor = QBColor（0） Picture1.Circle （4.5， 4.5）， 0.4 Picture1.Circle （5.5， 5.5）， 0.4 Picture1.FillColor = QBColor（15） Picture1.Circle （4.5， 5.5）， 0.4

Picture1.Circle （5.5， 4.5）， 0.4 End Sub Private Sub Command2_Click（） s = Abs（s - 1） End Sub Private Sub picture1_mousedown（botton As Integer， shift As Integer， x！， y?。?i = Fix（x） j = Fix（y） If s = 0 Then Picture1.FillColor = QBColor（0） If s = 1 Then Picture1.FillColor = QBColor（15） Picture1.Circle （i + 0.5， j + 0.5）， 0.4 s = Abs（s - 1） End Sub