VB上機考試模擬試題

1、VB上機考試模擬試題 VB程序設(shè)計上機考試題的題型，分為兩種類型： 程序修改題 要求考生新建一個工程，在該工程中打開已有模塊文件Modify.Bas，按照題意修改該模塊中的函數(shù)或過程。為檢測所作修改是否正確，可以在新建工程中添加一些控件或編制事件過程，用以調(diào)用模塊中函數(shù)或過程的語句。 其中的程序填空題，要求考生刪除已有源代碼中標(biāo)記“ (x) ”的部分，根據(jù)題意填入適當(dāng)?shù)拇a，其它部分不得改動； 其中的程序改錯題：要求考生找出注釋語句“'* 錯誤 x *”后的一個語句中的錯誤，并用正確的語句替換之，不允許改動其他的語句（也不得加行或減行）。 修改結(jié)束后，要保存工程，文件名一般按缺省，模塊

2、文件名不得改變。 程序設(shè)計題 要求考生打開已有工程文件Design.vbp，按題意要求在對象窗口修改控件屬性、刪除代碼窗口中中標(biāo)記“ (x) ”的部分，根據(jù)題意填入適當(dāng)?shù)拇a。程序修改題操作指導(dǎo)程序填空題： 在考生目錄中，已有模塊文件Modify.Bas，模塊中的total過程是計算s=7+77+777+（和式中最后一項有n個7），但不完整，請在橫線上填入必要的內(nèi)容，使其完整。 Modify.Bas模塊中的number函數(shù)是求出n個7組成的數(shù)。請建立工程將Modify.Bas模塊加入工程中進(jìn)行調(diào)試。操作： 新建工程，在“工程”菜單中選擇“添加模塊”子菜單，在所選擇的如下所示的“現(xiàn)存”對話框中，

3、打開考生目錄中的文件“modify.bas”。 模塊modify.bas中的代碼顯示如下，考生應(yīng)根據(jù)題意，對程序做修改。 Option Explicit '禁止使用缺省的數(shù)據(jù)類型（變體），即任何變量都要說明類型。 Public Sub total() Const n = 20 Dim s As Single, i As Integer For i = 1 To n s = s + 編者：需將“ ”刪除后填入“number(i)” Next I Form1.Print "s=" s End Sub Function number( ) As Single 編者：需將“

4、 ”刪除后填入“n as Integer” Dim i As Integer number = 0 For i = 1 To n 編者：需將“ ”刪除后填入“number=number*10+7” Next i End Function 運行調(diào)試 在本題中，為運行調(diào)試，可以在Form1的代碼窗口內(nèi)寫入下列事件過程： Private Sub Form_Click() Call p() End Sub 在Modify.Bas模塊的程序代碼中，考生只能在加下劃線處修改，不得加行或減行。而為運行調(diào)試所編制的代碼，可以由考生決定。如：可以在窗體上添加命令按鈕“Command1”、而將語句“Call p(

5、)”寫在事件過程Command1_Click中，等等。 存盤退出程序改錯題： 在考生目錄中，已有模塊文件Modify.Bas，其中的Calculate過程是產(chǎn)生100個0，99范圍內(nèi)的隨機整數(shù)，統(tǒng)計并顯示個位上的數(shù)字分別為1，2，3，4，5，6，7，8，9，0的數(shù)的個數(shù)。 請建立工程將Modify.Bas模塊加入工程中進(jìn)行調(diào)試，請改正其中的錯誤。 注意：只要修改標(biāo)出出錯位置的下面那一條語句即可，其余代碼不要改動。操作（建立工程、添加模塊的方法與程序填空題的操作相類似）： 新建工程，在“工程”菜單中選擇“添加模塊”子菜單，在“現(xiàn)存”對話框中，打開考生目錄中的文件“modify.bas”。 模塊m

