编写子过程,子过程的功能是:交换一个数组中最大值和最小值的位置,其他元素的位置不变。要求在主调过程中输入(或随机产生)一组数,并在主调过程中输出处理前、处理后的数据。
Private Sub Form_Click()
Dim a%(1 To 10), i%
Print "原始数据:"
For i = 1 To 10
a(i) = Int( 【1】* 101 + 100)
Print a(i);
Next i
Print
Call 【2】
Print "交换后:"
For i = 1 To 10
Print a(i);
Next i
Print
End Sub
Sub jh(b%())
Dim ma%, mi%, i%, t%
ma = LBound(b)
mi = LBound(b)
For i = LBound(b) + 1 To 【3】
If 【4】Then ma = i
If b(mi) > b(i) Then 【5】
Next i
t = b(ma): b(ma) = b(mi): b(mi) = 【6】
End Sub
Private Sub Form_Click()
Dim a%(1 To 10), i%
Print "原始数据:"
For i = 1 To 10
a(i) = Int( 【1】* 101 + 100)
Print a(i);
Next i
Call 【2】
Print "交换后:"
For i = 1 To 10
Print a(i);
Next i
End Sub
Sub jh(b%())
Dim ma%, mi%, i%, t%
ma = LBound(b)
mi = LBound(b)
For i = LBound(b) + 1 To 【3】
If 【4】Then ma = i
If b(mi) > b(i) Then 【5】
Next i
t = b(ma): b(ma) = b(mi): b(mi) = 【6】
End Sub
举一反三
- 以下程序输出的结果是: Private Sub Form_Activate() Dim a a=Array(1,2,3,4,5) For i=Lbound(((A) To Ubound(((A) A(i)=i*a(i) Next i Print i, Lbound(((A) , Ubound(((A) , a(i) End Sub
- 写输出下面程序的运行结果_ _。 Dim a() As Integer Private Sub Command1_Click() ReDim a(1 To 5) For i = 1 To 5 a(i) = i Next i ReDim a(1 To 10) For i = 6 To 10 a(i) = 2 * i Next i For i = 1 To 10 Print a(i); Next i End Sub
- 以下程序的运行结果是 Sub s1(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer For i = 1 To 4 a(i) = i + 5 Next i s1 a() For i = 1 To 4 Print a(i) Next i End Sub
- 下列代码执行的结果是( )。 Private Sub Form_Click() Dim a(5) Dim i as Integer For i = 1 To 5 <br/>a(i) = i + 2 Next i Print a(4) End Sub A: 6 B: 8 C: 24 D: 2
- 执行以下程序,单击命令按钮后,输出结果是______。 Private Sub Command1_Click() Dim a(5) As Integer Dim b For i = 1 To 5 a(i) = i*i Next i For Each b In a Print b; Next b End Sub