《在Form1标题为“菜单练习”的窗体上按下表结构建立一个下拉菜单》由会员分享，可在线阅读，更多相关《在Form1标题为“菜单练习”的窗体上按下表结构建立一个下拉菜单（2页珍藏版）》请在装配图网上搜索。
1、基础题(1)【操作步骤】步骤1：新建一个Forml窗体，将该窗体的Caption设置为"菜单练习"。
步骤2：在窗体的空白处右击，在弹出的快捷菜单中选择"菜单编辑器”命令，弹出菜单编辑器。
步骤3：在菜单编辑器中的"标题"文本框中输入"操作"，在"名称"文本框中输入"operation"，选中"有效"和"可见"复选框，然后单击"下一个"按钮。文档来自于网络搜索步骤4：在"标题"文本框中输入"输入"，在"名称"文本框中输入"input"，选中"有效"和"可见"复选框，然后单击*按钮，设置为下一级菜单。再单击"下一个"按钮。文档来自于网络搜索
步骤5：在"标题"文本框中输入"输出"，在"名称
2、"文本框中输入"output"，选中"可见"复选框，再单击"下一个"按钮。文档来自于网络搜索步骤6：在"标题"文本框中输入"查询"，在"名称"文本框中输入"query'，选中"有效"和"可见"复选框，再单击"下一个"按钮。文档来自于网络搜索
步骤7：在"标题"文本框中输入"统计"，在"名称"文本框中输入"count"，选中"有效"和"可见"复选框，然后单击_'_按钮，再单击"下一个"按钮。文档来自于网络搜索步骤8：在"标题"文本框中输入"按月"，在"名称"文本框中输入"bymonth"，选中"复选"、"有效"和"可见"复选框，然后单击■峠按钮，再单击"下一个"按钮。文档来自于网络搜索
步骤
3、9：在"标题"文本框中输入"按周"，在"名称"文本框中输入"byweek"，选中"复选"、"有效"和"可见"复选框，设置完成效果如图3所示。文档来自于网络搜索步骤10:设置完成后单击”确定"按钮，
步骤11：将文件保存至考生文件夹下，且窗体文件命名为sjt1.frm，工程文件命名为sjt1.vbp。文档来自于网络搜索基础题(2)【操作步骤】
步骤1:打开VB开发环境，新建一个窗体。
步骤2：在窗体中添加一个文本框Text1，在属性窗口中设置其Text属性为空白。
步骤3：然后在窗体中添加两个单选按钮Option1和Option2，然后在属性窗口中设置Option1的Alignment属
4、性设置为1。然后将Option1和0ption2的Caption属性分别为"参加"和"不参加"。文档来自于网络搜索步骤4：打开代码窗口，编写代码如下：
PrivateSubOption1_Click()Text1.Text=Option1.Caption+Text1.Text
EndSubPrivateSubOption2_Click()
Text1.Text=Text1.Text+Option2.CaptionEndSub
步骤5：运行程序，然后将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。文档来自于网络搜索简单题(1)【操作步骤】
步骤1：
5、打开本题工程文件，在窗体Form1中，添加一个标签Label1，并设置AutoSize值为True。文档来自于网络搜索步骤2：打开代码编辑窗口，去掉程序中的注释符"’"，将问号改为正确的内容。
参考答案PrivateSubCommand1_Click()
Timer1.Enabled=NotTimer1.Enabled
Command1.Caption=llf(Command1.Caption="开始","停止","开始")文档来自于网络搜索EndSub
PrivateSubForm_Load()
Timer1.Interval=2000|EndSub
PrivateSubTime
6、r1_Timer()
Staticn
DimaAsInteger
n=n+1
a=nMod3
SelectCasea|Case1
Label1.Caption="欢迎您参加等级考试！"Case2
Label1.Caption="请您认真复习！"Case0
Label1.Caption="祝您获得好成绩！"
EndSelectEndSub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
简单题(2)步骤1：打开本题工程文件。
步骤2:打开代码编辑窗口，去掉程序中的注释符"’"，将问号改为正确的内容。
参考答案PrivateSubCommand1_Click()
n
7、=Val(Textl.Text)
Listl.Clear
Fork=1TonList1.AddltemInt(Rnd*100)
NextkEndSub
PrivateSubCommand2_Click()
Fork=Listl.ListCount-1To0Step-1IfVal(List1.List(k))Mod2=1Thens=s+Val(List1.List(k))List1.RemoveItemkEndIf
Nextk
Text2=sEndSub
步骤3:调试并运行程序，关闭程序后按题目要求存盘。
综合题步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在指定位置
8、编写如下代码。
Dima(5,40)PrivateSubCommand1_Click()
DimchAsString
ch$=""
OpenApp.Path&"\in5.dat"ForInputAs#1
Fori=1To5Forj=1To40
Input#1,a(i,j)
ch=ch&a(i,j)&""Nextjch=ch&Chr(13)&Chr(10)
Nexti
Close#1
Text1.Text=chEndSub
PrivateSubCommand2_Click()
'===========考生编写的程序=============
Fori=1To5Max=-
9、100
Sum=0n=0Forj=1To40
Ifa(i,j)Mod2=0Then
IfMax
在Form1标题为“菜单练习”的窗体上按下表结构建立一个下拉菜单
