执行下列程序，在文本框Text1中输入“15 5 3 20 11”后，单击“输入数组”按钮后，数组元素A(2)的值为______，数组元素A(3)的值为______，在单击处理数组按钮后，数组元素A(

执行下列程序，在文本框Text1中输入“15 5 3 20 11”后，单击“输入数组”按钮后，数组元素A(2)的值为______，数组元素A(3)的值为______，在单击处理数组按钮后，数组元素A(2)的值变为______，数组元素A(3)的值变为______。程序参考界面如下图所示。 Option Base 1 Option Explicit Dim A() As Integer Private Sub Command1_Click() "输入数组 Dim I As Integer, St As String, J As Integer St=Text1.Text I=InStr(St, "") Do While I＜＞0 J=J+1 ReDim Preserve A(J) A(J)=Val(Left(St, I-1)) St=Right(St, Len(St)-I) I=InStr(St, "") Loop ReDim Preserve A(J+1) A(J+1)=St End Sub Private Sub Command2_Click() "处理数纽 Dim I As Integer, T As Integer, J As Integer For I=2 To UBound(A) If A(I)＜A(1) Then T=A(I) For J=I To 2 Step-1 A(J)=A(J-1) Next A(1)=T End If Next For I=1 To UBound(A) Text2.Text=Text2.Text&Str(A(I)) Next End Sub

好的，我们先一步一步分析这段程序。

1. 程序结构说明

Option Base 1：数组默认下标从 1 开始。

A() 是模块级动态整型数组。

两个按钮：

Command1_Click：把文本框 Text1 中用空格分隔的数字读入数组 A。

Command2_Click：对数组进行特殊处理，并输出到 Text2。

2. Command1_Click 执行过程

输入 "15 5 3 20 11"。

复制

下载