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

next i

输出上三角元素：

for i=1 to 4

for j=i to 4

print tab(j*4);b(i,j);

next j

print

next i

（5）将矩阵a第一行与第三行对应元素交换位置，即第一行元素放在第三行；第三行元素放在第一行：

for j=1 to 4

t=a(1,j) : a(1,j)=a(3,j) : a(3,j)=t

next j

（6）求矩阵a两条对角线之和：

s=0

for i=1 to 4

s=s+a(i,i)+a(i,5-i)

next i

（7）将矩阵a按列的次序把各元素放入一维数组d中，显示结果：

dim d%(1 to 16) ,k%

for i=1 to 4

for j=1 to 4

k=(j-1)*4+i

d(k)=a(i,j)

next j, i

8. 声明一个有20个元素的一维字符类型数组，要求：

（1）由随机数形成小写字母构成的数组，每个元素的字符个数由随机数产生，范围1~11。

Dim st(1 to 20) as string, c as string*1

Dim i%, n%

For i=1 to 20

n=int(rnd*11+1)

for j=1 to n

c=chr(int(rnd*26+97))

st(i)=st(i) & c

next j

print st(i)

next i

（2）要求将生成的数组分四行显示。

For i=1 to 20

Print st(i); space(15-len(st(i)));

If i mod 5=0 then print

Next i

（3）显示生成的字符数组中字符最多的元素。

Maxlen=0

Maxstr=‖‖

For i=1 to 20

If len(st(i))>maxlen then

Maxlen=len(st(i))

Maxstr=st(i)

End if

Next i

Print maxlen, maxstr

9. 自定义一个职工类型，包含职工号、姓名和工资。声明一个职工类型的动态数组。输入n个职工的数据，要求按工资递减的顺序排序，并显示排序的结果，每个职工一行显示三项信息。

Dim a() As zg, i%

Private Sub Command1_Click()

i = i + 1

If i < n Then MsgBox ("人数超过"): Exit Sub

With a(i)

.gh = Val(Text1)

.xm = Text2

.gz = Val(Text3)

End With

Text1 = "": Text2 = "": Text3 = ""

End Sub

Private Sub Command2_Click()

Picture1.Cls

Dim j%, k%, t As zg

For j = 1 To i - 1

For k = j + 1 To i

If a(k).gz > a(k - 1).gz Then

t = a(k): a(k) = a(k - 1): a(k - 1) = t

End If

Next k

Next j

For j = 1 To i

Picture1.Print a(j).gh; a(j).xm; a(j).gz

Next j

End Sub

Private Sub Form_Load()

Dim n%

n = InputBox("输入人数")

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