VB程序設計.doc

11-12-2程序設計基礎（VB）上半學期練習題（?？疲?在窗體上建立命令按鈕“command1”（顯示）和“command2”（退出）。運行時， “command2”按鈕始終顯示“退出”；單擊“顯示”按鈕后窗體上顯示“歡迎使用VB!”，同時命令按鈕1的標題改為“清除”，再單擊“清除”按鈕后，界面恢復窗體裝入時的初始狀態(tài)。Private Sub Command1_Click() If Command1.Caption = 顯示 Then Print 歡迎使用VB! Command1.Caption = 清除 Else Cls Command1.Caption = 顯示 End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub2.用InputBox函數輸入一個學生成績，評定其等級。方法是：90100分為優(yōu)秀，8089分為良好，7079分為中等，6069分為及格，60分以下為不及格。Private Sub Command1_Click() Dim score！ score = Val(Text1.Text) Select Case score Case 90 To 100 Text2.Text = “優(yōu)秀” 不同結果每個條件及時輸出 Case 80 To 89 Text2.Text = 良好 Case 70 To 79 Text2.Text = “中等” Case 60 To 69 Text2.Text = 及格 Case 0 To 59 Text2.Text = “不合格 Case Else Text2.Text = 輸入成績無效 End SelectEnd Sub 3. 設計一個求解一元二次方程的程序，只要求考慮實根的情況。圖3Private Sub Command1_Click()Dim a!, b!, c! Dim Xl!, X2!, d! a = Val(Text1.Text) b = Val(Text2.Text) c = Text3.Text d = b * b - 4 * a * cIf d = 0 Then X1 = (-b + Sqr(d) / (2 * a) X2 = (-b - Sqr(d) / (2 * a) Text4.Text = X1= & Str(X1) Text5.Text = X2= & X2 Else Text4.Text = 方程無實根 End IfEnd Sub4. 從鍵盤上輸入一個數A，完成以下判斷：當A 100時，B = 1；A 100 Then b = 1 Else If a y Thentemp = xx = yy = tempEnd IfIf x z Thentemp = zz = xx = tempEnd IfIf y z Thentemp = zz = yy = tempEnd IfLabel4.Caption = x & & y & & zEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Label4.Caption = End Sub6. 顧客在商場購物時，若所選物品的總金額x在下述范圍內，則實付款y可按對應折扣支付，請編程計算某顧客的實付款，總金額由鍵盤輸入。x x 1000y =0.9x 1000 = x 20000.8x 2000 = x = 3000Private Sub Command1_Click()Dim x!, y! x = InputBox(請輸入x的值) Select Case x Case Is 1000 y = x Case Is 2000 y = 0.9 * x Case Is 3000 y = 0.8 * x Case Else y = 0.7 * x End Select MsgBox y= & yEnd Sub7. 輸入一個年份，判斷該年是否為閏年，程序運行效果參考如圖所示，界面自定。Private Sub Command1_Click()Dim y!y = Val(Text1.Text)If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 Then Label1.Caption = 是閏年Else Label1.Caption = 不是閏年 End IfEnd Sub3x2+2x-1 x58. 編程，輸入x，求下列分段函數y的值。用InputBox函數輸入x，計算結果輸出到Text控件。 Private Sub Command1_Click() Dim x!, y! x = Val(Text1.Text) If x 5 Then y = x (3 / 4) Else y = 5 * x + 2 x End If End IfText2.Text = yEnd Sub9. 數入x、n，根據下列公式計算多項式p（n，x）的值，計算結果輸出到Text控件。x n = 1p(n,x)= (3x2-1)/2 n = 2(5x2-3)x/2 n = 3Private Sub Command1_Click() Dim x!, n! x = InputBox(請輸入x的值) n = InputBox(請輸入n的值) If n = 1 Then x = x Else If n = 2 Then x = (3 * x 2 - 1) / 2 Else If n = 3 Then x = (5 * x 2 - 3) * x 2 End If End If End IfMsgBox x= & xEnd Sub10. 編程，當x y，交換x、y的值，然后輸出x、y的值（在Text控件輸入，輸出到Label控件）。Private Sub Command1_Click() Dim x!, y!, temp! x = Val(Text1.Text) y = Val(Text2) If x 3 Then y = x + 3 Else If x = 1 Then y = x 2 Else If x 0 Then y = Sqr(x) Else y = 0 End If End If End IfText2.Text = y End Sub12. 用Inputbox函數輸入3個任意整數，從大到小按序輸出。Private Sub Form_Click() Dim x%, y%, z%, temp% x = InputBox(請輸入X的值) y = InputBox(請輸入Y的值) z = InputBox(請輸入Z的值) If x y Then temp = y: y = x: x = temp If x z Then temp = z: z = x: x = temp If y & y: & y & & z: & zEnd Sub13. 求10個三位正整數中的偶數之和。正整數用隨機函數Rnd產生，或由用戶通過InputBox函數輸入。Private Sub Form_click()S = 0For i = 1 To 10x = Int(900 * Rnd) + 100 If x Mod 2 = 0 Then S = S + x Next i Print S=; SEnd Sub14. 求10個三位正整數中的奇數之和。正整數用隨機函數Rnd產生，或由用戶通過InputBox函數輸入。Private Sub Form_click()S = 0For i = 1 To 10x = Int(900 * Rnd) + 100 If x Mod 2 = 1 Then S = S + x Next i Print S=; SEnd Sub15. 編寫程序，打印如下圖形。圖15Private Sub Command1_Click() Dim i%, j%For i = 1 To 6 Print Tab(12 - i); For j = 1 To 2 * i - 1 Print *; Next Print NextEnd Sub16. 編寫程序，顯示出所有的水仙花數。所謂水仙花數，是指一個3位數，其各位數字立方和等于該數字本身。例如：153是水仙花數，因為153 = 13 + 53 + 33。Private Sub Command1_Click()For i = 100 To 999a = i 100b = (i - a * 100) 10c = i - a * 100 - b * 10If i = a 3 + b 3 + c 3 Then Print 水仙花數為： & iNext iEnd Sub17. 有1分、2分、5分硬幣若干枚，從中取出20枚硬幣使其總值為60分，求出取法的數量以及每一種取法的1分、2分、5分硬幣個數。Private Sub Command1_Click()Dim a%, b%, c%, d%For a = 0 To 20For b = 0 To 20c = 20 - a - bIf a + 2 * b + 5 * c = 60 Thend = d + 1Print a; b; cEnd IfNextNextMsgBox 共有 & d & 種取法End Sub18. 求1+2+3+N的自然數之和，界面自定。Private Sub Form_click()Dim n%, i%, s!n = InputBox(n)s = 0For i = 1 To n Step 1 s = s + i Next i MsgBox S= & sEnd Sub19. 找出在11000中同時滿足被7除余5、被5除余3、被3除余2條件的數，界面自定。Private Sub Command1_Click()Dim i%For i = 1 To 1000If i Mod 7 = 5 And i Mod 5 = 3 And i Mod 3 = 2 ThenPrint iEnd IfNext iEnd Sub20. 求下列表達式的值1 + 1/2 + 1/3 + 1/4 + + 1/n（n通過InputBox函數輸入），計算結果輸出到Text控件。Private Sub Form_click()Dim n%, i%, s!n = InputBox(n)s = 0For i = 1 To n Step 1 s = s + 1 / i Next i MsgBox S= & sEnd Sub21. 百錢買百雞問題：用100元買100只雞，母雞3元1只，小雞1元3只，問應各買多少只？界面自定。Private Sub Command1_Click()Dim x%, y%For x = 1 To 100y = 100 - xIf 3 * x + y 3 = 100 ThenPrint 母雞只數為： & xPrint 小雞只數為： & yEnd IfNext xEnd Sub22. 編寫程序，打印如下圖形。圖22Private Sub Command1_Click()Dim i%, j%For i = 5 To 1 Step -1Print Tab(12 - i);For j = 1 To 2 * i - 1Print *;NextNextEnd Sub23編一程序，程序運行的初始界面如圖2-1所示，當用戶在文本框中輸入姓名，例如輸入“張三”，單擊“確定”按鈕，則程序的運行情況如圖2-2所示，如果單擊“結束”按鈕，即結束程序運行。 圖2-1 程序運行后初始界面 圖2-2 單擊“確定”按鈕后的程序界面Private Sub Command1_Click()Label1.Caption = Text1.Text & 張三：歡迎使用我的第一個vb實驗Command1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Command2.Enabled = FalseCommand1.Enabled = TrueEnd Sub24 設計一個函數計算器，其功能設計要求如下。1）運行的初始界面如圖所示。2）Sin、Cos、Sqr、Int、Chr、Asc等函數將文本框中的數據作為函數的輸入參數，單擊這些函數命令按鈕，則在文本框中顯示其函數值。3）單擊“Rnd”按鈕，將把文本框中的內容轉換為數值，作為系統(tǒng)隨機發(fā)生器的種子數，再用RND函數產生一隨機數，并顯示在文本框中。4）單擊“Date”按鈕在文本框中顯示系統(tǒng)日期；單擊“Time”按鈕在文本框中顯示系統(tǒng)的時間。Private Sub Command1_Click()Dim x!, y!x = Val(Text1.Text)y = Sin(x * 3.1415926 / 180)Text1.Text = Str(y)End SubPrivate Sub Command10_Click()Text1.Text = End SubPrivate Sub Command2_Click()Dim x!, y!x = Val(Text1.Text)y = Cos(x * 3.1415926 / 180)Text1.Text = Str(y)End SubPrivate Sub Command3_Click()Dim x!Text1.Text = Rndx = Val(Text1.Text)Randomize xText1.Text = RndEnd SubPrivate Sub Command4_Click()Text1.Text = Sqr(Text1.Text)End SubPrivate Sub Command5_Click()Text1.Text = Int(Text1.Text)End SubPrivate Sub Command6_Click()Text1.Text = Chr(Text1.Text)End SubPrivate Sub Command7_Click()Text1.Text = Asc(Text1.Text)End SubPrivate Sub Command8_Click()Text1.Text = DateEnd SubPrivate Sub Command9_Click()Text1.Text = TimeEnd Sub25. 在文本框里輸入任意字符串，例如“美麗的西湖”，對字符串進行字體放大或縮小，界面設計如圖2所示，圖3是經過放大操作后的界面狀態(tài)。圖2 圖3要求：(1)單擊“放大“按鈕，將文本框中的字符串放大（字體放大），放大的倍數大小通過隨機函數產生（Rnd），范圍在15倍內，倍數表達式為：Int(Rnd*5+1)，為了使每次運行時產生不同的放大倍數，程序初始時應執(zhí)行Radomize語句。(2)同樣，單擊“縮小”按鈕，進行縮小，縮小的倍數也通過上述方式產生。(3)在做放大和縮小時，為了防止程序運行時錯誤（字體過大或過?。?，不應連續(xù)進行放大或縮小操作。也就是在執(zhí)行放大操作后，“放大”命令按鈕應呈暗淡色(不可操作)，同樣在執(zhí)行縮小操作后，“縮小”操作后，“縮小”命令按鈕應呈暗淡色(不可操作)，而”放大”按鈕有效。(4)單擊“還原”按鈕，字體大小恢復成初始狀態(tài)，“放大”、“縮小”按鈕也改變成可操作狀態(tài)。Private Sub Command1_Click()Text1.FontSize = Text1.FontSize * (Int(Rnd * 5) + 1)Command1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Text1.FontSize = Text1.FontSize / (Int(Rnd * 5) + 1)Command1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()Command1.Enabled = TrueCommand2.Enabled = TrueText1.FontSize = 9End Sub26.用InputBox函數輸入兩個整數a和b，然后用Rnd函數產生兩個a, b區(qū)間上的隨機整數，最后用MsgBox函數輸出a、b 的值和兩個隨機數。27. 輸入時間（小時、分和秒）然后使用輸出消息框輸出總計多少