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

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

2、運(yùn)行程序時，先向左側(cè)文本框中輸入一個不超過10的正整數(shù)，然后選擇"N的階乘"或"(N+2)的階乘"單選鈕，即可進(jìn)行計算，計算結(jié)果在右側(cè)文本框中顯示。請編寫程序完成上述功能。（40分）答案：一、界面設(shè)計-10分Private Sub Check1_Click()Text1.FontBold = Check1.Value -5分End SubPrivate Sub Check2_Click()Text1.FontItalic = Check2.Value-5分End SubPrivate Sub Check3_Click() Text1.FontUnderl

3、ine = Check3.Value -5分End Sub二、界面設(shè)計-10分Private Sub 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分Next i -2分aver = sum / 20 -3分Print aver -2分End Sub三、界面設(shè)計-10分Dim  n%-2分Private Sub Form_Load() End Sub Private Sub Optio

4、n1_Click()-2分Dim i% -2分n = Val(Text1) -3分m = 1 -1分For i = 1 To n -2分 m = m * i -2分Next i -2分Text2 = 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分Next i -2分Text2 = m -2分End SubVB上機(jī)綜合測試題（二）1設(shè)計如圖所示界面，編程實(shí)現(xiàn)如下功能：在文本框中輸入平時成績和考試成績，單擊“確定”按鈕，將最終成績顯示到第三個文本框中，

