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

基础题(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.WidthEnd SubPrivate Sub Command2_Click() Shape1.Height = Shape1.Height + 100或 Shape1.Height = 100 + Shape1.HeightEnd 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 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 nEnd SubPrivate Sub Command2_Click() EndEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题(2)【操作步骤】步骤1：打开本题工程文件，选中Cmd1命令按钮，在属性面板中设置Caption属性为产生可变正方形图案，并设置Left为300。步骤2：打开代码编辑窗口，去掉程序中的注释符 ,将问号改为正确的内容。参考答案Option Base 1Private 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 NextEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【操作步骤】步骤1：打开本题工程文件，在窗体Form1中添加两个文本框Text1和Text2，并在属性面板中将设置Text1和Text2的Text属性设置为空，设置Multiline为Ture，设置Scrollbars为2。步骤2：打开代码编辑窗口，去掉程序中的注释符 ,将问号改为正确的内容。参考答案Option Base 1Dim a(50) As IntegerPrivate Sub Command1_Click() Randomize For i = 1 To 50 a(i) = Int(Rnd * 100) For k = 1 To i - 1 If a(i) = a(k) Then i = i - 1 Exit For End If Next k Next i For i = 1 To 50 Text1.Text = Text1.Text + Str(a(i) + Space(2) Next iEnd SubPrivate Sub Command2_Click() For i = 1 To 49 For j = i + 1 To 50 If a(i) a(j) Then temp = a(i) a(i) = a(j) a(j) = temp End If N