2016年9月二級VB程序設(shè)計模擬試題及答案
1.程序設(shè)計(10分)
定義命令按鈕的單擊事件，當(dāng)單擊命令按鈕時輸出能被3整除的所有三位數(shù)。
程序設(shè)計題
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分,計16分)
1. 窗體上有一個名稱為List1的列表框，一個名稱為Text1的文本框，一個名稱為Label1、Caption屬性為“Sum”的標(biāo)簽，一個名稱為Command1、標(biāo)題為“計算”的命令按鈕。程序運(yùn)行后，將把1～100之間能夠被7整除的數(shù)添加到列表框。如果單擊“計算”按鈕，則對List1中的數(shù)進(jìn)行累加求和，并在文本框中顯示計算結(jié)果，如圖所示。以下是實現(xiàn)上述功能的程序，請?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
Text1.Text=Sum
End Sub
2.按存儲信息的形式分類，文件可以分為【 4 】和【 5 】。
3. 以下語句輸出結(jié)果是 【 6 】 。
Print Int(12345.6789 * 100 + 0.5) / 100。
4.數(shù)學(xué)表達(dá)式 的VB算術(shù)表達(dá)式為【 7 】。
5.表達(dá)式Lcase(left(“ABCDEFG”,5)的值是【 8 】。
6.設(shè)有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer, i As Integer
arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)
Min = 【9】
For i = 2 To 8
If arr1(i) < Min Then 【10】
Next i
Print "最小值是："; Min
End Sub
以上程序的功能是：用Array函數(shù)建立一個含有8個元素的數(shù)組，然后查找并輸出該數(shù)組中各元素的最小值。請?zhí)羁铡?/p>
(1)list1.additem i list1.listcount-1 list1.list(i)
(2)ASCII文件 二進(jìn)制文件
(3)12345.68
(4)Sqrt(x)/2/(x+y)+3^2-3*x
(5)abcdef
(6)Array(1) min=array(1)