怎么制作输入框并输入？

1、我们打开记事本

如下图

2、我们输入代码：

dim s

s=inputbox("请输入内容：")

msgbox "刚才输入的内容："& s

如下图

3、我们修改后缀为vbs

运行后

如下图

我们输入 苹果

4、我们单击确定后

就得到下图结果

这个就是我们刚才输入的内容

输出到提示框里面去了