![[填空题] 下列程序中有一个按钮Command1，一个文本框Text1，其属性MultiLine=True。当单击按钮后，文本框显示 行数据，其中第2行和第3行的数据分别是 和 。 Optio](http://www.mshxw.com/aiimages/31/260479.png "[填空题] 下列程序中有一个按钮Command1，一个文本框Text1，其属性MultiLine=True。当单击按钮后，文本框显示 行数据，其中第2行和第3行的数据分别是 和 。 Optio")
[填空题] 下列程序中有一个按钮Command1，一个文本框Text1，其属性MultiLine=True。当单击按钮后，文本框显示 【10】 行数据，其中第2行和第3行的数据分别是 【11】 和 【12】 。
Option base 1
Private Sub Command1_Click()
Dim a， s As String，i As Integer
a=Array(1，3，5，7，2，4，6，8)
s=" "
For i=1 To Ubound(A)
s=s + Str(a(i)+i)+ vbCrLf
Next i
Text1.Text=s
End Sub
参考答案：
[10]8 [11]5 [12]8解析：[分析]： 先计算a(i)+i表达式的结果，再将其转换成字符串。vbCrLf为回车符与换行符结合，它相当于“Chr(13)&Chr(10)”。UBound函数求出数组a的上界值为8，程序循环8次，在文本框 Text1中输出8行数据。问题解析:
解析无
