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

【程序填空】

-------------------------------------------------------

功能：输入任何一个英文字母x,

若x的值为a,c,d-f,则显示x的大写字母；

若x的值为m,o,p-z,则显示x的小写字母；

若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。

-------------------------------------------------------

PrivateSubCommand1_Click()

x=Text1.Text

**********SPACE**********

【?】

**********SPACE**********

Case【?】

Label1.Caption=UCase(x)

Casem,o,pToz

Label1.Caption=LCase(x)

CaseElse

**********SPACE**********

【?】

EndSelect

EndSub

-------------------------------------------------------

【程序填空】

-------------------------------------------------------

功能：窗体上建立了一个文本框Text1(输入口令)和一个命令按钮Command1(检查)。

判断密码是否正确，并显示相应提示

在加载窗体时设置密码框最大长度为8，密码显示字符为“*”

-------------------------------------------------------

dimxasstring

PrivateSubCommand1_Click()

x=Text1.Text

**********SPACE**********

Ifx【?】Then

MsgBox(欢迎你用机!)

Else

MsgBox(对不起，口令错)

EndIf

Text1.Text=

Text1.SetFocus

EndSub

PrivateSubForm_Load()

Text1.Text=

**********SPACE**********

Text1.【?】=8

**********SPACE**********

Text1.【?】=*

EndSub

-------------------------------------------------------

【程序填空】

-------------------------------------------------------

功能：输入一个数,若大于0,则显示+；若小于0，

则显示-；若等于0,则显示零。

-------------------------------------------------------

PrivateSubCommand1_Click()

x=Val(Text1.Text)

SelectCasex

**********SPACE**********

【?】

Label1.Caption=+

CaseIs0

**********SPACE**********

【?】

**********SPACE**********

【?】

Label1.Caption=零

EndSelect

EndSub

-------------------------------------------------------

【程序填空】

-------------------------------------------------------

功能：根据输入的学习成绩,分别显示优秀(90分以上),良好

(75分以上),及格(60分以上),不及格几个等级。

------------------------------------------------------