2. 计算机
  3. 以下程序， 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

以下程序， 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  51
问题 以下程序，
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
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)