【正文】 對(duì)獨(dú)立的一種子程序結(jié)構(gòu)，它們有各自的過(guò)程頭、變量聲明和過(guò)程體。 Print s(i).no, s(i).name, s(i).gz輸出信息 Next i End If For j = i + 1 To n根據(jù)工資遞減排序 Next i .name = InputBox(請(qǐng)輸入職工姓名) With s(i)Dim s( ) As zgtype, n% 輸入n信職工的數(shù)據(jù)；要求按工資遞減的順序排序，并顯示排序的結(jié)果，每個(gè)職工一行顯示三項(xiàng)信息。 自定義一個(gè)職工類型，包含職工號(hào)、姓名、工資。 簡(jiǎn)述自定義類型與自定義變量的區(qū)別答：前者僅定義了類型，這如同系統(tǒng)提供的integer、string等基本類型；后者系統(tǒng)為其分配了存儲(chǔ)單元。 列表框或組合框中選中的項(xiàng)目、總項(xiàng)目數(shù)的屬性分別是什么？答：表示選中的內(nèi)容，屬性有：text；總項(xiàng)目數(shù)的屬性為L(zhǎng)istCounts。 簡(jiǎn)述列表框和組合框的異同處答：相同處都是可存放字符串；不同處在于：組合框是文本框和列表框的組合，可以輸入內(nèi)容，但要通過(guò)additem方法添加；列表框只能選擇項(xiàng)目，不能直接輸入內(nèi)容。 字符串是:。 Print 最多字符個(gè)數(shù):。 Print Next i End If maxstr = st(i) maxlen = Len(st(i)) If Len(st(i)) maxlen Then For i = 1 To 20 maxstr = maxlen = 0（3）顯示20個(gè)中字符個(gè)數(shù)最多的一個(gè) Next i Print st(i)。 For i = 1 To 2039。 Next j st(i) = st(i) amp。 For j = 1 To n For i = 1 To 20 Dim i%, n% 聲明一個(gè)一維字符類型數(shù)組，有20個(gè)元素，每個(gè)元素最多放10個(gè)字符，要求：1）由隨機(jī)數(shù)形成小寫字母構(gòu)成的數(shù)組，每個(gè)元素的字符個(gè)數(shù)由隨機(jī)數(shù)產(chǎn)生，范圍1~102）要求將生成的數(shù)組分4行顯示，規(guī)定每個(gè)元素寬度為103）顯示生成的字符數(shù)組中字符最多的元素 Next jNext iPrint D一維數(shù)組無(wú)素為:For k = 0 To 15 For j = 1 To 4Next i（7）將A矩陣按列的次序把各元素放入一維數(shù)組D中，顯示結(jié)果Dim D%(16)For i = 1 To 4 Sum = 0 For j = 1 To 4 Next i（5）將A矩陣第一行與第三行對(duì)應(yīng)元素交換位置Print b(i, j)。 For j = i To 4 Print 輸出B上三角元素Print Next jPrint a(i, j)。 For j = 1 To iFor i = 1 To 4End If For j = 1 To 4For i = 1 To4Dim max%, maxi%, maxj%Next j t = a(i, j): a(i, j) = a(j, i): a(j, i) = t Next j For i = 1 To 4Dim a ( 1 to 2, 3) as single答：數(shù)組名為a，數(shù)組類型為單精度，二維，各維的下界為1和0，上界分別為2和3；數(shù)組的大小為4*4共16個(gè)元素；各元素標(biāo)號(hào)排列為：a (1, 0 )a (1, 1)a (1, 2 )a (1, 3 )a (0, 0 )a (0, 1)a (0, 2 )a (0, 3 )a (1, 0 )a (1, 1)a (1, 2 )a (1, 3 )a (2, 0)a (2, 1)a (2, 2 )a (2, 3 ) 程序運(yùn)行時(shí)顯示“下標(biāo)越界”可能產(chǎn)生的錯(cuò)誤有哪幾種情況？答：下標(biāo)比下界小 或比上界大 ReDim a (3, 2 ) As Integer(7) Dim a% ( 2,3 ) ReDim a ( 1 to 12 ) (6) Dim a! ( ) (4) Dim a ( 1,1,3) as Integer(5) Dim a%(10 ) Redim a ( n )(3) Dim a%[2,3] n=11 Dim a ( 1 to n ) As Interger Dim a%() ，數(shù)組的下界默認(rèn)為0，用什么語(yǔ)句可以重新定義數(shù)組的默認(rèn)下界？opention Basic 語(yǔ)句End Sub 平均值是:。 最小值是:。 max。 Print avg = avg + x If x max Then max = x x = Int(Rnd * 51 + 50) min = 100: max = 50: avg = 0Private Sub Command3_Click() 利用隨機(jī)函數(shù)產(chǎn)生50~100范圍內(nèi)的20個(gè)隨機(jī)數(shù)，顯示其中最大值，最小值和平均值。 Loop Do Until x = y x = 242: y = 4422，484利用相差法求x,y的最大公約數(shù)和最小公倍數(shù)下面程序的運(yùn)行結(jié)果是什么？該程序的功能是什么？Private Sub Command2_Click() x = Chr(48 + a) amp。 n = n \ 2 a = n Mod 210100將20轉(zhuǎn)換成2進(jìn)制數(shù)表示下面程序的運(yùn)行結(jié)果是什么？該程序的功能是什么？Private Sub Command1_Click()Dim x$, n%n = 20Do While n 0 Mid ( s, I, 1 ) to fors = InputBox(“ 請(qǐng)輸入字符串”) next i（3）將輸入的字符串以反序顯示。 then I mod s3 = s3 +1 if I mod 3 = 0 next i（2）分別統(tǒng)計(jì)1~100中，滿足3的倍數(shù)、7的倍數(shù)的數(shù)各是多少？ 1 21 13 next j90 print j , k70 共執(zhí)行4*3=12次60 j =1 to 12 Step 3無(wú)限循環(huán)，因?yàn)椴介L(zhǎng)=0 無(wú)循環(huán)，因?yàn)椴介L(zhǎng)0 ，循環(huán)初值小于終值（4）For I = 3 to 20 step 0 19（3） For I = to step 6（2） For I = to step 如，要判斷x,y是否在第一、三象限內(nèi)，若輸入如下語(yǔ)句：select case x,y, VB程序會(huì)顯示“缺少：語(yǔ)句結(jié)束”。 [ Case else 語(yǔ)句塊2 case case（適合于對(duì)一個(gè)變量判斷的）首先，看該語(yǔ)句的形式： 在多分支結(jié)構(gòu)的實(shí)現(xiàn)中，可以用 : if xy then max=x else max = y函數(shù)兩種方法求三個(gè)數(shù)x,y,z中的最大值并存入變量max中。 y= 1 / x + Abs ( x ) elseif x0 then y = sqr ( 3 * x ) – 2 elseif if x 20 then x=val( text1) else Msgbox end select case is 0 case is=10 case is 20 Select caseprivate sub () 指出下列語(yǔ)句中的錯(cuò)誤：（1） if x≥y then print x if 表達(dá)式 then Format ( z , “ “ ) 要使單精度變量x,y,z分別保留1位、2位、3位小數(shù)，并在窗體顯示，應(yīng)使用什么函數(shù)？如何編寫對(duì)應(yīng)的print方法？答：使用format函數(shù)，具體如下：print Format(x,”” )print區(qū)別：Inputbox函數(shù)等待用戶在文本框中輸入數(shù)據(jù)，獲得的是輸入的字符串?dāng)?shù)據(jù)；Msgbox函數(shù)等待用戶按一按鈕，獲得的是表示按鈕的整數(shù)值，以決定程序的流向。 ‘分母為零了 ‘10x是非法變量名（2）c=3+sqr(3)第4章 【】 （4） 已知A$=“87654321‖， 求表達(dá)式Val(Left$(A$,4)+ Mid(A,4,2))的值 【876554】 （5）DateAdd(―m‖,1,1/30/2000) 224。 【188】 （2） 100+‖100‖ amp。 ？若你的計(jì)算機(jī)上沒(méi)有安裝，應(yīng)怎樣安裝這些圖形文件？答：存放在Graphics目錄下。 = \ 2 – \2End Sub其中，ScaleWidth、ScaleHeight表示窗體的相對(duì)寬度和高度。 = \\2要將按鈕定位在窗體的中央，事件過(guò)程如下：Private sub Form_Load()答：這些代碼一般放在Forem_Load（）事件過(guò)程中。1 end ifend sub end if then ifKeyAscii = 13 then 當(dāng)某文本框輸入數(shù)據(jù)后（按了回車鍵），經(jīng)判斷后認(rèn)為是數(shù)據(jù)輸入錯(cuò)，應(yīng)怎樣刪除原來(lái)文本框中的