三、簡單應用題

　　(1)判斷一個數是否為素數的準則：就是看該數是否除了1及其本身外別無其他約數(即從2到n-1 之間沒有可以將其整除的數)即可。

　　根據題意，在窗體上添加兩個Text控件和一個Command控件，Text的名稱分別為Text1和Text2、Text屬性均為空，Command的名稱為Command1、Caption屬性為“計算”。雙擊Command1命令按鈕，編寫如下代碼(本書答案解析部分的代碼中，若無特殊說明，加下劃線的代碼則表明是需要考生補充的代碼)：

　　Private Sub Command1_Ctick()

　　Dim total As Long

　　Dim i As Integer

　　total=0

　　For i=1 To Val(Text1.Text)

　　If isPrimeNum(i)=True Then

　　’調用isPrimeNum函數判斷是否是素數

　　total=total+i’如果是，則進行求和

　　End If

　　Next i

　　Text2.Text=total 將結果在Text2中顯示

　　End Sub

　　Function isPrimeNum(num As Integer)As Boolean

　　’判斷輸入的數是否為素數

　　isPrimeNum=True

　　Dim i As Integer

　　For i=2 To num-1

　　If num Mod i=c Then

　　’如果能被除1及其本身以外的數整除

　　isPrimeNum=False’則此數不是素數

　　Exit For

　　End If

　　Next i

　　End Function

　　單擊 按鈕運行程序，并按要求保存。

　　(2)根據題意，在窗體上添加一個Text控件和兩個Command控件，Text的名稱為Text1、Text屬性為空，Command的名稱分別為Command1和Command2，Caption屬性分別為“輸入”和“輸出”。雙擊Command1命令按鈕，編寫如下代碼：

　　Dim a(6)As Integer

　　Private Sub Command1_Click()

　　Dim i As Integer

　　Dimj As Integer

　　Dim k As Integer

　　Dim trap As Integer

　　For i=1 To 6

　　a(i)=Val(InputBoK("請輸入"))

　　Next i

　　For i=1 To 6 ’升序序排列

　　temp=a(i)

　　For j=1 To i

　　If a(j)>temp Then’讀取的數據比原位置的數據大則偏移

　　For k=i To J…1 Step-1’上下限

　　a(k)=a(k-1) ’數據向后偏移一個

　　Next k

　　a(j)=temp

　　Exit For

　　End If

　　Next j

　　Next i

　　End Sub

　　Prival e Sub Command2 Click()

　　Dim arg As Integer

　　Dim str As String

　　Dimj As Integer

　　arg=0

　　Dim i As Integer

　　str=""

　　For i=1 To 6

　　arg=arg+a(i) ’求總和

　　Next i

　　arg=arg\6’求平均值.

　　Fm i=1 To 6

　　If a(i)>arg Then

　　’當大于平均值時則寫入字符串

　　str=str+CStr(a(i))+""

　　End If

　　Next i

　　Text1.Text=str’將結果顯示在Text1中

　　End Sub

　　單擊 按鈕運行程序，并按要求保存。

　　相關推薦：

　　2014年全國計算機二級考試VF上機沖刺試卷匯總

　　考試吧考后首發2014年3月計算機二級真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題