真题答案

干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请补充完整下列程序段。
Dim x, amax, amin As Single
x=InputBox("Enter a score")
amax=x
amin=x
Do While 【19】x>=0
If x > amax Then
amax=x
End If
If 【20】x<amin Then
amin=x
End If
x=InputBox("enter a score")
Loop
Print "max="; amax, "min="; amin
(10) 以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。
Sub RecArea(L, W)
Dim S As Double
S=L * W
MsgBox "Total Area is " & Str(S)
End Sub
Private Sub Command1_Click()
Dim M, N
M=InputBox("What is the L?")
M=Val(M)
【21】N=InputBox(“What is the W?”)
N=Val(N)
【22】Call RecArea(M,N)
End Sub
(11) 有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。
Private Sub Form_Click()
Dim x As Single, y As Single
Open "NM1.txt" For Input As #1
Open "NM2.txt" For Input As #2
Do While Not EOF(1)
【23】Input #1,x
Print x
y=x ^ 2
【24】Print #2,x,y
Print y
Loop
Close #1, #2
End Sub
(12) 下面的程序是用选择法将数组a中的10个整数按升序排列，并将程序补充完整。
Private Sub Command1_Click()
Dim a
Dim Tmp As Integer
Dim imin% ,i%,j%
a=Array(678,45,324,528,439,387,87,875,273,823)
For i= 【25】0 to 8
imin=i
For j= 【26】1 to 9
If a(j) 【27】 < a(imin) Then imin=j
Next j
Tmp=a(i)
a(i)=a(imin)
a(imin)=Tmp
Next i
For i=0 To 9
Print a(i)
Next i
End Sub
(13) 下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，设数组中有10个元素完成下列程序。
Private Sub Backward(a())
Dim i As Integer, Tmp As Integer
For i=1 To 5
Tmp=a(i)
【28】 a(i)=a(10-i+1)
【29】a(10-i+1)=Tmp
Next i
End Sub
(14) 下列程序的功能是，计算1！+3！+…9！的值。请将程序补充完整。
Dim nt1 As Single
Sub naa(ByVal n As Single)
nt1=1
For i%=1 To n
nt1=nt1*i%
Next i%
End Sub
Private Sub Form_Click()

Dim nsum As Single
nsum=0
For nlp%=【30】1 to 9 step 2
naa(【31】 nlp% )
nsum= 【32】nsum+nt1
Next nlp%
Print nsum
End Sub