vb 面向过程程序设计的含义_vb程序设计教程答案_面向对象程序设计(15)

dim b

b=array(1,2,3,4,5,6,7,8,9)

for i=1 to 8

a(5+i)=b(i)

print a(7)

end sub

程序运行后，单击command1，输出结果为：3

16. 在窗体上画一个命令按钮command1，然后编写如下事件过程：

private sub command1_click()

dim b,a(3,3)

b=array(1,2,3,4,5,6,7,8,9)

j=1

for i=0 to 8

k=i\3 : j=I mod 3

a(k,j)=b(i)

print a(k,j);

if j=2 then print

next I1 2 3

end sub4 5 6

程序运行后，单击command1，输出结果为：7 8 9

17. 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim a(10,10)As Integer

For i=1 To 3

For j=1 To 3

a(i,j)=(i-1)*3+j

Print a(i,j);

Next j

Print

Next i

End Sub

程序运行后，单击命令按钮，窗体上显示的是 同17题

18. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()

Dim array1(10,10) As Integer

Dim i,j As Integer

For i=1 To 3

For j=2 To 4

array1(i,j)=i+j

Next j

Next I

Text1.Text=array1(2,3)+array1(3,4)

End Sub

程序运行后，单击command1，文本框中显示的结果为：12

四、简答题

1. 要分配存放12个元素的整形数组，下列数组声明（若无下界，按默认规定）哪些符合要求？

（1）n=12（2）Dim a%（）

Dim a（1 to n）as integern=11

ReDim a（n）

（3）Dim a%[2,3]（4）Dim a(1,1,2) as integer

（5）Dim a%（10）（6）Dim a!（）

ReDim a（1 to 12）ReDim a（3,2）as integer

（7）Dim a%（2,3）（8）Dim a（1 to 3 1 to 4）as integer

2. 已知下面的数组声明，写出它的数组名、数组类型、维数、各维的上下界、数组的大小，并按行的顺序

列出各元素。 Dim a(-1 to 2,3) as single

3. 静态数组和动态数组的区别是什么？在声明静态数组、重定义动态数组时的下标都可以用变量来表示

吗？

4. 已声明了静态数组a(3,4)，能否在下面再用重定义动态数组a(4,4)来重定义A数组的大小？

5. 使用ReDim语句可以改变数组类型吗？

6. 在ReDim语句中加了Preserve关键字，对重定义数组有何限制？

7. 利用随机数生成两个四行四列的矩阵（数据不一定相同，前者范围在30~70，后者为101~135）。要求：

（1）将两个矩阵相加结果放入C矩阵中。

（2）将a矩阵转置。

（3）求C矩阵中元素的最大值和下标。

（4）以下三角形式显示A矩阵、上三角形式显示B矩阵。

（5）将A矩阵第一行与第三行对应元素交换位置，即第一行元素放到第三行，第三行元素放到第一行。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-22730-15.html