程序調(diào)試自己

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

2、ring Dim length As Integer 字符串長(zhǎng)度 Dim sum As Integer 查到的個(gè)數(shù) Dim i As Integer str1 = InputBox(請(qǐng)輸入一個(gè)字符串) 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) 該過(guò)程是用于交換兩個(gè)變量的值。 Dim temp As Integer tem

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

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

5、=) Loop While -1- 先將兩個(gè)整數(shù)中的較小數(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解題過(guò)程：1、 Modify.Bas（相當(dāng)于界面中的回答功能，如果自己操作就雙擊該文件）。2、 目要求，將工程名稱(chēng)改為Modify3、 添加窗體Form14、 在窗體中設(shè)計(jì)Click事件過(guò)程，以便調(diào)試。Click事件過(guò)程：ComDiv上述

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

7、Option ExplicitPublic Sub aboveave() 該過(guò)程是產(chǎn)生30個(gè)1-100之間的隨機(jī)整數(shù) 計(jì)算這30個(gè)數(shù)的平均值 找出30個(gè)數(shù)中數(shù)值大于平均值的數(shù)據(jù),并統(tǒng)計(jì)出這些數(shù)據(jù)的個(gè)數(shù) Dim x(30) As Integer Dim sum As Integer, ave As Integer 平均值取整數(shù) Dim i As Integer Dim count As Integer 在平均值之上的數(shù)據(jù)個(gè)數(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個(gè)一行打印出原始數(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個(gè)一行打印在平均值之上的數(shù)據(jù)，打印統(tǒng)計(jì)的個(gè)數(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; 個(gè)在平均值之上.End SubClick事件過(guò)程：PrintArray-1-= j=i-2-= a(i,j)=1-3-= Form1.Print a(i, j);試題十VB 語(yǔ)言調(diào)試題目如下，單擊“回答”按鈕，進(jìn)行考試。1、在考生目錄下的Paper目錄中，已有模塊文件modify.bas。2、程序功能Modify.Bas模塊中的Combination過(guò)程是用于計(jì)算在m個(gè)數(shù)據(jù)中取出n個(gè)數(shù)據(jù)的排列組合值，計(jì)算公式為Cmn=m!/(n!*(m-n)!)。Modify.Bas模塊中的nFactor函數(shù)過(guò)程用于計(jì)算n!。3、要求新建

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

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

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

13、調(diào)試。4、注意只需要將橫線(xiàn)位置的內(nèi)容刪除后填入合適的內(nèi)容即可，其他代碼不要改動(dòng)。Dim a(30) As IntegerPublic Sub FindMax() 該過(guò)程是用于查找一批數(shù)據(jù)中的最大數(shù)，并輸出最大數(shù)的值及最大數(shù)在數(shù)組中的下標(biāo)值。 Dim Position As Integer 最大數(shù)在數(shù)組中的下標(biāo) 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 最大值的下標(biāo)= & 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事件過(guò)程：FindMax-1-= a(1)-2-= 1-3-= a(i)-4-= iVB 語(yǔ)言調(diào)試題目如下，單擊“回答”按鈕，進(jìn)行考試。1

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

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

17、2、程序功能Modify.Bas模塊中的total過(guò)程是計(jì)算s=7+77+777+(n個(gè)7組成的數(shù))，并輸出。Modify.Bas模塊中的number函數(shù)是求出n個(gè)7所組成的數(shù)。3、要求新建工程Modify.vbp，將Modify.bas模塊加入到該工程中進(jìn)行調(diào)試。4、注意只需將橫線(xiàn)位置的內(nèi)容刪除后填入合適的內(nèi)容即可，其余代碼不要改動(dòng)。試題十三Option ExplicitPublic Sub total() 該過(guò)程是計(jì)算s=7+77+777+(n個(gè)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個(gè)7所組成的數(shù)。 Dim k As Integer number = 0 For k = 1 To n -3- Next kEnd FunctionClick事件過(guò)程：total-1-= number(i)-2-= ByVal n As Integer-3-= number = number + 7*10(k-1)VB 語(yǔ)言調(diào)試題目如下，單擊“回答”按鈕，進(jìn)行考試。1、在考生目錄下的Paper目錄中，已有模塊文件mo

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

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

21、temp = a(1, j) * 錯(cuò)誤3 * a(Line_no, j) = a(1, j) a(Line_no, j) = temp Next j 交換對(duì)應(yīng)行的平均值 temp = ave(1) ave(1) = ave(Line_no) ave(Line_no) = temp 打印交換后的數(shù)據(jù) Form1.Print 交換后的數(shù)據(jù)和平均值 PrintArrayEnd SubPublic Sub DataProduce() 該過(guò)程用于產(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() 該過(guò)程用于計(jì)算各行的平均值。 Dim i As Integer Dim j As Integer Dim sum As Integer 計(jì)算各行平均值 For i = 1 To 5 sum = 0 For j = 1 To 4 * 錯(cuò)誤4 * sum = a(i, j) Next j ave(i) = sum / 4 Next i 將數(shù)組和平均值打印出來(lái) Form1.Print 原始數(shù)據(jù)和平均值 PrintArrayEnd SubPublic Sub PrintA

23、rray() 該過(guò)程用于打印二維數(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事件過(guò)程：DataProduceAverageMaxLine* 錯(cuò)誤1 *= ave(Line_no) ave(i)* 錯(cuò)誤2 *= Line_no = i* 錯(cuò)誤3 *= a(1, j) = a(Line_no, j)* 錯(cuò)誤4 *= sum = sum + a

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

25、100的隨機(jī)整數(shù) 從鍵盤(pán)上輸入一個(gè)數(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個(gè)數(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事件過(guò)程：Del-1-= pos = i-2-= pos-3-= a(pos) = a(pos+1)V

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

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

29、 IfEnd SubClick事件過(guò)程：Guess* 錯(cuò)誤1 *= Case Is R* 錯(cuò)誤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