Question

简单的vb题目。。。急急急！！！！

在窗体上建立一个名称为text1的文本框；然后建立两个主菜单，标题分别为销售业态和帮助，名称分别为vbmenu和vbhelp，其中销售业态菜单包括大型百货，连锁超市，前店后厂三个子菜单，名称为vbmenu1，vbmenu2，vbmenu3。要求程序运行后，在销售业态下拉菜单中选择大型百货，则在文本框内显示百货大楼；如果选择连锁超市，则在文本框内显示利客隆；如果选择前店后厂，则在文本框内显示稻香村。
注意：下面出现的"考生文件夹"均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示"WWB"，如图7-1所示；再建立一个名称为Cmd1，标题为"清除"的命令按钮。编写适当的事件过程，要求程序运行后，如果单击"清除"命令按钮，则清除文本框中所显示的信息。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。

图 7-1
（2）在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题分别为"输入"和"连接"的命令按钮。要求程序运行后，单击"输入"按钮，可通过输入对话框输入两个字符串，存入字符串变量a和b中（a和b定义为窗体变量），如果单击"连接"按钮，则把两个字符串连接为一个字符串（顺序不限）并在信息框中显示出来，在程序中不得使用任何其他变量。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

图 7-2 图 7-3
2．简单应用（2小题，每题20分，计40分）
注意：下面出现的"考生文件夹"均为c:\wexam\25160001。
（1）在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，标题分别为"销售业态"和"帮助"，名称分别为vbMenu和vbHelp，其中"销售业态"菜单包括"大型百货"、"连锁超市"和"前店后厂"三个子菜单，名称分别为vbMenu1、vbMenu2和vbMenu3。要求程序运行后，在"销售业态"的下拉菜单中选择"大型百货"，则在文本框内显示 "百货大楼"；如果选择"连锁超市"，则在文本框内显示"利客隆"；如果选择"前店后厂"则在文本框内显示"稻香村"。程序运行界面如图8-3所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。

图 8-3
（2）在考生文件夹中有文件sjt4.vbp及其窗体文件sjt4.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件夹和文件名。
本题描述如下：
窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为"羽毛球"和"乒乓球"；一个名称为C1，标题为"确定"的命令按钮。要求程序运行后，如果只选中Ch1，单击"确定"命令按钮，则在文本框中显示 "报名参加羽毛球比赛"；如果只选中Ch2，然后单击"确定"命令按钮，则在文本框中显示 "报名参加乒乓球比赛"；如果同时选中Ch1和Ch2，单击"确定"命令按钮，则在文本框中显示 "报名参加羽毛球和乓乓球比赛"；如果Ch1和Ch2都不选，然后单击"确定"命令按钮，则在文本框中什么都不显示。程序运行界面如图8-4所示。

Answer 1

1.
Text1的文本框，通过属性窗口裂亩谨设置文本耐高框属性，在文本框中显示"WWB"，；再建立一个名称为Cmd1，标题为"清除"的命令按钮 ， 这步你自己做
代码：
Private Sub Cmd1_Click()
Text1.Text = ""
End Sub

2.
form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题分别为"输入"和"连接"的命令按钮。，，，这步你做
代码
Private Sub Cmd1_Click()
a=inputbox("请输入第一个字符")
b=inputbox("请输入第2个字符")
End Sub
Private Sub Cmd2_Click()
msgbox a & b
End Sub
3.
在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，标题分别为"销售业态"和"帮助"，名称肆基分别为vbMenu和vbHelp，其中"销售业态"菜单包括"大型百货"、"连锁超市"和"前店后厂"三个子菜单，名称分别为vbMenu1、vbMenu2和vbMenu3。,,,,这步你做！！！
代码：
Private Sub vbMenu1_Click()
text1.text="百货大楼"
End Sub
Private Sub vbMenu2_Click()
text1.text="连锁超市"
End Sub
Private Sub vbMenu3_Click()
text1.text="稻香村"
End Sub

4.你题目提供不完整

Answer 2

不完整！