vb选择结构练习题.doc

vb选择结构练习题.doc奖学金问题；
平均分大于95
或者两门100 —门大于80分
Private Sub Command l_Click()
ml = Val()
m2 = Val()
m3 = Val()
x = (ml + m2 + m3) / 3
If x > 95 Then
y=i
Elself ml = 100 And m2 = 100 And m3 >= 80 Then
y = i
Elself m2 = 100 And m3 = 100 And ml >= 80 Then
y = i
Elself ml = 100 And m3 = 100 And m2 >= 80 Then y=i
Else
y = 0
End If
Ify= IThen
= ”一等奖学金”
Else: 二”非一等奖学金”
End If
End Sub
Q. Forml
100
100
一等奖学金
计算
三个数比较大小并按从小到大排列
Private Sub Command l_Click()
x = Vai (Text 1 .Text)
y = Val()
z = Val()
tmax = IIf(x > y, x, y)
Max = IIf(tmax > z, tmax, z)
tmin = IIf(x < y, x, y)
Min 二 IIf(tmin < z, tmin, z)
a = x + y + z- Min - Max
= Min & ” v ” & a & ” v " & Max
End Sub
5 Forml
14
33
14 < 33 < 56
比较
编写一个简单计算器程序
Private Sub Command l_Click() numl = Val(Textl .Text) num2 = Val()
NOp 二 Trim(Text3)
Select Case NOp
Case ”+”
x = numl + num2
Case
x = numl - num2
Case
x = numl * num2
Case 'T
x = numl / num2
End Select
= x
End Sub
Private Sub Command2_Click()
Text 二””
二””
二“”
二””
End Sub
& Forml
ULI
清屏
计算
输入一个数字，用英文显示对应的周一至周日
Private Sub Command l_Click()
a 二 Val(Textl .Text)
Select Case a
Case 1
二"Monday"
Case 2
= "Tuesday"
Case