初学vbs一些小代码与小成果

1.弹出Hello World窗口，代码如下：
Dim a
a=”Hello World!”
MsgBox a

2.输入两个数字，求两个数字的积，代码如下：
Dim a,b,c
a=InputBox(“a的值是：”)
b=InputBox(“b的值是：”)
c=a*b
MsgBox c



3.使用For……Next求1到10的和，代码如下：
Dim x,z
z=0
For x=1 To 10
z=z+x
Next
MsgBox z

4.输入学生成绩判断是否及格，代码如下：
Grade(value)
Sub Grade(value)
value=InputBox(“成绩是：”,”请输入成绩”)
If value >=90 Then
MsgBox value+” “+”优”
ElseIf value>=80 And value<90 Then
MsgBox value+” “+”良”
ElseIf value>=70 And value<80 Then
MsgBox value+” “+”中”
ElseIf value>=60 And value<70 Then
MsgBox value+” “+”及格”
Else
MsgBox value+” “+”不及格”
End If
End Sub