上海海事大学VB程序改错40题.doc

第2题 （1.0分） 题号:129 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：该程序实现将输入的 0 - 255 之间的正整数转 ' 换成二进制数 '------------------------------------------------ Option Explicit Private Sub Form_Click() Const n = 8 Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox("请输入一个 0 - 255 之间的正整数：")) 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分） 题号:463 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：以下程序功能是输入三个数，由大到小排序。 '------------------------------------------------ Option Explicit Dim A As Integer Dim B As Integer Dim C As Integer Private Sub Form_Click() Dim nTemp As Integer A = Val(InputBox("Please input first integer", "输入正整数")) B = Val(InputBox("Please input second integer", "输入正整数")) C = Val(InputBox("Please input third integer", "输入正整数")) '**********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; C End Sub 答案： =======(答案1)======= If A <= B Then =========或========= If B >= A Then =======(答案2)======= If A <= C Then =========或========= If C >= A Then =======(答案3)======= If B <= C Then =========或========= If C >= B Then 第4题 （1.0分） 题号:127 '--------------------------------------