If x ______[25]_____ Then Timer1.Interval = 0 End Sub
三、编程题（每题10分，共20分）
1、编程输入10名短跑运动员的姓名及其100米跑成绩，输出最好成绩的运动员姓名及其成绩，再显示低于平均成绩的所有运动员姓名及其成绩。
2、素数(质数)是一个正整数，除了1和它本身之外，不能被其它任何正整数整除。编程：求出1到1000间的所有素数，并将这些素数显示在列表框中。当用户输入的数不是正整数时，给出提示并要求重新输入一个数。
一、 选择题（30分，每空1分） A C D
二、 填空题（共50分，每空2分）
对于与标准答案不同但验证正确的答案同样给分，对于有个别文字不准确而不致引起误解的答案，可酌情扣1分。
[1] 2 [23] X [2] ccccccc [24] Y=cos(x) [3] 2 18 [25] >3.1415926[4] 4 [5] 12
[6] 100 To 999 [7] (x-100*a)\\10
[8] X=a^3+b^3+c^3 [9] Endif
[10] Val( InputBox [11] < [12] Nu=x [13] “ & Nu [14] Nmin
[15] UBound(b) [16] Nmin=b(i)
[17] ProcMin=Nmin [18] ia()
[19] Int(Rnd*(80-50+1))+50 [20] n-1 [21] Ia(j+1)
[22] Form_Click()
C A B C C A D B B A B B C C C A D B D C B B C D C B D
三、 编程题（每题10分，共20分）
1、编程输入10名短跑运动员的姓名及其100米跑成绩，输出最好成绩的运动员姓名及其成绩，再显示低于平均成绩的所有运动员姓名及其成绩。 ‘定义数组及其它变量1分
Dim a(1 To 10) As String, b(1 To 10) As Integer, i%, j%, n%, p%, sum!, aver! ‘循环输入姓名、成绩，并求平均3分 For i = 1 To 10
a(i) = InputBox(\请输入第\个运动员的姓名\
b(i) = Val(InputBox(\请输入第\个运动员的短跑成绩\ sum = sum + b(i) Print a(i); b(i) Next i
aver = sum / 10
'用打擂台算法找成绩最好（数值最小）的运动员3分 iMin = 1
For i = 2 To 10
If b(i) < b(iMin) Then iMin = i Next i
Print \最好成绩为：\
'也可以升序排序，排序后第一个运动员成绩是最好的。此法可求出成绩最好的前n个运动员。可用冒泡法，也可用选择法 For i = 1 To 10 - 1 Max = i
For j = i + 1 To 10
If b(j) < b(Max) Then Max = j Next j
temp = b(i) b(i) = b(Max)
b(Max) = temp temp = a(i) a(i) = a(Max) a(Max) = temp Next i Print
Print \最好成绩为：\
‘循环遍历数组找出成绩低于平均的所有人3分
Print \名运动员的平均成绩为\& aver & \。成绩低于平均成绩的运动员为：\
For i = 1 To 10
If b(i) > aver Then Print a(i); b(i) Next i
2、素数(质数)是一个正整数，除了1和它本身之外，不能被其它任何正整数整除。编程：求出1到N间的所有素数，并将这些素数显示在列表框中。当用户输入的数N不是正整数时，给出提示并要求重新输入一个数。 Dim N!, t!,i!,m!
‘循环判断，输入正整数3分 Do
N = Val(InputBox(\请输入一个正整数作为范围上限U：\ If N = Int(N) And N > 0 Then Exit Do MsgBox \请输入正整数！\Loop
For m = 1 To N ‘枚举算法2分
For i = 2 To Sqr(m) ‘判断是否素数3分 If m Mod i = 0 Then Exit For Next i
If i > Sqr(m) Then List1.AddItem Str(m) ‘列表框输出结果2分 Next m