5、其中，平時成績占最終成績的30%，考試成績占最終成績的70%；單擊“清除”按鈕，清除文本框中的內(nèi)容；單擊“退出”按鈕，關(guān)閉窗口。（35分）2設(shè)計左圖所示界面，編程實(shí)現(xiàn)如下功能：單擊任何復(fù)選框，則把所有選中的復(fù)選框后面的文字羅列在文本框中（見右圖）（25分）。 3、使用提供素材設(shè)計如圖所示界面，編程實(shí)現(xiàn)如下功能：程序運(yùn)行時太陽靜止不動，單擊“太陽升起”按鈕時，太陽升起（以0.5s為時間間隔，太陽向右移動80，向上移動160）；單擊“停止升起”時，太陽靜止不動。(40分)答案：一、界面設(shè)計-10分Private Sub Command1_Click()-2分 Text3.Text = Val(Te

6、xt1.Text) * 0.3 + Val(Text2.Text) * 0.7-7分End SubPrivate Sub Command2_Click()-2分 Text1.Text = ""-3分 Text2.Text = ""-3分 Text3.Text = ""-3分End SubPrivate Sub Command3_Click()-2分 End-3分End Sub二、界面設(shè)計-10分Private Sub Check1_Click(Indes As Integer）-2分Text1.Text =""-3

7、分For k = 0 To 3-2分If Check1(k）.value = 1 Then-2分 Text1.Text = Text1.Text & Check1(k）.Caption & " " -2分End If-2分Next k-2分 End Sub三、界面設(shè)計-10-分Private Sub Command1_Click()-2分 Timer1.Enabled = True-3分End SubPrivate Sub Command2_Click()-2分 Timer1.Enabled = False-3分End SubPrivate Sub Form

8、_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.Move Image1.Left + 80, Image1.Top - 160-3分 End If-2分End SubVB上機(jī)綜合測試題（三）一、銀行卡密碼驗(yàn)證程序1. 輸入密碼后點(diǎn)擊確認(rèn)按鈕，如果正確，窗體上輸出“密碼輸入正確，請繼續(xù)操作！”。2. 如果密碼錯誤，窗體上

9、輸出“密碼錯誤，請重新輸入！”，同時將文本框中密碼清空，設(shè)置焦點(diǎn)。3. 密碼為123456，要求密碼框中以“*”的形式顯示。二、輸出圖形應(yīng)用嵌套的循環(huán)結(jié)構(gòu)，輸出由字符構(gòu)成的特定圖案。程序運(yùn)行時單擊窗體，即可在窗體上輸出如下圖案。* 1 * 2* 2 * 3* 3* 3 * 4 *4*4*4 * 5* 5* 5* 5* 5 *三、計算球體積和表面積設(shè)計下圖所示界面的程序，程序運(yùn)行后，輸入球的半徑，單擊“球體積”、 “球表面積”復(fù)選框，根據(jù)復(fù)選框是否可選，決定是否在右側(cè)相應(yīng)的文本框內(nèi)顯示球體積（4r3/3）和球表面積（4r2）的計算結(jié)果。答案：一、銀行卡密碼驗(yàn)證程序（30分）Private Sub

10、 Command1_Click() 2分If Text1.Text = 123456 Then 4分 Form1.Cls 2分 Print "密碼正確!" 2分 Else 3分 Cls 3分 Print "密碼錯誤,請重新輸入!" 2分 Text1.Text = "" 2分 Text1.SetFocus 4分 End If 4分End Sub 2分二、輸出圖形（30分）Private Sub Form_Click() 2分For i = 1 To 5 4分 Print "*" 4分 For j = 1 To i 4

11、分 Print i; 4分 Print "*" 4分 Next j 2分 Print 2分Next I 2分End Sub 2分三、計算球體積和表面積（40分）Private Sub Check1_Click() 2分 r = Val(Text1.Text) 2分 If Check1.Value = 1 Then 3分 v = 4 * 3.14159 * r 3 / 3 3分 Text2.Text = v 3分 Else 1分 Text2.Text = "" 2分 End If 2分End Sub 2分Private Sub Check2_Click()

12、 2分 r = Val(Text1.Text) 2分 If Check2.Value = 1 Then 3分 s = 4 * 3.14159 * r 2 3分 Text3.Text = s 3分 Else 1分 Text3.Text = "" 2分 End If 2分End Sub 2分VB上機(jī)綜合測試題（四）一、 在窗體上按下圖放置兩個標(biāo)簽和一個文本框，一個列表框和一個命令按鈕，各控件的名稱屬性取默認(rèn)值。其他屬性按下圖進(jìn)行設(shè)置。 要求：當(dāng)用戶在文本框輸入他的籍貫后，單擊“添加籍貫”按鈕時，能夠?qū)⒓炋砑拥搅斜砜蛑?。雙擊列表框中的某一項(xiàng)時將該項(xiàng)刪除。(25分)二、輸入圓的半

13、徑，計算圓的面積。要求自行設(shè)計界面，使用到的控件包括文本框，文字標(biāo)簽等。（35分）三、定義一個下標(biāo)上界為10的整型數(shù)組，并用隨機(jī)函數(shù)為其賦值（值介于0-100）之間計算數(shù)組中所有偶數(shù)的數(shù)據(jù)的和，并用Msgbox函數(shù)輸出。（40分）答案：一、界面設(shè)計-10分Private Sub Command1_Click()-2分List1.AddItem Text1.Text -5分End Sub  Private Sub List1_DblClick() -3分List1.RemoveItem 

14、List1.ListIndex -5分 End Sub二、界面-10分Private Sub Command1_Click()-2分Const PI As Single = 3.14-3分Dim r As Integer, s As Single-5分r = Val(Text1.Text) -5分s = PI * r * r-5分Text2.Text = 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分

15、a(i) = Int(100 * Rnd) -5分Print a(i); -3分If a(i) Mod 2 = 0 Then-5分sum = sum + a(i) -5分End If-2分Next i-3分MsgBox "隨機(jī)數(shù)中偶數(shù)之和為：" & sum-5分End SubVB上機(jī)綜合測試題（五）一、在窗體上畫兩個名稱分別為Text1、Text2的文本框，再畫兩個命令按鈕，名稱分別為C1、C2，標(biāo)題分別為“復(fù)制”、“刪除”。程序運(yùn)行時，在Text1中輸入以下文本：“最是那一低頭的溫柔，像一朵水蓮花不勝涼風(fēng)的嬌羞，道一聲珍重，道一聲珍重，那一聲珍重里有蜜甜的憂愁?！?/p>

16、要求多行顯示。并用鼠標(biāo)拖拽的方法選擇任意一行后，單擊“復(fù)制”按鈕，則選中的一行字符被復(fù)制到Text2中，若單擊“刪除”按鈕，則被選擇的字符從Text1中被刪除，請編寫兩個命令按鈕的Click事件過程完成上述功能。（30分）二、購買地鐵車票，若乘1到4站，3元/位；若乘5到9站，4元/位；若乘10站以上，5元/位；輸入人數(shù)person、站數(shù)n，輸出應(yīng)付款pay。（35分）三、從鍵盤輸入若干個學(xué)生的考試成績，統(tǒng)計并輸出最高分和最低分，當(dāng)輸入負(fù)數(shù)時結(jié)束輸入，輸出結(jié)果。（35分）答案：一、界面設(shè)計-10分Private Sub C1_Click()-3分Text2.Text = Text1.SelTe

17、xt-7分End SubPrivate Sub C2_Click()-3分Text1.SelText = ""-7分End Sub二、Private Sub Command1_Click()-1分Dim x As Single, y As Single, z-3分x = Val(Text1.Text) -2分y = Val(Text2.Text) -2分Select Case y-2分 Case Is >= 10-3分 z = 5 * x-3分 Case Is >= 5-3分 z = 4 * x-3分 Case Is >= 1-3分 z = 3 * x-3

18、分End Select-1分Text3.Text = z-2分End SubPrivate Sub Command2_Click()-1分Text1.Text = ""-1分Text2.Text = ""-1分Text3.Text = ""-1分End Sub三、Private Sub Form_Click()-2分Dim max!, min!, x! -3分x = InputBox("請輸入學(xué)生考試成績")-3分max = x-2分min = x-2分Do While x > 0-2分 If x >

19、max Then-3分 max = x-2分 ElseIf x < min Then-3分 min = x-2分 End If-2分 x = InputBox("請輸入學(xué)生考試成績")-3分Loop-2分Print "max=" max; "min=" min-4分End SubVB上機(jī)綜合測試題（六）1、窗體中有一個名稱為Hscroll1的水平滾動條控件，要設(shè)置它的如下屬性值，請編寫代碼實(shí)現(xiàn)如下內(nèi)容：（20分）(1) Hscroll1控件的滑塊處于最小位置時值為8(2) Hscroll1控件的滑塊處于最大位置時值為72(3)單

20、擊Hscroll1控件兩端箭頭時，滑塊的增量值為2(4)單擊Hscroll1控件的空白處時，滑塊的增量值為82、以下數(shù)列：1，1，3，5，9，15，25，41，的規(guī)律是從第3個數(shù)開始，每個數(shù)是它前面兩個數(shù)的和加1。請編寫適當(dāng)?shù)氖录^程實(shí)現(xiàn)以下功能：在文本框Text1中輸入整數(shù)40，單擊Command1“計算”按鈕，則在文本框Text2中顯示該數(shù)列第40項(xiàng)的值。（提示：因數(shù)據(jù)較大，應(yīng)使用Long型變量）（35分）3、窗體上有兩個標(biāo)題分別是“讀數(shù)據(jù)”和“統(tǒng)計”的命令按鈕兩個標(biāo)簽，名稱分別為Label1和Label2，標(biāo)題分別為“出現(xiàn)次數(shù)最多的字母是”和“它出現(xiàn)的次數(shù)為”；兩個初始值為空的文本框名稱

21、分別為Text1和Text2。程序功能如下：單擊“統(tǒng)計”按鈕，則自動統(tǒng)計字符串s中所含各字母（不區(qū)分大小寫）出現(xiàn)的次數(shù)，并將出現(xiàn)次數(shù)最多的字母顯示在Text1文本框內(nèi)，它所出現(xiàn)的次數(shù)顯示在Text2文本框內(nèi)，請為“統(tǒng)計”按鈕編寫適當(dāng)?shù)氖录^程實(shí)現(xiàn)上述功能。（45分）答案：一、Hscroll1.Min = 8： 5分Hscroll1.Max = 72： 5分Hscroll1.SmallChange =2：5分Hscroll1.LargeChange = 8 5分二、界面設(shè)計-10分單擊“計算”按鈕（即運(yùn)行Click事件過程），在該Click事件過程中加入語句：Private Sub Comman

