【文章內(nèi)容簡介】 VB 程序設(shè)計。 _ + vbCrLf + vbCrLf + （ 2）學(xué)會分析問題和解決問題的思路、 _ + 算法設(shè)計和實現(xiàn)方法。 + vbCrLf + vbCrLf _ + （ 3）學(xué)會利用 MSDN資源。 + vbCrLf + vbCrLf _ + （ 4）養(yǎng)成良好的編程習(xí)慣。 End Sub 該程序功能：單擊 cmdHow按鈕，在 lblHelloVB標(biāo)簽顯示“如何學(xué)好 VB”，在 txtHelloVB文本框顯示以下內(nèi)容： （ 1）從實 際應(yīng)用程序的開發(fā)過程中學(xué)習(xí) VB 程序設(shè)計。 （ 2）學(xué)會分析問題和解決問題的思路算法設(shè)計和實現(xiàn)方法。 （ 3）學(xué)會利用 MSDN資源。 （ 4）養(yǎng)成良好的編程習(xí)慣。 4. 閱讀以下程序，寫出其功能。 Sub newQuestion() Dim intOp1 As Integer, intOp2 As Integer, intTemp As Integer Dim strOprator As String Dim intOpratorNum As Integer Randomize intOp1 = Int(10 * Rnd + 1) intOp2 = Int(10 * Rnd + 1) intOpratorNum = Int(4 * Rnd + 1) Select Case intOpratorNum Case 1 strOprator = +: intAnswer = intOp1 + intOp2 Case 2 strOprator = － : If intOp1 intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTemp End If intAnswer = intOp1 intOp2 Case 3 strOprator = : intAnswer = intOp1 * intOp2 Case 4 strOprator = 247。 If intOp1 intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTemp End If If intOp1 Mod intOp2 0 Then intOp1 = intOp1 intOp1 Mod intOp2 End If End Select 39。 lblQuestion為標(biāo)簽 = intOp1 amp。 amp。 strOprator amp。 amp。 intOp2 amp。 = End Sub 該程序是一個隨機(jī)出題的過程。隨機(jī)產(chǎn)生兩個 10 以內(nèi)的操作數(shù)，隨機(jī)產(chǎn)生一個操作符（ +、－、 、 247。）。如果是減法和除法時，第一操作數(shù)小于第二操作數(shù)時交換兩個操作數(shù)，且如果是除法則同時減去兩數(shù)相除所得的余數(shù)。最后在標(biāo)簽 lblQuestion上顯示題目。 5. 閱讀以下程序，寫出其功能。 Public Function Avg_mark(MarkArray() As Single) As Single Dim sngSum As Single, i As Integer , n As Integer sngSum = 0 n = UBound(MarkArray) For i = 0 To n sngSum = sngSum + MarkArray(i) Next i Avg_mark = sngSum / n End Function 該程序是一個求平均值的函數(shù)。以一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個 數(shù)，接著求出數(shù)組所有元素的和，最后得出該數(shù)組的平均值。 6. 閱讀以下程序，寫出其功能。 Public Function Max_Mark(MarkArray() As Single) As Single Dim sngMax As Single , i As Integer , n As Integer sngMax = 0 n = UBound(MarkArray) For i = 0 To n If MarkArray(i) sngMax Then sngMax = MarkArray(i) Next i Max_Mark = sngMax End Function 該程序是一個求最大值的函數(shù)。以一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個數(shù)，接著逐個比較，求出數(shù)組元素的最大值。 7. 閱讀以下程序，寫出其功能。 Public Function Pass_Mark(MarkArray() As Single) As Single Dim intCount As Integer, i As Integer , n As Integer intCount = 0 n = UBound(MarkArray) For i = 0 To n if MarkArray(i) = 60 Then intCount = intCount + 1 Next i Pass_Mark = intCount / n End Function 該函數(shù)的功能是求一組數(shù)中大于等于 60 的數(shù)的比例。以一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個數(shù)，接著逐個比較，求出數(shù)組元素中大于等于 60的數(shù)的個數(shù)，最后求出其比例。 8. 閱讀以下程序，寫出其功能。 Private Sub Sort_Mark(MarkArray() As Single) Dim sngMtemp As Single Dim i As Integer , n As Integer , k As Integer,j As Integer n = UBound(MarkArray) For i = 0 To n – 1 k = i For j = i + 1 To n If MarkArray(j) MarkArray(k) Then k = j Next j sngMtemp = MarkArray(k) MarkArray(k) = MarkArray(i) MarkArray(i) = sngMtemp Next i End Sub 該過程的功能是把一組數(shù)按從大到小排序。以一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個數(shù)，接著逐個比較，求出數(shù)組元素中的最大值和第一個元素交換位置；求出次大值和第二個元素交換位置；依次類推，完成從大到小排序。 9. 閱讀以下程序，寫出其功能。 Private Sub changecolor() Dim r As Integer , g As Integer, b As Integer Dim x As Long 39。 hsbRed、 hsbGreen和 hsbBlue為水平滾動條 =0: =0 : =0 =255: =255 : =255 r = g = b = x = RGB(r, g, b) = x End Sub 該過程的功能是用紅色、綠色、藍(lán)色三個滾動條調(diào)節(jié)窗體底色。先把紅色、綠色、藍(lán)色三個滾動條的 Min屬性設(shè)置為 0、 Max屬性設(shè)置為 255，接著用取出三個滾動條的 Value屬性值，用 RGB函數(shù)產(chǎn)生一個由紅、綠、藍(lán)三個 Value屬性值混合而成的新顏色，并作為窗體底色。 10. 閱讀以下程序，寫出其功能。 Public ADO As Connection Public Sub Main() Dim strAccess As String strAccess=Provider=。Data Source=d:\ If ADO Is Nothing Then Set ADO = New Connection strAccess End If 39。 frmMain為窗體 End Sub 該段程序的功能是建立數(shù)據(jù)庫的連接。實現(xiàn)與 D盤根目錄下的文件名為 的 Access數(shù)據(jù)庫的連接，同時顯示frmMain窗體。 11. 閱讀以下程序，寫出其功能。 Public ADO As Connection Public ADOrs As New Recordset Private Sub cmdAdd_Click() Dim strSQL As String 39。文本框 txtNo、 txtName和組合框 cboSex、 cboClass 39。分別用來輸入學(xué)號、姓名、性別和班級 strSQL = select * from 學(xué)生表 where 學(xué)號 =39。 + + 39。 strSQL, ADO If Not Then MsgBox 該記錄已經(jīng)存在，不能繼續(xù)增加！ , vbCritical + vbOKOnly Exit Sub End If strSQL = insert into 學(xué)生表 (學(xué)號 ,姓名 ,性別 ,班級 ) strSQL = strSQL + values(39。 + + 39。,39。 + + 39。, strSQL = strSQL +39。 + + 39。,39。 + 39。) strSQL End Sub 該段程序的功能 是把一個學(xué)生記錄插入到學(xué)生表中。首先查找數(shù)據(jù)表中是否存在文本框 txtNo 中輸入的學(xué)號，如果存在則不增加；如果不存在，則把該學(xué)生的信息記錄插入學(xué)生表中。 四、程序設(shè)計題 1. 編寫一個程序。程序初始界面如圖 1左圖所示，設(shè)“學(xué)習(xí)目的”、“學(xué)習(xí)方法”和“退出”命令按鈕的名稱定義為 cmdAim、 cmdWay和 cmdExit， 標(biāo)簽控件 的名稱定義為 lblContent。單擊“學(xué)習(xí)目的”按鈕，顯示如圖 1 的中圖所示；單擊“學(xué)習(xí)方法”命令按鈕，顯示如圖 1的右圖所示；單擊“退出”按鈕時，退出程序。 圖 1 Private Sub cmdAim_Click() = 開發(fā) Windows應(yīng)用程序 End Sub Private Sub cmdWay_Click() = 從實際應(yīng)用程序的開發(fā)過程中學(xué)習(xí) VB End Sub Private Sub cmdExit_Click() End End Sub 2. 設(shè)計一個簡單的加法程序，程序界面設(shè)計如圖 2所示。設(shè)第一操作數(shù)、第二操作數(shù)和計算結(jié)果文本框的名稱分別定義為 txtFirstNum、 txtSecondNum和 txtSum，“計算”命令按鈕的名稱定義為 cmdSum。 圖 2 Private Sub cmdSum_Click() = Val() + Val() End Sub 3. 編寫一個數(shù)制轉(zhuǎn)換程序，運行界面如圖 3所示。設(shè)三個文本框的名稱框定義分別為 TxtDec、 TxtHex和 TxtOct。實現(xiàn)在第一個文本框中輸入十進(jìn)制數(shù)后，第二個文本框自動顯示該數(shù)對應(yīng)的十六進(jìn)制數(shù)，第三個文 本框自動顯示該數(shù)對應(yīng)的八進(jìn)制數(shù)。提示：利用文本框的 Change事件和轉(zhuǎn)換函數(shù) Hex、 Oct。 圖 3 Private Sub TxtDec_Change() = Hex(Val()) = Oct(Val()) End Sub 4. 編寫一個猜數(shù)字程序。程序產(chǎn)生一個隨機(jī)數(shù)，由用戶來猜這個數(shù)，并提示用戶猜的數(shù)是否太大或太小，程序運行界面如 4 所示，設(shè)輸入文本框的名稱框定義為 TxtAnswer，神秘的數(shù)、評價標(biāo)簽控 件的名稱框定義為lblComment和 lblNum，“確定”命令按鈕的名稱定義為 cmdOk。 圖 4 Dim intNum As Integer 39。用于存放“神秘的數(shù)” Dim intCount As Integer 39。用于猜數(shù)計數(shù) Private Sub cmdOk_Click() intCount = intCount + 1 39。計數(shù) If Val() = intNum Then 39。猜對 = 猜對了！你一共猜了 amp。 intCount amp。 次 = intNum ElseIf Val() intNum Then = 太大了 ！ Else = 太小了！ End If End Sub Private Sub Form_Load() Randomize intNum = Int(Rnd * 1000 + 1) End Sub 5. 編寫一個判斷閏年的程序。判斷平年、閏年方法：凡是能被 4 整除但不能被 100 整除的年份為閏年，如 1980年； 凡是 能被 400整除的年份為閏年，如 2021年；除以上兩種情況以外的其余年份都是平年。 Private Sub Command1_Click() Dim intYear As Integer 39。用于存放年份