Command2.Enabled=False

End Sub

Private Sub Option2_Click()

Command1.Enabled=False'按钮1不可用

Command2.Enabled=True'按钮2可用

End Sub

单击按钮运行程序，并按要求保存。

（2）要判断一个数能否被另一个数整除，要用到Mod函数，当余数为0表示能被整除，否则不能被整除。本题使用了While-Wend循环，且条件中要使3个条件都满足，要用And运算符。补充后的代码如下：

Private Sub Command1_Click()

Dim a As Integer

a=Val(Text1.Text)

While Not(a Mod 3=0 And a Mod 5=0 And a Mod 7=0)

'当a不能同时被3、5、7整除时进入While循环

a=a+1'a逐渐加1

Wend

Text2.Text=a'在Text2中显示结果

End Sub

单击按钮运行程序，并按要求保存。

四、综合应用题

打开考生文件夹下的sj5.vbp，在名称为Form1的窗体上有一个名称为Text1的文本框，两个命令按钮，名称分别为Command1和Command2，命令按钮上分别显示"读入"和"排序"（如图12-5所示）。程序运行时单击"读入"按钮，将文件in5.dat中的数据读入数组a中，单击"排序"则把数组a中的数值按照升序排列，并显示在文本框中。请在有"?"号的地方填入正确的内容，然后删除"?"及代码前的所有注释符（即'号）但不能修改其他部分。

图12-5

注意：存盘时不得改变文件名和文件夹。

【解析】（1）本题主要考查了从文件中读取数据和数据的排序。要从文件中读取数据，首先要打开文件，在读文件的时候要用到EOF函数判断文件是否已读完。排序是经常考到的，考生一定要掌握排序的方法。本题补充后的代码如下：

Dim a()As Integer

Dim num As Integer

Private Sub Command1_Click()

Dim str As String

num=0

str=""

Open"App.Path&＼in5.dat"For Input As#1′打开文件准备读取

While EOF(1)=False'查看是否读到文件尾

Input#1,str'读取文件

num=num+1'计数

Wend

Close#1'关闭文件

ReDim a(num)'动态分配数组空间

Dim i As Integer

str=""

Open"App.Path&＼in5.dat"For Input As#1

For i=1 To num'利用For循环