选择结构作业

选择结构作业
1、在购买某物品时，若所花钱x在下述范围内，所
付钱y按对应折扣支付
Y= x x<1000
1000<=x<2000
2000<=x<3000
x>=3000
程序代码为：
Private Sub Command1_Click()
Dim x!, y!
x = Val(InputBox("输入X的值"))
If x < 1000 Then
y = x
ElseIf x < 2000 Then
y = * x
ElseIf x < 3000 Then
y = * x
Else
y = * x
End If
Print "x="; x; "y="; y
End Sub
3、输入x,y,z三个数，按从大到小次序显示，如图： X y z
排序前23 676 67
排序后676 67 23
程序代码为：
Private Sub Command1_Click()
Dim x!, y!, z!
x = InputBox("输入 x")
y = InputBox("输入 y")
z = InputBox("输入 z")
Print " x y z"
Print "排序前"; x; ""; y; ""; z
If x < y Then
t = x
x = y
y = t
End If
If x < z Then
t = x
x = z
z = t
If y < z Then
t = y
y = z
z = t
End If
Print "排序后 " & x & " " & y & " " & z End Sub
4、完成如图所示的计算器程序
程序代码如下：
Private Sub Command1_Click()
Dim x!, y!, z!
x = Val
c = Trim
Select Case c
Case "+"
z = x + y
Case "-"
z = x - y
Case "*"
z = x * y
Case "/"
z = x / y
End Select
= z
End Sub
7、判断输入文本框中的表达式的左括号“（”和右括号“）”的配对情况
程序代码为：
Dim n%
Private Sub Command1_Click()
n = 0
Text1 = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) <> "=" Then
If Chr(KeyAscii) = "(" Then
n = n + 1
ElseIf Chr(KeyAscii) = ")" Then
n = n - 1
End If
Else
If n = 0 Then
Print "配对正确，恭喜发财"
ElseIf n > 0 Then
Print "左括号多于右括号" & n & "个，按“重
置”以重新输入"
Else
Print "右括号多于左括号" & Abs(n) & "个，
按“重置”以重新输入"
End If
End If
End Sub
1、输入年份，判断是否为闰年
（year 是闰年，即 year 能被 4 整除但不能被 100 整除，或 year 能被 400 整除）
程序代码如下：
Private Sub Command1_Click()
Dim x!
x = Val
If x Mod 400 = 0 Then
= "此年份是闰年"
Else
If x Mod 4 = 0 Then
If x Mod 100 > 0 Then
= "此年份是闰年"
End If
Else
= "此年份不是闰年"
End If
End If
End Sub
2、编写程序，输入一元二次方程的系数a，b，c，计算方程的根（判断两个实根，两个虚
根和两个相等根的各种情况）
程序代码如下：
Private Sub Command1_Click()
Dim a!, b!, c!, x!, y!, z!, h!
a = Val
b = Val
c = Val
x = b ^ 2 - 4 * a * c
If x < 0 Then
= "此方程无实数根"
Else
If x = 0 Then
y = (-1) * b / 2
= "此方程有一个实数根" & y
Else
z = ((-1 * b) + (b ^ 2 - 4 * a * c) ^ ) / (2 * a) h = ((-1 * b) - (b ^ 2 - 4 * a * c) ^ ) / (2 * a) = "此方程有两个实数根" & z & "和" & h
End If
End If
End Sub。