[单项选择]某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Command1_Click（　）
Dim a(10) As Integer, max As Integer
For k = 1 To 10
a(k) = InputBox("输入一个整数")
Next k
max = 0
For k = 1 To 10
If a(k) ＞ max Then
max = a(k)
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是( )。
A. 把If a(k)＞max Then改为If a(k)＜max Then
B. 把max=a(k)改为a(k)=max
C. 把第2个循环语句For k = 1 To 10改为For k = 2 To 10
D. 把max=0改为max=a(10)

[单项选择]某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click（　） Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。
A. 把Ifa(k)＞max Then 改为 If a(k)＜max Then
B. 把max=a(k)改为a(k)=max
C. 把第2个循环语句For k=1 To 10改为For k=2 To 10
D. 把max=O改为max=a(10)

[单项选择]有如下程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Command1_Click（　）
Dim a(10) As Integer, max As Integer
For k=1 To 10
a(k)=InputBox("输入一个整数")
Next k
max=0
For k=1 To 10
If a(k)＞max Then
max=a(k)
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个整数时，可以得到正确结果；但输入10个负数时结果是错误的。程序需要修改，下列修改中可以得到正确运行结果的是
A. 把If a(k)＞max Then改为If a(k)＜max Then
B. 把max=a(k)改为a(k)=max
C. 把第二个循环语句For k=1 To 10改为For k=2 To 10
D. 把max=0改为max=a(10)

[单项选择]有如下程序，运行时从键盘输入3，输出结果是 ______。
Private Sub Command1_Click（　）
a=InputBox("请输入一个数字：")
Select Case a
Case Is＞2
b=a+1
Case Is＞3
b=a+2
Case Is＞4
b=a＋3
Case Is＞5
b＝a＋4
End Select
Print a ＋ b
End Sub
A. 8
B. 7
C. 6 p．9

[简答题]利用随机函数rand（　）生成10个整型随机数，输出它们之中的最大值和最小值；如果把最大值和最小值之和的一半称为中间值，输出所有大于中间值的数。

[填空题]下面函数用来求两个单精度数之和，并通过形参将结果传回，请填空。
void sub(float x，float y, 【18】 z)
【19】 =x+y;

[填空题]下面函数用来求两个单精度数之和，并通过形参将结果传回，请填空。 Void sub(float x，noat y， 【19】 z) { 【20】 ＝x+y；}

[填空题]下面的程序随机产生10个小于100的整数，并找出其最大值、最小值和平均值，请将程序补充完整。(此程序是VB语言编写)
Private Sub Form_Click( )
Dim a(1 To 10)As Integer
Dim m_max As Integer，m_min As Integer
Dim s As Single
Randomize
For i=1 To 10
a(i)=______
Print a(i)
Next i
m_max=0：m_min=100
For i=1 To 10
If a(i)＞m_max Then
If a(i)＜m min Then m_min=a(i)
s=______
______
Print"最大值是："；m_max
Print"最小值是："；m_min
Print"平均值是："；______
End Sub

[简答题]请编制程序，其功能是：剔除10个8位无符号二进制数据中的最大值和最小值，然后按四舍五入原则计算其余8个数据的算术平均值，将剔除最大值和最小值之后的8个数据依次存入指定的内存区域中，并在其后存放平均值。
例如：
内存中有：01H，05H，04H，00H，07H，09H，02H，06H，08H，03H
结果为： 01H，05H，04H，07H，02H，06H，08H，03H，05H
部分程序已给出，其中原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中，运算结果要求从 RESULT开始存放，由过程SAVE保存到文件OUTPUT1.DAT中。
请填空BEGIN和END之间已给出的源程序使其完整，空白已用横线标出，每个空白一般只需一条指令，但采用功能相当的多条指令亦可，或删除BEGIN和END之间原有的代码并自行编程来完成所要求的功能。
对程序必须进行汇编，并与IO.OBJ链接产生可执行文件，最终运行程序产生结果。调试中若发现整个程序中存在错误之处，请加以修改。
[试题程序]
EXTRN LOAD:FAR,SAVE:FAR
N EQU 10
DSEG SEGMENT
SOURCE DB N DUP（　）
RESULT DB N-1 DUP(0)
NAME0 DB ’INPUT1.DAT’,0
NAME1 DB ’OUTPUT1.DAT’,0
TEMP DW 0
DSEG ENDS
SSEG SEGMENT STACK
DB 200 DUP（　）
SSEG ENDS
CSEG SEGMENT
ASSUME CS:CSEG,SS:SSEG,DS:DSEG,ES:DSEG
START PROC FAR
PUSH DS
XOR AX,AX
PUSH AX
MOV AX,D

[填空题]下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click（　） Dim an(10)As Integer Dim max As Integer 　　Randomize 　　For i %=1 To 10 　　　　an(i%)=______ 　　Next 　　max=an(1) 　　For i%=2 to 10 　　　　ifan(i%)＞max then 　　　　　　max=an(i%) 　　　　End If 　　Next 　　Print max End Sub

[填空题]下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click（　）
　　Dim an (10) As Integer
　　Dim max As Integer
　　Randomize
　 For i%=1 To 10
　　 an(i%)= (14)
　 Next i%
　　max=an(1)
　 For i%=2 To 10
　　　if (15) then
　　　 max=an(i%)
　　 End If
　 Next i%
　 print max
　 End Sub
End Sub