6、odify.bas中的代碼顯示如下，考生應(yīng)根據(jù)題意，對程序做修改。 Public Sub Calculate() Dim a(1 To 100) As Integer, a(1 To 10)As Integer, i As Integer, p As Integer ' 產(chǎn)生100個0，99范圍內(nèi)的隨機整數(shù)，每行10個顯示出來。 For i = 1 To 100 * 錯誤1 * a(i) = Rnd * 100 需改此句為“a(i) = Int(Rnd * 100)” If a(i) < 10 Then Form1.Print Space(2); a(i); Else Form1

7、.Print Space(1); a(i); End If If i Mod 10 = 0 Then Form1.Print Next i ' 統(tǒng)計個位上的數(shù)字分別為1、2、3、4、5、6、7、8、9、0的數(shù)的個數(shù) ' 并將統(tǒng)計結(jié)果保存在數(shù)組元素x(1),x(2),x(10)中，將統(tǒng)計結(jié)果顯示出來 For i = 1 To 100 '* 錯誤2 * p = Int(a(i) / 10) 需改此句為“p = a(i) Mod 10” If p = 0 Then p = 10 '* 錯誤3 * x(p) = x(p) - 1 需改此句為“x(p) = x(p) +

8、1” Next i Form1.Print "統(tǒng)計結(jié)果" For i = 1 To 10 p = i If i = 10 Then p = 0 '* 錯誤4 * Form1.Print "個位數(shù)為" & p & "共" & x(p) & "個" Next i End Sub 倒數(shù)第三行需改為“Print "個位數(shù)為" & p & "共" & x(i) & "個"” 運行調(diào)試 存盤退出程

9、序設(shè)計題操作指導(dǎo)題目：完成一個畫板程序的設(shè)計，可以根據(jù)選擇的線型的粗細(xì)、顏色，用鼠標(biāo)的左鍵模擬筆在繪圖區(qū)隨意繪圖。提示：考生可以雙擊運行考生目錄下的Design.vbp工程，打開該工程后，對象窗口如下圖。完成以下具體要求： 1. 將窗體的標(biāo)題文字改為“面板” 2. 將圖片框picturel設(shè)置為固定邊框，白色背景。 3. 添加一個通用對話框控件用于顯示顏色對話框，名稱為cdcolor。 4. 將代碼窗口中的“n”（n為1,2,3,4）部分刪除后改為合適的內(nèi)容。注意：代碼窗口中其余代碼不要做修改。操作： 打開考生目錄下的工程文件Design.vbp 按照題意要求，在對象窗口添加對象、修改對象的屬

10、性 在代碼窗口中，將所顯示的“ （x） ”刪除、用合適的代碼填充 Option Explicit Private Sub Command1_Click() 編者：需將“ “刪除后填入“Cdlcolor.ShowColor” 編者： 需將“ ”刪除后填入“Picture1.ForeColor = CdColor.Color” End Sub Private Sub Command2_Click() 編者： 需將“ ”刪除后填入“Picture1.Cls” End Sub Private Sub Picture1_MouseMove(Button As Integer,Shift AS _ Int

11、eger, X As Single, Y As Single) ' 在鼠標(biāo)移動事件過程中，按下鼠標(biāo)左鍵時 Button值為1，按下鼠標(biāo)右鍵時 Button ' 值為2，否則為0。 If Option1.Value = True Then Picture1.DrawWidth = 1 If Option2.Value = True Then Picture1.DrawWidth = 5 If Button = 1 Then 編者：需將“ ”刪除后填入“Picture1.Pset(x,y)” End If End Sub 存盤退出VB上機考試部分模擬試題 【程序填空題1】 在考生目

12、錄中，已有模塊文件Modify.Bas，其中的Summary過程用于計算并顯示S=1+2+22+23+直至S超過1016為止。請在程序處劃線處填入必要的內(nèi)容，使其完整。 請建立工程，將Modify.Bas模塊加入工程中進(jìn)行調(diào)試。 Option Explicit Public Sub summary() Dim s As Single, i As Integer 需在此填入“s = 1” i = 1 需在此填入“Do While s <= 1e16” s = s + 2i 需在此填入“i = i +1” Loop Form1.Print "s=" s End Sub 【

