VB程序改错40题含答案.docxVIP

【程序改错】 题目：该程序实现将输入的 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 \ 2 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() 输入正整数 )) 输入正整数 )