dim name(2), high(2), mark(2) '定義三個數組分別儲存3個人的名字, 身高和得分 dim ctr '計數器 for ctr=0 to 2 name(ctr)=inputbox("請輸入第" ctr+1 "個學生的姓名") high(ctr)=inputbox("請輸入第" ctr+1 "個學生的身高") mark(ctr)=inputbox("請輸入第" ctr+1 "個學生的得分") next
'接著上面的程序 dim cname, temp '要查詢的名字, 和一個臨時變量, 用來儲存數據的位置 cname=inputbox("請輸入你要查詢的名字:") for ctr=0 to 2 '遍歷所有name數組的成員, 尋找要查詢的名字 if name(ctr)=cname then temp=ctr '記錄數據位置 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) '一共五個人, 要儲存的數據類型有3項 dim i,j for i=0 to 4 for j=0 to 2 dim opt '定義一個變量用于存儲數據項提示 select case j '判斷應該輸入的是什么數據 case 0 opt="姓名" case 1 opt="國籍" case 2 opt="民族" end select info(i,j)=inputbox("請輸入第" i+1 "個人的" opt) next next '輸出太麻煩了, 我懶得動, 你知道那么回事就行了