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
本文介绍了一个使用VBScript编写的简单计算器示例程序。该程序通过定义两个变量a和b来接收用户输入的数值,并将这些数值乘以常数3,最后显示计算结果。示例展示了如何使用InputBox获取输入、Print输出信息以及基本的算术运算。
3013

被折叠的 条评论
为什么被折叠?



