要求：

去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存 盘。

**********************************************************************

（2）在考生文件夹下有一个工程文件sj46.vbp，相应的窗体文件为sj46.frm， 在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即 可计算出0～1000范围内不能被7整除的整数的个数，并在文本框中显示出 来。 在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的 整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。 要求：

请勿改动程序中的任何内容，只在Function Fun()和End Function之间 填入你编写的若干语句。最后把修改后的文件按原文件名存盘。

第1小题：

本题的考查的是数组和随机函数的用法，打开工程文件sjt3.vbp，点击工具箱中的

CommandButton控件图标，然后在窗体上拖拉出一个命令按钮Command1，设置其Caption属性为\输出最小值\，双击命令按钮在代码窗口中补充如下代码： Private Sub Command1_Click() Dim arrN(30) As Integer Dim Min As Integer Randomize

For i = 1 To 30

arrN(i) = Int(Rnd * 1000) Next i

Min = arrN(1) For i = 2 To 30

If Min > arrN(i) Then Min = arrN(i) End If Next i Print Min End Sub

按要求保存文件即完成本题。 第2小题：

打开一个工程文件sjt4.vbp，在窗体上有一个命令按钮和一个文本框，要求计算出0～1000范围内不能被7整除的整数的个数，并在文本框中显示，在Function Fun()和End Function之间补充代码如下：

Function Fun()

Dim i As Integer, num As Integer For i = 0 To 1000 If i Mod 7 <> 0 Then num = num + 1 End If Next i

Text1.Text = num End Function

按要求保存文件即完成本题。

在考生文件夹下有一个工程文件sj113.vbp，其窗体上画有2个名称分别为 Text1、Text2的文本框，其中Text1可多行显示。请画2个名称为Command1、 Command2，标题为\产生数组\、\查找\的命令按钮。如图所示。程序功 能如下：

1）单击\产生数组\按钮，则用随机函数生成10个0～100之间（不含0和 100）互不相同的数值，并将它们保存到一维数组a中，同时也将这10个 数值显示在Text1文本框内；

2）单击\查找\按钮将弹出输入对话框，接收用户输入的任意一个数，并 在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数\ 不存在于数组中\；否则给出该数在数组中的位置。 要求：

请去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实现上述 功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的 文件按原文件名存盘。

本题主要考查Rnd函数的使用和相同数值的判断。 为了生成某个范围内的随机数，可以使用一下公式：

Int((upperbound - lowerbound+1) * Rnd + lowerbound)

这里，upperbound是随机整数范围的上限，而lowerbound则是随机整数范围的下限。 修改后的主要代码如下：

Private Sub Command1_Click()

Text1.Text = \

For i = 1 To 10

a(i) = Fix(Rnd * 99 + 1) For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1 Exit For End If Next j Next i

For i = 1 To 10

Text1.Text = Text1.Text + Str(a(i)) + Space(2) Next i End Sub

Private Sub Command2_Click()

Dim num As Integer, i As Integer num = InputBox(\请输入待查找的数\ For i = 1 To 10

If a(i) = num Then

Text2.Text = Str(num) + \是数组中的第\个值\ Exit For End If Next i

If i > 10 Then

Text2.Text = Str(num) + \不存在于数组中\ End If End Sub

（1）在名称为Form1的窗体上画一个名称为C1、标题为\改变颜色\的命令按 钮，窗体标题为\改变窗体背景色\。编写程序，使得单击命令按钮时， 将窗体的背景颜色改为红色（&HFF&）。运行程序后的窗体如图所示。 要求：

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

***********************************************************************

（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其

设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、5。将窗体的标题设为\图形控件\。单击列表框中 的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状 控件中被竖线填充。如图所示。 要求：

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

第1小题：

本题主要考查了Form控件的BackColor属性。新建一个名为Form1的窗体，点击工具箱中的CommandButton控件图标，然后在窗体上画一个命令按钮，名称为C1，通过属性窗口设置CommandButton控件的Caption 属性。

BackColor属性，设置对象中文本和图形的背景颜色。在Command控件中，可以通过Click事件来改变控件的背景颜色，Command控件的Click事件过程为： Private Sub C1_Click()

Form1.BackColor = &HFF& End Sub

按要求保存文件即完成本题。 第2小题：

本题主要考查了Shape控件和List控件的设计。

在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：内实线。

ListBox控件的使用方法，在ListBox中选择一项将触发其Click事件，同时将text的属性设置为选中项的内容。在ListBox控件中Text属性表示字最后选中列表项的内容。可用\控件名.Text\的形式指出当前ListBox中选中的项的内容。 List控件的Click事件过程为： Private Sub List1_Click()

Shape1.FillStyle = List1.Text End Sub

按要求保存文件即完成本题。

（1）在考生文件夹下有一个工程文件sj108.vbp，在程序运行时，单击\输入整 数\按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同 因子和因子个数。图1是输入53后的结果，图2是输入100的结果。已经给 出了全部控件和程序，但程序不完整。 要求：

请去掉程序中的注释符，把程序中的 ？改为正确的内容。不能修改程