=========或========= t = (a + b + c ) / 2
=======(答案3)=======
s = Sqr(t * (t - a) * (t - b) * (t - c)) =========或=========
s = Sqr( t * (t - a) * (t - b) * (t - c) ) 第32题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目:本程序求3~100之间的所有素数（质数）并统计个数； ' 同时将这些素数从小到大依次写入顺序文件c:\\dataout.txt； ' 素数的个数显示在窗体Form1上。
'------------------------------------------------ Option Explicit
Private Sub Command1_Click()
Dim Count As Integer, Flag As Boolean Dim t1 As Integer, t2 As Integer '**********FOUND**********
Open \ Count = 0
For t1 = 3 To 100 Flag = True
For t2 = 2 To Int(Sqr(t1))
If t1 Mod t2 = 0 Then Flag = False Next t2
'**********FOUND********** If Flag = False Then Count = Count + 1
'**********FOUND********** Write #1, t2 End If Next t1
Form1.Print \素数个数\ Close #1 End Sub 答案：
=======(答案1)=======
Open \=========或=========
Open \
=======(答案2)======= If Flag Then
=========或========= If Flag=true Then
=======(答案3)======= Write #1, t1
=========或========= Write 1, t1
第33题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：求s=72+102+132+??832的值。
'------------------------------------------------ Option Explicit
Private Sub Form_Click() Cls
Dim s As Long Dim i As Integer
'**********FOUND********** s = 1
'**********FOUND********** For i = 7 To 832 s = s + i
'**********FOUND********** loop 30 Print s End Sub 答案：
=======(答案1)======= s =0
=======(答案2)======= For i = 7 To 832 step 30
=======(答案3)======= Next i
=========或========= Next
第35题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：下面程序用于将十个数字从小到大排序
'------------------------------------------------ Option Explicit Option Base 1
Private Sub Form_Click() Cls
Dim a(10) As Integer
Dim i As Integer, j As Integer, temp As Integer '**********FOUND********** For i = 0 To 10
If i Mod 2 = 0 Then a(i) = i Else a(i) = -i Print a(i); Next Print
For i = 1 To 10 For j = 1 To 10 - i '**********FOUND********** If a(j) < a(j + 1) Then
temp = a(j): a(j) = a(j + 1): a(j + 1) = temp End If
'**********FOUND********** Next i, j For i = 1 To 10 Print a(i); Next End Sub 答案：
=======(答案1)======= For i = 1 To 10
=======(答案2)======= If a(j) > a( j + 1 ) Then =========或=========
If a( j + 1 )
=======(答案3)======= Next j, i
第40题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：输出40以内能够被3整除的数，要求输出结果为5 ' 个数一行。
'------------------------------------------------ Option Explicit
Private Sub Form_Click() Cls
Dim x As Integer Dim i As Integer
'**********FOUND********** i = 1
For x = 1 To 40
If (x / 3) = (x \\ 3) Then '**********FOUND********** Print x i = i + 1 End If
'**********FOUND********** If i Mod 3 = 0 Then Print End If Next x End Sub 答案：
=======(答案1)======= i = 0
=======(答案2)=======
Print x;
=======(答案3)======= if i mod 5=0 then 第42题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：下面的程序段用于实现以下功能：建立一顺序文 ' 件，存放10名同学的学号和三门功课成绩，显示 ' 该文件内所有记录， 并同时显示其总分和平均分
'------------------------------------------------ Option Explicit
Private Sub Form_Click()
Dim no%, c1%, c2%, c3%, i As Integer '**********FOUND********** Open \For i = 1 To 10
no = InputBox(\请输入学号\ c1 = InputBox(\请输入数学成绩\ c2 = InputBox(\请输入语文成绩\ c3 = InputBox(\请输入外语\ Write #1, no, c1, c2, c2 Next i Close #1
'**********FOUND********** Open \For i = 1 To 10
'**********FOUND********** Print #1, no, c1, c2, c3
Print no, c1, c2, c3, c1 + c2 + c3, (c1 + c2 + c3) / 3 Next i Close #1 End Sub 答案：
=======(答案1)=======
Open \
=======(答案2)=======