![[填空题] 执行下面程序,在文本框Text1中输入"21 23 2 3 5 17 54#"后,单击命令按钮Cmdl,数组元素A(1)的值是（）,A(3)的值是（）,A(5)的值是（,第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%9C%A8%E6%96%87%E6%9C%AC%E6%A1%86Text1%E4%B8%AD%E8%BE%93%E5%85%A5%26amp%3Bquot%3B21+23+2+3+5+17+54%23%26amp%3Bquot%3B%E5%90%8E%2C%E5%8D%95%E5%87%BB%E5%91%BD%E4%BB%A4%E6%8C%89%E9%92%AECmdl%2C%E6%95%B0%E7%BB%84%E5%85%83%E7%B4%A0A%281%29%E7%9A%84%E5%80%BC%E6%98%AF%EF%BC%88%EF%BC%89%2CA%283%29%E7%9A%84%E5%80%BC%E6%98%AF%EF%BC%88%EF%BC%89%2CA%285%29%E7%9A%84%E5%80%BC%E6%98%AF%EF%BC%88.png "[填空题] 执行下面程序,在文本框Text1中输入"21 23 2 3 5 17 54#"后,单击命令按钮Cmdl,数组元素A(1)的值是（）,A(3)的值是（）,A(5)的值是（,第1张")
[填空题] 执行下面程序,在文本框Text1中输入"21 23 2 3 5 17 54#"后,单击命令按钮Cmdl,数组元素A(1)的值是（）,A(3)的值是（）,A(5)的值是（）.Option ExplicitPrivate Sub Cmd1_Click()Dim A() As Integer,K As IntegerDim L As Integer,S As StringS=Text1DoK=K+1ReDim Preserve A(K)L=InStr(S," ")If L<>0 ThenA(K)=Val(Left(S,L-1))S=Right(S,Len(S)-L)ElseA(K)=Val(S)End IfLoop Until L=0Call Exchang(A)For K=1 To 7Text2=Text2 &A(K) & " "Next KEnd SubPrivate Sub Exchang(A() As Integer)Dim i As Integer,Tem As IntegerDim Point1 As IntegerPoint1=1For i=1 To UBound(A)If A(i) Mod 3 =0ThenTem=A(i)A(i)=A(Point1)A(Point1)=TemPoint1=Point1+1End IfNext iEnd Sub
正确答案：21；54；5
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）