![[填空题] 执行下面程序,单击按钮CmdRun,窗体上显示的第一行结果是（）,UBound(a)的值为（）,其中a(1)的值为（）.Option ExplicitPrivate Sub CmdRun,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E6%89%A7%E8%A1%8C%E4%B8%8B%E9%9D%A2%E7%A8%8B%E5%BA%8F%2C%E5%8D%95%E5%87%BB%E6%8C%89%E9%92%AECmdRun%2C%E7%AA%97%E4%BD%93%E4%B8%8A%E6%98%BE%E7%A4%BA%E7%9A%84%E7%AC%AC%E4%B8%80%E8%A1%8C%E7%BB%93%E6%9E%9C%E6%98%AF%EF%BC%88%EF%BC%89%2CUBound%28a%29%E7%9A%84%E5%80%BC%E4%B8%BA%EF%BC%88%EF%BC%89%2C%E5%85%B6%E4%B8%ADa%281%29%E7%9A%84%E5%80%BC%E4%B8%BA%EF%BC%88%EF%BC%89.Option+ExplicitPrivate+Sub+CmdRun.png "[填空题] 执行下面程序,单击按钮CmdRun,窗体上显示的第一行结果是（）,UBound(a)的值为（）,其中a(1)的值为（）.Option ExplicitPrivate Sub CmdRun,第1张")
[填空题] 执行下面程序,单击按钮CmdRun,窗体上显示的第一行结果是（）,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
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）