VB程改错题含答案.docVIP

【程序改错】 题目：该程序实现将输入的 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 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 【程序改错】 题目：下面程序可输出如下图形： I * I *** I ***** I ******* I ********* 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 —一 H*H s = * For i = 5 To 1 Step -1 Print Spc（n） For j = 1 To 2 * m - 1 Print s; Next j Print Next i End Sub 答案： =======( 答案 1)======= Print Spc(n); =========或 ========= Print Spc(i); =========或 ========= ? Spc(n); =========或 ========= ? Spc(i); =======( 答案 2)======= n = n - 1 =========或 ========= n = - 1+n =======( 答案 3)======= m = m + 1 第 5 题 (1.0 分) 题号 :469 【程序改错】 题目：已知一个函数 f(x)=1000*sin(x) ，利用绘图方法 在图片框中显示其图形。结果如图 1 Option Explicit Private Const pi = 3.14159 Private Sub Command1_Click() Dim x As Integer Picture1.Scale (-pi, -1200)-(pi, 1200) For x = -pi To pi Step pi Picture1.PSet (x, 1000 * pi * Sin(x)