[填空題] 下列程序中有一個(gè)按鈕Command1，一個(gè)文本框Text1，其屬性MultiLine=True。當(dāng)單擊按鈕后，文本框顯示 【10】 行數(shù)據(jù)，其中第2
2021-07-20
[填空題] 下列程序中有一個(gè)按鈕Command1，一個(gè)文本框Text1，其屬性MultiLine=True。當(dāng)單擊按鈕后，文本框顯示 【10】 行數(shù)據(jù)，其中第2行和第3行的數(shù)據(jù)分別是 【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[分析]： 先計(jì)算a(i)+i表達(dá)式的結(jié)果，再將其轉(zhuǎn)換成字符串。vbCrLf為回車符與換行符結(jié)合，它相當(dāng)于“Chr(13)&Chr(10)”。UBound函數(shù)求出數(shù)組a的上界值為8，程序循環(huán)8次，在文本框 Text1中輸出8行數(shù)據(jù)。
參考解析：[11]5 [12]8
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。