UC知道VB 送分题
来源：百度知道 编辑：UC知道 时间：2024/06/20 17:21:56
1.在购买某物品时，若所花的钱x在下述范围内，所付钱y按对应折扣支付：
x x<1000
y= 0.9x 1000≤x<2000
0.8x 2000≤x<3000
0.7x x≥3000
（1） 程序界面自己设计；注意程序中表达式的正确书写。
（2） 用多分支条件语句和情况语句两种方法编写程序,文件分别保存。
（3） 输入各测试数据（900，1500，2000，4000），记录各输出结果？根据输出结果分析判断程序正确与否。
2.由用户输入三角形的三条边（可以用文本框或inputbox输入框输入），然后判断用户输入的三条边能否构成三角形，不能构成三角形则弹出msgbox消息框给出提示，能构成三角形则判断构成的是等边、等腰、直角还是任意三角形。
3.入x,y,z三个数，按从小到大的次序显示。
（1）x,y,z三个数可通过InputBox()函数或文本框接收，注意数据的类型。
（2）程序可由三个单分支或是一个单分支和一个嵌套IF语句等多种方法实现。
3月29日有效
可以直接把代码发上来，做出来发到邮箱再加30分。谢谢
第一题不格式不太好， 是一个分段函数： 当 x<1000 时 y=x。 当1000≤x<2000 时，y = 0.9x，
当2000≤x<3000时， y = 0.8x, 当x≥3000时, y=0.7x
邮箱: 1040838779@qq.com
x x<1000
y= 0.9x 1000≤x<2000
0.8x 2000≤x<3000
0.7x x≥3000
（1） 程序界面自己设计；注意程序中表达式的正确书写。
（2） 用多分支条件语句和情况语句两种方法编写程序,文件分别保存。
（3） 输入各测试数据（900，1500，2000，4000），记录各输出结果？根据输出结果分析判断程序正确与否。
2.由用户输入三角形的三条边（可以用文本框或inputbox输入框输入），然后判断用户输入的三条边能否构成三角形，不能构成三角形则弹出msgbox消息框给出提示，能构成三角形则判断构成的是等边、等腰、直角还是任意三角形。
3.入x,y,z三个数，按从小到大的次序显示。
（1）x,y,z三个数可通过InputBox()函数或文本框接收，注意数据的类型。
（2）程序可由三个单分支或是一个单分支和一个嵌套IF语句等多种方法实现。
3月29日有效
可以直接把代码发上来，做出来发到邮箱再加30分。谢谢
第一题不格式不太好， 是一个分段函数： 当 x<1000 时 y=x。 当1000≤x<2000 时，y = 0.9x，
当2000≤x<3000时， y = 0.8x, 当x≥3000时, y=0.7x
邮箱: 1040838779@qq.com
已发送，共包含4个程序（因为第一题按照要求需要两个程序），附件名称为zhidao.baidu.comquestion91210370.html。请查收邮箱。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
附代码：
1.
Option Explicit
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
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
Text2.Text = y
End Sub
2.Option Explicit
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
Select Case x
Case Is < 1000
y = x
Case Is < 2000
y = 0.9 * x
Case Is < 3000
y = 0.8 * x
Case Else
y = 0.7 * x
End Select
Text2.Text = y
End Sub
3.
Option Explicit
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, l As Single
a = Val(InputBox("a=?"))
b = Val(InputBox("b=?"