文档库

最新最全的文档下载
当前位置:文档库 > VB练习4-2(西北大学)

VB练习4-2(西北大学)

练习4-2

1、选择题

(1)下面程序段执行结果为()。注:Rnd()产生随机数,值在0~1之间。

x=Int(Rnd()+4)

Select Case x

Case 5

Print “excellent”

Case 4

Print “good”

Case 3

Print “pass”

Case Else

Print “fail”

End Select

A.excellent B.good C.pass D.fail

2、填空题

(1)下列程序的功能是:当x<50时,y=0.8x;当50≤x≤100时,y=0.7;当x>100时,没有意义。请补全程序。

Private Sub Command1_Click()

x=InputBox(“输入x的值”)

Case Is<50

y=0.8*x

Case 50 To 100

y=0.7*x

Print “输入的数据出界”

End Select

End Sub

3、编程题

(1)若基本工资大于等于600元,增加20%工资;若小于600元,且大于等于400元,则增加15%工资;若小于400元,则增加10%工资。青

根据用户输入的基本工资,计算出增加后的工资。

(2)输入一个数字1~7,用中英文显示星期几。

(3)假定有以下每周工作安排:星期一,三:讲计算机课;星期二,四:讲程序设计课;星期五:进修英语;星期六:政治学习;星期日:休息.输入星期数显

示当天的工作安排.在输入时用0~6分别代表星期一到星期六,如果输

入0~6以外的数,系统提示错误,重新输入。

(4)给定年号与月份,判断该年是否闰年,并根据给出月份来判断是什么季节和该月有多少天?

(5)编制程序,根据用户输入的考试成绩(百分制,若有小数点则四舍五入),按一下划分标准,输出相应等级。

VB练习4-2(西北大学)