如何用VB做多项选择程序

1、 在桌面上，鼠标双击程序，打开VB编程软件，在左边工具栏上，单击【Label】按钮，在Form1窗口上绘制出标签控件来，并在其属性Caption改为请选择出征的兵种，如下图所示。

2、 接着，在左边工具栏上，单击【CheckBox】按钮，在Form1窗口上绘制出多选项控件来，并在其属性Caption改为步兵，如下图所示。

3、 然后，这里放了五个兵种，依次在在Form1窗口上绘制出多选项控件来，如图所示，依次将其属性Caption改为弓兵、骑兵、重骑兵、龙骑兵，如下图所示。

4、 接着，在左边工具栏上，单击【PictureBox】按钮，在Form1窗口上绘制出图片框控件来，并在其属性Picture属性中加载一希嘉障缈副出征图。单击【Command】按钮，绘制出命令按钮，并改名为开始出征；最后把窗口的控件都布局整齐，如下图所示。

5、然后，在窗口做好后，就要在代码窗口中输入代码了，如下：Public txtA 钽吟篑瑜As StringPublic txtB As Str足毂忍珩ingPublic txtC As StringPublic txtD As StringPublic txtE As StringPrivate Sub Check1_Click()If Check1.Value = 1 ThentxtA = "步兵 "End IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThentxtB = "弓兵 "End IfEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 ThentxtC = "骑兵 "End IfEnd SubPrivate Sub Check4_Click()If Check4.Value = 1 ThentxtD = "重骑兵 "End IfEnd SubPrivate Sub Check5_Click()If Check5.Value = 1 ThentxtE = "龙骑兵 "End IfEnd SubPrivate Sub Command1_Click()MsgBox ("你出征带的兵是：") & txtA & txtB & txtC & txtD & txtEUnload Form1End Sub如下图所示。

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