[填空題] 有下列程序，程序運(yùn)行后，單擊“Command1”按鈕，在列表框List1中顯示的第一行和第二行的結(jié)果分別是 【13】 和 【14】 ，最后一行的結(jié)果是 【15】 。

Type type_a

chr1 As String*1

num1 As Integer

End Type

Private Sub Command1_Click()

Dim testdata As type_a, n As Integer

Dim f1 As Integer, c()As String*1

f1=FreeFile

Open "d:data. txt" For Random As #f1 Len=Len(testdata)

n=1

For I=97 To 102

ReDim Preserve c(n)

c(n)=Chr(I)

testdata. chr1=c(n)

testdata. num1=I

n=n+1

Put #f1, , testdata

Next I

Seek #f1, 1

For I=1 To UBound(c)

Get #f1, , testdata

List1. AddItem testdata. chr1 & testdata num1

Next I

List1. AddItem UBound(c)

Close

End Sub

[13]a97 [14]b98 [15]6解析：[分析]： 程序的前面部分用Chr函數(shù)產(chǎn)生了a～f字母，并寫入到“data. txt”文件中，程序后面部分又將其讀出來(lái)。Ubound()函數(shù)為指定的數(shù)組維可用的最大下標(biāo)。