編程題附答案

1、Vb 編程題1. 求自然數(shù)1100之間奇數(shù)之和。Private Sub Form_Click() Dim i%, sum%For i = 1 To 99 Step 2 sum = sum + i Next i Print "sum=" sum End Sub2. 求自然數(shù) 1100之間偶數(shù)之和。Private Sub Form_Click()Dim i%, sum%For i = 1 To 100If i mod 2=0 then sum = sum + i end if Next i Print "sum=" sum End Sub3. 編寫程序，在窗

2、體上隨機(jī)輸出一個 10-99 之間的兩位整數(shù)。 Sub command1_click()Dim a% Randomize a=int(rnd*90+10) print a end sub4. 編程計算從 200到 1000之間的所有 4 的倍數(shù)之和。 Private Sub Form_Click()Dim sum As Long sum = 0For i = 200 To 1000 If i Mod 4 = 0 Then sum = sum + i End If Next i Print sum End Sub5. 編寫程序在窗體上顯示出： 5/6+4/5+3/4+2/3+1/2Dim s A

3、s Single s = 0For i = 5 To 1 Step -1 s = s + i / (i + 1) NextPrint “ 5/6+4/5+3/4+2/3+1/2= ”;s6. 在窗體的單擊事件中編寫程序，從鍵盤上任意輸入 3 個數(shù)，輸出最大數(shù)。 Private Sub Command2_Click()Clsa = Val(InputBox(" 接收三個數(shù) :")Print a; Max = a For i = 1 To 2 a = Val(InputBox(" 接收三個數(shù) :")Print a;If a > Max Then Max

4、 = aNextPrintPrint " 三數(shù)中最大者是 :" MaxEnd Sub7. 在窗體的單擊事件中編寫程序，從鍵盤上任意輸入 3 個數(shù)，輸出中間數(shù)。 Private Sub Command2_Click()Dim a(1 To 3) As IntegerFor i = 1 To 3a(i) = InputBox(" 請輸入第 " & i & " 個數(shù) ")Next iFor i = 1 To 2For j = i + 1 To 3 If a(i) < a(j) Then t = a(i) a(i) =

5、a(j) a(j) = t End If Next j Next i Print a(2) End Sub8. 編寫程序，通過 InputBox 函數(shù)從鍵盤上輸入 4個數(shù), 計算并在窗體上顯示這 4 個數(shù)的和及平均值。Private Sub Command2_Click()Dim a(1 To 4) As IntegerDim sum As Integer, aver As SingleFor i = 1 To 4a(i) = Val(InputBox("請輸入第 " & i & " 個數(shù) ")sum = sum + a(i)Print

6、Str(a(i)Next i aver = sum / 4 Print " 和：" sumPrint " 平均值： " averEnd Sub9. 在窗體的單擊事件過程中，編寫程序計算1! +2! +3! +20!Private Sub Form_Click() clsSum = 0x = 1For i = 1 To 15x = x * iSum = Sum + xNextPrint "1!+2!+.+15!=" SumEnd Sub10. 輸入 x，計算 y 的值。其中：y=1+3x (x>=0); y=1-5x (x<

7、0)。Private Sub Command1_Click()Dim x!, y!x = InputBox(" 請輸入x的值")If x < 0 Theny = 1 - 5 * xElsey = 1 + 3 * xEnd IfPrint "y=" yEnd Sub11. 編寫程序，在窗體上輸出由 1、2、3、4、5這五個數(shù)字組成的所有可能的兩 位數(shù)，并統(tǒng)計它們的個數(shù)。Private Sub Command1_Click()Dim a%, n%For i = 1 To 5For j = 1 To 5a = i * 10 + jn = n + 1Pri

8、nt Str(a)Next jNext iPrint " 總個數(shù)： " nEnd Sub12. 有一個窗體，窗體中有一個文本框，名稱為 Text1 ，有一個按鈕，試編寫按鈕的單擊事件，實現(xiàn)計算1! +2! +3! +10!,將結(jié)果顯示在文本框Textl中Private Sub Command1_Click()Sum = 0x = 1For i = 1 To 10x = x * iSum = Sum + xNextText1.text= SumEnd Sub13. 編寫程序計算：s=1+1/2!+1/3!+1/n!,說明：在窗體中有一個文本框控件： Textl,用來接收n的值

9、，有一個標(biāo)簽控件：Labell，用來顯示S的值，試編寫窗 體的單擊事件， 實現(xiàn)計算與顯示功能， 只要求寫出事件的主要代碼， 事件過程的 起始語句和結(jié)束語句可略去。Private Sub Command1_Click()Sum = 0x = 1n=Text1.textFor i = 1 To nx = x * iSum = Sum + xNextText1.text= SumEnd Sub14. 通過文本框輸入一個整數(shù) X,判斷X是否能被2整除。判斷的結(jié)果在標(biāo)簽中 顯示。Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 2 = 0 T

10、henLabel1.Caption = x & " 能被 2 整除"ElseLabel1.Caption = x & " 不能被 2 整除"End IfEnd Sub15. 編寫程序，點擊命令按鈕Comma nd時，兩個文本框textl與text2中的內(nèi)容 進(jìn)行交換。Private Sub Command1_Click()Dim a As Stringa = Text1.TextText1.Text = Text2.TextText2.Text = aEnd Sub16. 求s=a+aa+aaa+aaaaaa(n個a),其中a和n的值由用

11、戶自己輸入。例如, 當(dāng) a=3,n=4 時， S=3+33+333+3333。Private Sub Form_Click()Clsa = Val(InputBox("a=")n = Val(InputBox("n=")s = 0s1 = 0For i = 1 To nsi = si * 10 + a ' si = si + a * 10 A (i - 1)s = s + s1NextPrint sEnd Sub17. 在窗體上輸出下三角的九九乘法表。Private Sub Form_Click()ClsFor i = i To 9For J =

12、 i To iPrint i; "*" J; "=" Format(Str(i * J), "!");NextPrintNextEnd Sub18. 編寫程序，將 26 個字母逆序輸出。Private Sub Commandi_Click()Dim n%, m%n = Asc("a")For i = i To 26m = n + 26 - iPrint Chr(m)Next iEnd Sub19. 編寫程序，將字符串 " 山高人為峰 " 按逆序 " 峰為人高山 " 輸出。Pr

13、ivate Sub Commandi_Click()Clss = " 山高人為峰"si = ""For i = Len(s) To i Step -isi = si & Mid(s, i, i)NextPrint siEnd Sub20. 編寫程序，在窗體上隨機(jī)輸出一個 i0-99 之間的兩位整數(shù)。 同第 3 題21. 設(shè)紙的厚度為0.5毫米，將紙對折，再對折，求至少對折多少次，紙張的 厚度能達(dá)到珠穆朗瑪峰的高度 8848 米。Private Sub Form_Click()Clsh = 0.5: cs = 0Do While h < 88

14、48000h = h * 2cs = cs + 1LoopPrint " 折紙次數(shù)為 :" csEnd Sub22. 在窗體的單擊事件中編寫程序，要求：由文本框TEXT1輸入一個0到6的數(shù)字，單擊窗體時，在標(biāo)簽控件 LABEL1上顯示漢英對照星期信息，如：輸入 0, 則顯示星期日(SUNDAY、輸入1,則顯示星期一(MONDA丫，以此類推。如果 輸入0-6以外的數(shù)據(jù)，用MsgBox信息框顯示“輸入數(shù)據(jù)錯誤”的提示信息。Private Sub Form_Click()Dim d As Integerd = Val(Text1.Text)Select Case dCase 0L

15、abel1.Caption = "Sunday"Case 1Label1.Caption = "Monday"Case 2Label1.Caption = "Tuesday"Case 3Label1.Caption = "Wednesday"Case 4Label1.Caption = "Thursday"Case 5Label1.Caption = "Friday"Case 6Label1.Caption = "Saturday"Case ElseMsg

16、Box " 輸入數(shù)據(jù)錯誤 "End SelectEnd Sub23. 編寫程序，要求隨著不斷單擊命令按鈕 Command，1 窗體的標(biāo)題依次顯示為今天疋星期 f今天疋星期f今天疋星期二f今天疋星期四f今天疋星期五f今天是星期六f今天是星期日。sub command1_click()static n as integern=n+1select case n mod 7case 0form1.caption=" 今天疋星期日 "case 1form1.caption=" 今天疋星期一 "case 2form1.caption="

17、 今天疋星期二 "case 3form1.caption="今天是星期三case 4form1.caption="今天是星期四case 5form1.caption="今天是星期五case 6form1.caption="今天是星期六end selectend sub24. 在文本框中輸入時、分、秒，編寫程序?qū)⑺鼈儞Q算為秒，然后輸出。設(shè)小時為h,分為m秒為s,則計算共有多少秒的公式為：x=h*3600+m*60+sosub command1_click()dim h%, m%,s%h=text1.textm=text2.texts=text3.

18、textmsgbox("共有"& h*3600+m*60+s & " 秒")end sub25. 在銀行存款，計算本利和的公式為：p仁p(1+r):其中，p為存款數(shù)，n為年 數(shù)，r為年利率，pl為n年后本金和利息之和。設(shè) p=1000,n=3,r=0.02,編程計 算 3 年后本利和。要求小數(shù)點后兩位，四舍五入。Sub command1_click()p = 1000: n = 3: r = 0.02p = p * (1 + r) A np = Round(p, 2) ' 或者 p = Int(100 * p + 0.5) * 0

19、.01Print pEnd Sub26. 使用 InputBox 函數(shù)輸入圓半徑 r 和圓柱高 h, 使用文本框分別輸出圓球表面 積和圓球體積。提示：圓球表面積公式為 4*3.14*r; 圓球體積公式為( 3/4) *3.14*r3Private Sub Form_Click()r = Val(InputBox(" 圓半徑:")Text1.Text = " 半徑為 " + Str(r) + " 的圓球表面積是 " + Str(4 * 3.14 * r) Text2.Text = " 半徑為 " + Str(r) +

20、 "的圓球體積是 " + Str(3 / 4) * 3.14* r A 3)End Sub27. 用 InputBox 函數(shù)輸入 3 個數(shù)據(jù)，判斷這 3 個數(shù)據(jù)是否可以組成三角形， 如果 能夠組成三角形， 計算并在窗體上輸出三角形的面積。 構(gòu)成三角形的條件是： 任 意兩邊之和大于第三邊。面積公式為 area=,其中S=(A+B+C)/2, A、B、C為三 條邊的長度。Private Sub Form_Click()clsa = Val(InputBox("a=")b = Val(InputBox("b=")c = Val(InputB

21、ox("c=")If a + b > c And a + c > b And b + c > a Thens = (a + b + c) / 2area = Sqr(s * (s - a) * (s - b) * (s - c)Print " 邊長為 :" a; b; c; " 的三角形面積為 :" areaEnd IfEnd Sub28. 從鍵盤輸入一個半徑，輸出圓的面積和周長，輸出要求有文字說明，保留兩 位小數(shù)。Private Sub Form_Click()Clsr = Val(InputBox("r

22、=")Print " 半徑為 " r; " 的圓 "Print " 面積為"Rou nd(3.14 * r A 2, 2)Print " 周長為" Round(2 * 3.14 * r)End Sub29. 使用文本框輸入長方形的長和寬,用MsgBox輸出長方形的周長和面積.Private Sub Form_Click()l = Val(Text1.Text)h = Val(Text2.Text)MsgBox "長是" + Str(l) + "寬是" + Str(h

23、) + _"的長方形 " + Chr(10) + " 面積是:" + Str(l * h) + _Chr(10) + " 周長是:" + Str(2 * (l + h)End Sub30. 使用 InputBox 函數(shù)輸入華氏溫度，要求輸出攝氏溫度。公式為： C=(5/9)*(F-32), 輸出要有文字說明，取兩位小數(shù)。sub command1_click()dim C!,F!F=val(inputbox(" 請輸入華氏溫度 ")C=(5/9)*(F-32)print " 攝氏溫度為： "pri

24、nt Cend sub31. 編寫漲工資的程序。 計算條件是： 基本工資大于或等于 1 500元的，增加工資 20%；若小于 1 500元大于或等于 900元的，增加工資 15%；小于 900元的，增加 工資 1 0%。要求： (1 ) 在文本框中輸入基本工資值； (2) 在標(biāo)簽上輸出增長后的基 本工資值；(3)當(dāng)單擊按鈕comma nd時實現(xiàn)上述功能。Private Sub Command1_Click()gz = Val(Text1.Text)Select Case gzCase Is >= 1500gz = gz * (1 + 0.2)Case Is >= 900gz = g

25、z * (1 + 0.15)Case Elsegz = gz * (1 + 0.1)End SelectLabel1.Caption = Str(gz)End Sub32. 公用電話收費(fèi)標(biāo)準(zhǔn)如下：通話時間在 3 分鐘之內(nèi)(包括 3分鐘)，收費(fèi) 0.5 元；3 分鐘以上，則每超過 1分鐘加收 0.15 元。編寫一段程序，計算某人通話 S 分鐘，應(yīng)繳多少電話費(fèi)。Private Sub Form_Click()Clss = Val(InputBox(" 通話時間 ")If s <= 3 Thenhf = 0.5Elsehf = 0.5 + Int(s - 3) * 0.15

26、End IfPrint " 通話時間為 " s; " 分種 "Print " 應(yīng)收話費(fèi) " Format(hf, "0.#"); "元 "End Sub33. 編程將一維數(shù)組A(10)中數(shù)組元素循環(huán)向后移動一個位置，最后一個元素移 動到第一個元素的位置。Private Sub Form_Click()Dim a(10) As IntegerRandomizeclsPrint " 初始數(shù)組為 :"For i = 0 To 10a(i) = Int(Rnd * 10)Print

27、a(i);NextPrintt = a(10)For i = 10 To 1 Step -1a(i) = a(i - 1)Nexta(0) = tPrint " 移位后數(shù)組為 "For i = 0 To 10Print a(i);NextPrintEnd Sub34. 編寫程序，求 s 的值，s=1x 2X 3+2x 3X4+nX (n+1) x (n+2)的值。n 由 程序輸入。Private Sub Form_Click()Clsn = Val(InputBox("n=")s = 0For i = 1 To ns = s + i * (i + 1) * (i + 2)NextPrint "1 x 2X 3+2X 3X 4+" n; " x" n + 1; " x " n + 2; "=" sEnd Sub35. 火車站托運(yùn)行李， 按規(guī)定當(dāng)行李重量不超過 50公斤時，每公斤運(yùn)費(fèi) 0.25 元， 超過50公斤后，超過部分按每公斤0.40元收費(fèi)。輸入行李重量W公斤，計算出 應(yīng)付多少運(yùn)費(fèi)。Private Sub Form_Click()Clsw = Val(InputBox("w=")