Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Const p = 3
a = InputBox("请输入a")
b = InputBox("请输入b")
Print "您输入的a是" & a /这里&可以换成逗号
Print "您输入的b是" & b /这里&可以换成逗号
a = a * p
Print "a*p=" & a /这里&可以换成逗号
End Sub
Dim a As Single
Dim b As Single
Const p = 3
a = InputBox("请输入a")
b = InputBox("请输入b")
Print "您输入的a是" & a /这里&可以换成逗号
Print "您输入的b是" & b /这里&可以换成逗号
a = a * p
Print "a*p=" & a /这里&可以换成逗号
End Sub