vbs对话框怎么写 按钮的脚本啊

LO = LCase(WScript.Arguments(1))
LR = LCase(WScript.Arguments(0))

分别将第一个参数与第二个参数的小写化后赋给LR和LO。

Arguments是参数集合。
Arguments(0)表示第一个参数，Arguments(1)表示第二个参数，依此类推。

我解释一下参数吧。
当你打开了记事本程序，然后拖拽一个文本文档进去，记事本就会显示这个文本文档的内容。这是为什么呢？在拖拽并释放的那一刻，其实就给了记事本一个参数，就是那个文本文档的路径。当记事本收到这个参数以后，就会读取这个路径的文本文档了。

这里的Arguments也是一样。
你尝试写一个这样的VBS：

For Each a In WScript.Arguments
s = s & a & vbCrLf
Next
MsgBox s

然后拖动一个文件到这个VBS文件的图标上试试，再拖动多个文件到这个VBS文件的图标上试试。
这个简单的VBS语句就是遍历参数并显示。
相当于读取了Arguments(0)、Arguments(1)、...、Arguments(N)

试试这个代码：
intanswer=msgbox ("你爱我吗？",68,"你爱我吗")
if intanswer= vbyes then
msgbox "宝贝，我也爱你",64,"我爱你"
else
msgbox "靠，不爱我？滚！",64,"不爱你"
end if
我是新手，可以加我好友么？

dim a
a=msgbox("你爱我吗？",vbYesno,"你爱我吗")
if a =vbYes then
msgbox"宝贝，我也爱你",6,"我爱你"
else
msgbox"靠，不爱我？滚！",16,"不爱你"
end if
复制一下