1. 在窗体中放置一个命令按钮，当点击命令按钮时分配一个100以内的随机整数编号并显示第几位来访者。
要实现这个功能，您需要使用`Randomize`语句来初始化随机数生成器，然后使用`Rnd`函数生成随机数。下面是一个简单的代码示例：
```vb
Private Sub CommandButton1_Click()
Randomize ' 初始化随机数生成器
Dim randomNumber As Integer
randomNumber = Int((100 Rnd) + 1) ' 生成1到100之间的随机整数
Static visitorCount As Integer ' 使用静态变量来记录访客数
visitorCount = visitorCount + 1
MsgBox "你的编号是 " & randomNumber & "，你是第 " & visitorCount & " 位来访者。"
End Sub
```
2. 在窗体中放置一个文本框，输入一个3位数，分别计算该数各位数字之和与乘积。
这个需求可以通过将输入的数字转换为字符串，然后逐位处理来实现。以下是实现这一功能的代码示例：
```vb
Private Sub TextBox1_Change()
Dim inputNumber As String
Dim sum As Integer, product As Integer
Dim digit As String
inputNumber = TextBox1.Text ' 假设输入的是一个3位数
If Len(inputNumber) = 3 Then
sum = 0
product = 1
For i = 1 To Len(inputNumber)
digit = Mid(inputNumber, i, 1)
sum = sum + CInt(digit) ' 将每一位转换为整数并累加
product = product CInt(digit) ' 将每一位转换为整数并累乘
Next i
MsgBox "各位数字之和为 " & sum & "，各位数字之积为 " & product
Else
MsgBox "请输入一个3位数。"
End If
End Sub
```
3. 编写程序求“倒序数”。
求倒序数可以通过将数字转换为字符串，然后反转字符串，或者直接通过数学运算来实现。以下是两种方法的示例：
方法一：使用数字计算方法
```vb
Private Sub CommandButton2_Click()
Dim originalNumber As Integer
Dim reversedNumber As Integer = 0
originalNumber = Val(TextBox2.Text)
While originalNumber > 0
reversedNumber = (reversedNumber 10) + (originalNumber Mod 10)
originalNumber = originalNumber \ 10
Wend
TextBox3.Text = reversedNumber
End Sub
```
方法二：使用字符串分割再组合方法
```vb
Private Sub CommandButton2_Click()
Dim numberStr As String = TextBox2.Text
Dim reversedStr As String = StrReverse(numberStr)
TextBox3.Text = reversedStr
End Sub
```
这些代码片段展示了如何在VB中解决您提到的问题。请注意，实际应用中可能需要根据具体情况进行调整，比如错误处理和用户输入验证。
