dim name(2), high(2), mark(2) '定義三個數(shù)組分別儲存3個人的名字, 身高和得分 dim ctr '計數(shù)器 for ctr=0 to 2 name(ctr)=inputbox("請輸入第" ctr+1 "個學(xué)生的姓名") high(ctr)=inputbox("請輸入第" ctr+1 "個學(xué)生的身高") mark(ctr)=inputbox("請輸入第" ctr+1 "個學(xué)生的得分") next
'接著上面的程序 dim cname, temp '要查詢的名字, 和一個臨時變量, 用來儲存數(shù)據(jù)的位置 cname=inputbox("請輸入你要查詢的名字:") for ctr=0 to 2 '遍歷所有name數(shù)組的成員, 尋找要查詢的名字 if name(ctr)=cname then temp=ctr '記錄數(shù)據(jù)位置 exit for '退出循環(huán), 和exit do的用法一樣 end if '不要忘了end if next msgbox("姓名:" name(temp) " " "身高:" high(temp) " " "得分:" mark(temp))
dim cname cname=inputbox("請輸入你要查詢的名字:") for ctr=0 to 2 if name(ctr)=cname then exit for '因為只有exit for就不需要塊if了 next msgbox("姓名:" name(ctr) " " "身高:" high(ctr) " " "得分:" mark(ctr))
dim info(4,2) '一共五個人, 要儲存的數(shù)據(jù)類型有3項 dim i,j for i=0 to 4 for j=0 to 2 dim opt '定義一個變量用于存儲數(shù)據(jù)項提示 select case j '判斷應(yīng)該輸入的是什么數(shù)據(jù) case 0 opt="姓名" case 1 opt="國籍" case 2 opt="民族" end select info(i,j)=inputbox("請輸入第" i+1 "個人的" opt) next next '輸出太麻煩了, 我懶得動, 你知道那么回事就行了