vb編程題，定義一下有20個元素的一維數(shù)組，使用InputBox函數(shù)為數(shù)組中的所有元素賦值，并顯示？Dim a（1到20）As IntegerPrivate Sub FormuuClick（）MX=a

vb編程題，定義一下有20個元素的一維數(shù)組，使用InputBox函數(shù)為數(shù)組中的所有元素賦值，并顯示？

Dim a（1到20）As IntegerPrivate Sub FormuuClick（）MX=a（1）Mn=a（1）for I=1到20 a（I）=InputBox（“input a numerical value”，“input”）如果a（I）> MX那么MX=a（I）如果a（I）< Mn那么Mn=a（I）nextprint“最大值是”&；MX&”，最小值是“&；mnend Sub

Dim a（20）DimI，J，kfori=0到19a（I）=InputBox（“input No.”&I 1&instr函數(shù)指定一個字符串在另一個字符串中第一次出現(xiàn)的位置。Syntax instr（[start]，string1，string2，[compare]）instr函數(shù)語法具有以下參數(shù)：part description start optional。設置每次搜索開始位置的數(shù)值表達式。如果忽略，搜索將從第一個字符位置開始。如果start包含null，則會發(fā)生錯誤。如果指定了compare，則需要start參數(shù)。字符串1是必需的。要搜索的字符串表達式。字符串2是必需的。找到字符串表達式。比較是可選的。指定字符串比較的類型。如果compare為null，則發(fā)生錯誤。如果省略比較，則選項比較設置確定比較的類型。指定有效的LCID（localeid）以在比較中使用特定于區(qū)域設置的規(guī)則。