vb复习题选择结构.pdfVIP

【程序填空】 功能：输入任何一个英文字母 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 Select End Sub 【程序填空】 功能：窗体上建立了一个文本框 Text1( 输入口令 ) 和一个命令按钮 Command1(检查 ) 。 判断密码是否正确，并显示相应提示 在加载窗体时设置密码框最大长度为 8 ，密码显示字符为“ * ” dim x as string Private Sub Command1_Click() x = Text1.Text **********SPACE********** If x 【?】Then MsgBox ( 欢迎你用机 !) Else MsgBox ( 对不起，口令错 ) End If Text1.Text = Text1.SetFocus End Sub Private 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 0 **********SPACE********** 【?】 **********SPACE********** 【?】 Label1.Caption = 零 End Select End Sub 【程序填空】 功能：根据输入的学习成绩 , 分别显示优秀 (90 分以上 ), 良好 (75 分以上 ), 及格 (60 分以上 ), 不及格几个等级。 Private Sub Command1_Click() x = Val(Text1.Text) If x = 90 Then Label1.Caption = 优秀 **********SPACE********** El