VB程序設計實例

陳正光

在初中《信息技術》（福建教育出版社，《信息技術》教材編寫組編著）八年級上冊中，其中第二單元“VB程序設計基礎”介紹了VB的開發環境和有關基礎知識，初步體驗了順序、分支和循環結構的程序設計，讓學生深刻體會到了可視化程序設計的一般過程。下面介紹本人在平時教學過程中對VB程序設計的一些體會和做法。

一、教材中有一個“電視歌手大獎賽評分”程序設計，題目是這樣的：在電視歌手大獎賽中，經常有10個評委為參賽選手打分，分數為1到10分。選手的得分為去掉一個最高分和一個最低分后其余8個分數的平均值。請你編寫一個程序，當用戶點擊“開始”按鈕后，程序將提示輸入各個評委的打分，輸入一個并在列表框中顯示一個打分，最后在列表框輸出去掉的最高分、最低分以及最后得分。

我們可以對教材中的“電視歌手大獎賽評分”程序設計進行拓展引伸，設計出比較智能多用途的程序。現介紹如下。

1.程序界面設計

新建一個標準exe工程，添加如表1所示的控件，并設置控件相應的屬性。（見附圖1）

表1 “時鐘的時針和分針重合的問題”程序用到的控件及其屬性說明

2.算法分析

①請輸入這次大獎賽的滿分分數（如10分或100分）以及評委的人數，賦值給系統的公共變量public_min和public_i。這里要求事先定義好這兩個系統公共變量。

系統公共變量的定義方法：單擊“工程”菜單，選擇“添加模塊”命令，在“Module1”框中輸入Public public_min As Single和 public_i As Single即可。

②輸入各評委的評分并計算。如果輸入的數值超過事先輸入的滿分的值，系統則提示：“出錯啦，分數超出范圍。”在這里用到了For …Next循環語句、輸入函數InputBox（提示信息，標題，默認值，位置）和輸出函數MsgBox“”。

③輸出。去掉一個最高分和一個最低分后其余分數的平均分。

3.編寫事件過程

由于在“大獎賽評分系統”程序中用戶單擊“請先輸入滿分和評委人數”按鈕后，開始讀入滿分分數和評委人數，因此：

⑴在“Command1”的“Click”事件過程中程序代碼如下：

Private Sub Command1_Click（）

public_min = Val （InputBox（"請輸入本次大賽的滿分分數"， "輸入滿分分數"））

public_i = Val （InputBox（"請輸入本次大賽的評委人數"， "輸入評委人數"））

End Sub

⑵ 在“Command2”的“Click”事件過程中程序代碼如下：

Private Sub Command1_Click（）

Dim max As Single， min As Single， score As Single， sum As Single

Dim i As Single

List1.Clear ‘列表清空

max = 0

min = public_min

sum = 0

ii = public_i

For i = 1 To ii

‘輸入第i個評委的打分

score = Val （InputBox（"請輸入第" & i & "？個評委的打分"， "輸入分數"））

‘將第i個評委的分數加入列表

If score <= public_min Then

List1.AddItem （"評委" & i & "￡o " & score）

If score > max Then max = score

If score < min Then min = score

sum = sum + score

Else

MsgBox "出錯啦，分數超出范圍"

Exit Sub

End If

Next i

將“去掉一個最高分：”與max的值連接成字符串添加到List列表框中

List1.AddItem （"去掉一個最高分：o" & max）

List1.AddItem （"去掉一個最低分：o" & min）

List1.AddItem （"選手最后得分o" & （sum - max - min） /（ii - 2））

End Sub

⑶在“Command3”的“Click”事件過程中程序代碼如下：

Private Sub Command3_Click（）

End

End Sub

二、下面針對教材的第103頁和第107頁的“創新活動”中的問題給出比較詳細的程序編寫過程。

㈠教材第103頁“創新活動”的問題：在12小時制的時間中，在鐘表正常走動的時候，有多少個時針和分針重合的位置？它們分別表示什么時刻（精確到秒即可）？

請編寫一個界面如附圖2所示的“時鐘的時針和分針重合的問題”程序，單擊“開始計算”按鈕，程序計算并顯示出答案，單擊“退出”按鈕，結束程序運行。

1.程序界面設計

新建一個標準exe工程，添加如表2所示的控件，并設置控件相應的屬性。