2012年9月份VB上机考试预测题3

(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
Next
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【操作步骤】
步骤1：打开本题工程文件，在窗体Form1中添加两个文本框Text1和Text2，并在属性面板中将设置Text1和Text2的Text属性设置为空，设置Multiline为Ture，设置Scrollbars为2。

步骤2：打开代码编辑窗口，去掉程序中的注释符" ' ",将问号改为正确的内容。

参考答案
Option Base 1
Dim a(50) As Integer
Private 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 i
End Sub
Private 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
Next j
Next i
For i = 1 To 50
Text2.Text = Text2.Text + Str(a(i)) + Space(2)
Next i
End Sub
步骤3：按照题目要求调试并运行程序，按题目要求存盘并关闭程序。