第一篇：算法與程序設計VB試題與答案10

VB10

1、打開文件“考生文件夾178工程1.vbp”，完善Command1_Click事件及fac函數并保存。

實現功能：用遞歸法求3!+5!+7!的值，將結果輸出到窗體上。

Public Function fac(a As Integer)As Integer If a = 1 Then fac = ① Else fac = a * ②(a1)+ fib(n1)End If End Function

Private Sub Command1_Click()Dim sum As Integer sum = s(③)Print “sum=”;sum End Sub ①1 ②n ③100

6、打開“考生文件夾776”中的文件“蝸牛爬竹.vbp”，完善Command1_Click事件代碼并保存。

實現功能：青竹高17米，蝸牛從青竹底端慢慢爬向頂端，晴天每天爬1.4米，雨天每天爬1.8米，若蝸牛爬到頂端用了11天，計算晴天、雨天各多少天？（晴天對應文本框text1，雨天對應文本框text2）

Private Sub Command1_Click()Dim x As Single Dim y As Integer y =(171.4)① = 11-y Text1.Text = Str(②)+ “天” Text2.Text = Str(③)+ “天” End Sub ①x ②x ③y

第二篇：算法與程序設計VB試題與答案08

VB08

1、打開“考生文件夾781”中的文件“test4.vbp”，完善Command1_Click事件代碼并保存。

實現功能：回文字符串是指一個字符串從左往右讀與從右往左讀是一樣的，如“ABCBA”，“123321”等等。輸入一個字符串，若是回文字符串，則輸出“Yes”，否則輸出“No”。使用文本框Text1輸入字符串，使用文本框Text2輸出結果。

Private Sub Command1_Click()Dim s As String Dim ok As String Dim i As Integer s = Text1.Text ok = “Yes” For i = 1 To ①

If Mid(s, i, 1)<> ② Then ok = “No” Next i ③ End Sub ①len(s)2 ②Mid(s, len(s)+1-i, 1)③text2.text=ok

2、打開文件“考生文件夾606工程1.vbp”，完善Command1_Click事件代碼并保存。

實現功能：當單擊“計算1+2+3+…+100”按鈕后，文本框Text1顯示1+2+3+…+100的值。

Private Sub Command1_Click()Dim s As Integer Dim i As Integer s = ①

For i = 1 To ② s = ③ Next i Text1.Text = Str(④)End Sub ①0 ②100 ③s+i ④s

3、打開“考生文件夾779test2.vbp”，完善Command1_Click事件代碼并保存。

實現功能：輸入一個正整數，計算并輸出它的各位數字之和。如輸入123，則輸出6。使用文本框Text1輸入正整數，使用文本框Text2輸出計算結果。

Private Sub Command1_Click()Dim x As Integer Dim s As Integer x = Val(Text1.Text)① Do s = s + ② x = x 10 Loop Until x = 0 ③ End Sub ①s=0 ②x mod 10 ③text2.text=str(s)

4、打開文件“考生文件夾607工程1.vbp”，完善Command1_Click事件代碼并保存。

實現功能：當單擊“顯示”按鈕后，隨機產生10個屬于區間[0，100)的自然數，并保存于數組a中，然后在窗體上顯示這10個數及其平均值。(注：學生運算結果有可能跟樣圖中數值不一致)

Private Sub Command1_Click()Dim a(9)As Integer Dim s As Single Dim i As Integer Me.Cls s = 0 Randomize For i = 0 To ① a(i)= Int(Rnd * 100)Print a(i)Next i For i = 0 To 9 s = ②

③

Print “這10個自然數的平均值=”;s / 10 End Sub ①9

②s+a(i)③next i

5、打開文件“考生文件夾609工程1.vbp”，完善Form_Click事件代碼并保存。

實現功能：單擊窗體時在窗體上打印下面所示的圖案。

**** *** ** *

Private Sub Form_Click()Dim i As Integer Dim j As Integer For i = ① To 1 Step-1 For j = 1 To i ② Next j Print ③ End Sub ①4

②print “*”;③next i

6、打開文件“考生文件夾610工程1.vbp”，完善Command1_Click事件代碼并保存。

實現功能：當單擊“顯示”按鈕后，在窗體上顯示下面的圖形：

@ @@ @@@ @@@@ @@@@@ @@@@@@

Private Sub Command1_Click()Dim i As Integer Dim j As Integer For i = 1 To 6 For j = 1 To ① Print ② Next ③ Print Next i End Sub ①i

②”@”;③j

第三篇：VB程序設計試題與答案

1.要使一個標簽能夠顯示所需要的文本，應設置該標簽的()屬性的值(單)A.Caption B.Name

C.Text D.AutoSize 2.為使計時器對象每隔5秒鐘產生一個時鐘事件(Timer事件)，則其Interval屬性值應設置為()(單)A.5

B.300

C.500

D.5000 3.下列的()對象支持KeyPress事件(單)A.文本框

B.命令按鈕

C.標簽框

D.圖像框 4.確定一個控件在窗體上的位置的屬性是()(單)A.Width或Height

B.Top和Height

C.Top或Width

D.Top和Left 5.確定一個窗體或控件的大小的屬性是()(單)A.Width或Height

B.Top和Width

C.Top或Left

D.Top和Left

6.用戶在屏幕上畫出應用程序界面，并設置好對象的屬性，系統便可以自動生成程序代碼，這稱為()(單)A.面向對象的程序設計

B.結構化程序設計

C.事件驅動的編程機制

D.程序設計 7.在VB中，工程文件的擴展名是()(單)A..frm

B..vbp

C..bas

D..frx 8.在VB中，窗體文件的擴展名是()(單)A..frm B..vbp

C..bas

D..frx 9.VB集成開發環境可以(單)A.編輯、調試、運行程序，但不能生成可執行程序 B.編輯、生成可執行程序、運行程序，但不能調試程序 C.編輯、調試、生成可執行程序，但不能運行程序 D.編輯、調試、運行程序，也能生成可執行程序 10.英文“VISUAL”的含義是()(單)A.可視化

B.集成C.結構化

D.調試

11.標準模塊文件的擴展名是()(單)A.frm B.vbp C.bas

D.vbg 12.VB集成開發環境中，在()中編寫代碼(單)A.狀態欄

B.屬性列表框

C.代碼框

D.標題欄

13.在面向對象的程序設計過程中，英文縮寫“OOP”的含義是()(單)A.事件驅動的編程機制

B.結構化程序設計語言

C.面向對象的程序設計

D.可視化程序設計

