在form1上,设计满足如下要求的菜单(分类、标题、名称)

《在form1上,设计满足如下要求的菜单(分类、标题、名称)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、基础题(1)【操作步骤】步骤1：新建一个Form1窗体，在窗体的空白处右击，在弹出的快捷菜单中选择"菜单编辑器"命令，弹出菜单编辑器。步骤2：在菜单编辑器中设置菜单的标题、名称、层次和属性，如表3.269所示。步骤3：单击"确定"按钮，菜单设置完成。步骤4：将文件保存至考生文件夹下，且窗体文件命名为sjt1.frm，工程文件命名为sjt1.vbp。基础题(2)【操作步骤】步骤1：新建一个Form1窗体，将该窗体的Caption设置为"椭圆练习"。步骤2：在窗体中添加一个Shape控件，并在属性面板中设置Shape为2，Height为800

2、，Width为1200；设置BorderColor为蓝色（&H00C00000&），BorderStyle为1，BorderWidth为5；设置FillColor为黄色(&H0000FFFF&)，FillStyle为0。步骤3：在窗体中添加两个命令按钮控件Command1和Command2，并将这两个按钮控件的Caption分别设置为"横向"和"纵向"，如下图所示。步骤4，然后打开代码编辑器窗口，在代码编辑器窗口中编写代码如下。PrivateSubCommand1_Click()Shape1.Width=Shape1.Width+100'

3、或Shape1.Width=100+Shape1.WidthEndSubPrivateSubCommand2_Click()Shape1.Height=Shape1.Height+100'或Shape1.Height=100+Shape1.HeightEndSub步骤5：代码编写完成后，按照题目要求调试并运行程序，并将文件保存至考生文件夹下，且设置窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。简单题`(1)【操作步骤】步骤1：打开本题工程文件，在窗体中添加一个文本框Text1，并设置Text属性为空。步骤2：打开代码编辑窗口

4、，去掉程序中的注释符"'",将问号改为正确的内容。参考答案（阴影部分是需考生填入的内容）PrivateSubCommand1_Click()DimnAsInteger,FactorAsIntegerDimFirstAsBooleanDon=InputBox("请输入一个大于2的整数")Ifn<=2ThenMsgBox("请重新输入")LoopUntiln>2Factor=2First=TrueDoDoWhilenModFactor=0IfFirstThenText1.Text=Str(n)+Space(1)+"="+Str(Factor)

5、First=FalseElseText1.Text=Text1.Text+Space(1)+"*"+Str(Factor)EndIfn=n/FactorLoopFactor=Factor+1LoopUntilFactor>nEndSubPrivateSubCommand2_Click()EndEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题`(2)【操作步骤】步骤1：打开本题工程文件，选中Cmd1命令按钮，在属性面板中设置Caption属性为"产生可变正方形图案"，并设置Left为300。步骤2：打开代码编辑窗口，去掉

6、程序中的注释符"'",将问号改为正确的内容。参考答案OptionBase1PrivateSubCmd1_Click()Dima()n=InputBox("请输入控制正方形图案层数的可变数")ReDima(n,n)Fork=1To(n+1)2Fori=kTon-k+1Forj=kTon-k+1a(i,j)=kNextjNextiNextkFori=1TonForj=1TonPrintTab(j*3);a(i,j);NextjPrintNextEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【操作步骤】步骤1：打开本题工

7、程文件，在窗体Form1中添加两个文本框Text1和Text2，并在属性面板中将设置Text1和Text2的Text属性设置为空，设置Multiline为Ture，设置Scrollbars为2。步骤2：打开代码编辑窗口，去掉程序中的注释符"'",将问号改为正确的内容。参考答案OptionBase1Dima(50)AsIntegerPrivateSubCommand1_Click()RandomizeFori=1To50a(i)=Int(Rnd*100)Fork=1Toi-1Ifa(i)=a(k)Theni=i-1ExitForEndIfN

8、extkNextiFori=1To50Text1.Text=Text1.Text+Str(a(i))+Space(2)NextiEndSubPrivateSubCommand2_Click()