計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)練習(xí)題
對(duì)于計(jì)算機(jī)等級(jí)開始想拿高分就要多做練習(xí)題，下面是小編分享的計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)練習(xí)題，希望對(duì)你有幫助!
【計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)題一】
1.編寫事件代碼，求1—100之間能被5整除或被7整除的數(shù)的累加和，要求單擊窗體時(shí)執(zhí)行事件代碼，并在窗體上輸出運(yùn)行結(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
【計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)題二】
求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
【計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)題三】
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
程序運(yùn)行后，單擊命令按鈕，如果輸入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
單擊命令按鈕后，程序的運(yùn)行結(jié)果為：
1、6
2、9
【計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)練習(xí)題】相關(guān)文章：
計(jì)算機(jī)等級(jí)考試二級(jí)VB應(yīng)試題型解題技巧01-30
計(jì)算機(jī)等級(jí)考試二級(jí)C語言過關(guān)技巧01-30
全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)應(yīng)試技巧01-30
計(jì)算機(jī)等級(jí)考試課程教學(xué)02-11
計(jì)算機(jī)等級(jí)考試上機(jī)注意事項(xiàng)01-30
計(jì)算機(jī)二級(jí)公共基礎(chǔ)知識(shí)教程:面向?qū)ο蟮某绦蛟O(shè)計(jì)05-09