第五部分学完了,写个作业:
1) 定义一个数组, 包含5个元素, 都是随机整数(随便输入), 要求把他们按照从大到小的顺序排列起来
Dim a(4),i,temp,j
For i=0 To 4
a(i)=InputBox("请输入第"&(i+1)&"个元素")
a(i)=Int(a(i))
Next
For i=0 To 4
For j=(i+1) To 4
If a(i)<a(j) Then
temp=a(i)
a(i)=a(j)
a(j)=temp
End if
Next
Next
MsgBox (a(0)&" "&a(1)&" "&a(2)&" "&a(3)&" "&a(4))
2) 有两个二维数组a(4,4)和b(4,4) (元素值随便), 交换两个数组(原来的a的所有元素值变成b的, b的所有元素值变成a的)
Dim a(4,4),b(4,4),i,j,temp,stra,strb,straa,strbb
'初始化两个数组
For i=0 To 4
For j=0 To 4
a(i,j)=i+j
b(i,j)=i*2+j*2
Next
Next
For i=0 To 4
For j=0 To 4
stra=stra&" "&a(i,j)
strb=strb&" "&b(i,j)
temp=a(i,j)
a(i,j)=b(i,j)
b(i,j)=a(i,j)
straa=straa&" "&a(i,j)
strbb=strbb&" "&b(i,j)
Next
stra=stra&Chr(13)&Chr(10)
strb=strb&Chr(13)&Chr(10)
straa=straa&Chr(13)&Chr(10)
strbb=strbb&Chr(13)&Chr(10)
Next
MsgBox ("原来的数组a"&Chr(13)&Chr(10)&stra&"原来的数组b"&Chr(13)&Chr(10)&strb&"后来的数组a"&Chr(13)&Chr(10)&straa&"后来的数组b"&Chr(13)&Chr(10)&strbb)