以下程序, Private Sub FormClick() Dim Max As Integer, Min As Integer Dim i As Integer, x As Integer, s As Integer Dim p As Single Ma

admin2013-03-16  28

问题 以下程序,
Private Sub FormClick()
Dim Max As Integer, Min As Integer
Dim i As Integer, x As Integer, s As Integer
Dim p As Single
Max = 0
Min = 10
For i = 1 To 4
x = Val(InputBox("请输入分数:"))
If x>Max Then Max = x
If x<=Min Then Min = x
s = s + x
Next i
s = s-Max-Min
p = s / 4
End Sub
若在键盘依次输入3、6、2、5,则最后p的值为(          )。

选项 A、2
B、3
C、4
D、16

答案A

解析 上述程序实现的功能是,接受键盘输入的4个数,去掉一个最大数和一个最小数,之后求平均值。程序开始为最大值变量Max赋值为0,最小值变量Min赋值为10。当i=1时,x接受第1个数3,此时x>Max,执行Max =x,Max=3,同时x<=Min成立,执行Min = x,Min=3,s=0+3=3,执行下一次循环;当i=2时,x接受第2个数6,此时x>Max,执行Max =x,Max=6,同时x<=Min不成立,s=3+6=9,执行下一次循环;当i=3时,x接受第3个数2,此时x>Max不成立,x<=Min成立,执行Min = x,Min=2,s=9+2=11,执行下一次循环;当i=4时,x接受第4个数5,此时x>Max不成立,x<=Min不成立,s=11+5=16,跳出循环。执行s-Max-Min=16-6-2=8赋值给s,执行s/4=2赋值给p,所以最后p值为2。
转载请注明原文地址:https://kaotiyun.com/show/xaup777K
0

最新回复(0)