vb等級(jí)考試題目與評(píng)析79(參考版)
2024-09-08 16:50本頁面
【正文】 For Output As 1 Print 1, Close 1 End Sub 。兩個(gè)命令按鈕的程序如下： Private Sub C1_Click() Dim i As Integer i = 15000 Do i = i + 1 If isprime(i) = True Then Exit Do Loop = Str(i) End Sub Private Sub C2_Click() Open amp。 *注意： 考生不得修改 isprime函數(shù)過程和控件的屬性，必須把計(jì)算結(jié)果通過 存 盤 按鈕存入 ，否則無成績(jī)。并有一個(gè)函數(shù)過程 isprime(a)可以在程序中直接調(diào)用， 其功能是判斷參數(shù) a是否為素?cái)?shù)，如果是素?cái)?shù)，則返回 True，否則返回 False。以下程序?qū)⒑喜⒑蟮臄?shù)組 C顯 示在 Text3中 For k = 1 To 60 Text3 = Text3 + Str(c(k)) + Space(2) Next k End Sub 按要求保存文件即完成本題。 第 2小題： 本題主要考查的是數(shù)組的應(yīng)用 ，文件的讀寫、排序算法。程序主要代碼如下： Private Function xn(a As Single, m As Integer) Dim i As Integer tmp = 1 For i = 1 To m tmp = tmp * a Next xn = tmp End Function Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim t As Single Dim s, x As Single n = Val() x = Val() z = 0 For i = 2 To n t = x + i z = z + xn(t, i) Next = z Call SaveResult End Sub P
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1