在Visual Basic（VB）中编写一个24点计算器程序，可以通过穷举所有可能的运算符排列组合来解决。以下是一个简单的VB程序示例，使用穷举法来找到所有可能的表达式，其结果等于24：
```vb
Module Module1
Sub Main()
Dim numbers(3) As Integer
Dim operators(3) As String
Dim i, j, k As Integer
Dim found As Boolean
Dim expression As String
' 输入四个数字
For i = 0 To 3
Console.Write("请输入数字 " & (i + 1) & ": ")
numbers(i) = Convert.ToInt32(Console.ReadLine())
Next
' 输入三个运算符
For i = 0 To 2
Console.Write("请输入运算符 " & (i + 1) & " (+, -, *, /): ")
operators(i) = Console.ReadLine()
Next
' 穷举所有可能的数字排列和运算符组合
found = False
For i = 0 To 3
For j = 0 To 3
For k = 0 To 2
' 构建表达式
expression = ""
expression &= numbers(i).ToString() & " " & operators(j) & " " & numbers(k)
If j < 2 Then
expression &= " " & operators(j + 1)
End If
If k < 2 Then
expression &= " " & operators(k + 1)
End If
' 计算表达式的结果
Dim result As Double = EvaluateExpression(expression)
' 检查结果是否为24
If Math.Abs(result - 24) < 1e-6 Then
Console.WriteLine("找到解: " & expression)
found = True
End If
Next
Next
Next
If Not found Then
Console.WriteLine("未找到解。")
End If
Console.ReadKey()
End Sub
Function EvaluateExpression(expression As String) As Double
' 这里可以使用VB的Expression类或者调用外部表达式解析器来计算表达式的结果
' 为了简化，这里使用一个假设的Evaluate函数
' 在实际应用中，需要实现一个能够安全解析和计算任意表达式的函数
Return 0 ' 这里需要替换为实际的表达式计算逻辑
End Function
End Module
```
请注意，这个示例程序中的`EvaluateExpression`函数是一个假设的函数，用于计算表达式的结果。在实际应用中，你需要实现一个能够安全解析和计算任意表达式的函数，或者使用现有的库来处理这个问题。此外，这个程序没有考虑括号的使用，也没有处理除数为零的情况。在实际应用中，这些情况也需要被考虑和处理。