上海海事大学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 **********FO