### VB 实验课知识点解析
#### 一、统计文本框中的单词数量
##### 知识点概述：
在VB编程环境中，本题目要求实现一个简单的文本分析功能：统计文本框中输入的英文句子所包含的单词数量。为了处理可能出现的长句子，需设置文本框的`Multiline`属性为`True`并启用滚动条。
##### 关键代码解析：
```vb
Private Sub Command1_Click()
Dim Nw As Integer, i As Integer, nL As Integer
Dim Wt As Boolean
Dim strI As String, strT As String
strI = Text1.Text
Nw = 0: Wt = False
nL = Len(RTrim(strI))
For i = 1 To nL
strT = Mid$(strI, i, 1) ' 取第i个字符
Select Case Asc(strT)
' 字符为空格、！、，、·、：、；、回车、换行等单分隔字符
Case 32, 33, 44, 46, 58, 59, 13, 10
Wt = True
Case Else ' 当前字符不是单分隔字符
If Not Wt Then ' 前一个字符是单分隔字符
Nw = Nw + 1
Wt = True
End If
End Select
Next i
Picture1.Cls
Picture1.Print "单词数为:", Nw
End Sub
```
- **初始化变量**：定义了多个变量用于存储句子长度、是否处于单词内等状态。
- **读取文本**：通过`Text1.Text`获取文本框中的内容。
- **循环遍历每个字符**：使用`For...Next`循环遍历整个字符串。
- **判断字符类型**：利用`Select Case`结构判断当前字符是否为空格或其他指定的分隔字符。
- **统计单词数**：如果当前字符不是分隔字符且前一个字符是分隔字符，则统计一个单词。
- **输出结果**：使用`Picture1.Print`在图片框中显示结果。
#### 二、字符串加密
##### 知识点概述：
该题目要求设计一个简单的字符加密算法，即将字母向后移动五个位置进行加密，非字母字符保持不变。此过程涉及对大小写字母的处理以及边缘情况的考虑（如字母Z或z之后的转换）。
##### 关键代码解析：
```vb
Private Sub Command1_Click()
Dim i As Integer, nL As Integer, iA As Integer
Dim strI As String, strT As String, strP As String
strI = Trim(Text1.Text)
i = 1: strP = ""
nL = Len(RTrim(strI))
Do While i <= nL
strT = Mid$(strI, i, 1) ' 取第i个字符
If (strT >= "A" And strT <= "Z") Then
iA = Asc(strT) + 5
If iA > Asc("Z") Then iA = iA - 26
strP = strP + Chr$(iA)
ElseIf (strT >= "a" And strT <= "z") Then
iA = Asc(strT) + 5
If iA > Asc("z") Then iA = iA - 26
strP = strP + Chr$(iA)
Else
strP = strP + strT
End If
i = i + 1
Loop
Text2.Text = strP
End Sub
```
- **初始化变量**：定义变量存储输入字符串、加密后的字符串等。
- **循环处理每个字符**：使用`Do While...Loop`循环处理每个字符。
- **加密逻辑**：通过条件判断确定字符是否需要加密及其加密方式。
- **输出结果**：将加密后的字符串显示在另一个文本框中。
#### 三、筛选不被3整除的数
##### 知识点概述：
题目要求筛选出100至200之间的所有不能被3整除的数，并计算这些数的数量。此题主要考察循环结构与条件判断的应用。
##### 关键代码解析：
```vb
Private Sub Command1_Click()
x = 101: y = 1
Text1.Text = Trim(Str(x - 1))
Do While x <= 200
If x Mod 3 <> 0 Then
y = y + 1
Text1.Text = Str(x) & "," & Text1.Text
End If
x = x + 1
Loop
End Sub
Private Sub Form_Click()
Label2.Caption = "共有" & y & "个数"
End Sub
```
- **初始化变量**：设置初始值。
- **循环处理**：使用`Do While...Loop`循环遍历指定范围内的数字。
- **条件判断**：通过`If...Then...Else`语句判断当前数是否能被3整除。
- **输出结果**：将符合条件的数添加到文本框中，并统计总数。
通过以上分析可以看出，这三个实验分别涵盖了字符串处理、基本数据类型的使用、循环结构与条件判断等VB编程基础知识。这对于初学者来说是非常实用的练习。
