VB程序選擇題

1、問(wèn)題 保 5.56分存 “良 單擊窗體，根據(jù)輸入框所輸入的百分制成績(jī)score，在窗體上顯示相應(yīng)的等級(jí)，即優(yōu)秀(score=90) 好(80=score90)、中” (70=score80)、及格(60=score70)、不及格(score= 80 Then Print 良好 ElseIf score = 70 Then Print Else Print 不及格 (5) End Sub (1 ) 1 Print .及格” (2 ) (3 ) (4 ) (5 score =90 Dim score As In teg er 4 End If 5 ElseI score =60 The n 5.5

2、6 單擊窗體，從輸入框InputBox 輸入一個(gè)整數(shù)，判斷其是否為素?cái)?shù)。例如輸入7,則屏幕上顯示“ 7是素?cái)?shù)”； 如果輸入的是9則屏幕上顯示“ 9不是素?cái)?shù)”。 Private Sub Form_Click() Dim i As In teger, n As In teger, P rime As Stri ng n = Val(I np utBox( n=) If n 2 The n (1) Else If n Mod i = 0 The n Exit For Next i (3) P rime = 不是素?cái)?shù) End If End If (5) End Sub (1 ) (2 ) If n-1

3、 The Else 5.56 設(shè)計(jì)一個(gè)用戶(hù)身份驗(yàn)證程序，具體要求如下: 在文本框Text1中輸入密碼，單擊“確定”按鈕 Command1對(duì)密碼進(jìn)行檢驗(yàn)。若密碼正確（默認(rèn)密碼為 123456），在窗體上顯示 歡迎進(jìn)入！ ”，并隱藏文本框和“確定”按鈕。如果輸入的密碼不對(duì)，彈岀消息框顯示 “密碼不符，請(qǐng)?jiān)佥斎胍槐椋　?，同時(shí)清空文本框的內(nèi)容，允許再次輸入；如果第三次輸入的密碼仍然不對(duì)，消 息框顯示“非法用戶(hù)，請(qǐng)退岀程序！”，文本框和命令按鈕不能再使用。 Private Sub Comma nd1_Click() (3) MsgBox 密碼不符，請(qǐng)?jiān)佥斎胍槐椋?“ Pri nt 歡迎進(jìn)入！ Text1

4、.Visible = False Comma nd1.Visible = False Else If n = 0.00001 Private Sub Form_Click() 保 5.56 分 存 編制Form_Click過(guò)程，用近似公式求自然對(duì)數(shù)的底數(shù)e的值，直到末項(xiàng)小于10-4為止，結(jié)果顯示在窗體上。 Dim s As Sin gle, x As Sin gle, a As Sin gle Do Loop (5) End Sub Whil a = 0.00 01 4 Prin (5 ) e= 5.56 分 存 (1 實(shí)現(xiàn)文本框的復(fù)制、剪切、粘貼、刪除功能 Private Sub Comma

5、 nd1_Click() Cli pboard.SetText Text1.SelText End Sub Private Sub Comma nd2_Click() Cli pboard.Clear End Sub Private Sub Comma nd3_Click() End Sub Private Sub Comma nd4_Click() (5) End Sub (1 ) (3 ) (5 ) (2 ) (4 ) 1 Text1.SelT .ext = Text1.SelT ext = Cli pboard. Clear Text1.SelT ext = Cli pboard. Ge

6、tText Cli pboard. SetText Text1.SelT ext 保 5.56分存 單擊窗體，實(shí)現(xiàn)以下的分段函數(shù)，其中 x從輸入框輸入，求岀y顯示在窗體上。 Private Sub Form_Click() (1) (2) If x -5 Then y = x * Sin (x) + 2 人 x Else y = Sqr(x - 5) + Log(x) / Log(10) (5) End Sub 保 單擊窗體，產(chǎn)生20個(gè)從1到600之間的隨機(jī)整數(shù)，并以每行 5個(gè)把數(shù)據(jù)顯示在窗體上，并在窗體上顯示20個(gè) 數(shù)據(jù)中的所有偶數(shù)之和。 For i = 1 To 20 Private Su

7、b Form_Click() (1) Ran domize Pri nt x; If (4) The n s = s + x (1) z = Val(I np utBox(z) Next i (5) End Sub 保 5.56分存 單擊窗體，從鍵盤(pán)輸入三個(gè)數(shù)，將它們從大到小輸岀在窗體上。 Private Sub Form_Click() Dim x As Si ngle, y As Sin gle, z As Sin gle x = Val(I np utBox(x) If x y The n End If If x z The n End If t = y: y = z: z = t En

8、d If (5) End Sub (1 t = x: x = y: y = t (2 ) y = Val(I np utBo x(y) (3 ) Print x, y, z (4 t = x: x = z: 5 If y z Then (5 Private Sub Form_Click() n = Val(I np utBox( n=) 問(wèn) 題10 5.56分存 編制Form_Click過(guò)程，從輸入框InputBox 輸入行數(shù)n(5 n= 5 And n 10 For i = 1 To n (1) (5) Next i End Sub (1 ) 1 Next j (2 ) Print (3 )

9、 For j = 1 To 2 * i - 1 Print Trim( Str(i); (4 ) Print Tab(n + 1 - i); (5 ) 問(wèn) 題11 保 5.56 分 存 從輸入框InputBox 輸入n,再?gòu)妮斎肟蜉斎脒@n個(gè)整數(shù)，要求以每行5個(gè)的形式輸岀這n個(gè)數(shù)（其中的偶數(shù)用 紅色顯示），計(jì)算它們的平均值并顯示在窗體上。 Dim n As In teger, x As In teger, ave As Sin gle, s As Sin gle For i = 1 To n Private Sub Form_Click() n = Val(I np utBox( n) 問(wèn)題 I

10、f x Mod 2 = 0 The n Else End If Print x; Next i Print (5) Print End Sub 平均值為： 大了 問(wèn)題 18 Print x; 小了 Else Pri nt x; MsgBox End If 恭喜你猜中了！ ” 一共猜了 “ & k & “次 (1 ) 1 x = Text1.T (2 ext ) 2 Elself x n The n (3 3 kJ End Sub ) 4 n = (4 In t(R nd ) * 90) + 10 (5 5 Private ) Sub Form_Cl ick() 保 5.56分存 分別在兩個(gè)文本

11、框中輸入年和月份，單擊命令按鈕Command1在標(biāo)簽框label3 中顯示該月天數(shù)（注意閏年的情 況。閏年的判斷條件為：年份能被 4整除但不能被100整除，或者能被400整除）。 Dim y As In teger, m As In teger y = Val(textl.Text) Private Sub Comma nd1_Click() Select Case m Case 2 If (y Mod 4 = 0 And y Mod 100 0) Or (y Mod 400 = 0) The n Else End If Label3.Ca ption = 31 天 (5) Label3.Ca ption = 30 天 End Select End