选择结构作业 (2)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
选择结构作业
1、在购买某物品时，若所花钱x在下述范围内，所
付钱y按对应折扣支付
Y= x x<1000
0.9x 1000<=x<2000
0.8x 2000<=x<3000
0.7x x>=3000
程序代码为：
Private Sub Command1_Click()
Dim x!, y!
x = Val(InputBox("输入X的值"))
If x < 1000 Then
y = x
ElseIf x < 2000 Then
y = 0.9 * x
ElseIf x < 3000 Then
y = 0.8 * x
Else
y = 0.7 * 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
End If
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(Text1.Text)
y = Val(Text2.Text)
c = Trim(Text3.Text)
Select Case c
Case "+"
z = x + y
Case "-"
z = x - y
Case "*"
z = x * y
Case "/"
z = x / y
End Select
Text4.Text = z
End Sub
7、判断输入文本框中的表达式的左括号“（”和右括号“）”的配对情况
程序代码为：
Dim n%
Private Sub Command1_Click()
n = 0
Text1 = ""
Form1.Cls
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(Text1.Text)
If x Mod 400 = 0 Then
Label2.Caption = "此年份是闰年"
Else
If x Mod 4 = 0 Then
If x Mod 100 > 0 Then
Label2.Caption = "此年份是闰年"
End If
Else
Label2.Caption = "此年份不是闰年"
End If
End If
End Sub
2、编写程序，输入一元二次方程的系数a，b，c，计算方程的根（判断两个实根，两个虚
根和两个相等根的各种情况）
程序代码如下：
Private Sub Command1_Click()
Dim a!, b!, c!, x!, y!, z!, h!
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
x = b ^ 2 - 4 * a * c
If x < 0 Then
Label4.Caption = "此方程无实数根"
Else
If x = 0 Then
y = (-1) * b / 2
Label4.Caption = "此方程有一个实数根"& y
Else
z = ((-1 * b) + (b ^ 2 - 4 * a * c) ^ (0.5)) / (2 * a)
h = ((-1 * b) - (b ^ 2 - 4 * a * c) ^ (0.5)) / (2 * a)
Label4.Caption = "此方程有两个实数根"& z &"和"& h
End If
End If
End Sub