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

基础题(1)【操作步骤】 步骤1：新建一个Form1窗体， 在窗体的空白处右击，在弹出的快捷菜单中选择菜单编辑器命令，弹出菜单编辑器。 步骤2：在菜单编辑器中设置菜单的标题、名称、层次和属性，如表3.269所示。 步骤3：单击确定按钮，菜单设置完成。 步骤4：将文件保存至考生文件夹下，且窗体文件命名为sjt1.frm，工程文件命名为sjt1.vbp。 基础题(2)【操作步骤】 步骤1：新建一个Form1窗体，将该窗体的Caption设置为椭圆练习。 步骤2：在窗体中添加一个Shape控件，并在属性面板中设置Shape为2，Height为800，Width为1200；设置BorderColor为蓝色（H00C00000），BorderStyle为1，BorderWidth为5；设置FillColor为黄色(H0000FFFF)，FillStyle为0。 步骤3：在窗体中添加两个命令按钮控件Command1和Command2，并将这两个按钮控件的Caption分别设置为横向和纵向，如下图所示。 步骤4，然后打开代码编辑器窗口，在代码编辑器窗口中编写代码如下。 Private Sub Command1_Click() Shape1.Width = Shape1.Width + 100 或 Shape1.Width = 100 + Shape1.Width End Sub Private Sub Command2_Click() Shape1.Height = Shape1.Height + 100 或 Shape1.Height = 100 + Shape1.Height End Sub 步骤5：代码编写完成后，按照题目要求调试并运行程序，并将文件保存至考生文件夹下，且设置窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。 简单题`(1)【操作步骤】 步骤1：打开本题工程文件，在窗体中添加一个文本框Text1，并设置Text属性为空。 步骤2：打开代码编辑窗口，去掉程序中的注释符 ,将问号改为正确的内容。 参考答案（阴影部分是需考生填入的内容） Private Sub Command1_Click() Dim n As Integer, Factor As Integer Dim First As Boolean Do n = InputBox(请输入一个大于2的整数) If n = 2 Then MsgBox (请重新输入) Loop Until n 2 Factor = 2 First = True Do Do While n Mod Factor = 0 If First Then Text1.Text = Str(n) + Space(1) + = + Str(Factor) First = False Else Text1.Text = Text1.Text + Space(1) + * + Str(Factor) End If n = n / Factor Loop Factor = Factor + 1 Loop Until Factor n End Sub Private Sub Command2_Click() End End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题`(2)【操作步骤】 步骤1：打开本题工程文件，选中Cmd1命令按钮，在属性面板中设置Caption属性为产生可变正方形图案，并设置Left为300。 步骤2：打开代码编辑窗口，去掉程序中的注释符 ,将问号改为正确的内容。 参考答案 Option Base 1 Private Sub Cmd1_Click() Dim a() n = InputBox(请输入控制正方形图案层数的可变数) ReDim a(n, n) For k = 1 To (n + 1) \ 2 For i = k To n - k + 1 For j = k To n - k + 1 a(i, j) = k Next j Next i Next k For i = 1 To n For j = 1 To n Print Tab(j * 3); a(i, j); Next j Print