高考问答动漫拟人化:一个VB程序 急
来源：百度文库 编辑：高考问答 时间：2024/05/05 19:40:41
谢谢大家了！我真的弄不明白了！
原题如下：
在名称为Form1的窗体中，画一个组合框和一个命令按钮。组合框的名称为Cbo1,初始内容为空，有"长跑"、"游泳"和"跳远"三个可供选择。
命令按钮名称为cmd1,标题为"确定"。编写适当的事件过程，使得运行程序时，选择组合框中的某项，单击命令按钮后，就会弹出一个对话框，
内容为"您选择了(该项)"。程序中不得使用任何变量。
原题如下：
在名称为Form1的窗体中，画一个组合框和一个命令按钮。组合框的名称为Cbo1,初始内容为空，有"长跑"、"游泳"和"跳远"三个可供选择。
命令按钮名称为cmd1,标题为"确定"。编写适当的事件过程，使得运行程序时，选择组合框中的某项，单击命令按钮后，就会弹出一个对话框，
内容为"您选择了(该项)"。程序中不得使用任何变量。
'设置Cbo1的Style为2
Private Sub Cmd1_Click()
MsgBox ("您选择了" & Cbo1.Text)
End Sub
Private Sub Form_Load()
Cbo1.AddItem ("长跑")
Cbo1.AddItem ("游泳")
Cbo1.AddItem ("跳远")
Cmd1.Caption = "确定"
End Sub
在名称为Form1的窗体中，画一个组合框和一个命令按钮。组合框的名称为Cbo1,初始内容为空，有"长跑"、"游泳"和"跳远"三个可供选择。
自己在vb中画
要不就在form的load事件中（应该是init事件最好）添加代码
dim a as new text
dim b as new optionbutton '记不得是不是这样写的了
dim c as new combox '没有环境，这些new xxx都是印象中的
a.top=10
a.left=10
'....等等一类的格式代码
a.name="cmd1" '不知道这样行不
c.top=20
'...
c.add "长跑"
然后在按钮的click事件中写
if c.selectitem.index=1 then
msgbox "选择了长跑"
end if
'if c.selectitem..... 记不得是不适用这个属性了
就可以了
这种图形化编程不好用文字表述，大致说一下过程吧：
1、绘制窗体；
2、在窗体的load事件中编写加载初始化代码；
3、编写命令按钮的Click（单击）事件，里面可以用msgbox这个命令来显示对话框。
PS：楼主最好是问一下周围的人吧，这样获得的指导是最直观的。