VB程序選擇題

1、問題保5.56分存“良單擊窗體，根據(jù)輸入框所輸入的百分制成績score，在窗體上顯示相應(yīng)的等級，即"優(yōu)秀"(score>=90)好"(80<=score<90)、"中” (70<=score<80)、"及格"(60<=score<70)、"不及格"(score<60)Private Sub Form_click()(1)score = Val(I np utBox("請輸入成績")If ThenPrint "優(yōu)秀"Elself

2、score >= 80 ThenPrint "良好"ElseIf score >= 70 ThenPrint "ElsePrint "不及格"(5)End Sub(1)1 Print."及格”(2)(3)(4)(5score>=90DimscoreAsIn teger4 End If5 ElseIscore>=60The n5.56單擊窗體，從輸入框InputBox 輸入一個整數(shù)，判斷其是否為素數(shù)。例如輸入7,則屏幕上顯示“ 7是素數(shù)”；如果輸入的是9則屏幕上顯示“ 9不是素數(shù)”。Private Sub For

3、m_Click()Dim i As In teger, n As In teger, P rime As Stri ngn = Val(I np utBox(" n=")If n < 2 The n(1)ElseIf n Mod i = 0 The n Exit ForNext i(3)P rime ="不是素數(shù)"End IfEnd If(5)End Sub(1)(2)Ifn-1TheElse5.56設(shè)計一個用戶身份驗證程序，具體要求如下:在文本框Text1中輸入密碼，單擊“確定”按鈕 Command1對密碼進(jìn)行檢驗。若密碼正確（默認(rèn)密碼為 123

4、456），在窗體上顯示 歡迎進(jìn)入！ ”，并隱藏文本框和“確定”按鈕。如果輸入的密碼不對，彈岀消息框顯示“密碼不符，請再輸入一遍！”，同時清空文本框的內(nèi)容，允許再次輸入；如果第三次輸入的密碼仍然不對，消 息框顯示“非法用戶，請退岀程序！”，文本框和命令按鈕不能再使用。Private Sub Comma nd1_Click()(3)MsgBox "密碼不符，請再輸入一遍！ “Pri nt "歡迎進(jìn)入！"Text1.Visible = FalseComma nd1.Visible = FalseElseIf n <= 2 ThenElseMsgBox "

5、非法用戶，請退岀程序！ “Text1.Text =""TextI.E nabled = FalseComma ndl.E nabled = FalseEnd If(5)End Sub1II(1)(2)d(3)d(4End IfText1.Text =HHDim nAsIn tege)If(5)Text1.Text ="123456" The n保5.56 分存單擊窗體，從輸入框InputBox 輸入x和n,并計算下列表達(dá)式的值，直至末項小于為止，結(jié)果顯示在窗體。Dim s As Sin gle, x As Sin gle, a As Sin glex =

6、 Val(I np utBox("輸入x")Private Sub Form_Click()DoLoop(5)End SubPrint"s=" s5 Whilea >=0.00001Private Sub Form_Click()保5.56 分存編制Form_Click過程，用近似公式求自然對數(shù)的底數(shù)e的值，直到末項小于10-4為止，結(jié)果顯示在窗體上。Dim s As Sin gle, x As Sin gle, a As Sin gleDoLoop(5)End SubWhila >=0.00014 Prin(5)"e="

7、5.56 分存(1實現(xiàn)文本框的復(fù)制、剪切、粘貼、刪除功能Private Sub Comma nd1_Click()Cli pboard.SetText Text1.SelTextEnd SubPrivate Sub Comma nd2_Click()Cli pboard.ClearEnd SubPrivate Sub Comma nd3_Click()End SubPrivate Sub Comma nd4_Click()(5)End Sub(1)(3)(5)(2)(4)1 Text1.SelT.ext =""Text1.SelText =""Cli p

8、board. ClearText1.SelText =Cli pboard.GetTextCli pboard.SetTextText1.SelText保5.56分存單擊窗體，實現(xiàn)以下的分段函數(shù)，其中 x從輸入框輸入，求岀y顯示在窗體上。Private Sub Form_Click()(1)(2)If x < -5 Theny = x * Sin (x) + 2 人 xElsey = Sqr(x - 5) + Log(x) / Log(10)(5)End Sub保單擊窗體，產(chǎn)生20個從1到600之間的隨機(jī)整數(shù)，并以每行 5個把數(shù)據(jù)顯示在窗體上，并在窗體上顯示20個數(shù)據(jù)中的所有偶數(shù)之和。F

9、or i = 1 To 20Private Sub Form_Click()(1)Ran domizePri nt x;If(4) The n s = s + x(1)z = Val(I np utBox("z")Next i(5)End Sub保5.56分存單擊窗體，從鍵盤輸入三個數(shù)，將它們從大到小輸岀在窗體上。Private Sub Form_Click()Dim x As Si ngle, y As Sin gle, z As Sin glex = Val(I np utBox("x")If x < y The nEnd IfIf x <

10、; z The nEnd Ift = y: y = z: z = tEnd If(5)End Sub(1t = x: x = y: y = t(2)y =Val(I np utBox("y")(3)Print x, y, z(4t = x:x = z:5 If y <z Then(5Private Sub Form_Click()n = Val(I np utBox(" n=")問題105.56分存編制Form_Click過程，從輸入框InputBox 輸入行數(shù)n(5 < n<10)，然后在窗體上輸岀n層數(shù)字金字塔。Dim n As I

11、n teger, i As In teger, j As In tegerDoLoop Un til n >= 5 And n < 10For i = 1 To n(1)(5)Next iEnd Sub(1)1 Next j(2)Print(3)For j = 1 To 2* i - 1Print Trim( Str(i);(4)Print Tab(n +1 - i);(5)問題11保5.56 分存從輸入框InputBox 輸入n,再從輸入框輸入這n個整數(shù)，要求以每行5個的形式輸岀這n個數(shù)（其中的偶數(shù)用 紅色顯示），計算它們的平均值并顯示在窗體上。Dim n As In teger

12、, x As In teger, ave As Sin gle, s As Sin gleFor i = 1 To nPrivate Sub Form_Click()n = Val(I np utBox(" n")問題If x Mod 2 = 0 The nElseEnd IfPrint x;Next iPrint(5)Print "End Sub平均值為："& ave1(1)1(2)1(3)1(4)1(5)Val(I np utBo x("x")ave = s / nForml.ForeColor =vbBlackIf i

13、Mod 5 =0 Then PrintForml.ForeColor = vbRed5.56編程，在窗體上顯示單擊窗體的次數(shù)。第一次單擊時，窗體上以紅色顯示“第1次單擊窗體”；第二次單擊時，窗體上以藍(lán)色顯示“第2次單擊窗體”；第三次單擊時，窗體上以綠色顯示“第 3次單擊窗體”，第四次單擊時,12清除窗體上的信息。第五次單擊的效果和第一次一樣，以此類推，運行效果如圖所示。Private Sub Form_Click()If n = 1 The nForml.ForeColor = vbRed(4Pri nt "第1次單擊窗體"Elself n = 2 The nPri nt

14、"第2次單擊窗體"Elself n = 3 The nForml.ForeColor = vbGree nElself n = 4 The nForml.Cls(5)End IfEnd Sub(1Dim n AsIn teger(2Print "第 3次單擊窗體”3 Form1.For(3.eColor =vbBlue問題13保Iabel2在文本框Text1中輸入一個正整數(shù)，單擊按鈕Command1，判斷該數(shù)的奇偶性，結(jié)果顯示在標(biāo)簽框要求偶數(shù)用藍(lán)色顯示，奇數(shù)用紅色顯示。中,Private Sub Comma nd1_CIick()Dim x As In teger

15、(1)If ThenLabel2.ForeColor = vbBlue(5)Label2.Ca ptio n = x & "是奇數(shù)"End IfEnd Sub(1)Label2.ForeColor =(2)vbRedx Mod 2(3)3 Label2.Cap.tion= X & ”是偶數(shù)”(4)4 Else5 x =.Val(Text1.(5問題14)Text)5.56分存單擊窗體，從輸入框輸入一個字符串，判斷其是否為“回文”并在窗體上打印結(jié)果。“回文”是指字符串順讀與 倒讀都是一樣的，如“潮起潮落，落潮起潮”。Private Sub Form_Click

16、()Dim s As Stri ng ,n as In tegers = Inp utBox("請輸入字符串")(1)For i = 1 To n 2If ThenEnd IfNext iIf i <= n 2 ThenElse(5)End IfEnd Sub問題15(5)是回文“Len(s)Mid(s,i,1)<>Mid(s, n+ 1i,1)5.56分卄存單擊窗體，輸岀下列數(shù)字圖案（行數(shù)從輸入框Inp utBox 輸入）。Private Sub Form_Click()Dim n As In teger(1) (2)Forj = 1 To nIf j

17、< i ThenElseEnd IfNext j(5)Next iEnd Sub問題16(4)(3)(5)(2)1 Fori =.1 To n2n =InputB ox("請 輸入行數(shù)")Print n+ 1- j；Printi + 1;5 Print5.56Private Sub Text1_Key Press(KeyAscii As In teger)(5)從文本框Text1輸入一個二進(jìn)制正整數(shù)，單擊窗體，在窗體上打印岀相應(yīng)的十進(jìn)制數(shù)；且文本框中只允許輸入Private Sub Form_Click()Dim s As Stri ng, a As String,

18、n As In teger, x As Long(1)n = Len(s)For i = 1 To nx = x + Val(a) * 2 (i - 1)Next i(3)End SubIf(4) ThenEnd IfEnd Sub問題175.56分存Private Sub Comma nd1_Click()(3)建立一個“猜數(shù)程序”。單擊窗體，產(chǎn)生一個2位的隨機(jī)正整數(shù)。在文本框 Text1中輸入你猜測的數(shù)字，單擊按鈕Command1在窗體上顯示猜測結(jié)果：如果你輸入的數(shù)字比程序生成的隨機(jī)數(shù)要大，則顯示“大了”；如果比 程序生成的隨機(jī)數(shù)要小則“小了”；然后繼續(xù)輸入數(shù)字進(jìn)行猜測。如果猜中，則顯示“恭喜你猜中啦！”，并用 消息框顯示一共猜了幾次。Dim n As In teger, k As In teger(1)Ran domize(2)End SubDim x As In tegerIf x > n The nPrint x;"大了"問題18Print x;"小了"ElsePri nt x;"MsgBox "End If恭喜你猜中了！ ”一共猜了 “ & k & “次"(1)1x =Text1.T