22、d1_Click()3分Dim f As Long3分a(1) = 14分a(2) = 14分For i = 3 To Val(Text1.Text)5分f = a(i - 2) + a(i - 1) + 15分a(i) = f4分Next i3分Text2.Text = f4分End Sub三、界面設(shè)計-10分Private Sub Command2_Click() 1分Dim a(26) As Integer1分n = Len(s)3分For i = 1 To n1分c = UCase(Mid(s, i, 1)3分If c >= "A" And c <= &

23、quot;Z" Then3分j = Asc(c) - Asc("A") + 13分a(j) = a(j) + 12分End IfNext iMax = a(1)2分t = Chr(Asc("A")3分For i = 2 To 262分If a(i) > Max Then2分Max = a(i)2分t = Chr(Asc("A") + i - 1)3分End IfNext iText1.Text = t2分Text2.Text = Max2分End SubVB上機(jī)綜合測試題（七）1、在窗體上建立一個標(biāo)簽，其名稱為Labe

24、l1，窗體的標(biāo)題為“設(shè)置標(biāo)簽屬性”；標(biāo)簽的位置為距窗體左邊界500，距窗體頂邊界300；標(biāo)簽的標(biāo)題為“等級考試”；標(biāo)簽可以根據(jù)標(biāo)題的內(nèi)容自動調(diào)整大小。請用代碼列寫出圖片中對象的屬性設(shè)置。（30分）2、由鍵盤輸入10個數(shù)，再逆序輸出。（35分）3、求120之間能被5整除的所有數(shù)的乘積。（35分）答案：一、界面設(shè)計-10-分Label1.Caption = "等級考試"-4-分Form1.Caption = "設(shè)置標(biāo)簽屬性"-4-分Label1.Left = 500-4-分Label1.Top = 300-4-分Label1.AutoSize = True-

25、4分二、界面設(shè)計-5分Dim a(1 To 10) As Integer-2分Option Explicit-2分Private Sub Command1_Click()-2分Dim i%-2分Print "輸入的10個數(shù)"-2分For i = 1 To 10-2分 a(i) = Val(InputBox("輸入第" & i & "個數(shù)")-2分Next i-2分For i = 1 To 10-2分 Print a(i); -2分Next i-2分Print: Print-2分End SubPrivate Sub Co

26、mmand2_Click()-2分Dim i%-2分Print "逆序后的10個數(shù)"-2分For i = 10 To 1 Step -1-2分 Print a(i); -2分Next i-2分End Sub三、界面設(shè)計-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分Next i-2分Print s-3分End SubVB上機(jī)綜合測試題（八）1、編寫程序，打印如圖所示圖形。(30分

27、)2、1100之間自然數(shù)的平方和，程序參考界面如圖所示：(30分)3、找出在11000中同時滿足被7除余5、被5除余3、被3除余2條件的數(shù)，界面自定。(40分)答案：1評分標(biāo)準(zhǔn)：Private 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分Next j 2分Next I 2分Print 2分End sub 2分正確保存窗體文件 1分正確保存工程文件 1分2評分標(biāo)準(zhǔn)：設(shè)置控件和窗體屬性 5分Priva

28、te Sub Form_Click() 2分Dim i, x, sum& 2分For i = 1 To 100 4分 x = 1 + x 3分 sum = sum + x 2 5分Next I 2分Text1.Text = Str(sum) 3分End Sub 2分正確保存窗體文件 1分正確保存工程文件 1分3評分標(biāo)準(zhǔn)設(shè)置控件和窗體屬性 5分Private Sub Command1_Click() 2分Dim i, x% 2分For i = 1 To 1000 4分 x = x + 1 4分 If x Mod 7 = 5 And x Mod 5 = 3 And x Mod 3 = 2

29、Then 8分 Print Str(x) & Space(2); 5分 End If 2分Next 2分End Sub 2分正確保存窗體文件 2分正確保存工程文件 2分VB上機(jī)綜合測試題（九）1、編寫一個函數(shù)計算1*2*n的值，函數(shù)名為fact() （30分）2、已知三角形的三條邊，編寫一個函數(shù)求其面積，函數(shù)名自命名。 （40分） 3、新建一個窗體，程序運(yùn)行時，當(dāng)用鼠標(biāo)單擊窗體任一地方，程序彈出Inputbox()函數(shù)輸入框。當(dāng)輸完15個整數(shù)后，程序把剛輸入的15個整數(shù)分3行在窗體上顯示，每行5個整數(shù)。（30分） 提問：（1）、應(yīng)該對窗體的什么事件進(jìn)行編程？ （2）、編寫程序代碼，實(shí)現(xiàn)

30、上述功能。答案：一、界面設(shè)計-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 = r * i -3分Next i -3分fact = r -3分End Function -2分End Sub二、界面設(shè)計-5分Private Sub Command1_Click()-1分 Dim a, b, c, l, S -5分a = Val(InputBox("請輸入第一條邊的長：") -3分b =

31、Val(InputBox("請輸入第二條邊的長：") -3分c = Val(InputBox("請輸入第三條邊的長：") -3分l = (a + b + c) / 2 -3分If l <= a Or l <= b Or l <= c Then -4分MsgBox "輸入的數(shù)據(jù)不能組成三角形!" -3分Exit Sub -2分End If -2分S = Sqr(l * (l - a) * (l - b) * (l - c) -4分Print S -2分End Sub-2分三、界面設(shè)計-5分Private Sub Com

32、mand1_Click()-2分Dim a(15), i As Integer -2分For i = 1 To 15 -3分a(i) = InputBox("請輸入15個整數(shù)，單擊確定按鈕.", "", "") -4分Next i -2分For i = 1 To 15 -3分Print a(i); " " -3分If i Mod 5 = 0 Then Print -4分Next i -2分End SubVB上機(jī)綜合測試題（十）1、 在窗體上繪制兩個標(biāo)簽，名稱分別是Lab1和Lab2，標(biāo)題分別為“請輸入一個正整數(shù)N”

33、和“1+2+3+N=”；繪制兩個文本框，名稱分別是Text1和Text2，內(nèi)容都設(shè)為空白，繪制一個命令按鈕，名稱為Cmd1，標(biāo)題為“計算”。編寫適當(dāng)?shù)某绦?，程序在運(yùn)行時，在Text1中輸入一個正整數(shù)，單擊“計算”按鈕，計算出1+2+3+N的和，并顯示在Text2中。（30分）2、 要求：設(shè)計一個用戶登錄界面，界面如圖所示。要求密碼用*顯示，如果用戶名的長度超過6位，彈出警告窗口！（30分）3、創(chuàng)建一個學(xué)生管理系統(tǒng)（40分）要求：利用單選框?qū)崿F(xiàn)學(xué)生性別，復(fù)選框?qū)崿F(xiàn)學(xué)生愛好，組合框?qū)崿F(xiàn)學(xué)生籍貫選擇和院系，文本框輸入學(xué)生姓名。單擊“顯示”按鈕要把學(xué)生輸入的信息全部顯示到一個文本框中。參考答案1、（共

34、30分）設(shè)置屬性： Text1.text=” （3分）Text2.text=”（3分）Label1.caption=” 請輸入一個正整數(shù)N” （3分）Label2.caption=” 1+2+3+N=” （3分）Button1.caption=”計算” （3分）程序：Private Sub Command1_Click()（3分）Sum = 0（1分）N = Val(Text1.Text) （2分）For i = 1 To N（5分）Sum = Sum + i（2分）Next iText2.Text = Sum（2分）End Sub2、（共30分）設(shè)置屬性：Text1.text=” （2分）T

35、ext2.text=” （2分）Text2.passwordchar=”*” （3分）Label1.caption=”用戶名” （2分）Label2.caption=”密碼” （2分）Button1.caption=”注冊” （2分）Button2.caption=”登陸” （2分）Button1.caption=”取消” （2分）程序?qū)崿F(xiàn)：Private Sub Text1_Change()（2分）If Len(Text1.Text) > 6 Then（5分）MsgBox "長度不能超過6"（3分）End If（3分）End Sub3、（共40分）屬性設(shè)置：Text

36、1.text=” -（1分）Text2.text=”Label1.caption=”姓名”Frame1.caption=”性別”Frame2.caption=”愛好”Frame3.caption=”籍貫” Frame4.caption=”院系” -（2分）Label1.caption=”顯示”Label2.caption=”清空” Label3.caption=”退出” -（1分）Combol1.list=”河北省 河南省 山東省等” -（2分）Option1.caption=”男”O(jiān)ption2.caption=”女 ” -（2分）Check1.caption=“音樂”Check2.capt

37、ion=“運(yùn)動”Check3.caption=“美術(shù)” -（2分）程序?yàn)椋篜rivate Sub Command1_Click() -（2分）Text2.Text = "學(xué)生姓名是：" + Text1.Text & Chr(13) & Chr(10) -（3分）If Option1.Value = True Then -（5分）x = Option1.CaptionElse: x = Option2.CaptionEnd IfText2.Text = Text2.Text & "性別是" & x -（2分）If Check

