程序調(diào)試自己

1、VB 語言調(diào)試題目如下，單擊“回答”按鈕，進行考試。1、在考生目錄下的Paper目錄中，已有模塊文件modify.bas。2、程序功能Modify.Bas模塊中的Findat過程是用于在一個字符串變量中查找”at”，并用消息框給出查找結(jié)果的報告：沒有找到或找到的個數(shù)。3、要求新建工程Modify.vbp，將Modify.bas模塊加入到該工程中進行調(diào)試。4、注意只需要將橫線位置的內(nèi)容刪除后填入合適的內(nèi)容即可，其他代碼不要改動。試題一Public Sub Findat()該過程是用于在一個字符串變量中查找”at”，并用消息框給出查找結(jié)果的報告：沒有找到或找到的個數(shù)。 Dim str1 As St

2、ring Dim length As Integer 字符串長度 Dim sum As Integer 查到的個數(shù) Dim i As Integer str1 = InputBox(請輸入一個字符串) length = -1- i = 1 sum = 0 Do While i a(j) Then - 2 - End If Next j Form1.Print a(i) Next i Form1.print - 3 -End SubPublic Sub Swap(a As Integer, b As Integer) 該過程是用于交換兩個變量的值。 Dim temp As Integer tem

3、p = a a = b b = tempEnd Sub解題過程：1、 Modify.Bas（相當于界面中的回答功能，如果自己操作就雙擊該文件）。2、 題目要求，將工程名稱改為Modify3、 添加窗體Form14、 在窗體中設(shè)計Click事件過程，以便調(diào)試。Click事件過程：SortData上述四個過程對所有試題都是一樣的。-1-= For j = i+1 To 10-2-= Swap a(i),a(j)-3-= a(i)VB 語言調(diào)試題目如下，單擊“回答”按鈕，進行考試。1、在考生目錄下的Paper目錄中，已有模塊文件modify.bas。2、程序功能Modify.Bas模塊中的過程Com

