VB道簡單設計題

1、1在窗體上建立命令按鈕“command1”（顯示）和“command2”（退出）。運行時， “command2”按鈕始終顯示“退出”；單擊“顯示”按鈕后窗體上顯示“歡迎使用VB!”，同時命令按鈕1的標題改為“清除”，再單擊“清除”按鈕后，界面恢復窗體裝入時的初始狀態(tài)。Private Sub Command1_Click()If Command1.Caption = "顯示" Then Print "歡迎使用VB!" Command1.Caption = "清除" Else Cls Command1.Caption = "顯示

2、" End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub2.用InputBox函數(shù)輸入一個學生成績，評定其等級。方法是：90100分為"優(yōu)秀"，8089分為"良好"，7079分為"中等"，6069分為"及格"，60分以下為"不及格"。Private Sub Command1_Click()Dim s!c1 = Chr(13) + Chr(10)msg1 = "請輸入學生成績"msg2 = "輸入后按回車鍵&

3、quot;msg3 = "或者單擊“確定”按鈕"msg = msg1 + c1 + msg2 + c1 + msg3s = Val(InputBox(msg, "inputbox function demo", 0)Select Case s Case 90 To 100 Label2.Caption = "該學生成績等級為：優(yōu)秀" Case 80 To 89 Label2.Caption = "該學生成績等級為：良好" Case 70 To 79 Label2.Caption = "該學生成績等級為：中

4、等" Case 60 To 69 Label2.Caption = "該學生成績等級為：及格" Case 0 To 59 Label2.Caption = "該學生成績等級為：不及格" Case Else Label2.Caption = "輸入成績無效" End SelectEnd SubPrivate Sub Command2_Click()EndEnd Sub3. 設計一個求解一元二次方程的程序，只要求考慮實根的情況。圖3Private Sub Command1_Click()Dim a, b, c, x1, x2,

5、d!a = Val(Text1.Text)b = Val(Text2.Text)c = Val(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 = Str(x1) Text5.Text = Str(x2)Else: Text4.Text = "方程無實根" Text5.Text = "方程無實根"End IfEnd Sub4. 從鍵盤上輸入一個數(shù)A，完成以下判斷：當A &

6、gt; 100時，B = 1；A < 100時，B = -1；當A = 100時，B = 0，界面自定。Private Sub Command1_Click()Dim a, b!a = Val(Text1.Text)If a > 100 Then b = 1Else If a < 100 Then b = -1 Else b = 0 End IfEnd IfLabel2.Caption = "B=" & Str(b)End Sub5. 編寫程序：輸入x、y、z三個數(shù)，按從小到大的次序顯示。Private Sub Command1_Click()Di

7、m i, x, y, z, temp!c1 = Chr(13) + Chr(10)msg1 = "隨機輸入一個數(shù)字"msg2 = "輸入后按回車鍵"msg3 = "或者單擊“確定”按鈕"msg = msg1 + c1 + msg2 + c1 + msg3x = Val(InputBox(msg, "inputbox function demo", 0)y = Val(InputBox(msg, "inputbox function demo", 0)z = Val(InputBox(msg, &

8、quot;inputbox function demo", 0)If x > y Then temp = x: x = y: y = tempIf x > z Then temp = x: x = z: z = tempIf y > z Then temp = y: y = z: z = tempLabel2.Caption = "結果是：" & x & "<" & y & "<" & zEnd Sub6. 顧客在商場購物時，若所選物品的總金額x在下述范圍

9、內，則實付款y可按對應折扣支付，請編程計算某顧客的實付款，總金額由鍵盤輸入。x x < 1000y =0.9x 1000 <= x < 20000.8x 2000 <= x < 30000.7x x >= 3000Private Sub Command1_Click()Dim x, y!c1 = Chr(13) + Chr(10)msg1 = "請輸入購買金額"msg2 = "輸入后按回車鍵"msg3 = "或者單擊“確定”按鈕"msg = msg1 + c1 + msg2 + c1 + msg3x

10、 = Val(InputBox(msg, "inputbox function demo", 0)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 * xEnd SelectLabel2.Caption = "折后應付款為：" & Str(y) & "元"End Sub7. 輸入一個年份，判斷該年是否為閏年，程序運行效果參考如圖所示，界面自

11、定。Private Sub Command1_Click()Dim x%x = Val(Text1.Text)If x Mod 4 = 0 And x Mod 100 <> 0 Or x Mod 400 = 0 ThenLabel2.Caption = "是閏年"ElseLabel2.Caption = "不是閏年"End IfEnd Sub3x2+2x-1 x<-5y=5x+2x -5x5 x3/4 x>58. 編程，輸入x，求下列分段函數(shù)y的值。用InputBox函數(shù)輸入x，計算結果輸出到Text控件。Private Sub

12、Command1_Click()Dim x, y!c1 = Chr(13) + Chr(10)msg1 = "請輸入x的值"msg2 = "輸入后按回車鍵"msg3 = "或者單擊“確定”按鈕"msg = msg1 + c1 + msg2 + c1 + msg3x = Val(InputBox(msg, "inputbox function demo", 0)If x < -5 Then y = 3 * x 2 + 2 * x - 1Else If x > 5 Then y = x (3 / 4) El

13、se y = 5 * x + 2 x End IfEnd IfText1.Text = yEnd Sub9. 輸入x、n，根據(jù)下列公式計算多項式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, p!c1 = Chr(13) + Chr(10)msg1 = "請輸入x的值"msg2 = "請輸入n的值"msg3 = "輸入后按回車鍵"msg4 = "或者單擊“確定”

14、按鈕"msg5 = msg1 + c1 + msg3 + c1 + msg4msg6 = msg2 + c1 + msg3 + c1 + msg4x = Val(InputBox(msg5, "inputbox function demo", 0)n = Val(InputBox(msg6, "inputbox function demo", 0)If n = 1 Then p = xElse If n = 2 Then p = (3 * x 2 - 1) / 2 Else If n = 3 Then p = (5 * x 2 - 3) * x

15、 / 2 End If End IfEnd IfText1.Text = Str(p)End Sub10. 編程，當x < y，交換x、y的值，然后輸出x、y的值（在Text控件輸入，輸出到Label控件）。Private Sub Command1_Click()Dim x, y, temp!x = Val(Text1.Text)y = Val(Text2.Text)If x < y Then temp = x: x = y: y = tempLabel4.Caption = "x=" & x & " y=" & yE

16、nd Sub11. 編程，輸入x值，按下式計算并輸出y值，計算結果f(x)輸出到Text控件。Private Sub Command1_Click()Dim x, y!c1 = Chr(13) + Chr(10)msg1 = "請輸入x的值"msg2 = "輸入后按回車鍵"msg3 = "或者單擊“確定”按鈕"msg = msg1 + c1 + msg2 + c1 + msg3x = Val(InputBox(msg, "inputbox function demo", 0)Select Case x Case I

17、s > 3 y = x + 3 Case 1 To 3 y = x 2 Case Is <= 0 y = 0 Case Else y = Sqr(x)End SelectText1.Text = Str(y)End Sub12. 用Inputbox函數(shù)輸入3個任意整數(shù)，從大到小按序輸出。Private Sub Command1_Click()Dim x, y, z, temp%c1 = Chr(13) + Chr(10)msg1 = "請隨機輸入一個整數(shù)"msg2 = "輸入后按回車鍵"msg3 = "或者單擊“確定”按鈕"

18、;msg = msg1 + c1 + msg2 + c1 + msg3x = Val(InputBox(msg, "inputbox function demo", 0)y = Val(InputBox(msg, "inputbox function demo", 0)z = Val(InputBox(msg, "inputbox function demo", 0)If x < y Then temp = x: x = y: y = tempIf x < z Then temp = x: x = z: z = tempI

19、f y < z Then temp = y: y = z: z = tempLabel2.Caption = Str(x) & ">" & Str(y) & ">" & Str(z)End Sub13. 求10個三位正整數(shù)中的偶數(shù)之和。正整數(shù)用隨機函數(shù)Rnd產(chǎn)生，或由用戶通過InputBox函數(shù)輸入。Private Sub Command1_Click()Dim i, n, m%For i = 1 To 10 c1 = Chr(13) + Chr(10) msg1 = "請輸入一個三位正整數(shù)&q

20、uot; msg2 = "輸入后按回車鍵" msg3 = "或者單擊“確定”按鈕" msg = msg1 + c1 + msg2 + c1 + msg3 m = Val(InputBox(msg, "inputbox function demo", 0) If m >= 100 And m <= 999 And m Mod 2 = 1 Then n = n + m End IfNext iLabel2.Caption = "總合為：" & Str(n)End SubPrivate Sub Com

21、mand2_Click()For i = 1 To 10 m = Int(Rnd * (999 - 100 + 1) - 100) If m >= 100 And m <= 999 And m Mod 2 = 1 Then n = n + m End IfNext iLabel2.Caption = "總合為：" & Str(n)End Sub14. 求10個三位正整數(shù)中的奇數(shù)之和。正整數(shù)用隨機函數(shù)Rnd產(chǎn)生，或由用戶通過InputBox函數(shù)輸入。Private Sub Command1_Click()Dim i, n, m%For i = 1 To 1

22、0 c1 = Chr(13) + Chr(10) msg1 = "請輸入一個三位正整數(shù)" msg2 = "輸入后按回車鍵" msg3 = "或者單擊“確定”按鈕" msg = msg1 + c1 + msg2 + c1 + msg3 m = Val(InputBox(msg, "inputbox function demo", 0) If m >= 100 And m <= 999 And m Mod 2 = 1 Then n = n + m End IfNext iLabel2.Caption = &

23、quot;總合為：" & Str(n)End SubPrivate Sub Command2_Click()For i = 1 To 10 m = Int(Rnd * (999 - 100 + 1) - 100) If m >= 100 And m <= 999 And m Mod 2 = 1 Then n = n + m End IfNext iLabel2.Caption = "總合為：" & Str(n)End Sub15. 編寫程序，打印如下圖形。圖15Private Sub Form_Click()Dim i%, j%For

24、i = 1 To 5 Print Tab(15 - i); For j = 1 To (2 * i - 1) Print "*" Next j PrintNext iEnd Sub16. 編寫程序，顯示出所有的水仙花數(shù)。所謂水仙花數(shù)，是指一個3位數(shù)，其各位數(shù)字立方和等于該數(shù)字本身。例如：153是水仙花數(shù)，因為153 = 13 + 53 + 33。Private Sub Form_Click()Dim a, b, c, i%For i = 100 To 999 a = i 100 b = (i - a * 100) 10 c = i - (a * 100 + b * 10)I

25、f i = a 3 + b 3 + c 3 Then Print i & "為水仙花數(shù)"Next iEnd Sub17. 有1分、2分、5分硬幣若干枚，從中取出20枚硬幣使其總值為60分，求出取法的數(shù)量以及每一種取法的1分、2分、5分硬幣個數(shù)。Private Sub Command1_Click()Dim a%, b%, c%, d%For a = 0 To 20 For b = 0 To 20 c = 20 - a - b If a + 2 * b + 5 * c = 60 Then d = d + 1 Print a; b; c End If Next bNex

26、t aLabel2.Caption = "共有" & d & "種取法"End Sub18. 求1+2+3+N的自然數(shù)之和，界面自定。Private Sub Command1_Click()Dim i, s, n&n = Val(Text1.Text)For i = 1 To n s = s + iNext iLabel2.Caption = "總和為：" & Str(s)End Sub19. 找出在11000中同時滿足被7除余5、被5除余3、被3除余2條件的數(shù)，界面自定。Private Sub For

27、m_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函數(shù)輸入），計算結果輸出到Text控件。Private Sub Command1_Click()Dim n, i%, s!c1 = Chr(13) + Chr(10)msg1 = "請輸入n的值"msg2 = "輸入后按回車鍵"msg3 =

28、 "或者單擊“確定”按鈕"msg = msg1 + c1 + msg2 + c1 + msg3n = Val(InputBox(msg, "inputbox function demo", 0)s = 0For i = 1 To n Step 1 s = s + 1 / iNext iText1.Text = Str(s)End Sub21. 百錢買百雞問題：用100元買100只雞，母雞3元1只，小雞1元3只，問應各買多少只？界面自定。Private Sub Form_Click()Dim x%, y%For x = 1 To 100y = 100 -

29、xIf 3 * x + y 3 = 100 ThenPrint "母雞只數(shù)為：" & xPrint "小雞只數(shù)為：" & yEnd IfNext xEnd Sub22. 編寫程序，打印如下圖形。圖22Private Sub Form_Click()For i = 1 To 5 Print Tab(2 + i); For j = 1 To 10 - (2 * i - 1) Print "*" Next jNext iEnd Sub23編一程序，程序運行的初始界面如圖2-1所示，當用戶在文本框中輸入姓名，例如輸入“張三”，

30、單擊“確定”按鈕，則程序的運行情況如圖2-2所示，如果單擊“結束”按鈕，即結束程序運行。 圖2-1 程序運行后初始界面 圖2-2 單擊“確定”按鈕后的程序界面Private Sub Command1_Click()Label1.Caption = Text1.Text + ": 歡迎使用我的第一個程序 "Command1.Enabled = FalseCommand2.Enabled = TrueLabel2.Visible = FalseText1.Visible = FalseEnd SubPrivate Sub Command2_Click()EndEnd SubPr

31、ivate Sub Form_Load()Command2.Enabled = FalseEnd Sub24 設計一個函數(shù)計算器，其功能設計要求如下。1）運行的初始界面如圖所示。2）Sin、Cos、Sqr、Int、Chr、Asc等函數(shù)將文本框中的數(shù)據(jù)作為函數(shù)的輸入?yún)?shù)，單擊這些函數(shù)命令按鈕，則在文本框中顯示其函數(shù)值。3）單擊“Rnd”按鈕，將把文本框中的內容轉換為數(shù)值，作為系統(tǒng)隨機發(fā)生器的種子數(shù)，再用RND函數(shù)產(chǎn)生一隨機數(shù)，并顯示在文本框中。4）單擊“Date”按鈕在文本框中顯示系統(tǒng)日期；單擊“Time”按鈕在文本框中顯示系統(tǒng)的時間。Private Sub Command10_Click()T

32、ext1.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 rndx!Text1.Text = Rndrndx = Val(Text1.Text)Randomize rndxText1.Text = RndEnd SubPrivate Sub Command4_Click()Dim x!x = Val(Text

33、1.Text)Text1.Text = Sqr(x)End SubPrivate Sub Command5_Click()Dim x!x = Val(Text1.Text)Text1.Text = Int(x)End SubPrivate Sub Command6_Click()Dim x!x = Val(Text1.Text)Text1.Text = Chr(x)End SubPrivate Sub Command7_Click()Text1.Text = Asc(Text1.Text)End SubPrivate Sub Command8_Click()Text1.Text = Day(N

34、ow)End SubPrivate Sub Command9_Click()Text1.Text = TimeEnd Sub25. 在文本框里輸入任意字符串，例如“美麗的西湖”，對字符串進行字體放大或縮小，界面設計如圖2所示，圖3是經(jīng)過放大操作后的界面狀態(tài)。圖2 圖3要求：(1)單擊“放大“按鈕，將文本框中的字符串放大（字體放大），放大的倍數(shù)大小通過隨機函數(shù)產(chǎn)生（Rnd），范圍在15倍內，倍數(shù)表達式為：Int(Rnd*5+1)，為了使每次運行時產(chǎn)生不同的放大倍數(shù)，程序初始時應執(zhí)行Radomize語句。(2)同樣，單擊“縮小”按鈕，進行縮小，縮小的倍數(shù)也通過上述方式產(chǎn)生。(3)在做放大和縮小時，

35、為了防止程序運行時錯誤（字體過大或過?。粦B續(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 SubPriva

36、te Sub Command2_Click()Text1.FontSize = Text1.FontSize / (Int(Rnd * 5) + 1)Command1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()Text1.FontSize = 9End Sub26.用InputBox函數(shù)輸入兩個整數(shù)a和b，然后用Rnd函數(shù)產(chǎn)生兩個a, b區(qū)間上的隨機整數(shù)，最后用MsgBox函數(shù)輸出a、b 的值和兩個隨機數(shù)。Private Sub Command1_Click()a = Val(InputBo

37、x("請輸入第一個整數(shù)", a的值)b = Val(InputBox("請輸入第二個整數(shù)", b的值)Dim x, y%If a < b Then x = a y = bEnd IfIf b < a Then x = b y = aEnd Ifc1$ = Chr$(13) + Chr$(10)msg1$ = "a=" & amsg2$ = "b=" & bmsg3$ = "第一個隨機數(shù)為" & Int(Rnd * (y - x + 1) + x)msg4$ = "第一個隨機數(shù)為" & Int(Rnd * (y - x + 1) + x)msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$ + c1$ + msg4$n = MsgBox(msg$)End Sub27. 輸入時間（小時、分和秒）然后使用輸出消息框輸出總計多少秒。使用文本框輸入數(shù)據(jù)，使用消息框輸出計算結果，程序運行界面如下圖所示。 圖4 圖5提示:用變量hh代表小時，mm代表分鐘，ss代表秒，Totals代表總的秒數(shù)值。則