UC知道几道vb题
来源：百度知道 编辑：UC知道 时间：2024/05/31 20:01:10
1，编一程序输入上网时间并计算上网费用，计算的方法如下：
费用= 基数30元， 上网时间<10小时
每小时2.5元， 上网时间10~50小时
每小时2元， 上网时间≥50小时
每月收费最多不超过150元
2,输入x,y,z三个数,按从大到小的次序显示(利用inputbox)
3,输入一元二次方程ax^2+bx+c=0的系数a，b，c，计算并输出一元二次方程的两个根x1，x2 。 求根时要考虑无实根，重根活两个实根的情况。。。
费用= 基数30元， 上网时间<10小时
每小时2.5元， 上网时间10~50小时
每小时2元， 上网时间≥50小时
每月收费最多不超过150元
2,输入x,y,z三个数,按从大到小的次序显示(利用inputbox)
3,输入一元二次方程ax^2+bx+c=0的系数a，b，c，计算并输出一元二次方程的两个根x1，x2 。 求根时要考虑无实根，重根活两个实根的情况。。。
第 一题。问题好模糊，希望补充下
第二题
Private Sub Command1_Click()
Dim a(3), b As Integer, t As String
a(1) = Int(InputBox("请输入x"))
a(2) = Int(InputBox("请输入y"))
a(3) = Int(InputBox("请输入z"))
For i = 1 To 3
For j = 1 To i
If a(j) >= a(i) Then
b = a(j)
a(j) = a(i)
a(i) = b
End If
Next j
Next i
For i = 1 To 3
Print a(i)
Next i
End Sub
第三题
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim d As Single, x1 As Single, x2 As Single
a = InputBox("请输入一元二次方程的系数a")
b = InputBox("请输入一元二次方程的系数b")
c = InputBox("请输入一元二次方程的系数c")
do while a = 0
a = InputBox("因为a≠0，你输入的a＝0，请重新输入系数a")
loop
d = b * b - 4 * a * c
If d >= 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "系数为"; a; b; c; "的方程根分别为x1="; x1; &qu