Question

vb输入矩形长和宽输出矩形面积

要求用两种方法分别作出来
一 才用文本框和print方法
二 采用inputbox和msgbox结合的方法

Answer 1

Private Sub Command1_Click()
chang = Val(InputBox("矩形长="))
kuan = Val(InputBox("矩形宽="))
MsgBox "矩形面积是" & chang * kuan

chang = Val(Text1)
kuan = Val(Text2)
Print "面积是" & chang * kuan
End Sub

Answer 2

Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
Print "矩形面积为：" & a * b
End Sub

Private Sub Command2_Click()
a = InputBox("请输入长：")
b = InputBox("请输入宽：")
MsgBox ("矩形的面积为：" & a * b)
End Sub

Answer 3

法一：
L = Val(Text1.text)
W = Val(Text2.text)
S=L*W
Print "面积是" & S
End Sub

二：
Private Sub Command1_Click()
L = Val(InputBox("长:"))
W = Val(InputBox("宽:"))
S=L * W
MsgBox "矩形面积是" & S

Answer 4

Private Sub Command1_Click()
a = Val(InputBox("长"))
b = Val(InputBox("宽"))
MsgBox "面积是" & a*b

End Sub
Private Sub Command1_Click()
a= Val(Text1.text)
b= Val(Text2.text)
Print "面积是" & a*b
End Sub

Answer 5

Private Sub Command1_Click()Dim A As Single, B As Single, S As SingleA = Val(Text1.Text): B = Val(Text2.Text)S = A * BText3.Text = SEnd Sub