考生文件夹中有工程文件sjt3．vbp。在窗体上有名称为Combo1的组合框，请设置该组合框的属性，使该

Form1的窗体上画一个名称为List1列表框，通过属性窗 口输入四个列表项：“数学”、“语文”、“历史”、“地理”，列表项采用“复选框形式”，如图2所示。列表框的宽为1100高不限。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。 (2)在名称为Form1的窗体上建立一个名称为“menu1”、标题为“文件”的弹出式菜单，含有三个菜单项，它们的标题分别为“打开”、“关闭”、“保存”，名称分别为“m1”、“m2”、“m3 YYo 再画一个命令按钮，名称为“Command1”、标题为“弹出菜单”。要求：编写命令按钮的Click事件过程，使程序运行时单击“弹出菜单”按钮即可弹出“文件”菜单(如图3所示)。 注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

出包含三个命令按钮的控件数组，名称为cmdl，下标分别为0、1、2，Caption分别为“开始”、“停止”和“退出”，如图3(a)所示。通过属性窗口设置各命令按钮的属性，使得程序开始运行时，“停止”按钮不可见，“退出”按钮不可用，如图3(b) 所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。(2)在名称为Form1的窗体上画两个名称分别为Command1和Command2、标题分别为“打开”和“保存”的俞令按钮，和一个名称为CD1的通用对话框，如图4所示。请在属性窗口中设置CD1的属性，使得打开通用对话框时，其初始路径是“C:\”。再编写适当的事件过程，使得运行程序，分别单击“打开”或“保存”按钮时，相应地出现“打开”或“保存”对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。

组a中。单击“计算”按钮时，将统计矩阵两个对角线的元素中能被3整除的个数，统计结果显示在标签lblFirst中；同时计算矩阵主对角线的元素之和，计算结果显示在标签lblSecond中。 已给出了部分程序，请编写“计算”命令按钮事件过程中的部分程序代码，以便完成上述功能。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用“计算”按钮进行计算，否则无成绩。

在名为Form1的窗体上绘制一个名为Image1的图像框，利用属性窗口装入考生文件

夹中的图像文件Pic1.bmp，并设置适当属性使其中的图像可以适应图像框大小；再绘制两个命令按钮，名称分别为Cmd1、Cmd2，标题分别为“右移”、“下移”。请编写适当的事件过程，使得在运行时，每单击“右移”按钮一次，图像框向右移动100：每单击“下移”按钮一次，图像框向下移动100。运行时的窗体如下图所示。

注意：

程序中不得使用变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件名为execise34.vbp，窗体文件名为execise34.frm。

下列程序用于输出一个主对角线上元素值为“*”，其他元素值为“”的5×5阶的方阵，试将程序补充完整。

Private Sub Command1_Click()

Dim x(5, 5)

For i = 1 To 5

For j = 1 To 5

If ______Then

x(i, j) = '*'

Else

______

End If

Print ______

Next j

Print

Next i

End Sub

以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。

Option Base 1

Private Sub Form. Click()

Dim Arr(10) As Integer

Dim Max As Integer

Randomize

For I = 1 To 10

Arr(i) = Int (Rnd * 1000)

Next i

Max= ______

For i = 2 To 10

If______Then

Max = Arr(i)

End If

Next i

Print Max

End Sub

窗口为其添加3个列表项，依次为Item1、Item2和Item3(如下图所示)。

注意：

文件必须存放在考生文件夹中，工程文件名为execise105.vbp，窗体文件名为 execise105.frm。

单有两个菜单项，其标题分别为“显示”和“清除”，名称分别为 vbDis和vbClear。编写适当的事件过程，使程序运行后，若单击“操作”菜单中的“显示”命令，则在图片框中显示VisualBasic；如果单击“清除”命令，则清除图片框中的信息。程序的运行情况如下图所示。

注意：

程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为103.vbp，窗体文件名为103.frm。

单击命令按钮后，下列程序代码的执行结果是______。

Public Sub fun (a As Integer, b As Integer, c As Integer)

Do

a=b+ c

n=n+1

Loop While n ＞ 3

End Sub

Private Sub command1_ click()

Dim m As Integer, n As Integer, i As Integer

For i = 0 To 2: m = n + 1: Next i

For i = 1 To 2: Call fun (m, n, i): Next i

For i = 0 To 3

Print m;

Next i

End Sub

程(包括事件过程和通用过程)可以互相调用。