VB上機(jī)綜合測(cè)試題十五套

1、-. z.VB上機(jī)綜合測(cè)試題一一、如下所示，在窗體上，放置一個(gè)文本框te*t1文本框中的文字為“改變字形，居中顯示。三個(gè)復(fù)選框check1,check2和check3，如圖設(shè)置屬性。要求：當(dāng)用戶(hù)單擊“加粗、“斜體、“下劃線(xiàn)這三個(gè)復(fù)選框時(shí)即當(dāng)復(fù)選框被選中時(shí)能將文本框的字形變?yōu)椤按煮w、斜體、加下劃線(xiàn)25分二、在窗體上添加一個(gè)命令按鈕(名稱(chēng)為Cmd1，標(biāo)題為輸出平均值)。程序運(yùn)行后，單擊命令按鈕完成以下工作：隨機(jī)產(chǎn)生20個(gè)0到1000的整數(shù)，將其放入一個(gè)一維數(shù)組中求出所有元素的平均值，并顯示在窗體上(如下列圖所示)35分三、請(qǐng)?jiān)O(shè)計(jì)如下列圖所示窗體界面。運(yùn)行程序時(shí)，先向左側(cè)文本框中輸入一個(gè)不超過(guò)10的

2、正整數(shù)，然后選擇N的階乘或(N+2)的階乘單項(xiàng)選擇鈕，即可進(jìn)展計(jì)算，計(jì)算結(jié)果在右側(cè)文本框中顯示。請(qǐng)編寫(xiě)程序完成上述功能。40分答案：一、界面設(shè)計(jì)-10分Private Sub Check1_Click()Te*t1.FontBold = Check1.Value -5分End SubPrivate Sub Check2_Click()Te*t1.FontItalic = Check2.Value-5分End SubPrivate Sub Check3_Click() Te*t1.FontUnderline = Check3.Value -5分End Sub二、界面設(shè)計(jì)-10分Private S

3、ub Cmd1_Click()-2分Dim a%(19), i%, sum!, aver! -4分Randomize -3分For i = 0 To 19-3分a(i) = Int(Rnd * 1001) -3分sum = sum + a(i) -3分Ne*t i -2分aver = sum / 20 -3分Print aver -2分End Sub三、界面設(shè)計(jì)-10分Dim n%-2分Private Sub Form_Load() End Sub Private Sub Option1_Click()-2分Dim i% -2分n = Val(Te*t1) -3分m = 1 -1分For i

4、= 1 To n -2分m = m * i -2分Ne*t i -2分Te*t2 = m -2分End Sub Private Sub Option2_Click()-1分Dim i% -2分m = 1 -1分For i = 1 To n + 2 -2分m = m * i -2分Ne*t i -2分Te*t2 = m -2分End SubVB上機(jī)綜合測(cè)試題二1設(shè)計(jì)如下圖界面，編程實(shí)現(xiàn)如下功能：在文本框中輸入平時(shí)成績(jī)和考試成績(jī)，單擊“確定按鈕，將最終成績(jī)顯示到第三個(gè)文本框中，其中，平時(shí)成績(jī)占最終成績(jī)的30%，考試成績(jī)占最終成績(jī)的70%；單擊“去除按鈕，去除文本框中的內(nèi)容；單擊“退出按鈕，關(guān)閉窗口

5、。35分2設(shè)計(jì)左圖所示界面，編程實(shí)現(xiàn)如下功能：?jiǎn)螕羧魏螐?fù)選框，則把所有選中的復(fù)選框后面的文字羅列在文本框中見(jiàn)右圖25分。3、使用提供素材設(shè)計(jì)如下圖界面，編程實(shí)現(xiàn)如下功能：程序運(yùn)行時(shí)太陽(yáng)靜止不動(dòng)，單擊“太陽(yáng)升起按鈕時(shí)，太陽(yáng)升起以0.5s為時(shí)間間隔，太陽(yáng)向右移動(dòng)80，向上移動(dòng)160；單擊“停頓升起時(shí)，太陽(yáng)靜止不動(dòng)。(40分)答案：一、界面設(shè)計(jì)-10分Private Sub mand1_Click()-2分 Te*t3.Te*t = Val(Te*t1.Te*t) * 0.3 + Val(Te*t2.Te*t) * 0.7-7分End SubPrivate Sub mand2_Click()-2分

