设有以下函数过程：

Function fun(a As Integer，b As Integer)

Dim c As Integer

If ac=a：a=b：b=C

End IF

c=0

Do

c=c+a

Loop Until c Mod b=0

fun=c

End Function

若调用函数fun时的实际参数都是自然数，则函数返回的是（　　）。

在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在窗体上有一个支本框、两个单选按钮及两个命令按钮。文本框的名称为Text1，内空；两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”；单选按钮的名称分别为Option1和Option2，标题分别为“3”和“5”。单击“读取”，程序将读入考生文件夹下的文本支件in5．txt，单击“加密”，加密过的文本显示在Text1中。根据单选按钮中的不同的数字，加密的方法不同。例如，选择Option1，则逐一把读入的字符串改为它前面的第3 个字母。程序运行时效果如图5-5所示。

注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

在考生文件起下有工程文件sj3．vbp及窗体文件sj3．frm，在窗体上画一个名称为

Text1的文本框和两个名称分别为Command1和Command2、标题分别为“大写A”和“小写a”的命令按钮。要求程序运行后，如果单击“大写A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的故值在文本框中显示相应数量的大写字符串A；如果单击“小写a”命令按钮，也弹出对话框．输入要显示的个数，根据输入的数值在文本框中显示相应数量的小写字符串a。

程序运行时的窗体界面如图5-3所示。

注意：该程序是不完整的，请在有“?”的地方添入正确的内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

在考生文件夹下有一个工程文件sj4．vbp，要求程序运行后，如果多次单击列表框List1中的项，则可同时选择这些项。而如果单击“导出”按钮，则在列表框List2中输出所有选中的列表项，如图1—4所示。

注意：修改列表框List1的适当属性，使得运行时单击可以多选，并去掉程序中的注释符“b’，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。

在窗体上绘制一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名

称为0p。该菜单有两个子菜单，其标题分别为“显示”和“退出”，其名称分别为Dis和Exit，

编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“退出”命令，则程序结束。程序的运行情况如图4—1所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．vbp。

下面描述中错误的是（　　）。

在窗体上画1个命令按钮，并编写如下事件过程：

Private Sub Command1 Click（　　）

Dim a(3，3)

For m=1 To 3

For n=1 To 3

If n=m or n=4—m Then

在名为Form1的窗体上绘制一个名为Cmd1、标题为“显示”的命令按钮。编写适当的事件过程，使程序运行后，若单击“显示”命令按钮，则在窗体上显示“计算机等级考试Vis—ual Basic课程”。程序运行情况如图4-2所示。

注意：不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为sj2．frm，工程文件名为sj2．vbp。

设程序中有如下数组定义和过程调用语句：

Dim a(10)As Integer

…

Call D(a)

如下过程定义巾，正确的是（　　）。

窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下：

Private Sub Command1 Click（　　）

XzInputBox("输入X："，，0)

y=InputBox("输入y："，，0)

Label1．Caption=x+y

End Sub

运行程序，单击命令按钮，在输入对话框中分别输入2、3，运行的结果是（　　）。

数据库设计中反映用户对数据要求的模式是（　　）。