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

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

法一：
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

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

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

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