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

第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 ------------------------------------------------ 【程序改错】 ---------------------------