4、Div是求任意兩個正整數(shù)的最大公約數(shù)。3、要求新建工程Modify.vbp，將Modify.bas模塊加入到該工程中進行調(diào)試。4、注意只需要將橫線位置的內(nèi)容刪除后填入合適的內(nèi)容即可，其他代碼不要改動。試題四Option ExplicitPublic Sub ComDiv() 該過程是求任意兩個正整數(shù)的最大公約數(shù) Dim m As Integer, n As Integer 任意兩個正整數(shù) Dim i As Integer Dim div As Integer 最大公約數(shù) 輸入兩個正整數(shù)，要求m與n都必須大于零 Do m = Val(InputBox(m=) n = Val(InputBox(n

5、=) Loop While -1- 先將兩個整數(shù)中的較小數(shù)假設(shè)為最大公約數(shù)，再依次往下 尋找能同時除盡m和n的數(shù)即為最大公約數(shù) -2- If n m Then div = n End If Do While m Mod div 0 Or n Mod div 0 -3- Loop Form1.Print m; 和; n; 的最大公約數(shù)是：; divEnd Sub解題過程：1、 Modify.Bas（相當于界面中的回答功能，如果自己操作就雙擊該文件）。2、 目要求，將工程名稱改為Modify3、 添加窗體Form14、 在窗體中設(shè)計Click事件過程，以便調(diào)試。Click事件過程：ComDiv上述

6、四個過程對所有試題都是一樣的。-1-= n=0 or m=i-2-= a(i,j)=1-3-= Form1.Print a(i, j);VB 語言調(diào)試題目如下，單擊“回答”按鈕，進行考試。1、在考生目錄下的Paper目錄中，已有模塊文件modify.bas。2、程序功能Modify.Bas模塊中的過程aboveave是先計算出30個1-100之間的隨機整數(shù)的平均值，再找出這30個數(shù)中數(shù)值在平均值之上的數(shù)據(jù),并統(tǒng)計出這些數(shù)據(jù)的個數(shù)。3、要求新建工程Modify.vbp，將Modify.bas模塊加入到該工程中進行調(diào)試。4、注意只需將橫線位置的內(nèi)容刪除后填入合適的內(nèi)容即可，其余代碼不要改動。試題九

7、Option ExplicitPublic Sub aboveave() 該過程是產(chǎn)生30個1-100之間的隨機整數(shù) 計算這30個數(shù)的平均值 找出30個數(shù)中數(shù)值大于平均值的數(shù)據(jù),并統(tǒng)計出這些數(shù)據(jù)的個數(shù) Dim x(30) As Integer Dim sum As Integer, ave As Integer 平均值取整數(shù) Dim i As Integer Dim count As Integer 在平均值之上的數(shù)據(jù)個數(shù) Randomize For i = 1 To 30 x(i) = Int(Rnd * 100) + 1 Next i sum = 0 For i = 1 To 30 sum

8、 = -1- Next i ave = -2- 5個一行打印出原始數(shù)據(jù)，打印平均值 For i = 1 To 30 Form1.Print x(i); Space(2); If i Mod 5 = 0 Then Form1.Print Next i Form1.Print 平均值：; ave 找出并5個一行打印在平均值之上的數(shù)據(jù)，打印統(tǒng)計的個數(shù) Form1.Print 在平均值之上的數(shù)據(jù)是: For i = 1 To 30 If x(i) ave Then -3- Form1.Print x(i); Space(2); If -4- Then Form1.Print End If Next i

9、 Form1.Print Form1.Print 共有; count; 個在平均值之上.End SubClick事件過程：PrintArray-1-= j=i-2-= a(i,j)=1-3-= Form1.Print a(i, j);試題十VB 語言調(diào)試題目如下，單擊“回答”按鈕，進行考試。1、在考生目錄下的Paper目錄中，已有模塊文件modify.bas。2、程序功能Modify.Bas模塊中的Combination過程是用于計算在m個數(shù)據(jù)中取出n個數(shù)據(jù)的排列組合值，計算公式為Cmn=m!/(n!*(m-n)!)。Modify.Bas模塊中的nFactor函數(shù)過程用于計算n!。3、要求新建

10、工程Modify.vbp，將Modify.bas模塊加入到該工程中進行調(diào)試。4、注意只要修改標出出錯位置的下面那一條語句即可，其余代碼不要改動。Public Sub Combination() 該過程是用于計算在m個數(shù)據(jù)中取出n個數(shù)據(jù)的排列組合值，計算公式為Cmn=m!/(n!*(m-n)!)。 Dim m As Integer Dim n As Integer Dim Cmn As Long Do m = Val(InputBox(請輸入一個整數(shù)m) n = Val(InputBox(請輸入一個整數(shù)n(n=m) Loop While m =n * 錯誤1 * Cmn = nFactor(m)

11、 / nFactor(n) * nFactor(m - n) Form1.Print 排列組合數(shù)為; CmnEnd SubPublic Function nFactor(ByVal n As Integer) As Double 該函數(shù)過程用于計算n!。 Dim i As Integer Dim temp As Double temp = 1 For i = 1 To n temp = temp * i Next i *錯誤 2 * nFactor(n) = temp * 錯誤3 *End SubClick事件過程：Combination* 錯誤1 *= Cmn = nFactor(m) /

12、(nFactor(n) * nFactor(m - n)* 錯誤2 *= nFactor = temp* 錯誤3 *= End Function試題十一VB 語言調(diào)試題目如下，單擊“回答”按鈕，進行考試。1、在考生目錄下的Paper目錄中，已有模塊文件modify.bas。2、程序功能Modify.Bas模塊中的FindMax過程是用于查找一批數(shù)據(jù)中的最大數(shù)，并輸出最大數(shù)的值及最大數(shù)在數(shù)組中的下標值。Modify.Bas模塊中的GenerateData過程用于產(chǎn)生30個1-500之間的隨機整數(shù)并5個一行打印出來。3、要求新建工程Modify.vbp，將Modify.bas模塊加入到該工程中進行

13、調(diào)試。4、注意只需要將橫線位置的內(nèi)容刪除后填入合適的內(nèi)容即可，其他代碼不要改動。Dim a(30) As IntegerPublic Sub FindMax() 該過程是用于查找一批數(shù)據(jù)中的最大數(shù)，并輸出最大數(shù)的值及最大數(shù)在數(shù)組中的下標值。 Dim Position As Integer 最大數(shù)在數(shù)組中的下標 Dim max As Integer 最大數(shù) Dim i As Integer GenerateData max = -1- Position = -2- For i = 2 To 30 If a(i) max Then max = -3- Position = -4- End If N

14、ext i Form1.Print 最大值= & Str(max) Form1.Print 最大值的下標= & Str(Position)End SubPublic Sub GenerateData() Dim i As Integer For i = 1 To 30 a(i) = Int(500 * Rnd() + 1) Form1.Print a(i), If i Mod 5 = 0 Then Form1.Print Next iEnd SubClick事件過程：FindMax-1-= a(1)-2-= 1-3-= a(i)-4-= iVB 語言調(diào)試題目如下，單擊“回答”按鈕，進行考試。1

15、、在考生目錄下的Paper目錄中，已有模塊文件modify.bas。2、程序功能Modify.Bas模塊中DToB過程是將一個十進制正整數(shù)轉(zhuǎn)換成為一個二進制數(shù)。3、要求新建工程Modify.vbp，將Modify.bas模塊加入到該工程中進行調(diào)試。4、注意只需將橫線位置的內(nèi)容刪除后填入合適的內(nèi)容即可，其余代碼不要改動。試題十二Option ExplicitPublic Sub DToB() 該過程是將一個十進制正整數(shù)轉(zhuǎn)換成為一個二進制數(shù)。 采用連除2取余數(shù)的方法，將一個十進制數(shù)轉(zhuǎn)換為二進制數(shù)。 Dim Dec As Integer Dim Bin As String Dim res As In

16、teger Dim i As Integer Dec = Val(InputBox(x=) 輸入一個十進制數(shù) Form1.Print 十進制數(shù)：; Dec Do res = -1- 求出除以2的余數(shù) Bin = Trim(Str(res) & -2- Dec = -3- Loop While -4- Form1.Print 轉(zhuǎn)換為二進制數(shù)為：; BinEnd SubClick事件過程：DToB-1-= Dec Mod 2-2-= Bin-3-= Dec 2-4-= Dec0VB 語言調(diào)試題目如下，單擊“回答”按鈕，進行考試。1、在考生目錄下的Paper目錄中，已有模塊文件modify.bas。

17、2、程序功能Modify.Bas模塊中的total過程是計算s=7+77+777+(n個7組成的數(shù))，并輸出。Modify.Bas模塊中的number函數(shù)是求出n個7所組成的數(shù)。3、要求新建工程Modify.vbp，將Modify.bas模塊加入到該工程中進行調(diào)試。4、注意只需將橫線位置的內(nèi)容刪除后填入合適的內(nèi)容即可，其余代碼不要改動。試題十三Option ExplicitPublic Sub total() 該過程是計算s=7+77+777+(n個7組成的數(shù))，并輸出。 Const n = 20 Dim s As Single Dim i As Integer For i = 1 To n

18、s = s + -1- Next i Form1.Print s=; sEnd SubPublic Function number( -2- ) As Single 該函數(shù)是求出n個7所組成的數(shù)。 Dim k As Integer number = 0 For k = 1 To n -3- Next kEnd FunctionClick事件過程：total-1-= number(i)-2-= ByVal n As Integer-3-= number = number + 7*10(k-1)VB 語言調(diào)試題目如下，單擊“回答”按鈕，進行考試。1、在考生目錄下的Paper目錄中，已有模塊文件mo

19、dify.bas。2、程序功能Modify.Bas模塊中的 MaxLine 過程用于查找一個5行4列的二維數(shù)組中行平均值最大的行，并將該行所有數(shù)據(jù)調(diào)整到第一行的位置。Modify.Bas模塊中的DataProduce 過程用于產(chǎn)生原始數(shù)據(jù)；Average 過程用于計算各行的平均值；PrintArray過程用于打印二維數(shù)組和行平均值。3、要求新建工程Modify.vbp，將Modify.bas模塊加入到該工程中進行調(diào)試。4、注意只要修改標出出錯位置的下面那一條語句即可，其余代碼不要改動。試題十四Dim a(1 To 5, 1 To 4) As IntegerDim ave(1 To 5) As

20、IntegerPublic Sub MaxLine() 該過程用于查找一個5行4列的二維數(shù)組中行平均值最大的行，并將該行所有數(shù)據(jù)調(diào)整到第一行的位置。 Dim i As Integer, j As Integer, temp As Integer Dim Line_no As Integer 最大平均值的行號 找出最大平均值所在行 Line_no = 1 For i = 2 To 5 * 錯誤1 * If ave(Line_no) = ave(i) Then * 錯誤2 * Line_no = ave(i) End If Next i 交換第一行與最大平均值所在行 For j = 1 To 4

21、temp = a(1, j) * 錯誤3 * a(Line_no, j) = a(1, j) a(Line_no, j) = temp Next j 交換對應(yīng)行的平均值 temp = ave(1) ave(1) = ave(Line_no) ave(Line_no) = temp 打印交換后的數(shù)據(jù) Form1.Print 交換后的數(shù)據(jù)和平均值 PrintArrayEnd SubPublic Sub DataProduce() 該過程用于產(chǎn)生原始數(shù)據(jù)。 Dim i As Integer Dim j As Integer 產(chǎn)生5*4數(shù)組 For i = 1 To 5 For j = 1 To 4

22、a(i, j) = Int(100 * Rnd) Next j Next iEnd SubPublic Sub Average() 該過程用于計算各行的平均值。 Dim i As Integer Dim j As Integer Dim sum As Integer 計算各行平均值 For i = 1 To 5 sum = 0 For j = 1 To 4 * 錯誤4 * sum = a(i, j) Next j ave(i) = sum / 4 Next i 將數(shù)組和平均值打印出來 Form1.Print 原始數(shù)據(jù)和平均值 PrintArrayEnd SubPublic Sub PrintA

23、rray() 該過程用于打印二維數(shù)組和行平均值。 Dim i As Integer Dim j As Integer For i = 1 To 5 For j = 1 To 4 Form1.Print a(i, j); Spc(3); Next j Form1.Print 平均值=; ave(i) Next iEnd SubClick事件過程：DataProduceAverageMaxLine* 錯誤1 *= ave(Line_no) ave(i)* 錯誤2 *= Line_no = i* 錯誤3 *= a(1, j) = a(Line_no, j)* 錯誤4 *= sum = sum + a

24、(i, j)VB 語言調(diào)試題目如下，單擊“回答”按鈕，進行考試。1、在考生目錄下的Paper目錄中，已有模塊文件modify.bas。2、程序功能Modify.Bas模塊中的Del過程從一個含有10個數(shù)組元素的數(shù)組中刪除一個指定的數(shù)據(jù)，若該數(shù)據(jù)不存在，則給出提示。3、要求新建工程Modify.vbp，將Modify.bas模塊加入到該工程中進行調(diào)試。4、注意只需將橫線位置的內(nèi)容刪除后填入合適的內(nèi)容即可，其余代碼不要改動。試題十五Option ExplicitPublic Sub Del() 該過程從一個含有10個數(shù)組元素的數(shù)組中刪除一個指定的數(shù)據(jù)，若該數(shù)據(jù)不存在，則給出提示。 先產(chǎn)生10個1，

25、100的隨機整數(shù) 從鍵盤上輸入一個數(shù)，將該數(shù)從數(shù)組中刪除 Randomize Dim x As Integer Dim a() As Integer Dim i As Integer, pos As Integer ReDim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) + 1 Next i Form1.Print 原始數(shù)據(jù)： For i = 1 To 10 Form1.Print a(i); ; Next i Form1.Print x = Val(InputBox(輸入刪除的數(shù)x=) pos = 0 For i = 1 To

26、 10 If x = a(i) Then -1- Exit For End If Next i If pos 0 Then For i = -2- To 9 -3- Next i ReDim Preserve a(9) 保留原數(shù)組中的9個數(shù) Form1.Print 刪除后數(shù)據(jù)： For i = 1 To 9 Form1.Print a(i); ; Next i Form1.Print Else MsgBox 數(shù)組中未找到 & Str(x) & ,刪除不成功 End IfEnd SubClick事件過程：Del-1-= pos = i-2-= pos-3-= a(pos) = a(pos+1)V

27、B 語言調(diào)試題目如下，單擊“回答”按鈕，進行考試。1、在考生目錄下的Paper目錄中，已有模塊文件modify.bas。2、程序功能Modify.Bas模塊中的 Guess 過程是猜數(shù)游戲，由計算機產(chǎn)生一個1，100的任意整數(shù)，輸入猜數(shù)后計算機給出提示，如果5次后還沒有猜中就結(jié)束游戲并公布正確答案。3、要求新建工程Modify.vbp，將Modify.bas模塊加入到該工程中進行調(diào)試。4、注意只要修改標出出錯位置的下面那一條語句即可，其余代碼不要改動試題十六Public Sub Guess() 該過程是猜數(shù)游戲，由計算機產(chǎn)生一個1，100的任意整數(shù)， 輸入猜數(shù)后計算機給出提示，如果5次后還沒有

28、猜中就結(jié)束游戲并公布正確答案。 Dim R As Integer Dim X As Integer Dim times As Integer Randomize R = Int(Rnd * 100) + 1 產(chǎn)生一個在區(qū)間1,100 的任意整數(shù) times = 1 Do X = Val(InputBox(輸入猜數(shù)X) Select Case X Case R Form1.Print 猜中了 Exit Do * 錯誤1 * Case Is 5 If times 5 Then Form1.Print 猜數(shù)失敗,游戲結(jié)束! * 錯誤3 * Form1.Print 正確答案為 & Str(X) End

29、 IfEnd SubClick事件過程：Guess* 錯誤1 *= Case Is R* 錯誤2 *= Loop While times a(i) Then * 1 * Swap (a(j), a(i) End If Next j i = i + 1 * 2 * Loop While i = n Form1.Print 排序結(jié)果 For i = 1 To n Form1.Print a(i); Next iEnd SubPublic Sub GenerateData() Dim i As Integer Dim j As Integer Dim b As Boolean For i = 1 To n b = False Do While Not b a(i) = Int(20 * Rnd + 1) b = True * 3 * For j = 1 To i If a(i) = a(j) Then b = False Exit For End If Next j Loop Form1.Print a(i) Next iEnd Sub* 4 *Public Sub Swap(ByVal a As Integer, ByVal b As Integer) D