vb复习题(选择结构).doc

【程序填空】 ------------------------------------------------------- 功能：输入任何一个英文字母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分以上),不及格几个等级。 ------------------------------------------------------