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

第一步：啟動(dòng)Visual Basic，打開考生文件夾下的工程文件T507. vbp。 第二步：雙擊窗口中的任何位置，進(jìn)入程序編輯窗口，補(bǔ)充程序如下： 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ìn)入程序編寫窗口。根據(jù)題意，主要是使2000以內(nèi)的最大素?cái)?shù)顯示在文本框中，故可以使用For循環(huán)語句，令變量i在1～2000之間取值，逐一作為實(shí)參調(diào)用isprime( )函數(shù)過程，當(dāng)遇到isprime( )函數(shù)過程返回True值時(shí)，把i的值賦給a。這樣循環(huán)便可得到2000以內(nèi)的最大素?cái)?shù)。 這也是本題最后所給兩點(diǎn)要求的原因。