VB程序的設(shè)計(jì)——6 組

1、n=12 dim a(1 to n) as integerdim a%3,3dim a(1,1,2) as integerdim a%(10) redim a(1 to 12)dim a!() redim a(3,2) as integer 判斷下列數(shù)組聲明是否合法判斷下列數(shù)組聲明是否合法? 合法的數(shù)組聲明可以存放多少個數(shù)組元素合法的數(shù)組聲明可以存放多少個數(shù)組元素?課堂練習(xí)課堂練習(xí)1產(chǎn)生一個如右圖所示的矩陣n方法一：采用一維數(shù)組方法一：采用一維數(shù)組dim a(1 to 9) as integerfor i=1 to 9 a(i)=i print a(i); if i mod 3 =0 then

2、 printnext i課堂練習(xí)課堂練習(xí)2dim a(3, 3) as integerfor i=1 to 3 for j=1 to 3 a(i, j)=_ print a(i, j); next j printnext i3*(i-1)+j課堂練習(xí)2隨機(jī)數(shù)隨機(jī)數(shù)n01 rndn0n n*rndnab (b-a)rnd+anrandomize方法：雙重循環(huán)（循環(huán)嵌套）方法：雙重循環(huán)（循環(huán)嵌套）外循環(huán)為外循環(huán)為i i：控制排序趟數(shù)：控制排序趟數(shù)內(nèi)循環(huán)為內(nèi)循環(huán)為j j：排序過程中的下標(biāo)變量：排序過程中的下標(biāo)變量q(1)將將a(1)依次與第二個數(shù)到依次與第二個數(shù)到 第第n個數(shù)逐一比較，個數(shù)逐一比較，

3、若若a(1) a(j)，則交換，第一趟排序完成最小數(shù)據(jù)，則交換，第一趟排序完成最小數(shù)據(jù)放入放入a(1)中；中；q(2)將將a(2)依次與第三個數(shù)到依次與第三個數(shù)到 第第n個數(shù)逐一比較，個數(shù)逐一比較，若若a(2) a(j)，則交換，第二趟排序完成最小數(shù)據(jù)，則交換，第二趟排序完成最小數(shù)據(jù)放入放入a(2)中。中。q(3)重復(fù)以上操作，進(jìn)行重復(fù)以上操作，進(jìn)行n 1趟排序趟排序q(1)從從a(1)到到a(n )，對數(shù)組中兩兩，對數(shù)組中兩兩相鄰相鄰的元素比較，的元素比較，將值較小的元素放在前面，值較大的元素放在后將值較小的元素放在前面，值較大的元素放在后面，一輪比較完畢，最大的數(shù)存放在面，一輪比較完畢，最大的數(shù)存放在a(n)中；中；q(2)然后對然后對a(1)到到a(n-1)的的n-1個數(shù)進(jìn)行同（個數(shù)進(jìn)行同（1）的）的操作，次最大數(shù)放入操作，次最大數(shù)放入a(n 1)元素內(nèi)，完成第二趟元素內(nèi)，完