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.TextI *SPACE*I *SPACE*8 / 7CaseLabel1.Caption = UCase(x)Case "m&qu

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

3、quot;12345678" ThenMsgBox (" 欢迎你用机!")ElseMsgBox (" 对不起，口令错")End IfText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_Load()Text1.Text = ""I*SPACEText1.*I*SPACEText1.End Sub【程序填空】功能：输入一个数, 若大于 0, 则显示 "+" ；若小于0，则显示 "-" ；若等于"0"

4、;, 则显示 "零 "。Private Sub Command1_Click( )x = Val(Text1.Text)Select Case xI*SPACE*【 ?】Label1.Caption = "+"Case Is < 0I*SPACE*I*?】*SPACE*?】Label1.Caption =End SelectEnd Sub零"'' 【程序填空】功能：根据输入的学习成绩, 分别显示优秀（90 分以上 ）, 良好（75 分以上 ）, 及格 （60 分以上 ）, 不及格几个等级。Private Sub Comma

5、nd1_Click()x = Val(Text1.Text)If x >= 90 ThenLabel1.Caption = "优秀 "'*SPACE*ThenElseIfLabel1.Caption = "ElseIf x >= 60 Then '*SPACE*'*SPACE*Label1.Caption = "不及格 "End IfEnd Sub'' 【程序填空】'题目：已知用inputbox函数输入两个数 x和y,比较它们的大小, ' 使得 x 大于y。Private Su

6、b Form_Click()Dim x As Single, y As Singlex = InputBox(" 输入数据1： ")I *SPACE*y =【 ?】Print "x 值 ", "y 值Print x, yIf x < y ThenI *SPACE*?】I *SPACE*?】I *SPACE*?】End IfPrint x, yEnd Sub'' 【程序填空】功能：以下程序的功能为，单击窗体后如果输入的数据分别为"W"， "8" 和 " ？ " 时，

7、窗体上显示的内容分别是：W is Alpha Character 、 8 is Numeral Character？ is Other CharacterPrivate Sub Form_Click()Dim strC As String * 1strC = InputBox(" 请输入数据")Q*SPACE*Select CaseQ*SPACE*Case "a" To "zForm1.Print strC + " Is Alpha Character"Case "0" To "9"F

8、orm1.Print strC + " Is Numeral CharacterQ*SPACE*?】ElseForm1.Print strC + " Is Other CharacterEnd SelectEnd Sub' 【程序改错】题目：以下程序功能是输入三个数，由大到小排序。Option ExplicitDim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click()Dim nTemp As Integer输入正整数")输入正整数")输入正整数")A

9、= Val(InputBox("Please input first integer",B = Val(InputBox("Please input second integer", C = Val(InputBox("Please input third integer", "I*FOUND*If A <= C Then nTemp = A A = BB = nTempEnd IfI*FOUND*If B <= C Then nTemp = A A = CC = nTempEnd IfI*FOUND*If A

10、<= B ThennTemp = BB = CC = nTempEnd IfPrint "The integers in order is" A; B; CEnd Sub【程序改错】题目 : 请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1 ）在 100 元以上者，按九五折优惠；（ 2）在200 元以上者，按九折优惠；（ 3） 300 元以上者，按八折优惠；（ 4） 500 元以上者按七折优惠。Option ExplicitPrivate Sub Command1_Click() Dim x As Single,

11、 y As Single x = Val(Text1.Text)If x < 100 ThenI*FOUND*x = yElseIf x < 200 Theny = 0.95 * xElseIf x < 300 Theny = 0.9 * xElseIf x < 500 Theny = 0.8 * xElsey = 0.7 * xI *FOUND*Else IfEnd IfEnd IfEnd IfI*FOUND*Text2.Text = xEnd Sub ' 【程序改错】题目 : 密码判断程序，如果密码为12345 则显示“恭喜，密码正确”，否则显示“很遗憾，密

12、码错误”，要求文本框中只允许输入数字。Option ExplicitPrivate Sub Command1_Click()Dim strPws As StringstrPws = Trim(Text1.Text)I*FOUND*If Len(strPws) <> 0 Then Exit SubIf strPws = "12345" ThenI*FOUND*MsgBox " 恭喜，密码正确", 验证ElseMsgBox " 很遗憾，密码错误", , " 验证 "End IfEnd SubPrivate

13、Sub Form_Load()End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)I*FOUND*If Not (KeyAscii >= 49 And KeyAscii <= 57) ThenKeyAscii = 0End IfEnd Sub【程序改错】题目 : 程序功能为求解一元二次方程的实根，请修正程序中错误。Option ExplicitPrivate Sub Form_Load()Dim a!, b!, c!, root1#, root2#, work As Doublea = Val(InputBox("

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