[填空題] 執(zhí)行下面程序,單擊按鈕CmdRun,窗體上顯示的第一行結(jié)果是(),UBound(a)的值為(),其中a(1)的值為().Option Explici
2021-07-20
[填空題] 執(zhí)行下面程序,單擊按鈕CmdRun,窗體上顯示的第一行結(jié)果是(),UBound(a)的值為(),其中a(1)的值為().Option ExplicitPrivate Sub CmdRun_Click()Dim St As String,i As IntegerDim a() As String,j As Integer,k As IntegerSt="abcd"Call Sub1(St)Print StFor i=1 To Len(St)For j=i+1 To Len(St)If Mid(St,i,1)=Mid(St,j,1) Then Exit ForNext jIf j>Len(St) Thenk=k+1ReDim Preserve a(k)a(k)=Mid(St,i,1)Print "a(";k;")=";a(k)End IfNext iEnd SubPrivate Sub Sub1(S As String)Dim i As IntegerFor i=1 To Len(S)2Mid(S,i,1)=Mid(S,Len(S)-i+1,1)Next iEnd Sub
正確答案:dccd;2;c
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學等領域),建議您咨詢相關領域?qū)I(yè)人士。