本系列資料由"韜略宏智" 授權(quán)發(fā)布,任何網(wǎng)站不得轉(zhuǎn)載,否則追究法律責(zé)任。
一、基本操作
在名稱為Form1的窗體上畫一個名稱為Check1的復(fù)選框數(shù)組(Index屬性從0開始),含三個復(fù)選框,其標(biāo)題分別為“語文”、“數(shù)學(xué)”、“英語”,利用屬性窗口設(shè)置適當(dāng)?shù)膶傩允埂罢Z文”未選,“數(shù)學(xué)”被選中,“英語”為灰色,再把窗體的標(biāo)題設(shè)置為“選課”(如圖所示)。
注意:
存盤時必須存放在考生文件夾下,工程文件名為djks003.vbp,窗體文件名為djks003.frm。
【答案】
1.建立工程
單擊考試界面的“功能”選項,從彈出的菜單中選擇“啟動應(yīng)用程序”選項。
三、綜合應(yīng)用
在考生目錄下有一個工程文件djks002.vbp,其窗體上有一個文本框,名稱為Text1;還有一個命令按鈕,名稱為C1,標(biāo)題為“計算”,如圖所示。有一個函數(shù)isprime()可以在程序中直接調(diào)用,其功能是判斷參數(shù)a是否為素數(shù),如果是素數(shù),則返回True,否則返回False。請編寫適當(dāng)?shù)氖录^程,使得在運行時,單擊“計算”按鈕,則找出小于2000的最大素數(shù),并顯示在Text1中。
注意:
考生不得修改isprime()函數(shù)過程和控件的屬性。
程序代碼如下:
【答案】
Private Sub C1_Click()
Static a As Integer
Dim i As Integer
For i = 1 To 2000
Call isprime(i)
If isprime(i) = True Then
a = i
End If
Next i
Text1.Text = a
End Sub
【解析】
在窗體上雙擊C1,進入程序代碼編寫窗口。根據(jù)題意,主要是使2000以內(nèi)的最大素數(shù)顯示在文本框中。故可以使用For循環(huán)語句,令變量i在1~2000之間取值,逐一作為實參調(diào)用isprime()函數(shù)過程,當(dāng)遇到isprime()函數(shù)過程返回True值時(此時i值為素數(shù)),把i的值賦給a。這樣便可求出2000以內(nèi)的最大素數(shù)。
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |