如何用VB做多项选择程序

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、    最后，代码输入好后，单击【运行】按钮，效果如图所示，左键单击【开始出征】，这时弹出提示框，表示你已选择好了出征的兵种，如下图所示。