13、程序設(shè)計題1】 完成一個正弦曲線程序的設(shè)計,在圖片框中畫出-,區(qū)間的正弦波形。要求將圖片框的坐標(biāo)系重新定義為左上角坐標(biāo)（-,1），右下角坐標(biāo)為（,-1），并在圖片框中畫出坐標(biāo)的X軸和Y軸。 提示：考生可以雙擊運行考生目錄下的Design1.exe文件查看程序的最終效果。 在考生目錄中，已經(jīng)有一個未完成的Design.vbp工程，打開該工程后的對象窗口如下圖所示。完成以下具體要求： 1. 將窗體的標(biāo)題文字改為“正弦曲線”。 2. 將圖片框Picture1設(shè)置為固定邊框，白色背景。 注意：代碼窗口中其余代碼不要做修改。 Option Explicit Private Sub Command1_Cl

14、ick() Const PI = 3.1415926 Dim i As Single '定義圖片框的坐標(biāo)系 需在此填入“Picture1.Scale(-PI,1)-(PI,-1)” '畫出X軸直線 需在此填入“Picture1.Line(-PI,0)-(PI,0)” '畫出Y軸直線 需在此填入“Picture1.Line(0,-1)-(0,1)” ' 以下語句對坐標(biāo)軸進(jìn)行曲標(biāo)注 Picture1.CurrentX = -pi : Picture1.CurrentY = -0.1 Picture1.Print "" : Picture1.Cur

15、rentX = pi - 0.3 Picture1.Print "" : Picture1.CurrentX = 0.2 Picture1.CurrentY = -0.1 : Picture1.Print "0" Picture1.CurrentX = 0.2 : Picture1.CurrentY = 1 - 0.1 Picture1.Print "1" : Picture1.CurrentX = 0.2 Picture1.CurrentY = -1 + 0.1 : Picture1.Print "-1" 

16、9; 以下語句畫出-,區(qū)間的正弦波形 For i = -PI To PI Step 0.0001 需在此填入“Picture1.Pset(i,sin(i)” Next i End Sub 【程序填空題2】 在考生目錄中，已有模塊文件Modify.Bas,請完成下列題目要求。 Modify.Bas模塊中的Transpose過程用于產(chǎn)生一個轉(zhuǎn)置矩陣（所謂轉(zhuǎn)置是指將二維數(shù)組中所有行和對應(yīng)列的元素進(jìn)行交換），但不完整，請在橫線上填入必要的內(nèi)容，使其完整。Modify.Bas模塊中的Swap過程用于交換兩個變量的值。 請建立工程將Modify.Bas模塊加入工程中進(jìn)行調(diào)試。 注意：只需將橫線位置的內(nèi)容刪

17、除后填入合適的內(nèi)容即可，其余代碼不要改動。 Public Sub Transpose() '產(chǎn)生一個6×6的轉(zhuǎn)置矩陣，將二維數(shù)組中所有行和對應(yīng)列的元素進(jìn)行交換 Dim a(1 To 6,1 To 6) As Integer, i As Integer, j As Integer Form1.Print "原始數(shù)據(jù)" For i = 1 To 6 For j = 1 To 6 a(i,j) = Int(Rnd * 10) Form1.Print a(i,j); Next j Form1.Print Next i For i = 2 To 6 For j =

18、1 To 需在此填入“i - 1” 需在此填入“Call Swap(a(i,j),a(j,i)” Next j Next i Form1.Print "轉(zhuǎn)置后數(shù)據(jù)" For i = 1 To 6 For j =1 To 6 需在此填入“Print a(i,j);” Next j Form1.Print Next i End Sub Public Sub Swap(a AS Integer,b As Integer) Dim temp As Integer Temp = a a = b b = temp End Sub 【程序設(shè)計題2】 完成一個文本編輯器程序的（部分）設(shè)計，

19、要求設(shè)計一個帶有垂直滾動條的文本框，可以對文本框中選中的文本進(jìn)行查找和替換操作。 第一次單擊“查找”按鈕后，出現(xiàn)輸入框用于輸入查找內(nèi)容，并開始在文本框中查找第一個匹配的字符串并選中，再單擊“查找”按鈕則繼續(xù)定位下一個匹配的字符串，直到?jīng)]有匹配的字符串為止，這時可以開始其他內(nèi)容的查找。 “替換為”按鈕用于將文本框中選中的內(nèi)容替換成指定的字符串，未選中內(nèi)容則不做替換。 提示：考生可以雙擊運行考生目錄下的Design1.exe文件查看程序的最終效果。 在考生目錄中，已經(jīng)有一個未完成的Design.vbp工程，打開該工程后，對象窗口如下圖。完成以下具體要求： 1. 將窗體設(shè)置為固定大小，沒有最大化和最

