窗体上有一个名称为Command1的命令按钮，并有如下程序：

Private Sub Command1Click（　　）

Dim m As Integer，n As Integer

m=InputBox("输入第一个数")

nzInputBox("输入第二个数")

Do While m<>n

Do While m>n

m= m-n

Loop

Do While n>m

n=n-m

Loop

Loop

Print m

End Sub

该程序的功能是（　　）。

在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读人数据”和“排序并保存”，如图4-6所示。程序运行后，如果单击“读人数据”按钮，则读入in．txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击“排序并保存”按钮，则对这l00 个整数按从小到大进行排序，并把排序后的全部数据在文本框Text1中显示出来，然后存入

考生文件夹中的文件．result．txt中(在程序中的标准模块prog．bas过程可以把指定个数的数组元素存入result．txt文件中)。

注意：文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名称为sj5．vbp，排序结果存入result．txt文件，否则没有成绩。

在考生文件夹中有工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上

有一个标签数组，名为Lab1，该数组有4个控件元素，标题分别是“Wait”、“Edit”、“Aix”和“Move”，如图3-5所示。

在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。

在窗体上画三个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为“体育”、“音乐”和“美术”，还有一个命令按钮，名称为C1，标题为“显示”。要求程序运行后，如果选中某个复选框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”，如图3—4所示。

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

在名称为Form1的窗体上建立一个名称为Listl的列表框。在程序运行后，通过Form. _Load事件过程加载窗体时，执行语句Listl．AddItem“Item1”和List1．Addltem“Item2”，每当单击列表项时，就将执行语句List1．AddItem List1．Text一次，如图6-2所示。

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

在名称为Form1的窗体上绘制一个名为HS1的水平滚动条，并在属性窗口中将Max属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后，滚动框位于滚动条最右端，如果单击滚动条之外的窗体部分，则滚动框跳到最左端，如图3-1所示。

注意：只能直接为相应的属性赋值，不得使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为Sj1．frm，工程文件名为sj1．vbp。

目录列表框的Path属性的作用是（　　）。

窗体上有一个名为Command1的命令按钮，并有下面的程序：

Private Sub Command1 Click（　　）

Dim arr(5)As Integer ．

For k=1 To 5

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

下面程序运行时，若输入395，则输出结果是（　　）。

Private Sub Command1_Click（　　）

Dim X％

x=InputBox("请输入一个3位整数")

Print x Mod 10，x\100，(x Mod 100)\10

End Sub

以下关于弹出式菜单的叙述中，错误的是（　　）。