VB程序改錯(cuò)40題.doc

第2題 （1.0分） 題號(hào):129【程序改錯(cuò)】題目：該程序?qū)崿F(xiàn)將輸入的 0 - 255 之間的正整數(shù)轉(zhuǎn) 換成二進(jìn)制數(shù)Option ExplicitPrivate Sub Form_Click() Const n = 8 Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox(請(qǐng)輸入一個(gè) 0 - 255 之間的正整數(shù)：) Print x*FOUND* For m = 1 To n a(m) = x Mod 2*FOUND* x = x / 2 Next m s = For m = n To 0 Step -1*FOUND* s = Str(a(m) Next m Print s End Sub答案：(答案1)For m = 0 To n=(答案2)x= x 2或x= int(x/2)=(答案3)s = s + Str(a(m)第3題 （1.0分） 題號(hào):463題目：以下程序功能是輸入三個(gè)數(shù)，由大到小排序。-Option ExplicitDim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click() Dim nTemp As Integer A = Val(InputBox(Please input first integer, 輸入正整數(shù)) B = Val(InputBox(Please input second integer, 輸入正整數(shù)) C = Val(InputBox(Please input third integer, 輸入正整數(shù)) *FOUND* If A = C Then nTemp = A A = B B = nTemp End If *FOUND* If B = C Then nTemp = A A = C C = nTemp End If *FOUND* If A = B Then nTemp = B B = C C = nTemp End If Print The integers in order is; A; B; CEnd Sub答案：=(答案1)=If A = A Then=(答案2)=If A = A Then=(答案3)=If B = B Then第4題 （1.0分） 題號(hào):127題目：下面程序可輸出如下圖形： * * * * *-Option ExplicitPrivate Sub Form_Click()Dim m As Integer, n As Integer, s As String, i As Integer, j As Integern = 4m = 1s = *For i = 5 To 1 Step -1 *FOUND* Print Spc(n) For j = 1 To 2 * m - 1 Print s; Next j Print *FOUND* n = n + 1 *FOUND* m = m - 1Next iEnd Sub答案：=(答案1)=Print Spc(n);=(答案2)=n = n - 1=(答案3)=m = m + 1第5題 （1.0分） 題號(hào):469題目：已知一個(gè)函數(shù)f(x)=1000*sin(x)，利用繪圖方法 在圖片框中顯示其圖形。結(jié)果如圖1-Option ExplicitPrivate Const pi = 3.14159Private Sub Command1_Click() *FOUND* Dim x As Integer Picture1.Scale (-pi, -1200)-(pi, 1200) *FOUND* For x = -pi To pi Step pi *FOUND* Picture1.PSet (x, 1000 * pi * Sin(x), vbRed Next xEnd Sub答案：=(答案1)=Dim x As Single=或=Dim x!=(答案2)=For x = -pi To pi Step pi / 180=(答案3)=Picture1.PSet (x, 1000 * Sin(x), vbRed=或=Picture1.PSet (x, Sin(x)*1000), vbRed第6題 （1.0分） 題號(hào):497題目:編程求一個(gè)十進(jìn)制整數(shù)n的各位數(shù)字之和，設(shè)n為小于或等于5位的數(shù)Option ExplicitPrivate Sub Form_Click() Dim N As Integer, Sum As Integer, S1 As String, S2 As String Dim i As Integer, Ch As String Sum = 0 N = InputBox(輸入整數(shù)n) S1 = Str(N) *FOUND* S1 = RTrim(S1) For i = 1 To Len(S1) *FOUND* Ch = Mid(N, i, 1) *FOUND* Sum = Val(Ch) Next i Print 該整數(shù)的各位數(shù)之和是：; SumEnd Sub答案：=(答案1)=S1 = Trim(S1)=(答案2)=Ch = Mid(S1, i, 1)=(答案3)=Sum = Sum + Val(Ch)第7題 （1.0分） 題號(hào):454題目：本程序的功能是隨機(jī)產(chǎn)生的10個(gè)兩位正整數(shù)，并進(jìn)行遞減排序。-Option ExplicitPrivate Sub CreateRND() Dim Temp As Integer Dim I As Integer Dim N As Integer Dim X(10) As Integer Dim J As Integer N = 10 Print 數(shù)據(jù)： For I = 1 To N *FOUND* X(I) = Int(Rnd() * 90) Print X(I); Next I Print Print 排序： For I = 0 To N - 1 For J = I + 1 To N *FOUND* If X(I) X(J) Then *FOUND* Temp = X(I) X(J) = X(I) X(I) = Temp End If Next J Print X(I); Next I PrintEnd SubPrivate Sub Command1_Click() CreateRNDEnd Sub答案：=(答案1)=X(I) = Int(10 + Rnd() * 90)=(答案2)=If X(I) X(J) Then=(答案3)=temp = X(J)第9題 （1.0分） 題號(hào):130題目：以下程序段用于計(jì)算5的N次方。-Option ExplicitPrivate Sub Form_Click() Dim n As Integer, k As Integer, s As Long n = InputBox( Input n )*FOUND* k = 0*FOUND* s = 0 Do While k = n s = s * 5 k = k + 1*FOUND* Next Print 5的; n次方是; sEnd Sub答案：=(答案1)=k=1=(答案2)=s=1=(答案3)=Loop第11題 （1.0分） 題號(hào):452題目：用自定義函數(shù)的方法求sum（x），求當(dāng)-1x1時(shí)， sum（x）=x/2！+x2/3!+x3/4!+xn/(n+1)!， 當(dāng)x1或x-1時(shí)，函數(shù)值為0。當(dāng)n=0時(shí)，輸入數(shù) 據(jù)錯(cuò)誤。X、N都是由用戶輸入。-Option ExplicitPrivate Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox(Please input a integer value:) x = Val(InputBox(Please input a single value:) If n 1 Or x 0 Then pjf = pjf / 30 Debug.Print 不及格 + Str$(bjg) + 人，及格 + Str$(jg) + 人，中等 + Str$(zd) + 人; Debug.Print 良好 + Str$(lh) + 優(yōu)秀 + Str$(yx) + 人 Debug.Print 優(yōu)秀分?jǐn)?shù)段成績(jī)平均分 & pjfEnd Sub答案：=(答案1)=a = Int( Rnd * 100)=(答案2)=pjf = pjf + a=(答案3)=If yx 0 Then pjf = pjf / yx第17題 （1.0分） 題號(hào):456題目：挑選單數(shù)并排序程序：程序啟動(dòng)后由計(jì)算機(jī)自動(dòng)產(chǎn) 生20個(gè)屬于100，300之間的隨機(jī)整數(shù)，單擊顯 示全體按鈕時(shí)，在Form1上顯示這20個(gè)隨機(jī)數(shù)； 單擊顯示奇數(shù)按鈕時(shí)，在Form1上顯示其中的奇數(shù)； 單擊排序按鈕時(shí)，在Form1上將這些奇數(shù)從小到大顯示。 要求顯示格式為每行顯示5個(gè)數(shù)據(jù)。-Option ExplicitPrivate a(20) As Integer, b(20) As IntegerPrivate k As IntegerPrivate Sub cmdodd_Click()Dim I As Integerk = 0For I = 1 To 20 *FOUND* If a(I) / 2 = Int(a(I) / 2) Then k = k + 1 b(k) = a(I) End IfNext IFor I = 1 To k Print b(I); *FOUND* If Int(I / 5) I / 5 Then PrintNext IPrintEnd SubPrivate Sub cmdAll_Click() Randomize Dim I As Integer For I = 1 To 20 *FOUND* a(I) = Int(Rnd() * 20 + 100) Print a(I), If Int(I / 5) = I / 5 Then Print Next I PrintEnd SubPrivate Sub cmdsort_Click() Dim I As Integer Dim J As Integer Dim Temp As Integer For I = 1 To k - 1 For J = I To k If b(I) b(J) Then Temp = b(I): b(I) = b(J): b(J) = Temp Next J Next I For I = 1 To k Print b(I); If Int(I / 5) = I / 5 Then Print Next IEnd Sub答案：=(答案1)=If a(I) mod 2 0 Then=(答案2)=If I mod 5 = 0 Then Print=(答案3)=a(I) = Int(Rnd() * 200 + 100)第19題 （1.0分） 題號(hào):499題目:編程將一個(gè)數(shù)從已經(jīng)有序（設(shè)從小到大排序）的數(shù)組 中刪除，使數(shù)組還繼續(xù)保持有序而且其余元素按照下 標(biāo)連續(xù)存放。-Option ExplicitPrivate Sub Form_Click() Dim A() As Integer, N As Integer, Flag As Integer Dim i As Integer, X As Integer, P As Integer Flag = 0 N = InputBox(輸入元素個(gè)數(shù)) *FOUND* Dim A(N) For i = 1 To N A(i) = InputBox(輸入數(shù)組的第 & i & 個(gè)元素) Next i Print 刪除某元素前的數(shù)組 For i = 1 To N Print A(i); Next iStart: X = InputBox(輸入要?jiǎng)h除的元素：) For i = 1 To N If X = A(i) Then P = i: Flag = 1 Next i If Flag = 0 Then MsgBox (沒有此元素): GoTo Start For i = P To N - 1 *FOUND* A(i + 1) = A(i) Next i *FOUND* N = N + 1 Print 刪除元素后的數(shù)組: For i = 1 To N Print A(i); Next iEnd Sub答案：=(答案1)=ReDim A(N)=(答案2)=A(i) = A(i + 1)=或=A(i) = A(1 + i)=(答案3)=N = N - 1第20題 （1.0分） 題號(hào):139題目：隨機(jī)產(chǎn)生并輸出100以內(nèi)大于50的20個(gè)整數(shù)，輸出時(shí)每5個(gè)數(shù)一行。-Option ExplicitPrivate Sub Form_Click()Randomize TimerDim i As Integer, ma As Integer*FOUND*i = 1*FOUND*Do Until i 50 Then Print ma; i = i + 1*FOUND* If i 5 = 0 Then Print End IfEnd IfLoopEnd Sub答案：=(答案1)=i = 0=(答案2)=Do while i = 0 And a 0 Then *FOUND* root1 = (Sqr(work) / (2 * a) *FOUND* root2 = (Sqr(work) / (2 * a) Debug.Print 有二個(gè)實(shí)根 + Str$(root1) + , + Str$(root2) Else Debug.Print 無實(shí)根! End IfEnd Sub答案：=(答案1)=work = b *b - 4 * a * c=(答案2)=root1 = ( Sqr(work) -b ) / ( a*2)=(答案3)=root2 = (-b - Sqr(work) / (2 * a)=或=第28題 （1.0分） 題號(hào):133題目：下面程序?qū)?0個(gè)整數(shù)從大到小排序-Option ExplicitPrivate Sub Form_Click()Dim t%, m%, n%, w%Dim a(10) As IntegerFor m = 1 To 10 a(m) = Int(10 + Rnd() * 90) Print a(m); ;Next mPrintFor m = 1 To 9 t = m*FOUND* For n = 2 To 10*FOUND* If a(t) a(n) Then n = t Next n*FOUND* If t = m Then w = a(m) a(m) = a(t) a(t) = w End IfNext mFor m = 1 To 10 Print a(m)Next mEnd Sub答案：=(答案1)=For n = m + 1 To 10=(答案2)=If a(t) a(n) Then t = n=(答案3)=If t m Then第30題 （1.0分） 題號(hào):480題目:下面函數(shù)的功能是：求變量s(s=a+aa+aaa+aaaa+) 的值。其中，a是一個(gè)0-9的數(shù)字，總共累加a項(xiàng)。 例如，當(dāng)a=3時(shí),s=3+33+333 (共累加3項(xiàng))。-Option ExplicitPublic Function Calc(a As Integer) Dim s As Long Dim t As Long Dim i As Integer s = a *FOUND* t = 1 For i = 2 To a *FOUND* t = t + a s = s + t Next i Calc = s Print sEnd FunctionPrivate Sub Command1_Click() Dim i As Integer i = InputBox(請(qǐng)輸入數(shù)字（0-9）:) *FOUND* Calc call iEnd Sub答案：=(答案1)=t = a=(答案2)=t = t * 10 + a=(答案3)=Call Calc(i)第31題 （1.0分） 題號(hào):489題目:給定三角形的三條邊，計(jì)算三角形的面積。要求 程序首先判斷給定的三條邊能否構(gòu)成三角形。-Option ExplicitPrivate Sub Form_Click() Dim a As Single, b As Single, c As Single Dim s As Single, t As Singlestart: a = InputBox(輸入1邊長(zhǎng)：) b = InputBox(輸入2邊長(zhǎng)：) c = InputBox(輸入3邊長(zhǎng)：) *FOUND* If a + b c Or b + c a Then MsgBox (不能構(gòu)成三角形，請(qǐng)重新輸入個(gè)邊) GoTo start End If *FOUND* t = (a + b) / 2 *FOUND* s = Sqr(t - a) * (t - b) * (t - c) Print 該三角形的面積：; sEnd Sub答案：=(答案1)=If a + b c Or b + c a Or a + c b Then=(答案2)=t = (a + b + c) / 2=(答案3)=s = Sqr(t * (t - a) * (t - b) * (t - c)第32題 （1.0分） 題號(hào):475題目:本程序求3100之間的所有素?cái)?shù)（質(zhì)數(shù)）并統(tǒng)計(jì)個(gè)數(shù)； 同時(shí)將這些素?cái)?shù)從小到大依次寫入順序文件c:dataout.txt； 素?cái)?shù)的個(gè)數(shù)顯示在窗體Form1上。-Option ExplicitPrivate Sub Command1_Click() Dim Count As Integer, Flag As Boolean Dim t1 As Integer, t2 As Integer *FOUND* Open dataout.txt For Input As #1 Count = 0 For t1 = 3 To 100 Flag = True For t2 = 2 To Int(Sqr(t1) If t1 Mod t2 = 0 Then Flag = False Next t2 *FOUND* If Flag = False Then Count = Count + 1 *FOUND* Write #1, t2 End If Next t1 Form1.Print 素?cái)?shù)個(gè)數(shù); Count Close #1End Sub答案：=(答案1)=Open dataout.txt For Output As #1=或=Open dataout.txt For Output As 1=(答案2)=If Flag Then=或=If Flag=true Then=(答案3)=Write #1, t1=或=Write 1, t1第33題 （1.0分） 題號(hào):137題目：求s=72+102+132+832的值。-Option ExplicitPrivate Sub Form_Click()ClsDim s As LongDim i As Integer*FOUND*s = 1*FOUND*For i = 7 To 832s = s + i*FOUND*loop 30Print sEnd Sub答案：=(答案1)=s =0=(答案2)=For i = 7 To 832 step 30=(答案3)=Next i=或=Next第35題 （1.0分） 題號(hào):131題目：下面程序用于將十個(gè)數(shù)字從小到大排序-Option ExplicitOption Base 1Private Sub Form_Click()ClsDim a(10) As IntegerDim i As Integer, j As Integer, temp As Integer*FOUND*For i = 0 To 10If i Mod 2 = 0 Then a(i) = i Else a(i) = -iPrint a(i);NextPrintFor i = 1 To 10For j = 1 To 10 - i*FOUND*If a(j) a( j + 1 ) Then=(答案3)=Next j, i第40題 （1.0分） 題號(hào):141題目：輸出40以內(nèi)能夠被3整除的數(shù)，要求輸出結(jié)果為5 個(gè)數(shù)一行。-Option ExplicitPrivate Sub Form_Click()ClsDim x As IntegerDim i As Integer*FOUND*i = 1For x = 1 To 40If (x / 3) = (x 3) Then*FOUND* Print x i = i + 1End If *FOUND* If i Mod 3 = 0 Then PrintEnd IfNext xEnd Sub答案：=(答案1)=i = 0=(答案2)=Print x;=(答案3)=if i mod 5=0 then第42題 （1.0分） 題號(hào):117題目：下面的程序段用于實(shí)現(xiàn)以下功能：建立一順序文件，存放10名同學(xué)的學(xué)號(hào)和三門功課成績(jī)，顯示該文件內(nèi)所有記錄， 并同時(shí)顯示其總分和平均分-Option ExplicitPrivate Sub Form_Click()Dim no%, c1%, c2%, c3%, i As Integer*FOUND*Open c:2.txt For Input As #1For i = 1 To 10 no = InputBox(請(qǐng)輸入學(xué)號(hào)) c1 = InputBox(請(qǐng)輸入數(shù)學(xué)成績(jī)) c2 = InputBox(請(qǐng)輸入語文成績(jī)) c3 = InputBox(請(qǐng)輸入外語) Write #1, no, c1, c2, c2Next iClose #1*FOUND*Open c:2.txt For Output As #1For i = 1 To 10*FOUND* Print #1, no, c1, c2, c3 Print no, c1, c2, c3, c1 + c2 + c3, (c1 + c2 + c3) / 3Next iClose #1End Sub答案：=(答案1)=Open c:2.txt For Output As #1=(答案2)=Open c:2.txt For Input As #1=(答案3)=Input #1, n0, c1, c2, c3第43題 （1.0分） 題號(hào):118題目：以下程序段用于輸出100-300的所有素?cái)?shù)-Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As IntegerFor n = 101 T