以下是一个简单的 Visual Basic 程序设计代码示例，用于计算两个数的和：
Private Sub Command1_Click()
Dim num1 As Integer
Dim num2 As Integer
Dim sum As Integer
num1 = Val(InputBox("请输入第一个数："))
num2 = Val(InputBox("请输入第二个数："))
sum = num1 + num2
MsgBox "两数之和为：" & sum
End Sub
该代码定义了三个变量 `num1`、`num2` 和 `sum`，分别用于存储输入的两个数和它们的和，在 `Command1_Click()` 事件中，通过 `InputBox()` 函数获取用户输入的两个数，并使用 `Val()` 函数将输入的字符串转换为整数类型，然后将两个数相加，将结果存储在 `sum` 变量中，并使用 `MsgBox()` 函数显示一个消息框，其中包含计算结果。
