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、结束文件的各种操作后，必须使用该语句关闭文件