VB程序改错题含答案.doc

【程序改错】 题目：该程序实现将输入的 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 For m = 1 To n a(m) = x Mod 2 x = x / 2 Next m s = For m = n To 0 Step -1 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, 输入正整数)) If A = C Then nTemp = A A = B B = nTemp End If If B = C Then nTemp = A A = C C = nTemp End If 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 【程序改错】 题目：下面程序可输出如下图形： * *** ***** ******* ********* ------------------------------------------------ Option Explicit Private Sub Form_Click() Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4 m = 1 s = * For i = 5 To 1 Step -1 Print Spc(n) For j = 1 To 2 * m - 1 Print s; Next j Print n = n + 1 m = m - 1 Next i End Sub 答案： =======(答案1)======= Print Spc(n); =========或========= Print Spc(i); =========或========= ? Spc(n); =========或========= ? Spc(i