6、Te*t1.Te*t = -3分 Te*t2.Te*t = -3分 Te*t3.Te*t = -3分End SubPrivate Sub mand3_Click()-2分 End-3分End Sub二、界面設(shè)計(jì)-10分Private Sub Check1_Click(Indes As Integer-2分Te*t1.Te*t =-3分For k = 0 To 3-2分If Check1(k.value = 1 Then-2分Te*t1.Te*t = Te*t1.Te*t & Check1(k.Caption & -2分End If-2分Ne*t k-2分 End Sub三、界面設(shè)計(jì)-10-分P

7、rivate Sub mand1_Click()-2分 Timer1.Enabled = True-3分End SubPrivate Sub mand2_Click()-2分 Timer1.Enabled = False-3分End SubPrivate Sub Form_Load()-2分 Timer1.Enabled = False-3分End SubPrivate Sub Timer1_Timer()-2分 If Image1.Top = 0 Then-3分 Image1.Move Image1.Left + 80, Image1.Top + 160-3分 Else-2分 Image1.

8、Move Image1.Left + 80, Image1.Top - 160-3分 End If-2分End SubVB上機(jī)綜合測(cè)試題三一、銀行卡密碼驗(yàn)證程序1. 輸入密碼后點(diǎn)擊確認(rèn)按鈕，如果正確，窗體上輸出“密碼輸入正確，請(qǐng)繼續(xù)操作！。2. 如果密碼錯(cuò)誤，窗體上輸出“密碼錯(cuò)誤，請(qǐng)重新輸入！，同時(shí)將文本框中密碼清空，設(shè)置焦點(diǎn)。3. 密碼為123456，要求密碼框中以“*的形式顯示。二、輸出圖形應(yīng)用嵌套的循環(huán)構(gòu)造，輸出由字符構(gòu)成的特定圖案。程序運(yùn)行時(shí)單擊窗體，即可在窗體上輸出如下列圖案。* 1 * 2* 2 * 3* 3* 3 * 4 *4*4*4 * 5* 5* 5* 5* 5 *三、計(jì)算球

9、體積和外表積設(shè)計(jì)下列圖所示界面的程序，程序運(yùn)行后，輸入球的半徑，單擊“球體積、“球外表積復(fù)選框，根據(jù)復(fù)選框是否可選，決定是否在右側(cè)相應(yīng)的文本框內(nèi)顯示球體積 QUOTE 和球外表積 QUOTE 的計(jì)算結(jié)果。答案：一、銀行卡密碼驗(yàn)證程序30分Private Sub mand1_Click() 2分If Te*t1.Te*t = 123456 Then 4分 Form1.Cls 2分 Print 密碼正確! 2分 Else 3分 Cls 3分 Print 密碼錯(cuò)誤,請(qǐng)重新輸入! 2分 Te*t1.Te*t = 2分 Te*t1.SetFocus 4分 End If 4分End Sub 2分二、輸出圖

10、形30分Private Sub Form_Click() 2分For i = 1 To 5 4分 Print *; 4分 For j = 1 To i 4分 Print i; 4分 Print *; 4分 Ne*t j 2分 Print 2分Ne*t I 2分End Sub 2分三、計(jì)算球體積和外表積40分Private Sub Check1_Click() 2分 r = Val(Te*t1.Te*t) 2分 If Check1.Value = 1 Then 3分 v = 4 * 3.14159 * r 3 / 3 3分 Te*t2.Te*t = v 3分 Else 1分 Te*t2.Te*t

11、 = 2分 End If 2分End Sub 2分Private Sub Check2_Click() 2分 r = Val(Te*t1.Te*t) 2分 If Check2.Value = 1 Then 3分 s = 4 * 3.14159 * r 2 3分 Te*t3.Te*t = s 3分 Else 1分 Te*t3.Te*t = 2分 End If 2分End Sub 2分VB上機(jī)綜合測(cè)試題四一、在窗體上按下列圖放置兩個(gè)標(biāo)簽和一個(gè)文本框，一個(gè)列表框和一個(gè)命令按鈕，各控件的名稱(chēng)屬性取默認(rèn)值。其他屬性按下列圖進(jìn)展設(shè)置。要求：當(dāng)用戶(hù)在文本框輸入他的籍貫后，單擊“添加籍貫按鈕時(shí)，能夠?qū)⒓炋砑?/p>

12、到列表框中。雙擊列表框中的*一項(xiàng)時(shí)將該項(xiàng)刪除。(25分)二、輸入圓的半徑，計(jì)算圓的面積。要求自行設(shè)計(jì)界面，使用到的控件包括文本框，文字標(biāo)簽等。35分三、定義一個(gè)下標(biāo)上界為10的整型數(shù)組，并用隨機(jī)函數(shù)為其賦值值介于0-100之間計(jì)算數(shù)組中所有偶數(shù)的數(shù)據(jù)的和，并用Msgbo*函數(shù)輸出。40分答案：一、界面設(shè)計(jì)-10分PrivateSubmand1_Click()-2分List1.AddItemTe*t1.Te*t-5分EndSubPrivateSubList1_DblClick()-3分List1.RemoveItemList1.ListInde* -5分EndSub二、界面-10分Private

13、 Sub mand1_Click()-2分Const PI As Single = 3.14-3分Dim r As Integer, s As Single-5分r = Val(Te*t1.Te*t) -5分s = PI * r * r-5分Te*t2.Te*t = s-5分End Sub三、Private Sub Form_Click()-2分Dim a(10) As Integer, i As Integer, sum As Integer-5分For i = 0 To 10-5分a(i) = Int(100 * Rnd) -5分Print a(i); -3分If a(i) Mod 2 =

14、 0 Then-5分sum = sum + a(i) -5分End If-2分Ne*t i-3分MsgBo* 隨機(jī)數(shù)中偶數(shù)之和為： & sum-5分End SubVB上機(jī)綜合測(cè)試題五一、在窗體上畫(huà)兩個(gè)名稱(chēng)分別為T(mén)e*t1、Te*t2的文本框，再畫(huà)兩個(gè)命令按鈕，名稱(chēng)分別為C1、C2，標(biāo)題分別為“復(fù)制、“刪除。程序運(yùn)行時(shí)，在Te*t1中輸入以下文本：“最是那一低頭的溫柔，像一朵水蓮花不勝?zèng)鲲L(fēng)的嬌羞，道一聲珍重，道一聲珍重，那一聲珍重里有蜜甜的憂(yōu)愁。要求多行顯示。并用鼠標(biāo)拖拽的方法選擇任意一行后，單擊“復(fù)制按鈕，則選中的一行字符被復(fù)制到Te*t2中，假設(shè)單擊“刪除按鈕，則被選擇的字符從Te*t1中被

15、刪除，請(qǐng)編寫(xiě)兩個(gè)命令按鈕的Click事件過(guò)程完成上述功能。30分二、購(gòu)置地鐵車(chē)票，假設(shè)乘1到4站，3元/位；假設(shè)乘5到9站，4元/位；假設(shè)乘10站以上，5元/位；輸入人數(shù)person、站數(shù)n，輸出應(yīng)付款pay。35分三、從鍵盤(pán)輸入假設(shè)干個(gè)學(xué)生的考試成績(jī)，統(tǒng)計(jì)并輸出最高分和最低分，當(dāng)輸入負(fù)數(shù)時(shí)完畢輸入，輸出結(jié)果。35分答案：一、界面設(shè)計(jì)-10分Private Sub C1_Click()-3分Te*t2.Te*t = Te*t1.SelTe*t-7分End SubPrivate Sub C2_Click()-3分Te*t1.SelTe*t = -7分End Sub二、Private Sub ma

16、nd1_Click()-1分Dim * As Single, y As Single, z-3分* = Val(Te*t1.Te*t) -2分y = Val(Te*t2.Te*t) -2分Select Case y-2分 Case Is = 10-3分 z = 5 * *-3分 Case Is = 5-3分 z = 4 * *-3分 Case Is = 1-3分 z = 3 * *-3分End Select-1分Te*t3.Te*t = z-2分End SubPrivate Sub mand2_Click()-1分Te*t1.Te*t = -1分Te*t2.Te*t = -1分Te*t3.Te

17、*t = -1分End Sub三、Private Sub Form_Click()-2分Dim ma*!, min!, *! -3分* = InputBo*(請(qǐng)輸入學(xué)生考試成績(jī))-3分ma* = *-2分min = *-2分Do While * 0-2分 If * ma* Then-3分 ma* = *-2分 ElseIf * = A And c Ma* Then2分Ma* = a(i)2分t = Chr(Asc(A) + i - 1)3分End IfNe*t iTe*t1.Te*t = t2分Te*t2.Te*t = Ma*2分End SubVB上機(jī)綜合測(cè)試題七1、在窗體上建立一個(gè)標(biāo)簽，其名

18、稱(chēng)為L(zhǎng)abel1，窗體的標(biāo)題為“設(shè)置標(biāo)簽屬性；標(biāo)簽的位置為距窗體左邊界500，距窗體頂邊界300；標(biāo)簽的標(biāo)題為“等級(jí)考試；標(biāo)簽可以根據(jù)標(biāo)題的內(nèi)容自動(dòng)調(diào)整大小。請(qǐng)用代碼列寫(xiě)出圖片中對(duì)象的屬性設(shè)置。30分2、由鍵盤(pán)輸入10個(gè)數(shù)，再逆序輸出。35分3、求120之間能被5整除的所有數(shù)的乘積。35分答案：一、界面設(shè)計(jì)-10-分Label1.Caption = 等級(jí)考試-4-分Form1.Caption = 設(shè)置標(biāo)簽屬性-4-分Label1.Left = 500-4-分Label1.Top = 300-4-分Label1.AutoSize = True-4分二、界面設(shè)計(jì)-5分Dim a(1 To 10)

19、As Integer-2分Option E*plicit-2分Private Sub mand1_Click()-2分Dim i%-2分Print 輸入的10個(gè)數(shù)-2分For i = 1 To 10-2分 a(i) = Val(InputBo*(輸入第 & i & 個(gè)數(shù))-2分Ne*t i-2分For i = 1 To 10-2分 Print a(i); -2分Ne*t i-2分Print: Print-2分End SubPrivate Sub mand2_Click()-2分Dim i%-2分Print 逆序后的10個(gè)數(shù)-2分For i = 10 To 1 Step -1-2分 Print

20、a(i); -2分Ne*t i-2分End Sub三、界面設(shè)計(jì)-10分Private Sub Form_Click()-3分Dim i%, s As Long-2分s = 1-3分For i = 1 To 20-3分 If i Mod 5 = 0 Then-3分 s = s * i-3分 End If-2分Ne*t i-2分Print s-3分End SubVB上機(jī)綜合測(cè)試題八1、編寫(xiě)程序，打印如下圖圖形。(30分)2、1100之間自然數(shù)的平方和，程序參考界面如下圖：(30分)3、找出在11000中同時(shí)滿(mǎn)足被7除余5、被5除余3、被3除余2條件的數(shù)，界面自定。(40分)答案：1評(píng)分標(biāo)準(zhǔn)：Pri

21、vate Sub Form_Click() 2分Dim i%, j% 2分For i = 1 To 5 4分 Print Tab(15 - i); 5分 For j = 1 To (2 * i - 1) 5分 Print *; 2分Ne*t j 2分Ne*t I 2分Print 2分End sub 2分正確保存窗體文件 1分正確保存工程文件 1分2評(píng)分標(biāo)準(zhǔn)：設(shè)置控件和窗體屬性 5分Private Sub Form_Click() 2分Dim i, *, sum& 2分For i = 1 To 100 4分 * = 1 + * 3分 sum = sum + * 2 5分Ne*t I 2分Te*t

22、1.Te*t = Str(sum) 3分End Sub 2分正確保存窗體文件 1分正確保存工程文件 1分3評(píng)分標(biāo)準(zhǔn)設(shè)置控件和窗體屬性5分Private Sub mand1_Click() 2分Dim i, *% 2分For i = 1 To 1000 4分 * = * + 1 4分 If * Mod 7 = 5 And * Mod 5 = 3 And * Mod 3 = 2 Then 8分 Print Str(*) & Space(2); 5分 End If 2分Ne*t 2分End Sub 2分正確保存窗體文件 2分正確保存工程文件 2分VB上機(jī)綜合測(cè)試題九1、編寫(xiě)一個(gè)函數(shù)計(jì)算1*2*n的值

23、，函數(shù)名為fact() 30分2、三角形的三條邊，編寫(xiě)一個(gè)函數(shù)求其面積，函數(shù)名自命名。40分3、新建一個(gè)窗體，程序運(yùn)行時(shí)，當(dāng)用鼠標(biāo)單擊窗體任一地方，程序彈出Inputbo*()函數(shù)輸入框。當(dāng)輸完15個(gè)整數(shù)后，程序把剛輸入的15個(gè)整數(shù)分3行在窗體上顯示，每行5個(gè)整數(shù)。30分提問(wèn)：1、應(yīng)該對(duì)窗體的什么事件進(jìn)展編程？2、編寫(xiě)程序代碼，實(shí)現(xiàn)上述功能。答案：一、界面設(shè)計(jì)-5分Private Function fact(n As Integer) As Integer-4分Dim i As Integer-2分Dim r As Integer -2分r = 1 -3分For i = 1 To n -3分r

24、 = r * i -3分Ne*t i -3分fact = r -3分End Function -2分End Sub二、界面設(shè)計(jì)-5分Private Sub mand1_Click()-1分Dim a, b, c, l, S -5分a = Val(InputBo*(請(qǐng)輸入第一條邊的長(zhǎng)：) -3分b = Val(InputBo*(請(qǐng)輸入第二條邊的長(zhǎng)：) -3分c = Val(InputBo*(請(qǐng)輸入第三條邊的長(zhǎng)：) -3分l = (a + b + c) / 2 -3分If l = a Or l = b Or l 6 Then5分MsgBo* 長(zhǎng)度不能超過(guò)63分End If3分End Sub3、共4

25、0分屬性設(shè)置：Te*t1.te*t= -1分Te*t2.te*t=Label1.caption=Frame1.caption=性別Frame2.caption=愛(ài)好Frame3.caption=籍貫 Frame4.caption=院系 -2分Label1.caption=顯示Label2.caption=清空 Label3.caption=退出 -1分bol1.list=*省*省*省等 -2分Option1.caption=男Option2.caption=女 -2分Check1.caption=“音樂(lè)Check2.caption=“運(yùn)動(dòng)Check3.caption=“美術(shù) -2分程序?yàn)椋篜r

26、ivate Sub mand1_Click() -2分Te*t2.Te*t = 學(xué)生*是： + Te*t1.Te*t & Chr(13) & Chr(10) -3分If Option1.Value = True Then -5分* = Option1.CaptionElse: * = Option2.CaptionEnd IfTe*t2.Te*t = Te*t2.Te*t & 性別是 & * -2分If Check1.Value = False And Check2.Value = False And Check3.Value = False Then -if語(yǔ)句5分Te*t2.Te*t =

27、Te*t2.Te*t & ,無(wú)愛(ài)好Else -1分Te*t2.Te*t = Te*t2.Te*t & ,愛(ài)好If Check1.Value = 1 Then Te*t2.Te*t = Te*t2.Te*t & 音樂(lè) -2分If Check2.Value = 1 Then Te*t2.Te*t = Te*t2.Te*t & 運(yùn)動(dòng)If Check3.Value = 1 Then Te*t2.Te*t = Te*t2.Te*t & 美術(shù)End If -2分Te*t2.Te*t = Te*t2.Te*t & ,籍貫是 & bo1.Te*t Te*t2.Te*t = Te*t2.Te*t & ，院系是

28、& bo2.Te*t & 。 -2分End SubPrivate Sub mand2_Click() -2分Te*t1.Te*t = -2分Te*t2.Te*t = End SubPrivate Sub mand3_Click() -2分EndEnd SubVB上機(jī)綜合測(cè)試題十一1、輸入*一學(xué)生成績(jī)，評(píng)定其等級(jí)。方法是：90100分為“優(yōu)秀，8089分為“良好，7079分為“中等，6069分為“及格，60分以下為“不及格。在以下事件過(guò)程中寫(xiě)出相應(yīng)的程序源代碼。Private Sub Form_Click()Dim * As Integer*=Val(InputBo*(“*=)End Sub2、

29、假設(shè)定義一個(gè)一維數(shù)組：Dim a(1 to 10) As Integer。在以下事件過(guò)程中編程序通過(guò)循環(huán)給數(shù)組的元素輸入數(shù)據(jù)，并求數(shù)組中最大元素值及其下標(biāo)。Private Sub Form_Click()End Sub3、編程計(jì)算：S=50+51+52+199+200。綜合測(cè)試答案說(shuō)明：此題實(shí)現(xiàn)方法不止一種，教師可以根據(jù)具體情況，酌情給分1、Private Sub Form_Click()Dim * As Integer *=Val(InputBo*(“*=) 5分If *=90 thenprint “優(yōu)秀4分ElseIf *=80 Thenprint “良好4分ElseIf *=70 The

30、nprint “中等4分ElseIf *=60 Thenprint “及格4分Elseprint “不及格4分End Sub或者Private Sub Form_Click()Dim * As Integer*=Val(InputBo*(“*=)Select Case * 5分Case 90 to 100print “優(yōu)秀4分Case 80 to 89print “良好4分Case 70 to 79print “中等4分Case 60 to 69print “及格4分Case Elseprint “不及格4分End SelectEnd Sub3、Private Sub Form_Click()

31、Dim a(1 to 10) As Integer 3分Dim I%，p%，ma*% 3分For i=1 to 10 3分a(i)=val(inputBo*(“輸入a(“& i &)的值=？) 3分Ne*t i ma*=a(1) 3分p=1 for i=2 to 10 4分 if a(i)= 60 Then2分 lblTotal.Caption = t2分 lblTotal.ForeColor = RGB(0, 0, 0)3分 Else lblTotal.Caption = t2分 lblTotal.ForeColor = RGB(255, 0, 0)3分 End If2分End Sub三、界

32、面設(shè)計(jì)-10分Private Sub cmdShow_Click()-1分 Dim i As Integer-3分 Dim sum As Integer-3分 Dim s As String-3分 For i = 1 To 100-3分 If i Mod 3 = 0 Or i Mod 5 = 0 Then-3分 s = s & i & -3分 sum = sum + i -3分 End If-2分 Ne*t i-2分 lblInput.Caption = s-2分 lblShow.Caption = sum-2分End SubVB上機(jī)綜合測(cè)試題十三要求用戶(hù)輸入年齡和性別，如果年齡小于18歲，顯

33、示“本游戲不允許未成年人進(jìn)入；如果年齡大于18歲且用戶(hù)輸入性別是“男或“女，則顯示“歡送這位男士！或顯示“歡送這位女士！。35分2、如圖在圖形框中隨機(jī)產(chǎn)生5個(gè)學(xué)生的成績(jī)，要求數(shù)值在0到100之間，單擊“統(tǒng)計(jì)按鈕，在第二個(gè)圖形框中輸出高于平均分的成績(jī)。40分具體要求：1列表說(shuō)明所用控件的名稱(chēng)，屬性及所有屬性的初值。2寫(xiě)清完整代碼。3、輸入3個(gè)數(shù)a，b，c，求其最大數(shù)。25分答案：1、界面設(shè)計(jì)-10分Private Sub mand1_Click()-2分Dim age As Integer, se* As String-2分age = Val(Te*t1.Te*t) -3分se* = Val(T

34、e*t2.Te*t) -3分If age b Then m = a Else m = b End If 10分 If c m Then m = c 3分 Te*t4.Te*t = m 2分End SubVB上機(jī)綜合測(cè)試題十四通過(guò)輸入框輸入*，然后在消息框中顯示出來(lái)。25分輸入*小組5個(gè)同學(xué)的成績(jī)，計(jì)算總分和平均分。35分要求：利用InputBo*函數(shù)輸入成績(jī)，輸入完畢后經(jīng)過(guò)計(jì)算，利用Print直接在窗體上輸出結(jié)果。輸入兩個(gè)正整數(shù)，求它們的最大公約數(shù)。40分要求界面如圖：答案：一、界面設(shè)計(jì)-10分Private Sub Form_Load() 5分 * = InputBo*(輸入您的*, 您叫什

35、么名字？) 5分 y = MsgBo*(* & 同學(xué)：祝您馬到成功！) 5分End Sub二、界面設(shè)計(jì)-10分Private Sub Form_Load() Dim d(5) As Integer 2分 Dim i As Integer, total As Single, average As Single 2分 Show For i = 1 To 5 4分 d(i) = Val(InputBo*(請(qǐng)輸入第 & i & 個(gè)學(xué)生的成績(jī), 輸入成績(jī)) 4分 Ne*t i total = 0 2分 For i = 1 To 5 3分 total = total + d(i) 4分 Ne*t i av

36、erage = total / 5 2分 Print 總分：; total Print 平均分：; average 2分End Sub三、界面設(shè)計(jì)-10分Private Sub mand1_click() Dim m As Integer, n As Integer, p As Integer 2分 m = Val(Te*t1.Te*t) n = Val(Te*t2.Te*t) 2分 If m = 0 Or n = 0 Then 6分 MsgBo* 數(shù)據(jù)錯(cuò)誤! End End If Do 8分 p = m Mod n m = n n = p 10分 Loop While p 0 Te*t3.Te