VB伪代码的题目用VB代码实现得到答案1.有一个剧场共有1000个座位,分成若干排（排数>=2),从第二排起,每排比前一

1.答案：3种
5排 第一排人数：198
16排 第一排人数：55
25排 第一排人数：28
代码：
Private Function Calc()
Dim m, n
For m = 1 To 35
If 2000 Mod (m + 1) = 0 Then
If (2000 / (m + 1) - m) Mod 2 = 0 Then
n = (2000 / (m + 1) - m) / 2
Debug.Print m + 1 & "排 第一排人数：" & n
End If
End If
Next
End Function
2.这个简单 有76个
代码：
Private Sub Calc()
Dim i As Long,count As Long
For i = 1 to 1000
If IsPrime(i) = True And IsPrime(Left(i,1)) = True And IsPrime(Right(i,1)) = True Then count=count+1
Next
End Sub
Private Function IsPrime(ByVal t_I As Integer) As Boolean
Dim J As Integer
For J = 2 To t_I / 2
If t_I Mod J = 0 Then Exit For
Next J
If J > t_I / 2 Then isprime = True
End Function