Vb程序填空要點：一、程序代碼書寫注意事項：1輸入程序代碼時，不要把某個對象的某個事件過程代碼寫到另一個對象的另一個事件過程中去。2. 代碼一律小寫輸入，標點符號采用英文標點符號，不能用中文（字符串”雙引號內除外）2 一行一句3 一行多句：句與句之間用冒號“：”分隔4 一句多行：前一行末空一格再加下劃線“_”回車另起一行5 采用縮進突出層次結構，一層縮進一個制表位二、將下列語句用vb語句代碼表示：1在窗體form1中顯示“江蘇省昆山中學”：2在標簽label1上顯示“江蘇省昆山中學”：3在文本框text1內顯示“江蘇省昆山中學”：4在窗體form1中顯示x的值：5在標簽label2上顯示y的值：6在文本框text2內顯示z的值：7將文本框text1內的文本內容存入變量x中：8在文本框text2內輸入的數存入單精度實數變量y中：9在inputbox（）函數產生的輸入框內輸入一個數，將它存入整型變量z中：10隨機產生一個10，100之間的整數，存入a中：11將a存入b： 將b存入a：12交換a、b兩個變量中的數據：13A能被b整除：14A不能被b整除：15M是奇數：16N是偶數：17將A轉換成小寫字母：18將b轉換成大寫字母：19N是一個三位數，如何得到每位上的數字：注：一些固定格式:交換兩個變量中保存的數據: m=_ : _= _ : _=m用文本框接收輸入的數值型數據: x= val(text1.text)用inputbox接收輸入的數值型數據: x=val(inputbox(“”,”)3.用循環求和、求乘積：Private sub form_click()Dim s as doubleDim I as integerS=_For I =_ to _S=_Next _Print “s=”; _End sub4.用遞歸求和、求乘積public function s(byval n as integer) as doubleif n=_ thens=_elses=_end ifend functionprivate sub form_click()print s ( _ )end sub5.輸出由鍵盤符號構成的圖形：private sub form_click()for I= _ to _ 確定輸出多少行print tab( _ ); 確定每行起始位置for j = _ to _ 確定每行輸出多少個符號print _ ; 確定輸出什么next jprint 換行next Iend sub6.求指定范圍內滿足條件的數：private sub form_click()dim n as integerfor n= _ to _if _ thenprint nend ifnext nend sub7.求不定范圍內滿足條件的最小數：private sub form_click()dim n as integern=1do if _ thenprint nexit do end ifn=n+1loopend sub8.隨機產生10個10,100之間的整數，計算它們的和及平均值，找出其中最大數和最小數，并按升序或降序排列。Private sub form_click()Dim a(_ ) as integerDim max as integer, min as integerDim I as integer, j as integer, m as integerRem 隨機得到10個數并輸出：RandomizeFor I=_ to _A(i)=_Next IFor i= _ to _Print a(i);Next iRem 計算和與平均值：S=0For i=_ to _S=_Next iPrint “和=”；s，“平均值=”；s/10Rem 找出最大數和最小數：Max=a(_)Min=a(_)For I=_ to _If _ then _If _ then _Next IPrint “最大數為”;_Print “最小數為”;_Rem 排序：For I=_ to _For j=_ to _If _ t