选择结构作业 (2)

1、.选择结构作业1、在购买某物品时，若所花钱x在下述范围内，所付钱y按对应折扣支付Y= x x1000 0.9x 1000=x20000.8x 2000=x=3000程序代码为：Private Sub Command1_Click()Dim x!, y!x = Val(InputBox(输入X的值)If x 1000 Then y = xElseIf x 2000 Then y = 0.9 * xElseIf x 3000 Then y = 0.8 * xElse y = 0.7 * xEnd IfPrint x=; x; y=; yEnd Sub3、输入x,y,z三个数，按从大到小次序显示，如

2、图： 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 zPrint 排序前; x; ; y; ; zIf x y Then t = x x = y y = tEnd IfIf x z Then t = x x = z z = tEnd IfIf y z Then t = y y = z z = t End IfPrint 排序后 & x & & y & & zEn

3、d Sub4、 完成如图所示的计算器程序 程序代码如下：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 / yEnd SelectText4.Text = zEnd Sub7、判断输入文本框中的表达式的左括号“（”和右括号“）”的配对情况程序代码为：Dim n%Private Sub Com

4、mand1_Click() n = 0 Text1 = Form1.ClsEnd SubPrivate 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 IfElse If n = 0 Then Print 配对正确，恭喜发财 ElseIf n 0 Then Print 左括号多于右括号 & n & 个，按“重置”以重新输入 Else Print 右括号多于左括

5、号 & Abs(n) & 个，按“重置”以重新输入 End IfEnd IfEnd Sub1、 输入年份，判断是否为闰年（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 L

6、abel2.Caption = 此年份不是闰年 End IfEnd IfEnd Sub2、 编写程序，输入一元二次方程的系数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 * cIf 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