第2题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：该程序实现将输入的 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分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：以下程序功能是输入三个数，由大到小排序。
'------------------------------------------------ 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(\输入正整数\ B = Val(InputBox(\输入正整数\ C = Val(InputBox(\输入正整数\ '**********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 \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分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：下面程序可输出如下图形： ' * ' *** ' ***** ' ******* ' *********
'------------------------------------------------ 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 '**********FOUND********** Print Spc(n)
For j = 1 To 2 * m - 1 Print s; Next j Print
'**********FOUND********** n = n + 1
'**********FOUND********** m = m - 1 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分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：已知一个函数f(x)=1000*sin(x)，利用绘图方法 ' 在图片框中显示其图形。结果如图1
'------------------------------------------------ Option Explicit
Private Const pi = 3.14159 Private Sub Command1_Click() '**********FOUND********** Dim x As Integer
Picture1.Scale (-pi, -1200)-(pi, 1200) '**********FOUND********** For x = -pi To pi Step pi '**********FOUND**********
Picture1.PSet (x, 1000 * pi * Sin(x)), vbRed Next x End Sub 答案：
=======(答案1)======= Dim x As Single =========或========= Dim x!
=======(答案2)=======
For x = -pi To pi Step pi / 180
=======(答案3)=======
Picture1.PSet (x, 1000 * Sin(x)), vbRed =========或=========
Picture1.PSet (x, Sin(x)*1000), vbRed 第6题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目:编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。
'------------------------------------------------ Option Explicit
Private Sub Form_Click()
Dim N As Integer, Sum As Integer, S1 As String, S2 As String Dim i As Integer, Ch As String Sum = 0
N = InputBox(\输入整数n\ S1 = Str(N)
'**********FOUND********** S1 = RTrim(S1) For i = 1 To Len(S1)
'**********FOUND********** Ch = Mid(N, i, 1)
'**********FOUND********** Sum = Val(Ch) Next i
Print \该整数的各位数之和是：\End Sub 答案：
=======(答案1)======= S1 = Trim(S1) =========或=========