1福建省高职招考信息技术类计算机程序语言设计基础数组训练1.DIMA(3,3)FORI=1TO3FORJ=1TO3A(I,J)=inputbox(“请输入一个整数”)NEXTJNEXTIFORI=1TO2FORJ=I+1TO3TEMP=A(J,I):A(J,I)=A(I,J):A(I,J)=TEMPNEXTJNEXTIPRINTFORI=1TO3FORJ=1TO3PRINTA(I,J);NEXTJPRINTNEXTI程序运行后,分别输入:1、6、4、8、2、5、9、3、7,则程序的运行结2福建省高职招考信息技术类计算机程序语言设计基础果为:
2、DIMa(10,10)k=1fori=1to10forj=1toia(I,J)=kk=k+1printa(I,j);ifk>10thenENDnextjprintnextiend以上程序运行后,a(3,3)的值是3.下列程序的运行结果为:
DimA(5,5)AsInteger,IAsInteger,JAsIntegerForI=1TO3ForJ=1To3A(I,J)=(I-1)*3+J:PrintA(I,J);NextJPrint3福建省高职招考信息技术类计算机程序语言设计基础NextIEnd4、在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:PrivateSubCommandlClick()DimiAsInteger,jAsIntegerDima(10,10)AsIntegerFori=1To3Forj=iTo3a(i,j)=(i-1)*3+jPrinta(i,j);NextjPrintNextiEndSub程序运行后,单击命令按钮,窗体上显示的是_____
5、在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:OptionBase0PrivateSubCommand1_Click()DimA(4