[問答題] 在考生文件夾下有一個工程文件T507.vbp，其窗體上有一個文本框，名稱為Text1；還有一個命令按鈕，名稱為C1，標(biāo)題為“計(jì)算”，如圖所示。有一個函數(shù)isprime()可以在程序中直接調(diào)用，其功能是判斷參數(shù)a是否為素?cái)?shù)，如果是素?cái)?shù)，則返回True，否則返回False。請編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時，單擊“計(jì)算”按鈕，則找出小于2000的最大素?cái)?shù)，并顯示在Text1中。注意：考生不得修改isprime()函數(shù)過程和控件的屬性。試題源程序：1 Private Function isprime(a As Integer)As Boolean2 Dim flag As Boolean3 flag=True4 b%=25 Do While b%＜=Int(a/2)And flag6 If Int(a/b%)=a/b% Then7 flag=False8 Else9 b%=b%+110 End If11 Loop12 isprime=flag13 End Function

第一步：啟動Visual Basic，打開考生文件夾下的工程文件T507.vbp。第二步：雙擊窗口中的任何位置，進(jìn)入程序編輯窗口，補(bǔ)充程序如下：1 Private Sub C1 Click()2 Static a As Integer3 Dim i As Integer4 For i=1 To 20005 Call isprime(i)6 If isprime(i)=True Then7 a=i8 End If9 Next i10 Me Text1.Text=a11 End Sub第三步：調(diào)試運(yùn)行程序，正

本題主要考查過程函數(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值時，把i的值賦給a。這樣循環(huán)便可得到2000以內(nèi)的最大素?cái)?shù)。