在Visual Basic（VB）中，程序段通常指的是程序中的一段代码，它执行特定的任务或一系列任务。VB程序段的结构通常包括以下几种：
顺序结构：
程序按照代码的书写顺序从上到下、从左到右执行。
选择结构（分支结构）：
根据条件判断来决定执行哪段代码。例如，使用`If...Else`语句。
循环结构：
重复执行一段代码直到满足特定条件。例如，使用`For`循环或`While`循环。
顺序结构示例
```vb
Private Sub Command1_Click（）
Dim lii As LastInputInfo
lii.cbsize = Len（lii）
If GetLastInputInfo（lii） Then
Label1.Caption = "系统空闲时间： " & GetTickCount - lii.dwTime & "毫秒"
End If
End Sub
```
在这个示例中，程序首先声明了一个`LastInputInfo`类型的变量`lii`，然后调用`GetLastInputInfo`函数来获取系统空闲时间，并根据结果更新`Label1`的标题。
选择结构示例
```vb
Private Sub Command1_Click（）
Dim x As Integer
x = InputBox（"请输入一个整数："）
If x Mod 2 = 0 Then
Print "偶数"
Else
Print "奇数"
End If
End Sub
```
在这个示例中，程序提示用户输入一个整数，然后使用`If...Else`语句判断该整数是偶数还是奇数，并输出相应的结果。
循环结构示例
```vb
Private Sub Command1_Click（）
Dim x As Integer
x = Val（Text1.Text）
Label1.Caption = Str（x） & " 是素数。"
End Sub
Function prime（n As Integer, m As Integer） As String
If n = m Then
prime = "是素数。"
ElseIf n < 2 Or n Mod m = 0 Then
prime = "不是素数。"
Else
prime = prime（n, m + 1）
End If
End Function
```
在这个示例中，程序首先获取文本框`Text1`中的值，并调用`prime`函数来判断该值是否为素数。`prime`函数使用递归的方式实现，直到`n`等于`m`为止。
总结
通过上述示例，可以看到VB程序段可以通过不同的结构来实现不同的功能。理解这些基本结构有助于编写清晰、高效的VB程序。
