操作題(5道共40分)

1、 操作題(5道 共40分)【第1題】打開“Z:13工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：在Text1、Text2、Text3中輸入三個整數(shù)后，單擊“輸出最大值”按鈕后，在Label3中顯示這3個數(shù)中的最大值。Private Sub Command1_Click() Dim a, b, c, max As Integer max=b max=c max a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a > b Then max = a Else If c > max Then Label3.Capt

2、ion = CStr()End Sub【第2題】打開“Z:12工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：在Text1中輸入一個代表秒數(shù)的整數(shù)后，單擊“計(jì)算”按鈕后，在Label1、Label2、Label3中顯示對應(yīng)的小時、分鐘和秒數(shù)。如在Text1中輸入“3672”，Label1、Label2、Label3中分別顯示“1”、“1”、“12”，即1小時1分12秒。Private Sub Command1_Click() Dim h, m, s, ss As Integer text1.text ss3600 60 ss = Val() h = m = (ss - h * 3600) 60 s

3、 = (ss - h * 3600) Mod Label1.Caption = CStr(h) Label2.Caption = CStr(m) Label3.Caption = CStr(s)End Sub【第3題】密碼的原理是將“明文”中的每個字符用另外一個字符替換，這樣就形成“密文”。如果將數(shù)字進(jìn)行加密，其對應(yīng)關(guān)系如下所示:明文：0123456789 密文：9876543210打開文件“Z:1工程1.vbp”，完善程序，使實(shí)現(xiàn)以下功能后保存：若在文本框text1中輸入待加密的數(shù)字，單擊“command1命令按鈕”后，在文本框text2中輸出密文。（數(shù)值型與字符型不能進(jìn)行數(shù)學(xué)運(yùn)算）Priv

4、ate Sub Command1_Click() Dim x As String, y As String Dim i As Integer Dim temp1 As String, temp2 As String x = Text1.Text y = "" For i = 1 To (Text1.Text) len 9-temp1 y temp1 = Mid(x, i, 1) temp2 = y = y + temp2 Next i Text2.Text = End Sub【第4題】打開“Z:4工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：用窮舉法找出所有的水仙花數(shù)的程序并

5、保存。水仙花數(shù)是指一類三位數(shù)，其各個數(shù)位上的數(shù)字之立方和為該數(shù)。例如：153=13+53+33。Private Sub Command1_Click() 100 100 next i Dim i As Integer, a As Integer, b As Integer, c As Integer For i = 100 To 999 a = i b = (i - a * ) 10 c = i Mod 10 If a 3 + b 3 + c 3 = i Then Print i End Sub【第5題】打開“Z:9工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：輸入10個數(shù)，存放在數(shù)組中，并按輸

