在VB编程中抽取学号，可以采用以下几种方法：
使用数组和随机数生成
创建一个数组来存储所有学号。
使用随机数生成器随机选择一个学号。
将选中的学号与数组中的最后一个学号互换。
重复上述过程，直到所有学号都被抽中。
使用定时器和随机数生成
在窗体的Load事件中设置定时器，每隔一定时间（如0.1秒）刷新一次随机数。
在定时器的Timer事件中生成一个随机数，并将其转换为学号。
如果生成的学号已经存在，则继续生成新的随机数，直到得到一个未使用的学号。
使用全局变量和函数
在模块中定义一个全局变量来存储已生成的学号。
编写一个函数来生成随机学号，并检查该学号是否已经存在。
如果学号不存在，则将其添加到全局变量中，并在输出界面显示。
如果学号已存在，则提示用户没有未重复的学号。
```vb
Dim StudentNums As Integer（） = New Integer（50） {} ' 存储学号的数组
Dim UsedNums As New HashSet（Of Integer）（） ' 存储已使用的学号
Private Sub Form_Load（）
' 初始化数组
For i As Integer = 1 To 50
StudentNums（i） = i
Next
End Sub
Private Sub Command1_Click（）
' 生成随机学号
Dim newNum As Integer = GetRandomNumber（1, 50）
' 检查学号是否已存在
While UsedNums.Contains（newNum）
newNum = GetRandomNumber（1, 50）
End While
' 将新学号添加到已使用集合中
UsedNums.Add（newNum）
' 显示学号
Label1.Text = newNum.ToString（）
End Sub
Private Function GetRandomNumber（ByVal min As Integer, ByVal max As Integer） As Integer
Randomize
Return Int（（max - min + 1） * Rnd + min）
End Function
```
在这个示例中，我们使用了一个数组`StudentNums`来存储所有学号，并使用一个HashSet`UsedNums`来存储已使用的学号。`Command1_Click`事件处理程序用于生成随机学号，并检查该学号是否已经存在。如果学号不存在，则将其添加到已使用集合中，并在标签`Label1`中显示。
希望这些方法能帮助你解决在VB编程中抽取学号的问题。