20、小化按鈕。 2. 對文本框Text1進(jìn)行合理的設(shè)置，使其帶有垂直滾動條。 編者：將Form1.MaxButton、MinButton屬性設(shè)置為False，F(xiàn)orm1.BorderStyle屬性設(shè)置為1-fixed Single，Text1.ScrollBars設(shè)置為 2-Vertical。 Option Explicit Dim find1 As Integer, i As Integer Dim Len1 As Integer, Len2 As Integer, findstr As String Private Sub Command1_Click() Static times As In

21、teger If times = 0 Then findstr = InputBox(“查找？","查找") Len1 = Len(findstr) : Len2 = Len(Text1.Text) End If 需在此填入“times = times + 1” For i = find1 + 1 To Len2 If Then 需在此填入“findstr = Mid(Text1.Text,i,Len1)” find1 = i Text1.SetFocus Text1.SelStart = i - 1 需在此填入“Text1.SelLength = Len1” E

22、xit Sub End If Next i If Then 需在此填入“i >= Len2” MsgBox "完成全部搜索！" times = 0 End If End Sub Private Sub Command2_Click() '選中一段文本后，單擊該按鈕、執(zhí)行替換操作。 Dim repstr As String repstr = InputBox("替換為"，"替換") If Text1.SelLength <> 0 Then 需在此填入“Text1.SelText = repstr” Else M

23、sgBox "沒有被替換的對象" End If End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() find1 = 0 End Sub 【程序填空題3】在考生目錄中，已有模塊文件Modify.Bas，模塊中的PrintArray過程是輸出一個右上三角元素（含對角線）為，其余元素為0的5×5矩陣。請?zhí)钊氡匾膬?nèi)容，使其完整。請建立工程將Modify.Bas模塊加入工程中進(jìn)行調(diào)試。 注意：只需將橫線位置的內(nèi)容刪除后填入合適的內(nèi)容即可，其余代碼不要改動。 Public Sub

24、PrintArray() Dim a(1 To 5,1 To 5) As Integer, i As Integer, j As Integer For i = 1 To 5 For j = 1 To 5 If Then 需在此填入“i <= j” 需在此填入“a(i,j) = 1” End If Next j Next i For i = 1 To 5 For j = 1 To 5 Form1.Print " " a(i,j) Next j 需在此填入“Print” Next i End Sub 【程序設(shè)計題3】 完成一個計時器程序的設(shè)計,要求單擊“開始計時”按鈕后

