vb复习题(选择结构)

【程序填空】-功能：输入任何一个英文字母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.Caption = UCase(x) Case m, o, p To z Label1.Caption = LCase(x) Case Else*SPACE* 【?】 End SelectEnd Sub-【程序填空】-功能：窗体上建立了一个文本框Text1(输入口令)和一个命令按钮Command1(检查)。 判断密码是否正确，并显示相应提示 在加载窗体时设置密码框最大长度为8，密码显示字符为“*”-dim x as stringPrivate Sub Command1_Click() x = Text1.Text *SPACE* If x 【?】 Then MsgBox (欢迎你用机!) Else MsgBox (对不起，口令错) End If Text1.Text = Text1.SetFocusEnd SubPrivate Sub Form_Load() Text1.Text = *SPACE* Text1.【?】 = 8 *SPACE* Text1.【?】 = * End Sub-【程序填空】- 功能：输入一个数,若大于0,则显示+；若小于0， 则显示 -；若等于0,则显示零。-Private Sub Command1_Click( )x = Val(Text1.Text)Select Case x*SPACE* 【?】 Label1.Caption = + Case Is = 90 Then Label1.Caption = 优秀*SPACE*ElseIf 【?】Then 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：)*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 Character、 ？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.Print 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 = 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 *FOUND* 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）在200元以上者，按九折优惠；（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 Else 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 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 KeyAscii = 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-【程序设计】-题目：(事件)单击窗体