[問答題] 在考生文件夾下有一個工程文件T507.vbp，其窗體上 有一個文本框，名稱為Text1；還有一個命令按鈕，名稱為C1，標(biāo) 題為“計算”，如圖所示。有一個函數(shù)isprime( )可以在程序中直 接調(diào)用，其功能是判斷參數(shù)a是否為素數(shù)，如果是素數(shù)，則返回 True，否則返回False。請編寫適當(dāng)?shù)氖录^程，使得在運行時， 單擊“計算”按鈕，則找出小于2000的最大素數(shù)，并顯示在 Text1中。

注意：考生不得修改isprime( )函數(shù)過程和控件的屬性。

試題源程序：

1 Private Function isprime(a As Integer)As Boolean

2 Dim flag As Boolean

3 flag=True

4 b%=2

5 Do while b%＜=Int(a/2)And flag

6 If Int(a/b%)=a/b%T hen

7 flag=False

8 Else

9 b%=b%+1

10 End If

11 Loop

12 isprime= flag

13 End Eunction

第一步：啟動Visual Basic，打開考生文件夾下的工程文件T507. vbp。 第二步：雙擊窗口中的任何位置，進入程序編輯窗口，補充程序如下： 1 Private Sub C1_Click( ) 2 Static a As Integer 3 Dim i As Integer 4 For i=1 To 2000 5 Call isprime(i) 6 If isprime(i)=True Then 7 a=i 8 End If 9 Next i 10 Me.Text1. Te

本題主要考查過程函數(shù)的調(diào)用以及For循環(huán)語句的使用?？忌稍诖绑w上雙擊C1，進入程序編寫窗口。根據(jù)題意，主要是使2000以內(nèi)的最大素數(shù)顯示在文本框中，故可以使用For循環(huán)語句，令變量i在1～2000之間取值，逐一作為實參調(diào)用isprime( )函數(shù)過程，當(dāng)遇到isprime( )函數(shù)過程返回True值時，把i的值賦給a。這樣循環(huán)便可得到2000以內(nèi)的最大素數(shù)。 這也是本題最后所給兩點要求的原因。