25、，程序根據(jù)選擇的時間倒計時，并將剩余的時間顯示在標(biāo)簽中，直到0分0秒為止。 提示：考生可以雙擊運行考生目錄下的Design1.exe文件查看程序的最終效果。 在考生目錄中，有一個未完成的Design.Vbp工程，打開該工程后的對象窗口如下圖所示，完成以下具體要求： 1. 將標(biāo)簽設(shè)置為固定邊框，字體顏色設(shè)為紅色，字號為16。 2. 將定時器的間隔設(shè)置為1秒。 3. 對單選鈕控件數(shù)組進(jìn)行合適的設(shè)置，使時間選擇默認(rèn)為5分鐘。 編者：將 Label1.BorderStyle屬性設(shè)置為1-fixed Single，Timer1.Interval屬性設(shè)置為1000，Option1(1).TabIndex設(shè)

26、置為0。 Option Explicit Dim pretime As Integer, mm As Integer, ss As Integer Private Sub Command1_Click() Command1.Enabled = False Frame1.Enabled = False Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False : Pretime = 300 End Sub Private Sub Option1_Click(Index As Integer) Sele

27、ct Case Index Case 0 Pretime = 60 Case 1 Pretime = 300 Case 2 Pretime = 600 End Select End Sub Private Sub Timer1_Timer() mm = 需在此填入“Pretime 60” ss = 需在此填入“Pretime Mod 60” Label1.Caption = str(mm) & "分" & Str(ss) & "秒" If Then 需在此填入“mm = 0 And ss = 0” Timer1.Enabled =

28、 False Command1.Enabled = True Frame1.Enabled = True End If 需在此填入“pretime = pretime - 1” End Sub 【程序設(shè)計題4】 完成一個家電提貨單管理程序的設(shè)計，根據(jù)選項中選擇的家電及數(shù)量，單擊“確定”后，將選擇的清單及總價在列表框中列出，“清除”按鈕用于清空列表框中的項目。 要求在操作過程中，每選擇一種家電，光標(biāo)自動定位在相應(yīng)的文本框中，取消選擇時，相應(yīng)的文本框自動清空，所有文本框只接受數(shù)字。 提示：考生可以雙擊運行考生目錄下的Design1.exe文件查看程序的最終效果。 在考目錄中，已有一個未完成的Des

29、ign.Vbp工程，打開該工程后的對象窗口如下圖所示，完成以下具體要求： 1. 將窗體設(shè)置為固定大小、沒有最大化和最小化按鈕。 2. 對文本框Text1控件數(shù)組進(jìn)行合理的設(shè)置,使所有文本框的對齊方式為右對齊。 編者：將Form1.MaxButton、MinButton屬性設(shè)置為False，F(xiàn)orm1.BorderStyle屬性設(shè)置為1-fixed Single，Text1(0)Text1(4)的Alignment屬性均設(shè)置為 -Right Justify。 Option Explicit Private Sub Check1_Click(Index As Integer) 需在此填入“Text

30、1(Index).Text = ""” If Check1(Index).Value = 1 Then Text1(Index).SetFocus End Sub Private Sub Command1_Click() Dim i As Integer, sum As Long, title As String, price As Integer sum = 0 For i = 0 To 4 Select Case i Case 0 title = "電視機" : price = 2580 Case 1 title = "微波爐"

31、: price = 760 Case 2 title = "電冰箱" : price = 1750 Case 3 title = "DVD" price = 3080 Case 4 title = "分體空調(diào)" price = 6500 End Select If Check1(i).Value = 1 And Text1(i).Text <> "" Then List1.AddItem title & Text(i).Text & "臺" 需在此填入“sum = s

32、um + price * val(Text1(I).Text)” End If Next i If sum 0 Then 需在此填入“List1.AddItem Str(sum)” End Sub Private Sub Command2_Click() 需在此填入“List1.Clear” End Sub Private Sub Text1_Keypress(Index As Integer,KeyAscii As Integer) If Chr(KeyAscii) > "9" Or Chr(keyAscii) < "0" Then 需在此

