### VBS编程实例详解
#### 实例一：生成1234的所有排列组合
本示例通过编写一个简单的VBS脚本来生成数字1、2、3、4的所有可能的排列组合，并统计总的组合数量。
##### 知识点：
1. **循环结构**：通过嵌套的`For`循环实现对每个位置上的数字进行遍历。
2. **条件判断**：使用`If`语句来确保生成的每组数字中的三个数字都不相同。
3. **变量声明与使用**：使用`Dim`关键字声明变量，如`Dim m, n, j, count`。
4. **输出结果**：利用`WScript.Echo`命令将结果输出到控制台。
```vbscript
Dim m, n, j, count
count = 0
For m = 1 To 4
For n = 1 To 4
For j = 1 To 4
If m <> n And n <> j And m <> j Then
WScript.Echo m & "," & n & "," & j
count = count + 1
End If
Next
Next
Next
WScript.Echo "总共 " & count & " 种组合"
```
#### 实例二：计算投资回报率
该示例用于根据不同的投资额计算相应的奖励金额，奖励规则根据投资额的不同而有所变化。
##### 知识点：
1. **条件分支**：使用`If...Else`语句来根据不同范围的投资额计算奖励。
2. **用户输入**：通过`InputBox`函数获取用户的输入。
3. **数学运算**：利用算术运算符进行奖励金额的计算。
4. **类型转换**：使用`CInt`函数将字符串类型的输入转换为整型。
```vbscript
Dim input, i, prize
input = InputBox("请输入投资额(单位:元)")
i = CInt(input)
If i <= 10 Then
prize = i * 0.1
ElseIf i > 10 And i <= 20 Then
prize = 10 * 0.1 + (i - 10) * 0.075
ElseIf i > 20 And i <= 40 Then
prize = 10 * 0.1 + 10 * 0.075 + (i - 20) * 0.05
ElseIf i > 40 And i <= 60 Then
prize = 10 * 0.1 + 10 * 0.075 + 20 * 0.05 + (i - 40) * 0.03
ElseIf i > 60 And i <= 100 Then
prize = 10 * 0.1 + 10 * 0.075 + 20 * 0.05 + 20 * 0.03 + (i - 60) * 0.015
Else
prize = 10 * 0.1 + 10 * 0.075 + 20 * 0.05 + 20 * 0.03 + 40 * 0.015 + (i - 100) * 0.01
End If
WScript.Echo "奖励金额为: " & prize
```
#### 实例三：寻找满足特定条件的平方数
本示例的目标是找到一个整数x，使得x+100和x+168同时都是完全平方数。
##### 知识点：
1. **循环结构**：使用`For`循环遍历可能的数值。
2. **数学函数**：利用`Sqr`函数计算平方根，以及`Round`函数取整。
3. **条件判断**：使用`If...End If`结构判断是否满足条件。
```vbscript
Dim x, count100, count168, sqr100, sqr168
For x = 0 To 100000
count100 = x + 100
count168 = x + 168
sqr100 = Sqr(count100)
sqr168 = Sqr(count168)
If Round(sqr100) = sqr100 And Round(sqr168) = sqr168 Then
Exit For
End If
Next
WScript.Echo "找到的值为: " & x
```
#### 实例四：计算某年的第几天
该示例通过输入日期，计算出该日期是一年中的第几天。
##### 知识点：
1. **日期处理**：使用`CDate`函数将字符串转换为日期类型。
2. **闰年判断**：定义了一个函数`isleapyear`来判断某一年是否为闰年。
3. **数组应用**：通过数组存储每个月的天数。
4. **循环累加**：使用`For`循环累加每个月的天数。
```vbscript
Dim inputdate, mydate, y, m, d, days, array1, array2
array1 = Array(31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
array2 = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
inputdate = InputBox("请输入日期(格式: yyyy-mm-dd)")
mydate = CDate(inputdate)
y = Year(mydate)
m = Month(mydate)
d = Day(mydate)
days = 0
If isleapyear(y) Then
For i = 0 To m - 2
days = days + array1(i)
Next
Else
For i = 0 To m - 2
days = days + array2(i)
Next
End If
days = days + d
WScript.Echo y & "年的第" & days & "天"
Function isleapyear(y)
If (y Mod 4 = 0 And y Mod 100 <> 0) Or y Mod 400 = 0 Then
isleapyear = True
Else
isleapyear = False
End If
End Function
```
#### 实例五：排序三个数
本示例通过输入三个数，将它们从小到大排序并输出。
##### 知识点：
1. **数组操作**：使用数组存储三个输入的数。
2. **临时变量**：使用临时变量`temp`来进行数值交换。
3. **比较与交换**：通过比较两个数值的大小，必要时进行交换，以实现排序功能。
```vbscript
Dim x, y, z, ary, temp
x = InputBox("输入第一个数")
y = InputBox("输入第二个数")
z = InputBox("输入第三个数")
ary = Array(CInt(x), CInt(y), CInt(z))
If ary(0) > ary(1) Then
temp = ary(0)
ary(0) = ary(1)
ary(1) = temp
End If
If ary(0) > ary(2) Then
temp = ary(0)
ary(0) = ary(2)
ary(2) = temp
End If
If ary(1) > ary(2) Then
temp = ary(1)
ary(1) = ary(2)
ary(2) = temp
End If
WScript.Echo "排序后为: " & ary(0) & ", " & ary(1) & ", " & ary(2)
```
#### 实例六：打印星号组成的C字符
本示例通过打印星号来形成字母C的形状。
##### 知识点：
1. **字符串输出**：直接输出星号字符串来形成图案。
2. **多行文本**：通过换行符`\n`实现多行文本的输出。
```vbscript
WScript.Echo " *** " & vbCrLf
WScript.Echo "* " & vbCrLf
WScript.Echo "* " & vbCrLf
WScript.Echo " *** "
```
以上就是这些VBS编程实例的具体实现及其所涉及的主要知识点。这些示例不仅适用于初学者练习，也为理解VBS脚本语言的基本语法和逻辑提供了很好的参考。
