'接著上面的程序 dim cname, temp '要查詢的名字, 和一個臨時變量, 用來儲存數據的位置 cname=inputbox("請輸入你要查詢的名字:") for ctr=0 to 2 '遍歷所有name數組的成員, 尋找要查詢的名字 if name(ctr)=cname then temp=ctr '記錄數據位置 exit for '退出循環, 和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 '輸出太麻煩了, 我懶得動, 你知道那么回事就行了
