9月二級(jí)VB程序設(shè)計(jì)模擬試題及答案

時(shí)間：2024-09-23 02:38:56 計(jì)算機(jī)等級(jí) 我要投稿

相關(guān)推薦

2016年9月二級(jí)VB程序設(shè)計(jì)模擬試題及答案

　　1.程序設(shè)計(jì)(10分)

2016年9月二級(jí)VB程序設(shè)計(jì)模擬試題及答案

　　定義命令按鈕的單擊事件，當(dāng)單擊命令按鈕時(shí)輸出能被3整除的所有三位數(shù)。

　　程序設(shè)計(jì)題

　　Private Sub Command1_Click()

　　Dim i As Integer

　　For i = 100 To 999

　　If i Mod 3 = 0 Then

　　Print i

　　End If

　　Next i

　　End Sub

　　2.寫出下面程序的運(yùn)行結(jié)果(10分)

　　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

　　3.填空題(每題2分,計(jì)16分)

　　1. 窗體上有一個(gè)名稱為L(zhǎng)ist1的列表框，一個(gè)名稱為Text1的文本框，一個(gè)名稱為L(zhǎng)abel1、Caption屬性為“Sum”的標(biāo)簽，一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕。程序運(yùn)行后，將把1～100之間能夠被7整除的數(shù)添加到列表框。如果單擊“計(jì)算”按鈕，則對(duì)List1中的數(shù)進(jìn)行累加求和，并在文本框中顯示計(jì)算結(jié)果，如圖所示。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡?/p>

　　Private Sub Form_Load()

　　For i=1 To 100

　　If i Mod 7 =0 Then

　　_【 1_】__

　　End If

　　Next i

　　End Sub

　　Private Sub Command1_Click()

　　Sum =0

　　For i=0 To__【 2_】__

　　Sum =Sum+_【_3 】_____

　　Next i