试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省东阳中学2018-2019学年高一下学期信息技术6月月考试卷
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序计算了一个表达式的值，这个表达式是（ ）
Dim j As Integer, k As Integer
List Clear
For k = 1 To 100
j = Int(Sqr(k))
If j * j = k Then list1.AddItem Str(k)
Next k
分析程序功能，该程序的功能是（ ）
i = 1: j = 10: temp = a(5)
Do While a(j) > temp j = j - 1
Loop
Do While a(i) < temp i = i + 1
temp = a(i) ：a(i) = a(j)：a(j) = temp
数组元素a(1)到a(10)的值依次为“36 91 36 17 93 99 2 9 97 97”，执行该程序段后，a(5)的值为（ ）
If a>b Then t=a:a=b:b=t s=a+b
a=s-a b=s-b
已知变量a和b中的值均为正整数，且a的值大于b的值，执行该程序段后，值最终未发生改变的变量是（ ）
试题篮