6、入的逆序輸出在窗體上。Private Sub Command1_Click() Dim s(9) As Single For i = 0 To 9 = Val(InputBox("請輸入一個數(shù)") s(i) -1 s(i) Next i For i = 9 To 0 Step Print Next iEnd Sub操作題(5道 共40分)【第1題】在Text1文本框中輸入一個年號，判斷它是否是閏年，并輸出判斷結(jié)果“是閏年”或“不是閏年”。判斷閏年的算法是：如果此年號能被400除盡，則它是閏年，否則如果它能被4整除而不能被100整除，則它是閏年，否則它不是閏年。打開文件“Z:

7、38工程1.vbp”，完善程序后并保存。Private Sub Command1_Click() Dim year As Integer year = Val(InputBox("請輸入年號:") or "是閏年" "不是閏年" If (year Mod 4 = 0) And (year Mod 100 <> 0) (year Mod 400 = 0) Then Print Else Print End If End Sub【第2題】打開“Z:32工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：從鍵盤上輸入一個三位數(shù)，然后將它

8、反向輸出。例如輸入“123”，輸出結(jié)果為“321”。Private Sub Command1_Click() Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer text1.text b text2.text Dim g As Integer a = Val() bai = a 100 shi = (a - bai * 100) 10 g = a Mod 10 = g * 100 + shi * 10 + bai = CStr(b)End Sub【第3題】打開“Z:36工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：給

9、出三角形的三邊邊長a，b，c（輸入保證能構(gòu)成三角形，無需判斷正確性），輸出三角形面積。三角形面積計(jì)算公式：，其中q=(a+b+c)/2。Private Sub Command1_Click() Dim s As Single Dim q As Single Dim a As Single Dim b As Single Dim c As Single = Val(InputBox("請輸入邊長a的值：") b = Val(InputBox("請輸入邊長b的值：") c = Val(InputBox("請輸入邊長c的值：") q = (

10、a + b + c) / 2 a sqr s s = (q * (q - a) * (q - b) * (q - c) Print End Sub【第4題】打開“Z:28工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：在三個文本框中輸入一元二次方程的三個系數(shù)后，單擊命令按鈕，程序求出該方程的解。Private Sub Command1_Click() Text2.text p>=0 else Dim a, b, c, p As Single a = Val(Text1.Text) b = Val() c = Val(Text3.Text) p = b * b - 4 * a * c If T

11、hen X1 = (-b + Sqr(p) / (2 * a) X2 = (-b - Sqr(p) / (2 * a) Print "X1=" X1 Print "X2=" X2 Print "該方程無實(shí)數(shù)根" End IfEnd Sub【第5題】打開“Z:30工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：Private Sub Command1_Click() Dim x As Single, y As Single a = 3: b = -5 = Val(InputBox("請輸入x的值") x y end if

12、 If x < 0 Then = x + 5 * a Else y = x - 2 * b Print "y=" CStr(y)End Sub操作題(5道 共40分)【第1題】打開“Z:43工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：用遞歸法求斐波那契數(shù)列1，1，2，3，5，8，第10項(xiàng)的值。Public Function Fib(n As Integer) As Integer If (n = 1) Or (n = 2) Then Fib = Else Fib = Fib(n - 1) + Fib(n - 2) 1 end if 10 End FunctionPri

13、vate Sub Command1_Click() Dim S As Integer S = Fib() Print "S=" & CStr(S)End Sub【第2題】打開“Z:41工程1.vbp”，完善程序并保存。某超市為了對蘋果進(jìn)行促銷，規(guī)定購買2公斤以上可以在原價每公斤6.80元的基礎(chǔ)上打8折。實(shí)現(xiàn)功能：輸入購買的蘋果公斤數(shù)，輸出應(yīng)付款。Private Sub Command1_Click() Dim x As Single Dim cost As Single x = Val(InputBox("請輸入蘋果公斤數(shù)：") x*6.8 en

14、d if cost If x <= 2 Then cost = Else cost = x * 6.8 * 0.8 Print End Sub【第3題】打開“Z:50工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：在文本框text1、text2、text3中輸入3根小木棒的長度(假設(shè)都是整數(shù))，判斷能否用它們搭成一個三角形，并把結(jié)果輸出到文本框text4中。操作要求：（1）在窗體中加載“CommandButton”控件，命名為“Command1”并設(shè)置該控件“Caption”屬性值為“判斷”；（2）完善程序，執(zhí)行command1_click事件，判斷出結(jié)果，如果能搭成三角形則在文本框text

15、4中輸出“OK”，否則輸出“NO”。 integer end ifPrivate Sub Command1_Click() Dim a, b, c As Let a = Val(Text1.Text) Let b = Val(Text2.Text) Let c = Val(Text3.Text) If (a + b > c) And (a + c > b) And (b + c > a) Then Let Text4.Text = "OK" Else Let Text4.Text = "NO" End Sub【第4題】打開“Z:40工程

16、1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：將一張100元面值的人民幣換成若干5元、1元、5角面值的人民幣，但要求100元換成的零錢共100張，且要求每種面值不少于1張，問5元、1元、5角各多少張，請輸出每種可能的組合。Private Sub Command1_Click() 100 yiyuan end if Dim Wuyuan As Integer Dim Yiyuan As Integer Dim Wujiao As Integer For Wuyuan = 1 To 20 For Yiyuan = 1 To Wujiao = 100 - Wuyuan - If Wuyuan * 5 +

17、Yiyuan * 1 + Wujiao * 0.5 = 100 Then Print "Wuyuan=" & Wuyuan & ",Yiyuan=" & Yiyuan & ",Wujiao=" & Wujiao Next Yiyuan Next Wuyuan End Sub【第5題】打開“Z:45工程1.vbp”，進(jìn)行以下操作并保存。實(shí)現(xiàn)功能：(1) 將label1標(biāo)簽上的文字設(shè)置為“測試系統(tǒng)”；(2) 把窗體中顯示用戶名的文本框的字體設(shè)置為“楷體_GB2312”；(3) 在窗體的相應(yīng)位置添加一

18、個“確定”的命令按鈕 ?？丶埐捎媚J(rèn)值。最終效果圖如下：操作題(5道 共40分)【第1題】打開“Z:68工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：在文本框Text1和Text2中分別輸入兩個整數(shù)，單擊“交換”按鈕后，兩個文本框中的數(shù)字進(jìn)行交換。Private Sub Command1_Click() Dim a As Integer b t a b Dim b As Integer Dim t As Integer a = Val(Text1.Text) b = Val(Text2.Text) t = a a = b = Text1.Text = Text2.Text = End Sub

19、【第2題】某縣開發(fā)山區(qū)農(nóng)業(yè)，需要研究本區(qū)內(nèi)的山地氣候。已有的研究結(jié)果表明，海拔每升高100米，年平均氣溫降低0.5。打開文件“Z:54工程1.vbp”，完善程序，實(shí)現(xiàn)下列功能：在文本框text1中輸入山腳處地表溫度x，在文本框text2中輸入相對高度h，在文本框text3中輸出相應(yīng)高度的氣溫y。（這一題的語言描述不夠準(zhǔn)確） as h yPrivate Sub Command1_Click() Dim h, x, y Single Let x = Val(Text1.Text) Let = Val(Text2.Text) Let y = x - (h / 100) * 0.5 Let Text3

20、.Text = End Sub【第3題】素?cái)?shù)是指除了1與它本身以外不能被任何其它整數(shù)整除的數(shù)。打開文件“Z:63工程1.vbp”，完善程序?qū)崿F(xiàn)以下功能后保存。輸入一個小于2000000000的正整數(shù)到文本框text1中，如果它是素?cái)?shù)(質(zhì)數(shù))，就輸出“prime”，否則就輸出“no”。（這里素?cái)?shù)、質(zhì)數(shù)的概念是什么關(guān)系？）Private Sub Command1_Click() Dim n, i As Long Dim yes As Boolean False else Let n = Val(Text1.Text) Let yes = True For i = 2 To n 2 If n Mod

21、 i = 0 Then Let yes = End If Next i If yes Then Let Text2.Text = "yes" Let Text2.Text = "no" End IfEnd Sub【第4題】“Z:51工程1.vbp”是采用“窮舉法”求出所有水仙花數(shù)的程序，請完善程序并保存。說明：若一個三位數(shù)abc，滿足：abc=a3+b3+c3，則稱abc為水仙花數(shù)。如三位數(shù)153滿足：13+53+33=1+125+27=153，則153是水 999 (i - a * 100) mod 10 end if仙花數(shù)。Private Sub C

22、ommand1_Click() Dim i, a, b As Integer For i = 100 To a = i 100 b = (i - a * 100) 10 c = If a * a * a + b * b * b + c * c * c = i Then Print CStr(i) Next iEnd Sub【第5題】打開“Z:60工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：從文本框t1中輸入一個圓的半徑，計(jì)算圓的面積，把結(jié)果輸出到文本框t2中。Private Sub Command1_Click() dim t1.text s Const pi = 3.14 r, s as S

23、ingle r = Val() s = pi * r * r T2.Text = End Sub操作題(5道 共40分)【第1題】打開“Z:82工程1.vbp”，進(jìn)行以下操作并保存。在窗體上新建一個命令按鈕Command1，一個文本框Text1，屬性全部采用默認(rèn)值。實(shí)現(xiàn)功能：單擊命令按鈕后，窗體的標(biāo)題改為與文本框的內(nèi)容一致。Private Sub Command1_Click() = Text1.TextEnd Sub【第2題】打開“Z:80工程1.vbp”，完善程序并保存。一只猴子摘了一堆桃子，它每天吃掉當(dāng)天剩余桃子數(shù)的一半，每次又忍不住多吃一個，這樣到了第十天就剩下一個桃子了。實(shí)現(xiàn)功能：計(jì)

24、算猴子最初一共摘了多少個桃子。Private Sub Command1_Click() 1 9 (tz+1) tz Dim tz As Integer 'tz是桃子數(shù) Dim ts As Integer 'ts是天數(shù) tz = For ts = 1 To tz = * 2 Next ts Print "最初共有桃子" & End Sub【第3題】打開文件“Z:74工程1.vbp”，完善程序并保存，使單擊窗體時，在窗體上輸出如下圖案。 * * * * * * *（這一題障礙有點(diǎn)大，要不要？） 3 abs(i)+1 "*"Privat

25、e Sub Form_Click() Dim i As Integer Dim j As Integer Print For i = -3 To Print Tab(3); For j = 1 To 3 - Print Next Print NextEnd Sub【第4題】打開“Z:77工程1.vbp”，完善程序并保存。銀行的年利率是r，小明將1000元存入銀行，問幾年以后小明在銀行的存款將超過2000元。例如，年利率是0.04時，需要存18年。實(shí)現(xiàn)功能：單擊“計(jì)算”按鈕后，計(jì)算并在窗體上輸出結(jié)果。 1000 <=2000 y+1 (1+r)Private Sub Command1_Cl

26、ick() Dim s As Single 's計(jì)算存款 Dim y As Integer 'y計(jì)算年份 Dim r As Single 'r是年利率 s = y = 0 r = Val(InputBox("輸入年利率", "數(shù)據(jù)輸入框") Do While s y = s = s * Loop Print y; "年以后，存款可以達(dá)到2000元" End Sub【第5題】打開“Z:71工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：在文本框text1中輸入一個正整數(shù)，單擊“計(jì)算”按鈕時判斷該整數(shù)是偶數(shù)還是奇數(shù)。如

27、果是偶數(shù)，在標(biāo)簽上輸出“偶數(shù)”，否則輸出“奇數(shù)”。Private Sub Command1_Click() text1.text a mod 2 caption end if Dim a As Integer a = Val() If = 0 Then Label1. = "偶數(shù)" Else Label1.Caption = "奇數(shù)" End Sub操作題(5道 共40分)【第1題】在窗體上有一個名稱為Timer1的計(jì)時器和一個名稱為Label1的標(biāo)簽,Label標(biāo)簽的初始值為空，當(dāng)運(yùn)行程序后，將在標(biāo)簽中顯示當(dāng)前時間的數(shù)字時鐘（包括時：分：秒），如圖所示

28、。打開文件“Z:84工程1.vbp”完善程序并保存。 (第一空不寫問題也不大) ? label1.caption=timePrivate Sub Form_Load() Timer1.Interval = 1000 End SubPrivate Sub Timer1_timer() End Sub【第2題】打開“Z:91工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：隨機(jī)生成100個整數(shù)，統(tǒng)計(jì)偶數(shù)的個數(shù)。 total=0 total=total+1 a(i)Dim a(100) As IntegerPrivate Sub Command1_Click() Dim total As Integer

29、For i = 1 To 100 If a(i) Mod 2 = 0 Then End If Next i Print CStr(total)End SubPrivate Sub Form_Load() Randomize For i = 1 To 100 = Int(Rnd * 1000) Next iEnd Sub【第3題】打開“Z:89工程1.vbp”，完善程序并保存。乘坐飛機(jī)的經(jīng)濟(jì)艙時，托運(yùn)行李一般不得超過20公斤，超重每公斤按經(jīng)濟(jì)艙全票價的1.5%計(jì)算。實(shí)現(xiàn)功能：輸入行李重量及經(jīng)濟(jì)艙全票價后，點(diǎn)擊按鈕，計(jì)算出托運(yùn)行李所需費(fèi)用。Private Sub Command1_Click()

30、Dim w As Integer 'w是行李重量 Dim pj As Integer 'pj是機(jī)票價格 fy=0 end if fy Dim fy As Single w = Val(Text1.Text) pj = Val(Text2.Text) If w <= 20 Then Else fy = (w - 20) * pj * 0.015 Text3.Text = End Sub【第4題】某程序的功能是：當(dāng)x<50時，y=0.8×x；當(dāng)50x100時，y=0.7×x；當(dāng)x>100時，顯示“輸入的數(shù)據(jù)出界！”。請打開文件“Z:86工程1.

31、vbp”，完善程序。(程序要再修改)Private Sub Command1_Click() Dim x As Single x = Val(InputBox("請輸入x的值！") if x<50 then x<=100 then y = 0.8 * x Else y = 0.7 * x Else Print "輸入的數(shù)據(jù)出界！" End If End If Print x, yEnd Sub【第5題】打開“Z:87工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：通過鍵盤輸入10個數(shù)，統(tǒng)計(jì)這10個數(shù)的和。Private Sub Command1_

32、Click() Dim x As Integer Dim s As Integer Dim i As Integer For i = 1 to 10 s=s+x s x = Val(InputBox("NO." & i) Print CStr(x) Next i Print "total:" & End Sub操作題(5道 共40分)【第1題】打開“Z:104工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：輸入不同的飛船速度后，判斷出它的飛行狀況。在“神州七號”飛行程序中，其飛行狀況與飛行速度的關(guān)系如下表：飛船速度（V） 單位（km/s） 飛

33、行狀況 7.91<=V<11.19 飛船繞地球似做勻速圓周運(yùn)動 11.19<=V<16.67 飛船離開地球的控制 ,圍繞太陽轉(zhuǎn) V>16.67 飛船掙脫太陽引力飛出太陽系 Private Sub Command1_Click() Dim v As Single v = Val(InputBox("請輸入飛船速度的值") Select Case v Case Is > 16.67 Label1.Caption = "飛船掙脫太陽引力飛出太陽系" case is Label1.Caption = " 飛船離開地球

34、的控制,圍繞太陽轉(zhuǎn)" case is Label1.Caption = "飛船繞地球似做勻速圓周運(yùn)動" Case Else >=11.19 >=7.91 end select Label1.Caption = " 輸入數(shù)據(jù)錯誤！" End Sub【第2題】打開“Z:102工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：用程序?qū)崿F(xiàn)函數(shù)：y=|x|，y的值在Text1文本框中顯示出來。Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(InputBox(&q

35、uot;請輸入x的值：") x>=0 y=-x y If Then y = x Else End If Text1.Text = End Sub【第3題】“假設(shè)你是第一人民醫(yī)院的一名醫(yī)生”：3月21日下午要為學(xué)校高一年級新生進(jìn)行一次體檢，恰巧你被安排體檢體重和身高，并給出健康建議。體重/身高之比，大于25為偏胖，則輸出“您的身材偏胖，需要加強(qiáng)鍛煉！”；在18.5 25之間為標(biāo)準(zhǔn)；則輸出“您的身材適中！”；小于18.5為偏瘦，則輸出“您的身材偏瘦，需要補(bǔ)充營養(yǎng)！”。打開文件“Z:99工程1.vbp”，完善程序?qū)崿F(xiàn)以下功能：輸入體重和身高，輸出判定結(jié)果。Private Sub Fo

36、rm1_Click() Dim tz As Single, sg As Single Dim bz As Single = Val(InputBox("請輸入您的體重：") sg = Val(InputBox("請輸入您的體重：") bz = tz / sg 2 If > 25 Then MsgBox ("您的身材偏胖，需要加強(qiáng)鍛煉！") Else If Then tz bz bz>15.5 and bz<=25bz<18.5 MsgBox ("您的身材偏瘦，需要補(bǔ)充營養(yǎng)！") Else M

37、sgBox ("您的身材真棒！") End If End IfEnd Sub【第4題】打開“Z:94工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：用選擇排序法將數(shù)組a中的10個整數(shù)按升序排列。Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 1000) Next i For i = 1 To For j = If a(i) a(j) Then a(0) = a(i) 10 1 to i < A(j)=a(0) a(i) = a(j) End If Next

38、 j Next i For i = 1 To 10 Print CStr(a(i) Next iEnd Sub【第5題】打開“Z:96工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：假設(shè)有一個5位數(shù)密碼。只記得密碼為678，其中百位和十位的數(shù)字記不清了，但知道該數(shù)能夠被78整除，也能被67整 67008 X Next x除。請完善算法幫忙找出這個密碼。Private Sub Command1_Click() Dim x As Long For x = To 67998 Step 10 If (x Mod 67 = 0) Or (x Mod 78 = 0) Then Print End If End

39、 Sub操作題(5道 共40分)【第1題】打開“Z:108工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：判斷從文本框Text1中輸入的數(shù)據(jù)，如果該數(shù)據(jù)滿足條件：除以3余2，除以5余3，除以7余4，則輸出在窗體上。Private Sub Command1_Click() x = Val(Text1.Text) x mod 5 x mod 7=4 x If x Mod 3 = 2 Then If = 3 Then If Then Print End If End If End IfEnd Sub【第2題】打開“Z:119工程1.vbp”，完善程序并保存。關(guān)于人口問題，如果我國人口年增長率為4，問多少

40、年后我國人口超過20億。(假設(shè)現(xiàn)在我國人口為14億)實(shí)現(xiàn)功能：當(dāng)單擊窗體后，在窗體上輸出問題答案。Private Sub Form_Click() Dim p As Integer '變量p保存人口 Dim n As Long p=14 p<20 (1+0.04) N+1 n = 0 Do While p = p * n = Loop Print "n=" & CStr(n)End Sub【第3題】打開“Z:117工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：當(dāng)單擊窗體后，計(jì)算224262N<1500的N的最大值。Private Sub Form_

41、Click() Dim s As Integer Dim N As Integer N = 22 n n+20 n-20 s = 0 Do s = s + N = Loop Until s > 1500 Print "N=" & CStr()End Sub【第4題】打開文件“Z:114工程1.vbp”，進(jìn)行以下操作后并保存。完善程序，求1/1+1/2+2/3+21/32+前10項(xiàng)的值。Private Sub Command1_Click() Dim s As Integer Dim a As Integer Dim b As Integer a+b s+b/a

42、 a+b Dim k As Integer s = 0 a = 1 b = 1 For k = 1 To 10 s = s + a / b a = s = b = Next k Print sEnd Sub【第5題】打開“Z:116工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：計(jì)算1+3+5+99的值。Private Sub Command1_Click() Dim i As Integer s+i i+2 s Dim s As Integer i = 1 s = 0 Do While i <= 99 s = s + i = Loop Print "s=" &

43、End Sub操作題(5道 共40分)【第1題】打開“Z:178工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：用遞歸法求3!+5!+7!的值。Public Function Fac(a As Integer) As IntegerIf a = 1 Then 1 Fac 5 Fac = Else Fac = a * (a - 1)End IfEnd FunctionPrivate Sub Command1_Click() Dim S As Integer S = Fac(3) + Fac() + Fac(7) Print "S=" & CStr(S)End Sub【第2

44、題】打開“Z:122工程1.vbp”，完善程序并保存。王曉珊家距離學(xué)校S1公里，某天她和李明各自同時從家里步行出發(fā)上學(xué)，王曉珊步行V1公里/小時，李明步行V2公里/小時，結(jié)果他們同時到達(dá)學(xué)校。實(shí)現(xiàn)功能：輸入S1,V1,V2，輸出李明家與學(xué)校之間的距離S2。Private Sub Command1_Click() Dim S1 As Single, S2 As Single Dim V1 As Single, V2 As Single Dim T As Single S1 = Val(InputBox("請輸入王曉珊家離學(xué)校的距離：") V1 = Val(InputBox(&

45、quot;請輸入王曉珊步行速度：") V2 = Val(InputBox("請輸入李明步行速度：") s1/v1 v2 s2 T = S2 = * T Print End Sub【第3題】打開“Z:120工程1.vbp”，完善程序并保存。小球從高處自由下落，每次彈起的高度是下落高度的70%，當(dāng)小球彈起的高度不足原高度的千分之一時，小球很快就會停止跳動。實(shí)現(xiàn)功能：輸入小球的起始高度HOME后,計(jì)算并輸出小球在整個彈跳中所經(jīng)歷的總路程S(忽略彈起高度不足原高度的千分之一的部分)。Private Sub Command1_Click() Dim H As Single,

46、 L As Single Dim S As Single, Home As Single Home = Val(InputBox("請輸入一個起始高度：") h L s H = Home S = 0 Do L = 0.7 * S = S + H + L H = Loop While L >= Home / 1000 Print End Sub【第4題】吳儼同學(xué)找來了一條長度為L的鐵絲，希望制作一個面積最大的矩形框。請完善程序，解決此問題。打開文件“Z:124工程1.vbp”，填空完成程序，輸入鐵絲的長度L，輸出矩形面積的最大值。(為什么要用整型？)Private Su

47、b Command1_Click() Dim L As Integer Dim chang As Integer Dim kuai As Integer Dim s As Integer Dim smax As Integer smax = 0 L = InputBox("請輸入一條鐵絲的長度：") For chang = 1 To L 2 For kuai = 1 To L 2 - chang chang*kuan s>smax smax s = If Then smax = s End If Next kuai Next chang Print End Sub【第

48、5題】打開“Z:175工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：用遞歸法求1+2+3+100的值。Public Function S(n As Integer) As Integer 1 n 100 If n = 1 Then S = Else S = + S(n - 1) End IfEnd FunctionPrivate Sub Command1_Click() Dim Sum As Integer Sum = S() Print "Sum=" & CStr(Sum)End Sub操作題(5道 共40分)【第1題】打開“Z:600工程1.vbp”，完善程序并保存。實(shí)現(xiàn)功能：這是一個簡單的顯示評語程序，在文本框Text1中輸入一個數(shù)后，單擊“評語”按鈕，在標(biāo)簽Label1顯示評語。當(dāng)輸入一個小于60的數(shù)時，顯示“不及格”；當(dāng)輸入一個大于等于60且小于85的數(shù)時，顯示“良好