在Visual Basic（VB）中，要计算圆柱体的表面积，你需要知道圆柱的底面半径（r）和高（h）。圆柱体表面积的计算公式是：
\[ S = 2\pi r^2 + 2\pi rh \]
其中，\（\pi\） 是圆周率，约等于 3.14159。
```vb
Const Pi = 3.1415926 ' 定义圆周率常量
Dim r As Single, h As Single ' 定义底面半径和高
r = Val(InputBox("请输入圆柱体底面半径: ")) ' 从用户输入获取底面半径
h = Val(InputBox("请输入圆柱体的高: ")) ' 从用户输入获取高
' 计算圆柱体表面积
text3 = 2 * Pi * r^2 + 2 * Pi * r * h ' 表面积公式
' 输出结果
MsgBox "圆柱体的表面积是: " & text3
```
在这个示例中，程序首先定义了圆周率常量 `Pi`，然后声明了两个单精度变量 `r` 和 `h` 来存储用户输入的底面半径和高。接着，程序通过 `InputBox` 函数获取用户输入的值，并将它们转换为数值型。最后，程序使用表面积公式计算表面积，并通过 `MsgBox` 函数显示结果。
请确保在运行此程序时，输入的底面半径和高是数值型数据，以便程序能够正确计算表面积。