班级摇名字程序通常包含以下几个步骤：
界面设计
创建一个包含输入班级人数、显示随机点名结果的界面。
使用标签、文本框和按钮等控件来实现用户交互。
程序代码
编写代码以获取用户输入的班级人数。
使用随机数生成函数（如VB中的`Rnd`函数）生成一个随机数，代表被点到的学生的序号。
将生成的随机数显示在界面上。
```vb
Dim num As Integer 'num表示班级人数
Private Sub Command1_Click（）
num = Val（Text1.Text）
If num <= 0 Then
MsgBox（"请输入班级人数"）
Else
Randomize
xh = Int（（num * Rnd） + 1）
Label1.Caption = Str（xh）
End If
End Sub
Private Sub Text1_Click（）
Text1.Text = ""
End Sub
```
建议
用户输入验证：确保用户输入的班级人数是一个正整数。
随机性：使用`Randomize`函数和`Rnd`函数来生成随机数，以确保每次运行程序时都能得到不同的点名结果。
界面友好性：考虑使用更大的字体和更清晰的布局，使程序界面更加友好和易于使用。
通过以上步骤和代码示例，你可以创建一个简单的班级摇名字程序，用于在班级活动中进行随机点名。