33、填入“KeyAscii = 0” End if End Sub 【程序填空題4】 在考生目錄中，已有模塊文件Modify.Bas，模塊中的Uppersen過程是將一個英文句子的每個單詞的首字母變成大寫。 例如：輸入“i am a good student.”，輸出為“I Am A Good Student.”。請在橫線上填入必要的內(nèi)容，使其完整。請建立工程將Modify.Bas模塊加入工程中進(jìn)行調(diào)試。 注意：只需將橫線位置的內(nèi)容刪除后填入合適的內(nèi)容即可，其余代碼不要改動。 Option Explicit Public Sub Uppersen() ' 從鍵盤上任意輸入一條英文句子，將句

34、子中的每個單詞的首字母都變成大寫 Dim oldsen As String, newsen As String, char As String Dim lastchar As String, L As Integer, i As Integer Oldsen = InputBox("請輸入英文句子：") L = 需在此填入“Len(oldsen)” ' 以空格作為單詞的界定符，空格后的字母轉(zhuǎn)換為大寫字母。 lastchar = 需在此填入“""” For i = 1 To L char = 需在此填入“Mid(oldsen,i,1)” If la

35、stchar = " " Then char = 需在此填入“ Ucase(char)” newsen = newsen & char lastchar = char Next i Print "input:" oldsen Print "output:" newsen End Sub 【程序設(shè)計題5】 完成一個密碼檢驗程序的設(shè)計，要求當(dāng)在文本框中輸入密碼“1234567”并按回車后，顯示（標(biāo)簽Label2）“歡迎光臨！”；如果輸入的密碼與“1234567”不吻合，顯示“密碼不符，請再輸入一遍！”，同時清空文本框的內(nèi)容，允許再

36、輸入一遍；如果輸入的密碼仍然與“1234567”不吻合，顯示“非法用戶，請退出程序！”、文本框不能使用。 提示：考生可以雙擊運行考生目錄下的Design1.exe文件查看程序的最終效果。 在考生目錄中，已有一個未完成的Design.Vbp工程，打開該工程后的對象窗口如下圖所示，完成以下具體要求； 1. 對文本框控件Text1進(jìn)行設(shè)置，使得在文本框控件中輸入的字符顯示為*，并且最多可以接受8個字符，請對文本框控件Text1的相應(yīng)屬性進(jìn)行設(shè)置。 2. 將標(biāo)簽控件Label2的對齊方式設(shè)置為居中對齊，大小隨字體自動調(diào)整，不可見。 編者：將Text1.PasswordChar設(shè)置為"*&qu

37、ot;、Maxlength屬性設(shè)置為8，Label2.Alignment屬性設(shè)置為2-Center、AutoSize屬性設(shè)置為True、Visible屬性設(shè)置為False。 Private Sub Command1_Click() End End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Static times As Integer ' 統(tǒng)計第幾次輸入密碼 ' 按回車鍵后進(jìn)行密碼檢驗 If Then 需在此填入“KeyAscii = 13” If Then 需在此填入“Text1.Text = "1234

38、567"” Label2.Caption = "歡迎光臨!" 需在此填入“Label2.Visible = True” Else If Then 需在此填入“times = 0” Label2.Caption = "密碼不符，請再輸入一遍！" Label2.Visible = True Text1.Text = "" Else Label2.Caption = "非法用戶，請退出程序!" Text1.Text = "" 需在此填入“Text1.Enabled = False” End

39、If End If times = times + 1 End If End Sub 【程序設(shè)計題6】 完成一個文本編輯器程序的（部分）設(shè)計，要求設(shè)計一個帶有垂直滾動條的文本框，可以對文本框中選中的文本進(jìn)行剪切、復(fù)制、粘貼和刪除的操作。 提示：考生可以雙擊運行考生目錄下的Design.exe文件查看程序的最終效果。 在考生目錄中，已經(jīng)有一個未完成的Design.Vbp工程，打開該工程后的對象窗口如下圖所示。完成以下具體要求； 1. 將窗體設(shè)置為固定大小，沒有最大化和最小化按鈕。 2. 將文本框Text1進(jìn)行合理的設(shè)置，使其帶有垂直滾動條。 Private Sub Command1_Click(

40、) ' 剪切 需在此填入“Clipboard.SetText(Text1.SelText)” 需在此填入“Text1.SelText = ""” End Sub Private Sub Command2_Click() ' 復(fù)制 需在此填入“Clipboard.SetText(Text1.SelText)” End Sub Private Sub Command3_Click() ' 粘貼 需在此填入“Text1.SelText = Clipboard.GetText” End Sub Private Sub Command4_Click() 

