PSet (x0, y0), RGB(255, 0, 0)
If x ______[25]_____ Then Timer1.Interval = 0 End Sub
三、编程题 1、编程输入10名短跑运动员的姓名及其100米跑成绩，输出最好成绩的运动员姓名及其成绩，再显示低于平均成绩的所有运动员姓名及其成绩。
2、素数(质数)是一个正整数，除了1和它本身之外，不能被其它任何正整数整除。编程：求出1到1000间的所有素数，并将这些素数显示在列表框中。当用户输入的数不是正整数时，给出提示并要求重新输入一个数。
参考答案（可在vb6.0种验证）
一、 选择题 A C D 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 二、 填空题
对于与标准答案不同但验证正确的答案同样给分，对于有个别文字不准确而不致引起误解的答案，可酌情扣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()
三、 编程题）
Private sub form_click()
Dim a(1 To 10) As String, b(1 To 10) As Integer, i%, j%, n%, p%, sum!, aver! 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 iMax = 1 For i = 2 To 10
If b(i)> b(iMax) Then iMax = i Next i
Print \最好成绩为：\
Print \名运动员的平均成绩为\。成绩低于平均成绩的运动员为：For i = 1 To 10
If b(i)< aver Then Print a(i); b(i) Next i End sub 2、
Private sub command1_click() Dim N!, t!,i!,m! Do
N = Val(InputBox(\请输入一个正整数作为范围上限U：\ If N = Int(N) And N > 0 Then Exit Do MsgBox \请输入正整数！\Loop
For m = 1 To N
For i = 2 To Sqr(m)
If m Mod i = 0 Then Exit For Next i
If i > Sqr(m) Then List1.AddItem Str(m) Next m End sub
\
VB期末考试真题试卷及答案七
