2016年9月二级VB程序设计模拟试题及答案
1.程序设计(10分)
定义命令按钮的单击事件，当单击命令按钮时输出能被3整除的所有三位数。
程序设计题
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.写出下面程序的运行结果(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
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是:
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
单击命令按钮后，程序的运行结果为：
1、6
2、9
3.填空题(每题2分,计16分)
1. 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。
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
=Sum
End Sub
2.按存储信息的.形式分类，文件可以分为【 4 】和【 5 】。
3. 以下语句输出结果是 【 6 】 。
Print Int(12345.6789 * 100 + 0.5) / 100。
4.数学表达式 的VB算术表达式为【 7 】。
5.表达式Lcase(left(“ABCDEFG”,5)的值是【 8 】。
6.设有如下程序：
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函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
(1)tem i count-1 (i)
(2)ASCII文件 二进制文件
(3)12345.68
(4)Sqrt(x)/2/(x+y)+3^2-3*x
(5)abcdef
(6)Array(1) min=array(1)
