9,数组的输出，形成5*5的方针，在3个picture中分别输出各元素，上三角，下三角。private sub command1_click()Dim sc%(4,4)Picture1.Print"产生方针数据"For i=0 to 4 For j=0 to 4 sc(i,j)=i*5+j Picture1.Print Tab(j*5);sc(i,j); next j picture1.printnext ipicture2.print"上三角"For i= 0 to 4 for j= i to 4 picture.print tab(j*5);sc(ij); next j picture2.printnext iPicture3.Print"显示下三角数组元素"For i = 0 to 4 for j= 0 to i picture3.print tab(j*5);sc(i,j); next j pictrue3.printnext iend sub
自己记录自己吧 关注：1贴子：235
- 5回复贴，共1页
10，求一维数组中各元素之和，最小数组元素，并将最小数组元素与数组中第一个元素位置交换private sub command1_click() Dim a,i%,min%,imin%,sum%,t% a=Array(26,43,61,87,33,19,37,59,76,69) min=a(0):imin=0:sum=a(0) For i= 1 to Ubound(a) sum=sum+a(i) If a(i)<min Then min=a(i): imin=i Next i t=a(0): a(0)=a(imin): a(imin)=t print.......end sub
11,数组排序之顺序排序法private sub command1_click() Dim a(),iMin%,n%,i%,j%,t% a=Array(8,6,9,3,2,7) n=UBound(a) For i=0 to n-1 iMin=i For j= i+1 to n if a(j)<a(iMin) Then iMin = j next j t=a(i) a(i)=a(iMin) a(iMin)=t next i For i=LBound(a) To UBound(a) print a(i); nextend sub
12,冒泡排序法private sub command1_click() Dim a(),n%,i%,j%,t% a=Array(8,6,9,3,2,7) n=UBound(a) For i= 0 to n-1 For j= 0 n-1-i If a(j)>a(j+1) Then t=a(j):a(j)=a(j+1):a(j+1)=t End If Next i Next i For i=0 to n: Print a(i);: Next iEnd Sub
13.在有序数组a中插入数值x（x值通过文本框输入获得，假定为14）private sub command1_click() Dim a(),i%,k%,x%,n% a=Array(1,4,7,10,13,16,19,22,25) n=UBound(a) x=Val(text1) For k= 0 to n If x<a(k) Then Exit For next k ReDim Preserve a(n+1) For i= n To k step -1 a(i+1)=a(i) next i a(k)=x For i=0 to n+1 print a(i) next iend sub
14.删除数据，要从数组a中将与x变量假定为13相同的数组元素删除private sub command1_click() Dim a(),i%,k%,x%,n% a=Array(1,4,7,10,13,14,16,19,22,25) n=UBound(a) x=Val(Text1) For k= 0 to n If x=a(k) Then Exit For Next k If k>n Then msgbox("找不到此数据"):Exit sub For i= k+1 To n a(i-1)=a(i) next i n=n-1 ReDim Preserve a(n) For i= 0 To n print a(i) Next iEnd sub
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频！
看高清直播、视频！
贴吧热议榜
- 1林孝埈短道速滑500米夺金2946690
- 2汪小菲张兰账号被无限期封禁2785508
- 3林孝埈为何总在决赛中表现失误2085636
- 4外媒称哪吒2票房高但没人关注1798686
- 5哪吒是天津人还是四川人1787214
- 6林孝埈决赛摔倒送韩国亚冬会首金1621175
- 7Gumayusi不打比赛转行卖课1369368
- 8大S骨灰放置家中惹邻居不满1110808
- 9马斯克将审查美国防部支出954074
- 10哪吒2全球影史单一市场票房冠军785736
