![[填空题] 执行下面程序,单击命令按钮Command1,最终A(2,2)的值是(),A(3,1)的值是(),A(4,2)的值是()。Option ExplicitOption Base 1Privat,第1张 [填空题] 执行下面程序,单击命令按钮Command1,最终A(2,2)的值是(),A(3,1)的值是(),A(4,2)的值是()。Option ExplicitOption Base 1Privat,第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%E5%91%BD%E4%BB%A4%E6%8C%89%E9%92%AECommand1%2C%E6%9C%80%E7%BB%88A%282%2C2%29%E7%9A%84%E5%80%BC%E6%98%AF%EF%BC%88%EF%BC%89%2CA%283%2C1%29%E7%9A%84%E5%80%BC%E6%98%AF%EF%BC%88%EF%BC%89%2CA%284%2C2%29%E7%9A%84%E5%80%BC%E6%98%AF%EF%BC%88%EF%BC%89%E3%80%82Option+ExplicitOption+Base+1Privat.png)
[填空题] 执行下面程序,单击命令按钮Command1,最终A(2,2)的值是(),A(3,1)的值是(),A(4,2)的值是()。Option ExplicitOption base 1Private Sub Commandl_Ciick()Dim A(4,4)As Integer,i As Integer,j As Integer,k As IntegerFor i=1 To 4For j=1 To 4k=k+1A(i,j)=kNext jNext iCall Transform(A)For i=1 To 4For j=l To 4Text1=Text1 & Right(" " & A(i,j),3)Next jText1=Text1 & vbCrLfNextiEnd SubPrivate Sub Transform(A() As Integer)Dim i As Integer,j As Integer,n As Intege,t As Integer,k As Integern=UBound(A,1)k=n+1For i=1 To n/2For j=1 To nIf i<>j And j<>k-i Thent=A(i,j)A(i,j)=A(k-i,k-j)A(k-i,k-j)=tEnd IfNext jNext iEnd Sub
正确答案:6;8;3
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)