14.在窗體上畫一個名稱為Timer1的計時器控件，要求每隔0.5秒發生一次計時器事件，則以下正確的屬性設置語句是()(單)A.Timer1.Interval=0.5

B.Timer1.Interval=5

C.Timer1.Interval=50 D.Timer1.Interval=500 15在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click()a$=“VisualBasic” Print String(3,a$)End Sub 程序運行后，單擊命令按鈕，在窗體上顯示的內容是()(單)A.VVV

B.Vis

C.sic

D.11

16.以下關于多重窗體程序的敘述中，錯誤的是()(單)A.用Hide方法不但可以隱藏窗體,且能清除內存中的窗體 B.在多重窗體程序中，各窗體的菜單是彼此獨立的 C.在多重窗體程序中，可以根據需要指定啟動窗體 D.對于多重窗體程序中，單獨保存每個窗體 17以下合法的Visual Basic變量的名稱是()(單)A.a3

B.Const

C.9abc

D.a#x!

18.當一個復選框被選中時，它的Value屬性的值是()(單)A.3

B.2

C.1

D.0

19.表達式 5 Mod 3+53的值是()(單)A.0

B.3

C.4

D.6

20設x=4,y=8,z=7, 表達式：(x＜y)Or z＜x 的值是()(單)A.1

B.-1 C.TRUE D.FALSE 21設有如下程序段： x=2 For c=1 To 4 Step 2 x=x+c Next c 運行以上程序后，x的值是()(單)A.6 B.7 C.8 D.9

22執行如下兩條語句，窗體上顯示的是()(單)A=9.8596 Print Format(a,“000.00”)A.0,009.86 B.9.86 C.009.86 D.0,009.86

23下列說法中正確的是：為了保存一個Visual Basic應用程序，應當()(單)A.只保存窗體模塊文件(.frm)B.只保存工程文件(.vbp)C.分別保存工程文件和標準模塊文件(.bas)D.分別保存工程文件、窗體文件和標準模塊文件

24.要使一個文本框對象能夠顯示多行文字，應設置該對象的()屬性值為True(單)A.Text B.MultiLine C.Style D.Visible 25.若要將窗體從內存中卸載，其實現的方法或語句是()(單)A.Show B.Unload C.Load D.Hide 26.以下選項中，不是VB標準控件的是()(單)A.命令按鈕 B.定時器 C.通用對話框 D.單選框

27在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序： Dim a As Variant a = Array(1, 2, 3, 4, 5)Sum = 0 For i = 1 To 5 Sum = Sum + a(i1)“, a(i1)> x Then Print a(iNum2 Case 3 Op = ”ד Result = Num1 * Num2 Case 4 Op = ”÷“ Result = Num1 / Num2 End Select Label1= Num1 & Op & Num2 & ”=“ & Result End Sub 窗體運行后，輸入1，則label1的標題顯示結果為()(單)A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5

42在窗體上畫一個名稱為Text1的文本框，然后畫一個名稱為HScroll1的滾動條，其Min和Max屬性分別為0和100。程序運行后，如果移動滾動框，則在文本框中顯示滾動條的當前值，以下能實現上述操作的程序段是()(單)A.Private Sub HScroll_Change()Text1.Text=HScroll1.Value End Sub

B.Private Sub HScroll_Click()Text1.Text=HScroll1.Value End Sub C.Private Sub HScroll_Change()Text1.Text=HScroll.Caption End Sub D.Private Sub HScroll_Click()Text1.Text=HScroll.Caption End Sub

43.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click()x=InputBox(”Input“)Select Case x Case 1,3 Print ”分支 1“ Case Is＞4 Print ”分支 2“ Case Else Print ”Else 分支 “ End Select End Sub 程序運行后，如果在輸入對話框中輸入2，則窗體上顯示的是（）A.分支1 B.分支2 C.Else分支 D.程序出錯

44.隨機產生10個100～200之間的數，求它們的最大值程序如下： Private Sub Command1_Click()Max = 100 For i = 1 To 10 x = int【 】 Print x;If x ＞ Max Then Max=x Next i Print Print ”最大值=“;Max End Sub 45設a=10，b=5，c=1，執行語句Print a ＞b ＞ c后，窗體上顯示的是()(單)A.True B.False C.1 D.出錯信息

(46)在窗體上建立通用對話框需要添加的控件是

A)Data控件 B)From控件 C)CommonDialog控件 D)VBComboBox控件

(47)在Visual Basic中，要將一個窗體加載到內存進行預處理但不顯示，應使用的語句是 A)Load B)Show C)Hide D)Unload

48)Sub過程與Function過程最根本的區別是

A)Sub過程可以用Call語句直接使用過程名調用，而Function過程不可以

B)Function過程可以有形參，Sub過程不可以

C)Sub過程不能返回值，而Function過程能返回值 D)兩種過程參數的傳遞方式不同

49保存一個工程至少應保存兩個文件，這兩個文件分別是）A)文本文件和工程文件 B)窗體文件和工程文件 C)窗體文件和標準模塊文件 D)類模塊文件和工程文件

50.當對命令按鈕的Picture屬性裝入.bmp圖形文件后，命令按鈕上并沒有顯示所需的圖形，原因是沒有對某個屬性設置為1，該屬性是

A)MousePicture B)Style C)DownPicture D)DisabledPicture

51假設變量bool_x是一個布爾型(邏輯型)的變量，則下面正確的賦值語句是）A)bool_x=”False“ B)bool_x=.False.C)bool_x=#False# D)bool_x=False

52.設S=“中華人民共和國”，表達式Left（S,1）+Right（S,1）+Mid（S,3,2）的值為（）A)“中華民國”

B)“中國人民”

C)“中共人民”

D)“人民共和” 53下列表達式的值為2123的是（）

A)Val(”123asd“)& 2000 B)Val(”123asd“)+ 2000 C)Str(123)& ”2000“ D)Str(123)+”2000“ 54假設在窗體上建立了一個通用對話框，其名稱為CommonDialog1，然后畫一個命令按鈕Command1,并編寫如下事件過程： Private Sub Command1_Click()CommonDialog1.Flags=4 CommonDialog1.Filter=”all files(*.*)|*.*|text Files(*.Txt)|*.txt|Batch Filse(*.bat)|*.bat“ CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序運行后，單擊命令按鈕，將顯示一個“打開”對話框，此時在“文件類型”對話框中顯示的是（）

A)All Files(*.*)B)Text Files(*.Txt)C)Batch Files(.bat)D)不確定

