VBS脚本学习：打印乘法口诀表

打印乘法口诀表：在C盘建立文件test.vbs，代码如下

'调用示例：
'用 c: 和 cd / 命令到位置 C:\>
'输入命令 cscript test.vbs 9 //Nologo
'可以计算 1-9 的乘法口诀表

Option Explicit '所有变量必须声明后再使用

'输入参数：口诀表上线数字，默认为9
Dim Number
Number = 9
If WScript.Arguments.Count > 0 Then 
    Number = WScript.Arguments(0)
End If 

'输入参数不为正整数则直接退出
If Not IsNumeric(Number) Then
    WScript.Echo "参数必须为正整数"
    WScript.Quit 
End If
If Number <= 0 Then
    WScript.Echo "参数必须为正整数"
    WScript.Quit 
End If 

'每行的文字
Dim Line 
Line = ""

'口诀表标题
WScript.Echo 
WScript.Echo "乘法表 (1 - " & Number & ")"
WScript.Echo 

'输出口诀表
Dim i, j
For i = 1 To Number
    Line = ""
    For j = 1 To Number
        Line = Line & i & "*" & j & "=" & (i * j)
        Line = Line & Chr(9) 'Chr(9)：水平制表符
    Next
    WScript.Echo Line
Next

运行结果为

1）9为输入参数，意为打印1*1到9*9的乘积

2）//Nologo意为不打印Microsoft版权信息

END

转载于:https://my.oschina.net/Tsybius2014/blog/304540