For J=1 To n
D1(I,J)=Int(Rnd*90)+10 Print D1(I,J); Next J Print Next I
For I=1 To (2) m For J=1 To (3) n (4) D2(J,I)=D1(I,J) Next J Next I For I=1 To n For J=1 To m Print D2(I,J); Next J Print Next I End Sub
4. 下述程序的功能是随机产生10个两位整数并输出，然后进行排序并输出，请在空格处填入相应的语句，使之完成上述功能。 Option Explicit Option Base 1
Private Sub Command1_Click()
Dim D() As Integer, I As Integer, J As Integer, k As Integer Randomize For I=1 To 10 Next I Print For I=1 to 9
For J= (2) I+1 To 10
If D(I)>D(J) Then End If
k=D(I) D(I)=D(J) D(J)=k
(1) Redim preserve D(I) PRESERVE 的作用 D(I)=Int(90*Rnd)+10 Print D(I)
Next I
Next J Print D(I)
Print (3) D（10） End Sub
5. 某数组有20个元素，元素的值由键盘输入，要求将前10个元素与后10个元素对换。即第1个元素
与第20个元素互换，第2个元素与第19个元素互换，.....，第10个元素与第11个元素互换。以下程序完成元素的互换，并输出数组原来各个元素的值和对换后各元素的值。
Private Sub Command1_Click() Dim x(1 To 20) As Single Label1.Caption = \ Label2.Caption = \ n = 20 For I = 1 To n
x(I) = Val(InputBox(\第\个数：\ Label1.Caption = Label1.Caption & x(I) & \ Next I
For I = 1 To (1) n\\2 t = x(I)
(2) x(I)=x(20-I+1) (3) x(20-I+1) =t Next I For I = 1 To n
Label2.Caption = Label2.Caption & x(I) & \ Next I End Sub 四、编程题
1. 找出二维数组n×m中的“鞍点”。所谓鞍点是指它在本行中值最大，在本列中值最小。输出鞍点的行、列号，有可能在一个数组中找不到鞍点，如无鞍点则输出“无”。
2. 单击窗体时，找出200以内的所有素数，并按每10个一行的形式显示在窗体上。
3. 创建图形控件数组Shape1，包含6个圆，当按下“移动”按钮时，所有圆全部向下移动100缇，当移动到窗体底部时，返回窗体顶部。
练习题六
一、单一选择题：
1．关于顺序文件的理解，下列正确的是 C A、文件中每条记录的长度按从小到大排列 B、优点之一是对记录可以方便存取 C、适合于数据不经常修改的情况 D、文件组织结构复杂 2．关于随机文件的说法，正确的是 D A、文件中每条记录的记录号按从小到大排列，但记录号可以重复 B、特点是不能灵活存取和增减数据 C、每条记录不一定有相同的数据结构 D、每条记录长度相同
3．双击文件列表框中的某个文件来执行，可以在代码中使用下面哪个命令 A A、Shell
B、Show
C、Do
D、Open
4．下面 属性用来设定文件列表框中所显示的文件类型。 D
A、Name B、Path C、Filter D、Pattern(模式) 5． 函数用来判断文件是否结束。 D
A、LOE
B、BOF
C、LOF
D、EOF
6．要读入顺序文件“D:\\test.txt”，下列语句正确的是 A A、Open \、Open \C、Open D:\\test.txt for Output as #1 D、Open D:\\test.txt for Random as #1 7．下列哪条语句可以在D:\\新建一个名为“test.txt”的文件 B A、Open \、Open \C、Open D:\\test.txt for Output as #1 D、Open D:\\test.txt for Append as #1 8．执行语句“Print #1, \” ，其写入文件中内容是 C A、Name,35,-50
B、Name34-50
C、Name 35 -50 D、\
9．执行语句“Write #1, \” ，其写入文件中内容是 A A、\C、\
B、\D、\
10．对随机文件的进行操作时候，每条记录由多个数据项构成，一般将这些数据类型定义为：A
A、记录类型 B、字符串类型 C、变体类型 D、一维数组
11．设有语句Open \，则以下错误的叙述是 A
A、如果D盘根目录没有文件Test.Txt，则出错 B、该语句建立的文件的文件号为1
C、该语句打开文件Test.txt后，不能用Line Input语句读出文件里边的内容 D、执行该语句后，就可以通过Write #语句向文件Test.txt中写入信息 12．以下叙述中错误的是 B
A、用Shell函数可以调用能够在Windows下运行的应用程序 B、用Shell函数可以调用Visual Basic的内部函数 C、调用Shell函数的格式应为：<变量名>=Shell (??)
D、用Shell函数不能执行DOS命令 13．目录列表框的Path属性的作用是 A
A、显示当前驱动器或指定驱动器上的目录结构 B、显示当前驱动器或指定驱动器上的某目录下的文件名 C、指出要显示的文件类型 D、显示驱动器名
14．执行语句Open \后，对文件T1.dat中的数据能够执行的操作是 C
A、只能写，不能读 B、只能读，不能写 C、既可以读，也可以写 D、不能追加新记录 15．LOF()函数返回的是文件 B A、二进制位数 B、字节数 C、行数 D、记录数 16．文本文件一般是 B A、随机文件 B、顺序文件 C、二进制文件 D、程序文件 17．Print #1语句的功能是 C A、在文件中写入空格字符 B、在文件中写入空行 C、错误语句 D、在屏幕上输出1号文件的内容
18．使用语句打开Open \for Input As #1文件后，要将文件内容一个字符一个字符地读入到文本框中，应使用下列哪条语句 A
A、Do While Not EOF(1) Temp = Input(1, #1)
Text1.Text = Text1.Text & Temp
Loop
B、Do Until EOF(1) Line Input #1, Temp
Text1.Text = Text1.Text & Temp & Chr(13) & Chr(10) Loop
C、Do Until EOF(1) Line Input #1, Temp
Text1.Text = Text1.Text & Temp & vbCrLf Loop
D、Text1.Text = Input$(LOF(1),1)
19．定义变量A%，B$，C为日期型，假设文件中有内容“100 张三 #2001-08-03#”执行语句Input As #1，A,B,C后，A，B，C三个变量值分别是 C A、100 100 100 B、100 张三 20010803 C、100 张三 #2001-08-03# D、为空
20．关于Close（关闭文件）语句，说法错误的是 D A、结束文件的各种操作后，必须使用该语句关闭文件