Question

这三个VB编程题怎么弄？

（1）已知三种商品的单价和数量，编写程序求所用总金额。要求使用InputBox函数为变量提供数据，运算结果用标签输出。
（2）编程实现用InputBox函数输入一个正数，用Print方法在一行显示它的平方和、平方根、立方和、立方根，每个数保留三位小数，各输出项之间应有间隔。
（3）输入三个数，输出其中最大的数，最小的数。

Answer 1

T1.建一个Label1.
Private Sub Label1_Click()
Dim a(2, 1) As Single, i As Integer, s As Single
For i = 0 To 2
a(i, 0) = InputBox("请输入第" & i + 1 & "个商品的单价")
a(i, 1) = InputBox("请输入第" & i + 1 & "个商品的数量")
s = s + a(i, 0) * a(i, 1)
Next
Label1.Caption = "总价格为：" & s
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝
T2.建一个Command1.
Private Sub Command1_Click()
Dim n As Single
n = InputBox("n=?")
Print Round(n * n, 3), Round(n ^ 3, 3), Round(Sqr(n), 3), Round(n ^ (1 / 3), 3)
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝
T3.建一个Command1.
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, max As Single, min As Single
a = InputBox("第一个数")
max = a
min = a
b = InputBox("第二个数")
If b > max Then max = b
If b < min Then min = b
c = InputBox("第三个数")
If c > max Then max = c
If c < min Then min = c
MsgBox "最大数" & max & "最小数" & min
End Sub

Answer 2

Private Sub Command1_Click()
Dim sum, a As Integer
a = Val(InputBox("请输入商品1的数量"))
sum = a * Val(InputBox("请输入商品1的单价"))
a = Val(InputBox("请输入商品2的数量"))
sum = sum + a * Val(InputBox("请输入商品2的单价"))
a = Val(InputBox("请输入商品3的数量"))
sum = sum + a * Val(InputBox("请输入商品3的单价"))
Label1.Caption = Str(sum)
End Sub

Private Sub Command2_Click()
Dim a As Integer
a = Val(InputBox("请输一个正数"))
If a > 0 Then
Print Format(a ^ 2, "0.000"), Format(a ^ (1 / 2), "0.000"), Format(a ^ 3, "0.000"), Format(a ^ (1 / 3), "0.000")
Else
MsgBox ("输入出错!请输一个正数")
End If
End Sub

Private Sub Command3_Click()
Dim a, b, c As Integer
a = Val(InputBox("请输入数1"))
b = Val(InputBox("请输入数2"))
c = Val(InputBox("请输入数3"))

If a > b Then
If a > c Then
Print "大数：", a
If b > c Then
Print "小数：", c
Else
Print "小数：", b
End If
Else
Print "大数：", c
Print "小数：", b
End If
Else
If b > c Then
Print "小数：", b
If a > c Then
Print "小数：", c
Else
Print "小数：", a
End If
Else
Print "小数：", c
Print "小数：", a
End If
End If
End Sub

Answer 3

怎么你的问题会引来 骗子 看我楼上的那家伙 会有人上当吗？

Answer 4

（1）已知三种商品的单价和数量，编写程序求所用总金额。要求使用InputBox函数为变量提供数据，运算结果用标签输出。
答案
新建工程,只有1个label1,代码如下:

Private Sub Command1_Click()
Dim a1!, a2!, b1!, b2!, c1!, c2!

reinput:
a1 = Val(InputBox("请输入商品1的单价!!"))
a2 = Val(InputBox("请输入商品1的数量!!"))
b1 = Val(InputBox("请输入商品2的单价!!"))
b2 = Val(InputBox("请输入商品2的数量!!"))
c1 = Val(InputBox("请输入商品3的单价!!"))
c2 = Val(InputBox("请输入商品3的数量!!"))

If IsNumeric(a1) = False Or IsNumeric(a2) = False Or IsNumeric(b1) = False Or _
IsNumeric(b2) = False Or IsNumeric(c1) = False Or IsNumeric(c2) = False Then
MsgBox "你输入的有问题,请重新输入!!"
GoTo reinput
End If

Label1.AutoSize = True
Label1.Caption = "商品1的单价为:" & a1 & " , 商品1的数量为:" & a2 & vbCrLf
Label1.Caption = Label1.Caption & "商品2的单价为:" & b1 & " , 商品2的数量为:" & b2 & vbCrLf
Label1.Caption = Label1.Caption & "商品3的单价为:" & c1 & " , 商品2的数量为:" & c2 & vbCrLf
Label1.Caption = Label1.Caption & "合计金额为:" & a1 * a2 + b1 * b2 + c1 * c2
End Sub

Answer 5

按照你的要求,在窗体上创建3个按钮,分别代表3个题目,创建一个label用于第一个题目显示数据:
复制以下代码,运行即可:

Private Sub Command1_Click()
Label1.Caption = Val(InputBox("请输入商品的单价:", "输入", 50)) * Val(InputBox("请输入商品的数量:", "数量", 10)) & "元!"
End Sub

Private Sub Command2_Click()
Dim n As Single
n = Val(InputBox("请输入一个数:"))
Print n; "的平方是:" & Format(n ^ 2, "0.000"); "平方根是:" & Format(Sqr(n), "0.000"); "立方是:" & Format(n ^ 3, "0.000"); "立方根是:" & Format(n ^ (1 / 3), "0.000")
End Sub

Private Sub Command3_Click()
Dim i As Integer, n As Single
Dim max, min
For i = 1 To 3
n = InputBox("请输入第" & i & "个数字")
If max = "" Then max = n Else If max < n Then max = n
If min = "" Then min = n Else If min > n Then min = n
Next
Print "最大数是:" & max
Print "最小数是:" & min
End Sub