在Form1的窗体上绘制一个命令按钮，名为Cmd1，标题为Display，按钮隐藏。编写适当的事件过程，使程序

上有一个命令按钮，其名称为Cmd1，标题为“添加”；有一个文本框，名为Text1，初始内容为空白；此外还有一个列表框，其名称为List1。程序运行后，如果在文本框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如下图所示。

该程序不完整，请补充完整。

要求：

去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

没有初始内容；绘制一个名称为Com1的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)：再绘制两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为Add和Display。在运行时，向Text1中输入字符，单击Add按钮后，则Text1中的内容作为一个列表项被添加到组合框的列表中：单击Display按钮，则在窗体上显示组合框中列表项的个数，如下图所示。请编写两个命令按钮的Click事件过程。

注意：

程序中不得使用变量，也不能使用循环；文件必须存放在考生文件夹中，工程文件名为execise13.vbp，窗体文件名为execise13.frm。

如下程序的运行结果是【9】。

CLEAR

STORE 100 TO x1 x2

SET UDFPARMS TO VALUE

DO p4 WITH x1，(X2)

?x1．x2

*过程p4

PROCEDURE p4

PARAMETERS x1，X2

STORE x1+1 TO x1

STORE x2+1 TO x2

ENDPROC

控件和2个名称分别为Cmd1和Cmd2、标题分别为Begin和Quit的命令按钮。编写函数ITEM(A，N)，其功能是由数字A组成的不多于N位数的整数，利用该函数求55555-5555-555-55-5的值并把结果写入考生文件夹下的out50.dat文件中。执行完毕，Begin按钮变成“完成”按钮，且无效。如下图所示。

要求：

该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。

一个名为Cmd1，标题为Clear的命令按钮，如下图所示。编写适当的事件过程，使程序运行后，若单击Clear命令按钮，则清除文本框中所显示的信息。

注意：

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

下列函数过程的作用是计算x和y的最大公约数。请填空。

Private Sub Command1_ Click()

Dim x As Integer, y As Integer, Result As Integer

x = InputBox (“请输入第一个数”)

y = InputBox (“请输入第二个数”)

Result =______

Print x; "和"; y; "的最大公约数为: "; Result

End Sub

Private Function GYS (ByVal A As Integer, ByVal B As Integer)

Dim T As Integer

T = A Mod B

Do While ______

A = B

B = T

T = A Mod B

Loop

______

End Function

性为2，LargeChange属性为10，Min属性为0，Max属性为100。编写适当的事件过程，使程序运行后，若把滚动框滚到某个位置，然后单击窗体，则在列表框中添加一个项目，其内容是“××”，其中××是滚动框所在的位置，如下图所示。

注意：

程序中不要使用变量：文件必须存放在考生文件夹中，工程文件名为execise97.vbp，窗体文件名为execise97.frm。