For k =1To12
Tnput #1,sales（k）
Next k
Close #1
End Sub
Private Sub 【12】 （Index As Integer）
Dim sum As Long k As Integer,month As Integer
Sum=0
Month=Index# 【13】
Fork =1To3
Month=month+1
Sum=sum+sales（month）
Next k
Labell,Caption=Opl（Index）. 【14】 ＆销售总额：“
Textl=sum
End Sub

真题网www.pass-e.com
（9）某人编写如下函数来判断a是否为素数，若是，则函数返回Trus;否则返回False Functiom prime（a As Integer）As Boolcan
Dim 1 As Integer,isprime As Boolean
Ifa<2Then
Isprime=Fslse
Else
Isprime=True
k =2
Do While k <a/2And isprime
If a Mod k = 0Then
Isprime=False
Else
k = k +1
End If
Loop
End If
Prime=isprime
End Functiom
在测试时发现有1个非素数也被判断为素数，这个错判的数是 【15】