VB程序設(shè)計(jì).doc

11-12-2程序設(shè)計(jì)基礎(chǔ)（VB）上半學(xué)期練習(xí)題（?？疲?在窗體上建立命令按鈕“command1”（顯示）和“command2”（退出）。運(yùn)行時(shí)， “command2”按鈕始終顯示“退出”；單擊“顯示”按鈕后窗體上顯示“歡迎使用VB!”，同時(shí)命令按鈕1的標(biāo)題改為“清除”，再單擊“清除”按鈕后，界面恢復(fù)窗體裝入時(shí)的初始狀態(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函數(shù)輸入一個(gè)學(xué)生成績(jī)，評(píng)定其等級(jí)。方法是：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)秀” 不同結(jié)果每個(gè)條件及時(shí)輸出 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 = 輸入成績(jī)無效 End SelectEnd Sub 3. 設(shè)計(jì)一個(gè)求解一元二次方程的程序，只要求考慮實(shí)根的情況。圖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 = 方程無實(shí)根 End IfEnd Sub4. 從鍵盤上輸入一個(gè)數(shù)A，完成以下判斷：當(dāng)A 100時(shí)，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. 顧客在商場(chǎng)購物時(shí)，若所選物品的總金額x在下述范圍內(nèi)，則實(shí)付款y可按對(duì)應(yīng)折扣支付，請(qǐng)編程計(jì)算某顧客的實(shí)付款，總金額由鍵盤輸入。x x 1000y =0.9x 1000 = x 20000.8x 2000 = x = 3000Private Sub Command1_Click()Dim x!, y! x = InputBox(請(qǐng)輸入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. 輸入一個(gè)年份，判斷該年是否為閏年，程序運(yùn)行效果參考如圖所示，界面自定。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，求下列分段函數(shù)y的值。用InputBox函數(shù)輸入x，計(jì)算結(jié)果輸出到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. 數(shù)入x、n，根據(jù)下列公式計(jì)算多項(xiàng)式p（n，x）的值，計(jì)算結(jié)果輸出到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(請(qǐng)輸入x的值) n = InputBox(請(qǐng)輸入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. 編程，當(dāng)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函數(shù)輸入3個(gè)任意整數(shù)，從大到小按序輸出。Private Sub Form_Click() Dim x%, y%, z%, temp% x = InputBox(請(qǐng)輸入X的值) y = InputBox(請(qǐng)輸入Y的值) z = InputBox(請(qǐng)輸入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個(gè)三位正整數(shù)中的偶數(shù)之和。正整數(shù)用隨機(jī)函數(shù)Rnd產(chǎn)生，或由用戶通過InputBox函數(shù)輸入。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個(gè)三位正整數(shù)中的奇數(shù)之和。正整數(shù)用隨機(jī)函數(shù)Rnd產(chǎn)生，或由用戶通過InputBox函數(shù)輸入。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. 編寫程序，顯示出所有的水仙花數(shù)。所謂水仙花數(shù)，是指一個(gè)3位數(shù)，其各位數(shù)字立方和等于該數(shù)字本身。例如：153是水仙花數(shù)，因?yàn)?53 = 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 水仙花數(shù)為： & iNext iEnd Sub17. 有1分、2分、5分硬幣若干枚，從中取出20枚硬幣使其總值為60分，求出取法的數(shù)量以及每一種取法的1分、2分、5分硬幣個(gè)數(shù)。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的自然數(shù)之和，界面自定。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中同時(shí)滿足被7除余5、被5除余3、被3除余2條件的數(shù)，界面自定。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. 求下列表達(dá)式的值1 + 1/2 + 1/3 + 1/4 + + 1/n（n通過InputBox函數(shù)輸入），計(jì)算結(jié)果輸出到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只，問應(yīng)各買多少只？界面自定。Private Sub Command1_Click()Dim x%, y%For x = 1 To 100y = 100 - xIf 3 * x + y 3 = 100 ThenPrint 母雞只數(shù)為： & xPrint 小雞只數(shù)為： & 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編一程序，程序運(yùn)行的初始界面如圖2-1所示，當(dāng)用戶在文本框中輸入姓名，例如輸入“張三”，單擊“確定”按鈕，則程序的運(yùn)行情況如圖2-2所示，如果單擊“結(jié)束”按鈕，即結(jié)束程序運(yùn)行。 圖2-1 程序運(yùn)行后初始界面 圖2-2 單擊“確定”按鈕后的程序界面Private Sub Command1_Click()Label1.Caption = Text1.Text & 張三：歡迎使用我的第一個(gè)vb實(shí)驗(yàn)Command1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Command2.Enabled = FalseCommand1.Enabled = TrueEnd Sub24 設(shè)計(jì)一個(gè)函數(shù)計(jì)算器，其功能設(shè)計(jì)要求如下。1）運(yùn)行的初始界面如圖所示。2）Sin、Cos、Sqr、Int、Chr、Asc等函數(shù)將文本框中的數(shù)據(jù)作為函數(shù)的輸入?yún)?shù)，單擊這些函數(shù)命令按鈕，則在文本框中顯示其函數(shù)值。3）單擊“Rnd”按鈕，將把文本框中的內(nèi)容轉(zhuǎn)換為數(shù)值，作為系統(tǒng)隨機(jī)發(fā)生器的種子數(shù)，再用RND函數(shù)產(chǎn)生一隨機(jī)數(shù)，并顯示在文本框中。4）單擊“Date”按鈕在文本框中顯示系統(tǒng)日期；單擊“Time”按鈕在文本框中顯示系統(tǒng)的時(shí)間。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. 在文本框里輸入任意字符串，例如“美麗的西湖”，對(duì)字符串進(jìn)行字體放大或縮小，界面設(shè)計(jì)如圖2所示，圖3是經(jīng)過放大操作后的界面狀態(tài)。圖2 圖3要求：(1)單擊“放大“按鈕，將文本框中的字符串放大（字體放大），放大的倍數(shù)大小通過隨機(jī)函數(shù)產(chǎn)生（Rnd），范圍在15倍內(nèi)，倍數(shù)表達(dá)式為：Int(Rnd*5+1)，為了使每次運(yùn)行時(shí)產(chǎn)生不同的放大倍數(shù)，程序初始時(shí)應(yīng)執(zhí)行Radomize語句。(2)同樣，單擊“縮小”按鈕，進(jìn)行縮小，縮小的倍數(shù)也通過上述方式產(chǎn)生。(3)在做放大和縮小時(shí)，為了防止程序運(yùn)行時(shí)錯(cuò)誤（字體過大或過?。?，不應(yīng)連續(xù)進(jìn)行放大或縮小操作。也就是在執(zhí)行放大操作后，“放大”命令按鈕應(yīng)呈暗淡色(不可操作)，同樣在執(zhí)行縮小操作后，“縮小”操作后，“縮小”命令按鈕應(yīng)呈暗淡色(不可操作)，而”放大”按鈕有效。(4)單擊“還原”按鈕，字體大小恢復(fù)成初始狀態(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函數(shù)輸入兩個(gè)整數(shù)a和b，然后用Rnd函數(shù)產(chǎn)生兩個(gè)a, b區(qū)間上的隨機(jī)整數(shù)，最后用MsgBox函數(shù)輸出a、b 的值和兩個(gè)隨機(jī)數(shù)。27. 輸入時(shí)間（小時(shí)、分和秒）然后使用輸出消息框輸出總計(jì)多少