Question

请求高人指点我的白痴VB问题呀！！！ Option Explicit Private Sub Command1_Click() Dim y As Integer, m

在文本1中输入大于10的偶数，找出靠10最近的素数（左右两边靠10最近的）
Option Explicit

Private Sub Command1_Click()
Dim y As Integer, m As Integer, k As Integer, i As Integer, n As Integer
Dim min As Integer, max As Integer, prime As Boolean
y = Text1.Text
For i = y To 10 Step -1
Call prime(i)
If prime = True Then m = i
Exit For
Next i
Do
k = y + 1
Call prime(k)
If prime = True Then
Exit Do
Loop
min = k - y
max = y - m
If min < max Then
Text2.Text = "k"
Else: Text2.Text = "m"
End If
End Sub
Private Function prime(a As Integer) As Boolean
Dim j As Integer
For j = 2 To a - 1
If a Mod j = 0 Then Exit Function
Next i
prime = True
End Function

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()

End Sub

程序运行时总是说 call prime(i) 这个地方缺少子程序，函数或者属性 是怎么回事呀

Answer 1

调用方法错。
call prime(i)是一个函数，调用函数的目的是得到一个结果。该函数的结果是一个布尔值。
取消 call ……，直接把该函数的调用放在下一句的判断中。
If prime(i) = True Then m = i
……
If prime(k) = True Then
……

Answer 2

删除command1_click里定义的,prime As Boolean，还有其它很多错误自己改吧。