55當運行程序時，系統自動執行啟動窗體的某個事件過程。這個事件過程是（）A)Load B)Click C)Unload D)GotFocus 56.無論何控件，都具有一個共同屬性。這個屬性是（）A)Text B)Font C)Name D)Caption 57.在一行內寫多條語句時，語句之間要用某個符號分隔。這個符號是（）A)，B)；

C)、D)：

58.表達式12000 + ”129“ & 200的值是

A)12329 B)”12129200“ C)”12000129200“ D)”12329“ 59.Visual Basic是一種面向對象的程序設計語言，構成對象的三要素是（）

A)屬性、控件和方法 B)屬性、事件和方法 C)窗體、控件和過程 D)控件、過程和模塊

60表達式String(1,”I am student“)+ Replace(”am harass“,”rass“,”ppy“)& ”!“的值是（）A)”I am happy!“ B)”I am student I am s am harass studentam happy!“ C)”I am student am harass!“ D)”I am student am happy!“ 61.引用列表框（List1）最后一個數據項應使用的表達式是（）A)List1.List(List1.ListCount)B)List1.List(List1.ListCount-1)C)List1.List(ListCount)D)List1.List(ListCount-1)62.以下屬性和方法中，可重定義坐標系的是）

A)DrawStyle屬性 B)DrawWidth屬性 C)Scale方法 D)ScaleMode屬性 63.下面說法不正確的是()A)滾動條的重要事件是Change和Scroll B)框架的主要作用是將控件進行分組，以完成各自相對獨立的功能 C)組合框是組合了文本框和列表框的特性而形成的一種控件

D)計時器控件可以通過對Visible屬性的設置，在程序運行期間顯示在窗體上

64.在窗體上畫一個名稱為Check1復選框，在程序運行的過程中，若選中復選框，則Check1.value的值是（）A)True B)2 C)0 D)1 65.下列關于過程敘述不正確的是（）

A)過程的傳值調用是將實參的具體值傳值遞給形參 B)過程的傳址調用是將實參在內存的地址傳遞給形參

C)過程的傳值調用參數是單向傳遞的，過程的傳址調用參數是雙向傳遞的 D)無論過程傳值調用還是過程傳址調用，參數傳遞都是雙向的

66.為了使標簽能自動調整大小以顯示全部文本內容，應把標簽的【 】屬性設置為true。67.要想在文本框中顯示垂直滾動條，必須把scrollbars屬性設置為2，同時還應把【 】屬性設置為true。

68.假定有一個文本框，其名稱為text1，為了使該文本框具有焦點，應執行的語句是【 】.setfocus。

69.假定有一個名為pic2.bmp的圖形文件，要在運行期間把該文件裝入一個圖片框，應執行的語句為 圖片控件名.picture=【

】。

70.為了能自動放大或縮小圖像框中的圖形以與圖像框的大小相適應，必須把該圖像框的【 】屬性設置為true。

71.窗體、圖片框或圖像框中圖形通過對象的【 】屬性設置。72.計時器事件之間的間隔通過【

】屬性設置。

