vb复习题(选择结构)

1、'【程序填空】'-'功能：输入任何一个英文字母x,' 若x的值为"a","c","d-f" ,则显示x的大写字母；' 若x的值为"m","o","p-z",则显示x的小写字母；' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。'-Private Sub Command1_Click()x = Text1.Text'*SPACE* 【?】'*SPACE* Case 【?】 Label1.

2、Caption = UCase(x) Case "m", "o", "p" To "z" Label1.Caption = LCase(x) Case Else'*SPACE* 【?】 End SelectEnd Sub-'【程序填空】'-'功能：窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。' 判断密码是否正确，并显示相应提示' 在加载窗体时设置密码框最大长度为8，密码显示字符为“

3、*”'-dim x as stringPrivate Sub Command1_Click() x = Text1.Text '*SPACE* If x 【?】 "12345678" Then MsgBox ("欢迎你用机!") Else MsgBox ("对不起，口令错") End If Text1.Text = "" Text1.SetFocusEnd SubPrivate Sub Form_Load() Text1.Text = "" '*SPACE* Text1.

4、【?】 = 8 '*SPACE* Text1.【?】 = "*" End Sub-'【程序填空】'-' 功能：输入一个数,若大于0,则显示"+"；若小于0，' 则显示 "-"；若等于"0",则显示"零"。'-Private Sub Command1_Click( )x = Val(Text1.Text)Select Case x'*SPACE* 【?】 Label1.Caption = "+" Case Is <

5、0'*SPACE* 【?】'*SPACE* 【?】 Label1.Caption = "零" End SelectEnd Sub'-'【程序填空】'-'功能：根据输入的学习成绩,分别显示优秀(90分以上), 良好' (75分以上),及格(60分以上),不及格几个等级。'-Private Sub Command1_Click()x = Val(Text1.Text)If x >= 90 Then Label1.Caption = "优秀"'*SPACE*ElseIf 【?】The

6、n Label1.Caption = "良好"ElseIf x >= 60 Then'*SPACE* 【?】'*SPACE*【?】 Label1.Caption = "不及格"End IfEnd Sub'-'【程序填空】'-'题目：已知用inputbox函数输入两个数x和y，比较它们的大小，' 使得x大于y。'-Private Sub Form_Click()Dim x As Single, y As Singlex = InputBox("输入数据1：")'

7、;*SPACE*y =【?】Print "x值", "y值"Print x, yIf x < y Then'*SPACE* 【?】'*SPACE* 【?】'*SPACE* 【?】End IfPrint x, yEnd Sub'-'【程序填空】'-'功能：以下程序的功能为，单击窗体后如果输入的数据分别为"W"，"8"和"？"时，' 窗体上显示的内容分别是：W is Alpha Character、8 is Numeral Cha

8、racter、' ？is Other Character'-Private Sub Form_Click() Dim strC As String * 1 strC = InputBox("请输入数据") '*SPACE* Select Case 【?】 '*SPACE* Case "a" To "z" 【?】 Form1.Print strC + " Is Alpha Character" Case "0" To "9" Form1.Prin

9、t strC + " Is Numeral Character" '*SPACE* 【?】 Else Form1.Print strC + " Is Other Character" End SelectEnd Sub'-'【程序改错】'-'题目：以下程序功能是输入三个数，由大到小排序。'-Option ExplicitDim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click() Dim nTemp As Integer A

10、 = Val(InputBox("Please input first integer", "输入正整数") B = Val(InputBox("Please input second integer", "输入正整数") C = Val(InputBox("Please input third integer", "输入正整数") '*FOUND* If A <= C Then nTemp = A A = B B = nTemp End If '*FO

11、UND* If B <= C Then nTemp = A A = C C = nTemp End If '*FOUND* If A <= B Then nTemp = B B = C C = nTemp End If Print "The integers in order is" A; B; CEnd Sub'-'【程序改错】'-'题目:请根据下列描述编写购物优惠程序。某商场为了' 加速促成商品流通，采用购物打折的优惠办法，每' 位顾客一次购物（1）在100元以上者，按九五折优惠；' （2）在2

12、00元以上者，按九折优惠；（3）300元以上' 者，按八折优惠；（4）500元以上者按七折优惠。'-Option ExplicitPrivate Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x < 100 Then '*FOUND* x = y Else If x < 200 Then y = 0.95 * x Else If x < 300 Then y = 0.9 * x Else If x < 500 Then y = 0.8 * x El

13、se y = 0.7 * x '*FOUND* Else If End If End If End If '*FOUND* Text2.Text = xEnd Sub'-'【程序改错】'-'题目:密码判断程序，如果密码为12345则显示“恭喜，密码正确”，' 否则显示“很遗憾，密码错误”，要求文本框中只允许输入数字。'-Option ExplicitPrivate Sub Command1_Click() Dim strPws As String strPws = Trim(Text1.Text) '*FOUND* If

14、Len(strPws) <> 0 Then Exit Sub If strPws = "12345" Then '*FOUND* MsgBox "恭喜，密码正确", 验证 Else MsgBox "很遗憾，密码错误", , "验证" End IfEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) '*FOUND* If Not (KeyAscii >= 49 And

15、 KeyAscii <= 57) Then KeyAscii = 0 End IfEnd Sub'-'【程序改错】'-'题目:程序功能为求解一元二次方程的实根，请修正程序中错误。'-Option ExplicitPrivate Sub Form_Load() Dim a!, b!, c!, root1#, root2#, work As Double a = Val(InputBox(" 请输入系数a的值") b = Val(InputBox(" 请输入系数b的值") c = Val(InputBox(&qu

16、ot; 请输入系数c的值") '*FOUND* work = b * 2 - 4 * a * c If work >= 0 And a <> 0 Then '*FOUND* root1 = (Sqr(work) / (2 * a) '*FOUND* root2 = (Sqr(work) / (2 * a) Debug.Print "有二个实根" + Str$(root1) + "," + Str$(root2) Else Debug.Print "无实根!" End IfEnd Sub'-'【程序设计】'-'题目：(事件)单击窗体' (响应)用输入框输入一自然数，判断是&