41、9; 刪除 需在此填入“Text1.SelText = ""” End Sub Private Sub Command5_Click() End End Sub 【程序填空題5】在考生目錄中，已有模塊文件Modify.Bas。模塊中even過程是找出一個大于4的偶數(shù)的所有不重復(fù)的素數(shù)分解式，模塊中的Isprime函數(shù)過程是判斷一個數(shù)是否素數(shù)。請在橫線上填入必要的內(nèi)容，使其完整。請建立工程將Modify.Bas模塊加入工程中進(jìn)行調(diào)試。 Option Explicit Public Sub even() '從鍵盤輸入一個必須大于4的偶數(shù)，將它所有的不重復(fù)的分解式求出 D

42、im x As Integer, i As Integer 需在此填入“Do Until x>4 and x Mod 2 = 0” x = Val(InputBox("x=") Loop For i = 3 To x / 2 Step 2 需在此填入“If Isprime(x) Then” Print x; "=" i; "+" x - i End If Next i End Sub Public Function Isprime(x As Integer) As Boolean Dim i As Integer 需在此填入“I

43、sprime = True” For i = 2 To x - 1 需在此填入“If x Mod i = 0 Then” Isprime = False Exit For End If Next i End Function 【程序填空題6】 在考生目錄中，已有模塊文件Modify.Bas，模塊中的Fabonia過程是對以下數(shù)列進(jìn)行運算：該數(shù)列的前三個數(shù)是0、1、2，從第四個數(shù)起，每個數(shù)都是它前面的兩個數(shù)之和。求該數(shù)列的第17項，并求出從第幾項起每項都超過108。請在橫線上填入必要的內(nèi)容，使其完整。請建立工程將Modify.Bas模塊加入工程中進(jìn)行調(diào)試。 Option Explicit Pub

44、lic Sub Fabonia() Dim last_one As Long, last_two As Long Dim this_one As Long, i As Integer last_one = 1 last_two = 2 i = 4 '從數(shù)列的第四個數(shù)求起 Do this_one = last_one + last_two 需在此填入“l(fā)ast_one = last_two” 需在此填入“l(fā)ast_two = this_one” If i = 17 Then Print "No:17=" this_one 需在此填入“i = i + 1” Loop W

45、hile this_one <= 100000000# Print "No" ; "is>1E8" 需在此填入“i” End Sub 【程序設(shè)計題7】 完成一個改變圖形形狀大小的程序的設(shè)計，要求可以用滾動條改變圓的大小，同時把圓的直徑在標(biāo)簽Label2上顯示出來。 考生可以雙擊運行考生目錄下的Design1.exe文件查看程序的最終效果。在考生目錄中，已有一個未完成的Design.Vbp工程，打開該工程后的對象窗口如下圖所示。完成以下具體要求： 1. 將形狀控件Shape1設(shè)置為圓形，并且顯示出填充色為紅色。 2. 將標(biāo)簽控件Label2的對齊屬性設(shè)置為居中對齊。 編者：將Shape1.shape設(shè)置為3-Circle、FillColor屬性設(shè)置為紅色、FillStyle屬性設(shè)置為0-Solid。 Private Sub Form_Load() Hscroll1.Max = 3400 Hscroll1.Min = 10 Hscroll1.LargeChange = 100 Hscroll1.Sma