[填空題] 有下列程序，程序運行后，單擊“Command1”按鈕，在列表框List1中顯示的第一行和第二行的結(jié)果分別是 【13】 和 【14】 ，最后一行的結(jié)果
[填空題] 有下列程序，程序運行后，單擊“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”文件中，程序后面部分又將其讀出來。Ubound()函數(shù)為指定的數(shù)組維可用的最大下標。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。