1、 在桌面上，鼠标双击程序，打开VB编程软件，在左边工具栏上，单击【Label】按钮，在Form1窗口上绘制出标签控件来，并在其属性Caption改为请选择出征的兵种，如下图所示。
2、 接着，在左边工具栏上，单击【CheckBox】按钮，在Form1窗口上绘制出多选项控件来，并在其属性Caption改为步兵，如下图所示。
3、 然后，这里放了五个兵种，依次在在Form1窗口上绘制出多选项控件来，如图所示，依次将其属性Caption改为弓兵、骑兵、重骑兵、龙骑兵，如下图所示。
4、 接着，在左边工具栏上，单击【PictureBox】按钮，在Form1窗口上绘制出图片框控件来，并在其属性Picture属性中加载一副出征图。单击【Command】按钮，绘制出命令按钮，并改名为开始出征；最后把窗口的控件都布局整齐，如下图所示。
5、然后，在窗口做好后，就要在代码窗口中输入代码了，如下：
Public txtA As String
Public txtB As String
Public txtC As String
Public txtD As String
Public txtE As String
Private Sub Check1_Click()
If Check1.Value = 1 Then
txtA = "步兵 "
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
txtB = "弓兵 "
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
txtC = "骑兵 "
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
txtD = "重骑兵 "
End If
End Sub
Private Sub Check5_Click()
If Check5.Value = 1 Then
txtE = "龙骑兵 "
End If
End Sub
Private Sub Command1_Click()
MsgBox ("你出征带的兵是：") & txtA & txtB & txtC & txtD & txtE
Unload Form1
End Sub
如下图所示。
6、 最后，代码输入好后，单击【运行】按钮，效果如图所示，左键单击【开始出征】，这时弹出提示框，表示你已选择好了出征的兵种，如下图所示。
