VBS，慢慢进阶

今天是我们对VBS的进阶，将掌握一些新知识。

MsgBox "欢迎进入程序 ",vbInformation,"哈哈哈哈"
MsgBox "请放心使用此文件。我们将对你的电脑做一些调查",16,"准备中"
MsgBox "我们将准备格式化你的C盘,但是网络出现了一些故障",16,"请按重试"
Dim one
Dim two
Dim three
Dim four
Dim five
Dim six
Dim last
Dim hahaha
one = InputBox("请输入你的年龄")
two = InputBox("名字？")
three = InputBox("车牌号？")
four = InputBox("体重？")
five = InputBox("多久换一次内裤？")
six = InputBox("E-mail？")
last = InputBox("电话号码")
MsgBox "准备好后点yes！", vbYesNo
MsgBox "sorry，忘说了，点no也行！",16
Do
hahaha = InputBox("现在输入pig完成操作")
If hahaha = "pig" Then
MsgBox "抱歉，你上当了，再给你一次机会，点yes", vbYesNo,"哈哈哈"
Exit Do
Else
MsgBox "让你干啥就干啥，别磨叽",16
End If
Loop
MsgBox "你又上当了",16,"哼"
Do
MsgBox "原创：王乙堃，注：这是骚扰信息，有本事关掉它？",vbInformation
MsgBox "车牌：",vbInformation
MsgBox three,vbInformation
MsgBox "年龄：",vbInformation
MsgBox one,vbInformation
MsgBox "换一次内裤间隔：",vbInformation
MsgBox five,vbInformation
MsgBox "E-mail：",vbInformation
MsgBox six,vbInformation
MsgBox "体重：",vbInformation
MsgBox four,vbInformation
MsgBox "名字：",vbInformation
MsgBox two,vbInformation
MsgBox "电话号码：",vbInformation
MsgBox last,vbInformation
MsgBox "牛不牛？",16,"牛不牛"
Loop

Dim

Dim是变量的意思，D大写。注意它不像C和Java，它是不分类型的。

InputBox

这就是输入框了。输入框一般要用一个接口，也就是一个变量来实现。

Dim a = ImputBox("Put your hint here")

其中Put your hint here是告诉你要输入的东西。我们先创建a，然后再创建输入框，从中获得值，再传给a。

Exit Do

之前讲了Do Loop，现在讲一讲怎么退出循环。
首先需要一个if，待会儿会讲。之后写Exit Do;就行了。

……
Exit Do
……

If和End If

用过C和Java的朋友会说，if的结构是这样：

if(表达式){    
    代码;
}

而VBS的If结构则是：

If 表达式
代码
End If

If和End的首字母要大写。我们再来拓展一个Else：

Else
代码
End If

我们要写End If是因为VBS类似于Algol 68，它没有缩进没有大括号，用End If表示结束。

MsgBox拓展

引用Dim变量

我们先学习如何在MsgBox中间引用变量。

MsgBox "车牌：",vbInformation
MsgBox three,vbInformation

我节选了刚才一段创意小代码。vbInformation我们先不管，我们来说那个three。
前面我有写过这句话：

Dim three

所以你可以知道three是一个变量。MsgBox中就是直接写变量名。

vbInformation，16，vbYesNo

之前我们学习过MsgBox中间使用16，你可以看我的上一篇博客。 vbInformation和vbYesNo分别代表

• 一个含有“提示”意义的图标
• 一个写有“是”按键和“否”按键的框

这么说也说不清楚，你自己去试一试吧。

学的这里，自己分析一下一开始的代码吧！