38、1.Value = False And Check2.Value = False And Check3.Value = False Then -if語句（5分）Text2.Text = Text2.Text & ",無愛好"Else -（1分）Text2.Text = Text2.Text & ",愛好"If Check1.Value = 1 Then Text2.Text = Text2.Text & "音樂" -（2分）If Check2.Value = 1 Then Text2.Text = Text2.

39、Text & "運(yùn)動"If Check3.Value = 1 Then Text2.Text = Text2.Text & "美術(shù)"End If -（2分）Text2.Text = Text2.Text & ",籍貫是" & Combo1.Text Text2.Text = Text2.Text & "，院系是" & Combo2.Text & "。" -（2分）End SubPrivate Sub Command2_Click() -（2

40、分）Text1.Text = "" -（2分）Text2.Text = ""End SubPrivate Sub Command3_Click() -（2分）EndEnd SubVB上機(jī)綜合測試題（十一）1、輸入某一學(xué)生成績，評定其等級。方法是：90100分為“優(yōu)秀”，8089分為“良好”，7079分為“中等”，6069分為“及格”，60分以下為“不及格”。在以下事件過程中寫出相應(yīng)的程序源代碼。Private Sub Form_Click()Dim x As Integerx=Val(InputBox(“x=?”)End Sub2、假設(shè)定義一個一維數(shù)組：

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

42、 x>=70 Thenprint “中等” （4分）ElseIf x>=60 Thenprint “及格” （4分）Elseprint “不及格” （4分）End Sub或者Private Sub Form_Click()Dim x As Integerx=Val(InputBox(“x=?”)Select Case x （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

43、“不及格” （4分）End SelectEnd Sub3、Private Sub Form_Click()Dim a(1 to 10) As Integer （3分）Dim I%，p%，max% （3分）For i=1 to 10 （3分）a(i)=val(inputBox(“輸入a(“& i &”)的值=？”) （3分）Next i max=a(1) （3分）p=1 for i=2 to 10 （4分） if a(i)<max Then max=a(i) （3分） p=i EndifNext i Print “數(shù)組第” & p & “個元素值最大，值為：

44、” & max （3分）End Sub4、編程計算：S=50+51+52+199+200。Private Sub Form_Click() （4分） Dim S as integer,i as integer （3分）S=0 （4分）For i=50 to 200 （4分）S=S+I （3分）Next I （4分）Print “S=”,S （3分）End SubVB上機(jī)綜合測試題（十二）一、在以下事件過程中編程計算：s=1+2+3+100（25分）Private Sub Form_Click()End Sub二、編程，如圖所示，當(dāng)程序運(yùn)行時，在文本框中輸入平時成績和考試成績，單擊“計算

45、”命令按鈕，計算總評成績，并將成績顯示在相應(yīng)的標(biāo)簽上，同時，當(dāng)總評成績小于60時，文字顏色為紅色。計算公式為：總評成績=平時成績×30%+考試成績×70%。（35分）3. 如圖所示，編程計算1100以內(nèi)能被3或5整除的數(shù)之和。程序運(yùn)行時，單擊“顯示” 按鈕，在上標(biāo)簽框中顯示能被3和5整除的數(shù)，并在下標(biāo)簽框中顯示這些數(shù)的求和結(jié)果。答案：一、Dim S As Integer，I As Integer （5分）S=0 （5分）For I=1 to 100 （4分） S=S+I （4分）Next I （4分）Print “S=”，S （3分）二、界面設(shè)計-10-分Private Sub cmdCalc_Click()（2分） Dim a As Double, b As Double, t As Double （3分） a = Val(txtDay.Text) （2分） b = Val(txtExam.T