計算機等級考試二級VB程序設(shè)計題
【計算機等級考試二級VB程序設(shè)計題一】
1.編寫事件代碼，求1—100之間能被5整除或被7整除的數(shù)的累加和，要求單擊窗體時執(zhí)行事件代碼，并在窗體上輸出運行結(jié)果。
Private Sub Form_Click( )
Dim i%,s!
S=0
For i=1 to 100
If i mod 5=0 or i mod 7=0 then s=s+i
Next i
Print “s=”;s
End Sub
【計算機等級考試二級VB程序設(shè)計題二】
求1+2+3+……+100累加和(單擊窗體執(zhí)行程序)。
Private sub form_click()
Dim i%，s! (2’)
S=0 (2’)
For i=1 to 100 (2’)
S=s+I (2’)
Next
Print “s=”;s (2’)
End Sub
【計算機等級考試二級VB程序設(shè)計題三】
1. Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序運行后，單擊命令按鈕，如果輸入3，則在窗體上顯示的'內(nèi)容是:
2. Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next i
Print s
End Sub
單擊命令按鈕后，程序的運行結(jié)果為：
1、6
2、9
【計算機等級考試二級VB程序設(shè)計題四】
編寫求 n!的程序，n值大小由鍵盤任意輸入。單擊窗體執(zhí)行程序時，在窗體上顯示出n和n!的值。
Private sub form_click()
Dim n%，t!，i% (2分)
n=inputbox(“輸入n值：”) (2分)
t=1 (2分)
For i=2 to n (2分)
t=t*i
End For
Print n;”!=”;t (2分)
End sub
【計算機等級考試二級VB程序設(shè)計題】相關(guān)文章：
計算機等級考試二級VB考點：VB的過程設(shè)計01-05
計算機等級考試二級VB考試題及答案01-06
計算機二級考試《VB》訓(xùn)練題01-11