VB程序設(shè)計實驗要求及報告

1、上海立信會計學(xué)院本科實驗報告班級：學(xué)號：姓名：指導(dǎo)教師：系部：專業(yè)：實驗時間：實驗3選擇結(jié)構(gòu)一、實驗?zāi)康? 掌握單分支、雙分支和多分支條件語句的使用2 掌握情況語句的使用及其與多分支條件語句之間的區(qū)別。二、實驗要求1 在下建立子文件夾“VB 實驗3”，按照題目要求，在該文件夾下為各題保存相應(yīng)的文件，如本實驗中的第一題，需保存的文件有：工程文件、窗體文件及可執(zhí)行文件（） ，本實驗中的第二題，需保存的文件有：工程文件、窗體文件及可執(zhí)行文件（） ，其余實驗依此類推。2 撰寫實驗過程中出現(xiàn)了哪些問題、錯誤，你是如何解決的，做一個小結(jié)。三、實驗內(nèi)容：1. 編一程序輸入上網(wǎng)的時間并計算上網(wǎng)費用，計算的方法

2、如下：基數(shù) 30元，上網(wǎng)時間10小時費用 = 每小時 2.5元， 上網(wǎng)時間10 50小時每小時 2元，上網(wǎng)時間50小時同時為了鼓勵多上網(wǎng)，采用累進計費制，但每月收費最多不超過150 元。上網(wǎng)時間在文本框中輸入；上網(wǎng)費用在標(biāo)簽中輸出，所有控件字體默認(rèn)、大小為小四。要求使用多分支結(jié)構(gòu)（ IFTHENELSEIF）編寫，效果如圖3-1 所示。圖 3-1Option ExplicitPrivate Sub Command1_Click()Dim s!, sum!s = ValIf s <= 0 ThenMsgBox " 上網(wǎng)時間不能為負(fù)數(shù)和零", , " 輸入錯誤

3、"Text1 = ""ElseIf s <= 10 Thensum = 30ElseIf s > 10 And s <= 50 Thensum = 30 + (s - 10) *ElseIf s > 50 And s <= 60 Thensum = 130 + (s - 50) * 2Elsesum = 150End If= sumEnd IfEnd Sub2. 利用 InputBox 函數(shù)輸入 a、b、c 三個整數(shù)， 按從大到小的順序顯示 （用 Print 方法輸出），窗體中所有控件字體大小為小四。效果如圖3-2（ a）、（ b）所

4、示。圖 3-2（ a）圖 3-2（ b）Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, t%a = InputBox(" 輸入 a 的值", " 數(shù)據(jù)輸入 ")b = InputBox(" 輸入 b 的值", " 數(shù)據(jù)輸入 ")c = InputBox(" 輸入 c 的值 ", " 數(shù)據(jù)輸入 ")Print "" "a" "" "b&qu

5、ot; "" "c"Print " 排序前 " "" a; "" b; "" cIf a < b Then t = a: a = b: b = tIf b < c Thent = b: b = c: c = tIf a < b Thent = a: a = b: b = tEnd IfEnd IfPrint " 排序后 " "" a; "" b; "" cPrintEnd Sub

6、3、 利用計算機解決古代數(shù)學(xué)問題“雞兔同籠問題”。即已知在同一籠子里有雞和兔的總頭數(shù)為 m 頭，雞和兔的總腳數(shù)為n 只，求雞和兔各有多少只另要求輸入的數(shù)據(jù)必須經(jīng)過檢驗，如果錯誤則作出提示，“確定”后自動清除錯誤數(shù)據(jù)并要求重新輸入數(shù)據(jù)。觸發(fā)事件發(fā)生在輸入總腳數(shù)后焦點失去時，在文本框中輸入數(shù)據(jù)；在圖片框中輸出結(jié)果，所有控件字體默認(rèn)、大小為小四。效果如圖3-3（ a）、（ b）、（ c）所示。圖 3-3（ a）圖 3-3（ b）圖 3-3（ c）Private Sub Text2_LostFocus()Dim a%, b%, c%, d%a = Val(Text1)b = Val(Text2)If

7、b Mod 2 <> 0 Or b < 2 * a Or 4 * a < b ThenMsgBox " 輸入數(shù)據(jù)錯誤， 可能如下情況： " + Chr(13) + Chr(10) + " 總腳數(shù)非偶數(shù)" + Chr(13)+ Chr(10) + "總腳數(shù)小于2 倍的頭數(shù) " + Chr(13) + Chr(10) + " 總腳數(shù)大于4 倍的頭數(shù) " + Chr(13)+ Chr(10) + "請重新輸入 ", , " 數(shù)據(jù)錯誤 " Text1 = &q

8、uot;"Text2 = ""Elsec = (b - a * 2) / 2d = a - cdcEnd IfEnd Sub4、 編一模擬袖珍計算器（四則運算即+、-、* 、/ ）的完整程序， 界面如圖 3-4 所示。 要求：輸入兩個操作數(shù)和一個操作符，根據(jù)操作符單擊“計算”按鈕進行計算。輸入、輸出數(shù)據(jù)均存放于文本框中，窗體中所有控件字體默認(rèn)、大小為小四。建議使用Select Case語句實現(xiàn)圖 3-4Option ExplicitPrivate Sub Command1_Click()Dim a!, b!, c As String * 1a = Val(Text1): b = Val(Text2): c = Trim(Text3)Select Case cCase "+"Text4 = a + bCase "-"Text4 = a - bCase "*&