73.有時候要暫關閉計時器，這可以通過【 】屬性設置為false來實現。74.設a=sqr(2),則語句Print format$(a,”000.0“)的輸出結果是【 】。75.設a=sqr(3),則語句Print format$(a,”###.0“)的輸出結果是【 】。76.VB應用程序通常由3類模塊組成，即窗體模塊、【 】模塊和類模塊。

77在窗體上畫兩個文本框和一個命令按鈕，然后在命令按鈕的代碼窗口中編寫如下事件過程：

Private sub command1_click()text1.text=”vb“ text2.text=text1.text

text1.text=”abcd“ End Sub 程序運行后，單擊命令按鈕，文本框text2中顯示的內容為 ________。

78.在保存VB應用程序時，窗體文件和工程文件的擴展名分別為【.】和.vbp。79.下列可作為VB的變量名的是()(單)A.Filename B.A3B C.254D D.Print 80.與下列數學式cos2(c+d)對應的VB表達式是【 】。81.與下列數學式2a(7＋b)對應地VB表達式是【 】。82.在VB中，字符串常量要用【 】括起來。83.下面的事件不屬于鼠標器事件的是()(單)A.MouseDown事件 B.MouseUp事件 C.MouseMove事件 D.Move事件 84.下面的事件不屬于鍵盤事件的是()(單)A.KeyPress事件 B.KeyDown事件 C.KeyUp事件 D.KeyMove事件

85.對以下程序說法不正確的是()(單)Private Sub FileOpen_Click()CommonDialog1.InitDir = ”C:“ CommonDialog1.Filter = ”文本文件 | *.Txt“ CommonDialog1.ShowOpen End Sub A.顯示”文件“打開對話框 B.打開的對話框的初始目錄為C盤根目錄 C.打開的對話框的文件類型為文本文件 D.以上說法都不正確

86.以下程序是求最大公約數和最小公倍數的程序，在【】處填寫合適的關系運算符。Private Sub Form_Click()Dim m1, n1, m, n, r As Integer n1 = InputBox(”輸入自然數n“, ”輸入數“)m1 = InputBox(”輸入自然數m“, ”輸入數“)n = n1 m = m1 If m ＜n Then t = m: m = n: n = t End If r = m Mod n Do While r 【 】 0 m = n n = r r = m Mod n Loop Print ”最大公約數=“, n Print ”最小公倍數= “, m1 * n1 / n End Sub 87.下面是求100以內素數的程序。Private Sub Command1_Click()Dim i As Integer, m As Integer, tag As Boolean

For m = 2 To 100 tag = True For i = 2 To m-1 If m Mod 【 】 = 0 Then tag = False Next i If tag Then Print m Next m End Sub 88.百元買百雞問題： 假定小雞每只5角,公雞每只2元，母雞每只3元。現在有100元錢要求買100只雞，以下程序列出了所有可能的購雞方案。Private Sub Command1_Click()Dim x%, y%, z% For x = 0 To 33 For y = 0 To 50 For z = 0 To 100 If 3 * x + 2 * y + 0.5 * z = 100 And 【 】 Then Picture1.Print x, y, z End If Next z Next y Next x End Sub 89.隨機產生10個100～200之間的數，求它們的最大值程序如下： Private Sub Command1_Click()Max = 100 For i = 1 To 10 x = int【 】 Print x;If x ＞ Max Then Max=x Next i Print Print ”最大值=“;Max End Sub 90.以下是求1～100之間5或7的倍數的和，如下程序段： Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then 【】 End If Next i Print Sum 其中【】處書寫正確的是（）(單)A.Sum = i B.Sum = Sum +i C.Sum = Sum + 5+7 D.以上都不正確 91.要使得在按下鼠標左鍵時，激發mousedown事件，可以設置此事件中的button參數為()(單)

A.0 B.1 C.2 D.4 92.要使得在按下鼠標右鍵時，激發mousedown事件，可以設置此事件中的button參數為()(單)A.0 B.1 C.2 D.4 93.刪除列表框中所有的項目所使用的方法為()(單)A.move B.remove C.clear D.removeitem 94.在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub command1_click()Dim a As String, b As String a = InputBox(”Enter the First integer“)b = InputBox(”Enter the Second integer“)Print b + a End Sub程序運行后，單擊命令按鈕，先后在兩個輸入對話框中分別輸入456和111,則輸出結果是()(單)A.456 B.111 C.567 D.111456 95.傳值：形參得到的是實參的值，形參值的改變不會影響實參的值。在定義形參前加關鍵字Byval。

96.以下利用SUB關鍵字定義的子過程Rate，其調用格式不正確的是()(單)A.call Rate(12,56)B.Rate(12,56)C.Rate 12,56 D.以上A和C正確

97.以下程序的作用是單擊Check1檢查框將使得Text1文本框的字體在”加粗“和”常規“之間進行切換。

Private Sub Check1_Click()Text1.FontItalic = Not Text1.FontItalic End Sub 98.窗體中有一個名稱為Slider1的可選擇性刻度滑塊控件，要設置它的如下屬性值，可以編寫程序()(單)(1)Slider控件的滑塊處于最小位置時值為8(2)Slider控件的滑塊處于最大位置時值為72(3)單擊Slider控件兩端箭頭時，滑塊的增量值為2(4)單擊Slider控件的空白處時，滑塊的增量值為8 A.Slider1.Min = 8： Slider1.Max = 72：

Slider1.SmallChange =2： Slider1.LargeChange = 8 B.Slider1.Min = 2： Slider1.Max = 8：

Slider1.SmallChange = 72： Slider1.LargeChange = 8 C.Slider1.Min = 8： Slider1.Max = 72：

Slider1.SmallChange = 8： Slider1.LargeChange = 2 D.Slider1.Min = 72： Slider1.Max = 8：

Slider1.SmallChange = 2：

Slider1.LargeChange = 8 99.以下能判斷指針是否指向文件尾的函數是()(單)A.BOF B.LOC C.LOF D.EOF 00.窗體的過程Form_MouseDown(Button As Integer, Shift As Integer, X As Single, YAs Single)，有4個參數，關于這些參數，正確的描述是()(單)A.通過Button參數判定當前按下的是鍵盤上哪一個鍵 B.Shift參數只能用來確定是否按下Shift鍵

C.Shift參數只能用來確定是否按下Alt和Ctrl鍵 D.參數x,y用來設置鼠標當前位置的坐標

01.設組合框Combo1中有3個項目，則以下能刪除最后一項的語句是()(單)A.Combo1.RemoveItem Text B.Combo1.RemoveItem 2 C.Combo1.RemoveItem 3 D.Combo1.RemoveItem Combo1.Listcount

1-10ADADA ABADA 11-20CCCDA AACBC 21-30ACDBB CDCCC 31-40ABDAB fontname BAAC 41-45AAC RND*101+100或100+RND*101或RND()*101+100或100+RND()*101 B 46-50CACBB 51-55DBBAA 56-60CDBBA 61-65BCDDD 66Autosize 67Multiline 68Text1 669loadpicture(”pic2.bmp")70Stretch 71Picture 72Interval 73Enabled 74 001.4 75 1.7 76【標準】77VB 78frm 79B 80cos(2*(c+d))81 2*a*(7+b)82【雙引號】83D 84D 85D 86<> 87【i】88x+y+z=100 89RND*101+100或100+RND*101或RND()*101+100或100+RND()*101 90B 91-95BBCDV 96-00BVADD 01B 13

第四篇：算法與程序設計

《算法與程序設計》教學中實施研究性學習探步

作者：趙濮民

摘要：研究性學習是教育科研領域中一個嶄新的課題。信息技術教學作為以培養創新精神、研究能力和實踐能力為目標取向的必修課程，它強調讓學生通過研究性學習，提出問題，收集材料，對研究性課題進行探索、分析、研究，最后基于問題解決模式，在實踐操作中培養學生科學的態度和價值觀以及創新精神、創新思維、創造能力，并學會解決生活中與信息技術學習有關的實際問題。職業學校的學生，不僅應具有獨立接受知識的能力，更應具有獨立探索知識的能力，由“研究性學習”補充原有的“接受式學習”，使學習方式更趨完善，只有當這兩種學習方式結合起來，優勢互補，才能使基礎教育適應時代對人才培養的要求。

關鍵詞：程序設計；研究性學習；求真；求全；求變；求新；優勢互補

《算法與程序設計》是職業學校信息技術教學中的一個重點，也是難點。傳統的程序設計教學以老師講授型為主，由于算法與程序設計的內容邏輯性強，普遍認為在程序設計教學中難以實施研究性學習。

研究性學習是以“培養學生具有永不滿足、追求卓越的態度，培養學生發現問題、提出問題、從而解決問題的能力”為基本目標，以學生從學習中獲得作品設計與制作方法的困惑為方向，以在提出問題和解決問題的全過程中學習到算法與程序設計為學習方法的課程。經過反復研究，我們認為研究性學習可以應用于程序設計教學中。實施研究性學習的關鍵是要確定一個目標，要鼓勵學生主動地發現問題，并且通過探究或實踐活動去試圖解決問題。在課題研究的過程中采用分組交流討論、查閱資料、協作探究、歸納總結等方式，一步步引領學生深刻掌握算法與程序設計的精髓。

一、通過研究性學習，重構算法知識體系，要求真 研究性學習是學生在老師的指導下，結合真實生活，選定主題，然后搜集相關材料，對材料進行歸納、加工處理、分析、總結，得到相應結論的學習活動。在《算法與程序設計》教學中，根據教學內容，經過反復研究，確定了研究主題《搜索算法的應用研究》和《動態規劃算法的解題應用研究》，并根據學生的自愿報名成立了兩個研究小組。然后各小組根據自己研究的算法，重新整理相應的知識，對知識進行認知、歸納、總結。如《搜索算法的應用研究》小組，對搜索算法從以下幾方面進行整理：

1、搜索算法的算法思想、分類；

2、深度優先搜索的算法思想與算法結構；

3、廣度優先搜索的算法思想與算法結構；

4、深度優先搜索的優先策略；

5、廣度優先搜索的優化策略；

6、深度優先搜索與廣度優先搜索的異同。學生通過對搜索算法知識進行整理、分類、小結，加深了對搜索算法的理性理解與感性認知。

二、通過研究性學習，同學之間取長補短，要求全

每個學生都有所長，也有所短，研究性學習一個重要的特點就是：分工合作，共同討論，共同提高，使參與的學生全面發展。我們的“搜索算法的應用研究”小組共有五個成員，根椐學生的特點、特長，對他們進行分工，每位學生研究上述其中一個問題，然后整個小組一起討論，每位學生介紹自己的研究情況、研究成果，然后其他同學進行補充，發表自己的見解，這樣每個同學都使自己的研究內容得到補充，同時也學習到了其他同學研究方面的知識，可以取長補短，共同提高，得到全面發展。

三、通過研究性學習，總結算法的應用規律，要求變

研究性學習的目的，是要求學生搜集與主題有關的資料，歸納整理相關資料，根據相關材料和知識，對主題進行研究，提出自己的觀點或結論。我們在程序設計教學中進行算法專題研究也是這樣，除要求學生歸納、整理專題算法知識外，還要總結出算法的應用規律、應用算法解題的步驟和算法的框架，能根據實際情況，隨機應變。如在“動態規劃的應用研究”中，學生總結出：動規劃是解符合“無后效性原則”的最優問題的一種算法思想；用動態規劃解題的一般步驟是：（1）判斷題目是否為求最優問題，是否符合“無后效性原則”；（2）確定如果劃分階段；（3）確定每個階段有幾種狀態；（4）找出狀態轉移方程和邊界條件；（5）用算法語言實現算法過程。又如在“搜索算法的應用研究”中，研究小組的同學總結出：（1）廣度優先搜索算法通常應用于解最少步數問題，而深度優先搜索算法則通常用來解所有路徑問題；（2）深度優先搜索和廣度優先搜索都是搜索算法，前者時間復雜度較大，而后者則占用的內存較大；（3）深度優先搜索在實現時用遞歸或用堆棧來實現，而廣度優先搜索是用隊列來實現，實現兩種算法所用的數據結構不同；（4）深度優先搜索和廣度優先搜索都是搜索算法，但兩者的算法結構有較大的不同。學生通過自己對算法應用規律的總結，對算法的應用得到升華，進一步提高算法的應用能力和程序設計能力。

四、通過研究性學習，提高分析、歸納和綜合能力，要求新

對算法的專題研究，不僅要對算法理論進行總結，算法應用的研究也是很重要的一方面，通過算法的解題應用，既提高了學生分析問題的能力，也加深了學生對算法的理解，提高了學生的算法應用能力，進而得到對學生創新能力的培養。另外，我們在算法研究過程中，要求學生透切理解算法內容，用算法語言準確描述算法，通過這種途徑，進一步加深學生對算法的理解，同時也提高了學生的算法表達能力和歸納、總結的能力。

通過對算法進行專題研究，可以進一步加深學生對算法知識的理解，也可以提高學生的算法應用能力和程序設計能力。實踐告訴我們：在整個研究過程中要注意以下幾個問題：

1、課題不宜太大。研究課題的確定是研究性學習實施過程中重要的一環，課題選擇恰當與否，直接關系到整個課題研究的成敗。在程序設計教學中進行研究性學習活動，選題要遵循下面的原則：（1）課題的范圍不宜太大；（2）有一定的應用價值；（3）結合學生的實際。一個好的開始是成功的一半，在研究性學習活動中也是如此。

2、要理論研究與算法應用相結合。對算法的專題研究，算法應用是重點。在算法知識歸納總結的基礎上，重點應研究算法應用的一般規律、算法結構、應用算法解題的一般步驟等。不應該只是對算法理論的空洞論述，否則效果不好、意義也不大。

3、充分發揮教師的引導作用、學生的主體作用。在算法研究活動中，應充分發揮教師的引導和指導作用，既不能放任自由，也不能包辦代替，要充分發揮學生的主體作用。當學生遇到問題和困難時，老師應當引導和啟發學生，讓學生去探索和研究，而不是直接告訴學生答案，老師始終是學生的引導者，學生是真正的參與者，使學生通過算法研究，加深對算法的理解，提高算法應用能力和程序設計能力。

職業學校的學生，不僅應具有獨立接受知識的能力，更應具有獨立探索知識的能力，由“研究性學習”補充原有的“接受式學習”，使學習方式更趨完善，只有當這兩種學習方式結合起來，優勢互補，才能使基礎教育適應時代對人才培養的要求。

第五篇：VB程序設計試題及答案(一)

VB程序設計試題及答案

（一）一、單選題

1.VB6.0是一種面向 B 的編程環境。

(A)機器(B)對象

(C)過程(D)應用

2.要使FormI窗體的標題欄顯示“歡迎使用VB”，以下 D 語句是正確的。

(A)Forml.Caption=“歡迎使用VB”

(B)Forml.Caption='歡迎使用VB'

(C)Forml.Caption=歡迎使用VB

(D)Forml.Caption=“歡迎使用VB”

3.若要使命令按鈕不可操作，要對 A 屬性進行設置。

(A)EnabIed(B)Visible

(C)Backcolor(D)Caption

4.如果在窗體上已經創建了一個文本框對象TextI，可以通過 C 事件獲得輸入鍵值的ASCII碼。

(A)Change(B)LostFocus

(C)KeyPress(D)GotFocus 5.下面 A 是合法的變量名。

(A)X_yz(B)123ab。(C)integer(D)X-Y 6.以下關系表達式 中，其值為False的是 A。

(A)“ABC”>“AbC”(B)“女”>“男”

(C)“BASIC”=UCase(“basic)(D)”123“<”23“

7.為了給x、y、z三個變量賦初值1，下面正確的賦值語句是 A。

(A)x=1:y=1:z=1(B)x=1,y=1,z=

1(C)x=y=z=1(D)xyz=1

8.VB提供了結構化程序設計的三種基本結構，三種基本結構是 D。

(A)遞歸結構、選擇結構、循環結構

(B)選擇結構、過程結構、順序結構

(C)過程結構、輸入輸出結構、轉向結構

(D)選擇結構、循環結構、順序結構

9.下面If語句統計滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數，不正確的語句是 D。

(A)If sex=”男“ And age=4O And InStr(duty，”教授“)>O Then n=n+l

(B)If sex=”男“ And age=4O And(duty=”教授“ Or duty=”副教授“)Then n=n+l

(C)If sex=”男“ And age=4O And Right(duty，2)=”教授“ Then n=n+l

(D)If sex=”男“ And age=4O And duty=”教授“ And duty=”副教授“ Then n=n+l

10.下列關于Do…Loop循環結構執行循環次數的描述正確的是 D。(A)Do While…Loop循環和Do…Loop Until循環至少都執行一次(B)Do While…Loop循環和Do…Loop Until循環可能都不執行

(C)Do While…Loop循環至少執行一次和Do…Loop Until循環可能不執行

(D)Do While…Loop循環可能不執行和Do…Loop Until循環至少執行一次

11.以下 B 是正確的For…Next結構。

(A)For x=1 To Step 10(B)For x=3 To-3 Step-3

…

…

Next x Next x(C)For x=1 To 10(D)For x=3 to 10 step re: … …

Next x Next y

If i=10 Then GoTO re

12.如下數組聲明語句，B 是正確的。

(A)Dim a[3,4] As Integer

(B)Dim a(3,4)As Integer

(C)Dim a(n,n)As Integer

(D)Dim a(3 4)As Integer

13.下列語句中（假定變量n有值），能正確聲明可變長數組的是 A。

(A)Dim a()As Integer(B)Dim a()As Integer

ReDim a(n)ReDim a(n)As String

(C)Dim a()As Integer(D)Dim a(10)As Integer ReDim a(3, 4)ReDim a(n+10)

ReDim Preserve a(4, 4)

14.要想從子過程調用后返回兩個結果，下面子過程語句說明合法的是

C。

(A)Sub f2(ByVal n%, ByVal m%)(B)Sub f1(n%, ByVal m%)

(C)Sub f1(n%, m%)(D)Sub f1(ByVal n%, m%)

15.設有如下程序段：

Public Sub F1(n%)

…

n=3*n+…

End Sub

Private Sub Command1_Click()

Dim n%, m%

n=3

m=4

…

‘調用F1語句

…

End Sub

則在Command1_Click事件中有效的調用語句是 B。(A)Call F1(n+m)(B)Call F1(m)(C)Call F1(5)(D)Call F1(m+5)

16.用來設置粗體字的屬性是 C。

(A)FontItalic(B)FontName(C)FontBold(D)FontSize

17.假定定時器的Interval屬性為1000，Enabled屬性為True，調用下面的事件過程，程序運行結束后變量x的值為 D。

Dim x As Integer

Sub Timer1_Timer()

For i=1 to 10

x=x+Next i

End Sub

(A)1000(B)10000(C)10(D)以上都不對

18.在下列關于通用對話框的敘述中，錯誤的是 B。

(A)CommonDialog1.ShowFont顯示“字體”對話框

(B)在“打開”或“另存為”對話框中，用戶選擇的文件名可以經FileTitle屬性返回

(C)在“打開”或“另存為”對話框中，用戶選擇的文件名機器路徑可以經FileName屬性返回

(D)

19.當用戶按下并且釋放一個鍵后會觸發KeyPress、KeyUp和KeyDown事件，這三個事件發生的順序是 C。

(A)KeyPress、KeyDown、KeyUp(B)KeyDown、KeyUp、KeyPress(C)KeyDown、KeyPress、KeyUp

(D)沒有規律

20.在下面關于順序文件的描述中，正確的是 C。(A)順序文件中每行的長度都是相同的。(B)可以通過編程對文件中的某行方便地進行修改

(C)數據以ASCII碼的形式存放在文件中，所以可通過記事本打開(D)文件的組織結構復雜 21.隨機文件是因為 C。

(A)文件中的內容是通過隨機數產生的(B)文件中的記錄號通過隨機數產生的(C)可對文件中的記錄根據記錄號隨機地讀/寫(D)文件的每條記錄的長度是隨機的

22.從磁盤上讀入一個文件名為“c:t1.txt”順序文件，如下 A 正確。

(A)F=“c:t1.txt”

Open F For Input As #1(B)F=“c:t1.txt”

Open “F” For Input As #2(C)Open “c:t1.txt” For Input As #1

(D)Open c:t1.txt For Input As #2

23.坐標度量單位可由通過來 D 改變。

(A)Drawstyle屬性(B)DrawWidth屬性

(C)Scale方法(D)ScaleMode屬性

24.指令“Circle(1000, 1000), 500, 8,-6,-3”將繪制 A。(A)畫圓(B)橢圓(C)圓弧(D)扇形 25.用ADO數據控件建立與數據源的鏈接，設置操作過程按 A 順序進行。

①選擇數據源連接方式；②選擇數據庫類型；③指定數據庫文件名；④指定記錄源

(A)① ② ③ ④(B)② ③ ④ ①

(C)③ ① ② ④(D)① ③ ② ④

二、填空題

1．VB是建立在BASIC語言基礎上的可見 化編程語言或編程環境。

2．在窗體上已建立多個控件如Text1、Label1、Command1，若要程序一運行時焦點就定位在Command1控件上，應對Command1控件設置 TabIndex 屬性的值為 0。

3．在VB中，1234、123456&、1.2346E+5、1.2346D+5這4個常數分別表示 整形、長整形、單精度、雙精度 類型。4．表示x是5的倍數或是9的倍數的邏輯表達式為 x mod 5 = 0 or x mod 9=0。

5．數組聲明時下標下界默認為0，利用 Opation Base 1 語句可以使下標為1。

6．傳地址方式是當過程被調用時，形參和實參共享 存儲單元。7．窗體中的模塊級變量應在 窗口模塊 段聲明，它作用于該窗體的全局范圍。

8．當用戶單擊滾動條的空白處時，滑塊移動的增量值由 LargeChange 屬性決定。

9．如果菜單標題的某個字母前輸入一個“&”符號，那么該字母就成了熱鍵字母；如果建立菜單時在標題文本框中輸入一個“1)

x(0)= 1

x(1)= 1

For i = 2 To n1)+ x(i1

Print x(i)，If(i + 1)Mod 5 = 0 Then Print

Next End Sub

輸出結果： 1 2 3 8 13 21 34(2)Public Function f(m%, n%)

Do While m< >n

Do While m> n: m=m-n: Loop

Do While m< n: n=n-m: Loop

Loop

f=m

End Function

Print f(24, 18)

End Sub 輸出結果：6(3)

Public x as Integer

Private Sub Fomr_Click()

Dim x as Integer

x=10

print ＂x=＂;x

End Sub 輸出結果: x=10 2.補充程序

(1)以下是冒泡法排序的程序，要求將數組里的數按升序排列，將其補充完整。

Private Sub Command1_Click()

Dim a(), iMin%, n%, i%, j%, t%

a = Array(8, 6, 9, 3, 2, 7)

n = ubound(a)' 獲得數組的下標上界

For i = 0 To n-1

For j = 0 To n-i-1

If a(j)>a(i)Then

t = a(j): a(j)= a(j + 1): a(j + 1)= t

End If

Next j

Next i

For i = 0 To n Print a(i);Next i End Sub

(2)用遞歸的方法求n!Private Sub Command1_Click()Print ”fac(4)=“;fac(4)End Sub

Public Function fac As Integer If n = 1 Then

fac = 1 Else

Fac=fac*n End If End Function

VB程序設計試題及答案

（三）一、單選題 1.Visual Basic是一種面向對象的可視化程序設計語言，采取了 A 的編程機制。

(A)事件驅動(B)按過程順序執行(C)從主程序開始執行(D)按模塊順序執行

2.若要使標簽控件顯示時不覆蓋其背景內容，要對 D 屬性進行設置。

n=n*j n=n*j

Next j Next j

Print n Print n Next I Next i(C)n=1(D)n=1(A)Backcolor(B)BorderStyle(C)Forecolor(D)Backstyle 3.在Visual Basic中最基本的對象是 C，它是應用程序的基石，是其他控件的容器。

(A)文本框(B)命令按鈕(C)窗體

(D)標簽

4.要判斷在文本框是否按下Enter鍵，應在文本框的 D 事件中判斷。(A)Change(B)KeyDown(C)Click(D)KeyPress 5.數學表達式3≤x

(A)3<=x<10(B)3<=x AND x>10(C)x>=3 Or x<10(D)x>=3 AND x<10 6.Rnd函數不可能為下列 B 值。

(A)0(B)1(C)0.1234(D)0.0005 7.賦值語句:a=123+Mid(”123456“，3，2)執行后，a變量中的值是 D。

(A)”12334“(B)123(C)12334(D)157 8.對于語句If x=l Then y=l，下列說法正確的是 C。

(A)x=l和y=l均為賦值語句

(B)x=l和y=l均為關系表達式

(C)x=l為關系表達式，y=l為賦值語句

(D)x=l為賦值語句，y=l為關系表達式

9.下面程序段表示求兩個數中的大數，D 不正確。

(A)Max=IIf(x>y，x，y)(B)If x>y Then Max=x Else Max=y(C)Max=x(D)Ify>=x Then Max=y If y>=x Then Max=y Max=x 10.當在文本框中輸入“ABCD”4個字符時，窗體上顯示的是 C。

Private Sub Text1_Change()Print Text1;End Sub(A)ABCD(B)A(C)AABABCABCD(D)A

B AB

C ABC

D ABCD 11.下列哪個程序段不能分別正確顯示1！、2！、3！、4！的值 B。(A)For i=1 to 4(B)For i=1 to 4

n=1 For j=1 to i

For j=1 to I n=1

For j=1 to4 j=1

n=n*j Do While j<=4

Print n n=n*j Next j Print n j=j+1

Loop

12.如下數組聲明語句，則數組a包含元素的個數有 A。

Dim a(3,-2 to 2, 5)

(A)120(B)75(C)60(D)13 13.以下程序的輸出結果是 D。

Dim a

a=Array(1, 2, 3, 4, 5, 6, 7)For i=Lbound(a)to Ubound(a)

a(i)=a(i)*a(i)Next i Print a(i)

(A)49(B)0(C)不確定(D)程序出錯

14.在過程中定義的變量，若希望離開該過程后，還能保存過程中局部變量的值，則應使用關鍵字 D 在過程中定義局部變量。

(A)Dim(B)Private(C)Public(D)Static 15.如下程序，運行的結果是 B。

Dim a%, b%, c%

Public Sub p1(x%, y%)

Dim c%

x=2*x: y=y+2: c=x+y End Sub

Public Sub p2(x%, ByVal y%)

Dim c%

x=2*x: y=y+2: c=x+y End Sub

Private Sub Command1_Click()

a=2: b=4: c=6

Call p1(a, b)

Print “a=”;a;“b=”;b;“c=”;c

Call p2(a, b)

Print “a=”;a;“b=”;b;“c=”;c

End Sub

(A)a=2 b=4 c=6(B)a=4 b=6 c=10 a=4 b=6 c=10 a=8 b=8 c=16(C)a=4 b=6 c=6(D)a=4 b=6 c=14 a=8 b=6 c=6 a=8 b=8 c=6 16.復選框的Value屬性為1時，表示 B。

(A)復選框未被選中(B)復選框被選中

(C)復選框內有灰色的勾(D)復選框操作有誤

17.下面關于菜單的說法中，錯誤的是 B。

(A)每個菜單項都是一個控件與其他控件一樣也有自己的屬性和事件

(B)除了Click事件之外，菜單項還能響應其他的，如DbClick事件

(C)菜單項的快捷鍵不能任意設置

(D)在程序執行時，如果菜單項的Enabled屬性為False，則該菜單項變成灰色，不能被用戶選擇

18.下面關于多重窗體的敘述中，正確的是 B。(A)作為啟動對象的Main子過程中能放在窗體模塊中(B)如果啟動對象是Main子過程，則程序啟動時不加載任何窗體，以后由該過程根據不同情況決定是否加載或加載哪一個窗體

(C)沒有啟動窗體，程序不能執行(D)以上都不對

19.當用戶將焦點移到另一個應用程序時，當前應用程序的活動窗體將 D。(A)發生DeActivate事件(B)發生LostFocus事件

(C)發生DeActivate和LostFocus事件(D)DeActivate和LostFocus事件都不發生 20.順序文件是因為 D。

(A)文件中的數據按每行的長度從小到大排序好的(B)文件中的數據按某個關鍵數據項從大到小進行排序(C)文件中的數據按某個關鍵數據項從小到大進行排序(D)數據按進入的先后順序存放的，讀出也是按原寫入的先后順序讀出

21.文件號最大可取值為 B。

(A)255(B)511(C)512(D)256 22.Print #1, STR$1中的Print是 A。

(A)文件的寫語句(B)在窗體上顯示的方法

(C)子程序名(D)以上均不是

23.以下的屬性和方法中 C 可重定義坐標系。(A)Drawstyle屬性(B)DrawWidth屬性

(C)Scale方法(D)ScaleMode屬性 24.封閉圖形的填充方式由下列 C 屬性決定。(A)DrawStyle, DrawMode(B)AutoRedraw, ClipControls

(C)FillStyle, FillColor(D)ForeColor, BorderColor 25.下列字符串中，D 不包含在ADO數據控件的ConnectionString屬性中。(A)Microsoft Jet 4.0 OLE DB Provider(B)Data Source=C:Mydb.mdb(C)Persist Security Info=False(D)2-adCmdTable

二、填空題

1．在代碼窗口對窗體的BorderStyle、MaxButton屬性進行了設置，但運行后沒有效果，原因是這些屬性 在運行時設計是無效的。

2．在文本框中，通過 SelStart 屬性能活得當前插入點所在的位置。

3．表達式Ucase(Mid(“abcdefgh”, 3, 4))的值是 CDEF。4．已知a=3.5，b=5.0，c=2.5，d=True，則表達式：a>=0 And a+c>b+3 Or Not d的值是 False。

5．要獲得動態數組的上界通過 UBound 函數，下界通過 LBound 函數。

6．由Array函數建立的數組，其變量類型必須是 variant 類型。

7．VB中的變量按其作用域分為全局變量、模塊變量和 局部變量 變量。

8．復選框的 Value 屬性設置為2——Grayed時，變成灰色，禁止用戶選擇。

9．滾動條響應的重要事件有 Scroll 和Change。10．假定有一個通用對話框控件CommonDialog1，除了用COmmonDialog1.Action=3顯示顏色對話框之外，還可以用 showcolor 方法顯示。

11．窗體Form1的左上角坐標為(-200, 250)，窗體Form1的右下角的坐標為(300,-150)，則X軸的正向向 右，Y軸的正向向 上。

12．使用Circle方法畫扇形，起始角、終止角取值范圍為 0~2π。

13．在運行狀態改變ADO數據控件的數據源連接屬性后，必須使用 Refresh 方法激活這些變化。14．VB中工程文件的擴展名為 vbg。

15．如果在窗體上已經創建了一個文本框對象Text1，可以通過 Keypress 事件獲得輸入鍵值的ASCII碼。16．VB中對象的三要素是 屬性、事件 和 方法。

三、編程應用題 1.程序閱讀

(1)Private Sub Command1_Click()

Dim s as String, i%

s=＂abcd＂

For i=Len(s)to 1 step-1 Print Mid(s, i, 1)Next i End Sub 輸出結果：

d c b a(2)Sub Swap1(ByVal x%, ByVal y%)Dim t% t = x: x = y: y = t End Sub Sub Swap2(ByRef x%, ByRef y%)Dim t% t = x: x = y: y = t End Sub Sub Command1_Click()

Dim a%, b% a = 10: b = 20 Print ”調用Swap1前 a和b的值為：“;a;b Call Swap1(a, b)Print ”調用Swap1后按傳值方式 a和b的值為：“;a;b a = 10: b = 20 Call Swap2(a, b)Print ”調用Swap2后按傳地址方式 a和b的值為：“;a;b End Sub 輸出結果

調用Swap1前 a和b的值為：10 20 調用Swap1后按傳值方式 a和b的值為：10 20 調用Swap2后按傳地址方式 a和b的值為： 20 10(3)Private Sub Command1_Click()

Dim x%, y%, z%

x=242: y=44

z=x*y

Do Until x=y

If x>y Then x=x-y Else y=y-x

Loop

Print x, z/x End Sub

輸出結果: 22 484 2.補充程序

(1)以下是求1～18之間某個數的階乘的程序，具體的數值n由滾動條HScroll1獲得，結果顯示在窗體下部的兩個Label標簽里。補充完整如下程序。

Private Sub HScroll1_Change()Dim i As Integer, s As Double s = 1

n = Hscroll1.Value If n <> 0 Then For i = 1 To n s = s*i Next i End If

Label2.Caption = n & ”!= " Label3.Caption = s End Sub

(2)以下程序的功能是：已知數組a，刪除數組中某個元素。

Private Sub Command1_Click()

Dim a(), key%, i%, j%

a=Array(1, 6, 8, 3, 5, 9, 10, 2, 4, 7)

key=9

For i=0 to UBound(a)If a(i)=9 Then

For j=i+1 to UBound(a)a(j)=a(j+1)

Next j

ReDim a(j)=a(i)

MsgBox(＂刪除完成＂)

Exit Sub End If

Next i

MsgBox(＂找不到要刪除的元素＂)End Sub

讀程序并填空 1．給定程序的功能是輸出一組數的最大值和最小值，在畫線處填入適當內容，將程序補充完整。

Private Sub

End Function

4．給定程序的功能是建立并輸出除主、副對角線上的元素為5外，其余元素都為1的方陣，在畫線處填入適當內容，將程序補充完整。Command1_Click()

X=Array(-112, 18, 20,-5,-100, 82, 91, 56, 78, 99, Private Sub Command1_Click()100)

Max=x(0)

Min=x(0)

For I=1 To 10

If x(I)>Max Then

_____________

End if

If x(I)>Min Then

_____________

End if

Next I

Print “MAX=”;Max , “MIN=”;Min

End Sub 2．若A2+B2+C2 , 則A，B，C稱為一組勾股數，如下程序是找出100以內的所有勾股數，并按A，B，C順序輸出。請在畫線處填入適當內容。

Private Sub Command1_Click()

For A=2 To 99

For B=A+1 To 100

C=_____________

If ____________ And C<=100 Then

Print A, B, C

End If

Next B Next A End Sub 3．本程序的功能是計算輸入數的階乘，請在畫線處填上適當的內容使程序完整。

Private Sub form_Click()

Do

N=Val(InputBox(“請輸入一個大于0的整數：”))

Loop Until N>0

Print Fact(N)

End Sub

Private Function Fact(M)

Fact= _______________（1分）

For I=2 To ____________（2分）

Fact = ______________（2分）

Next I

Dim A(10,10)

For I=1 To 10

For J=_______________（2分）

If __ _____________ Then A(I, J)=5 Else A(I, J)=1（1分）Next J Next I For I=1 To 10

For J=1 To 10

Print A(I, J);Next J

__ __________

（2分）Next I

End Sub

編寫一個程序，在程序運行時輸入一個0—99999之間的整數，判斷輸入的是幾位數，并在窗體輸出結果。

編寫一個程序，在窗體上添加兩個命令按鈕，運行程序時，單擊[開始]按鈕，在窗體輸出1~100之間所有能被3整除的數。單擊[結束]按鈕，結束程序。