2014年3月計(jì)算機(jī)二級考試VF臨考預(yù)測試卷及答案7

　　三、簡單應(yīng)用題

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

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

　　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

　　’調(diào)用isPrimeNum函數(shù)判斷是否是素?cái)?shù)

　　total=total+i’如果是，則進(jìn)行求和

　　End If

　　Next i

　　Text2.Text=total 將結(jié)果在Text2中顯示

　　End Sub

　　Function isPrimeNum(num As Integer)As Boolean

　　’判斷輸入的數(shù)是否為素?cái)?shù)

　　isPrimeNum=True

　　Dim i As Integer

　　For i=2 To num-1

　　If num Mod i=c Then

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

　　isPrimeNum=False’則此數(shù)不是素?cái)?shù)

　　Exit For

　　End If

　　Next i

　　End Function

　　單擊 按鈕運(yùn)行程序，并按要求保存。

　　(2)根據(jù)題意，在窗體上添加一個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’讀取的數(shù)據(jù)比原位置的數(shù)據(jù)大則偏移

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

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

　　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

　　’當(dāng)大于平均值時則寫入字符串

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

　　End If

　　Next i

　　Text1.Text=str’將結(jié)果顯示在Text1中

　　End Sub

　　單擊 按鈕運(yùn)行程序，并按要求保存。

　　相關(guān)推薦：

　　2014年全國計(jì)算機(jī)二級考試VF上機(jī)沖刺試卷匯總

　　考試吧考后首發(fā)2014年3月計(jì)算機(jī)二級真題及答案通知

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