Private Sub NJIT_VB(s As Single)
Open App.Path & \ Print #1, s Close End Sub
【参考代码】
Private Function Fact(n As Integer) As Long Dim i As Integer Fact = 1
For i = 1 To n
Fact = Fact * i Next i End Function
Private Sub Command1_Click() '调用函数Fact求表达式(3!+4!)/5!的值 Dim s As Single '表达式(3!+4!)/5!的计算结果务必保存在变量s中 s = (Fact(5) + Fact(6)) / Fact(7) Text1.Text = s NJIT_VB s End Sub
===============
【考生代码】
Private Function Fact(n As Integer) As Long
End Function
Private Sub Command1_Click() '调用函数Fact求表达式(5!+6!)/7!的值 Dim s As Single '表达式(5!+6!)/7!的计算结果务必保存在变量s中
NJIT_VB s End Sub
【控件属性评分】 错误 【控件】VB.ComboBox_Cmb1 标准答案：Name=Cmb1 学生答案：Name=
【窗体属性评分】 错误 【窗体】sjt1.frm
标准答案：Name=Form1 学生答案：Name=Form2
【窗体属性评分】 错误 【窗体】sjt1.frm
标准答案：Caption=电影制作 学生答案：Caption=Form1
【控件属性评分】 错误
【控件】VB.CommandButton_Command2 标准答案：Name=Command2 学生答案：Name=
【控件属性评分】 错误
【控件】VB.CommandButton_Command2 标准答案：Caption=右移 学生答案：Caption=
【控件属性评分】 错误
【控件】VB.CommandButton_Command1 标准答案：Name=Command1 学生答案：Name=
【控件属性评分】 错误
【控件】VB.CommandButton_Command1 标准答案：Caption=左移 学生答案：Caption=
【事件评分】 错误
【事件】Private Sub Command2_Click()
标准答案： Shape1.Left = Shape1.Left + 100 学生答案：
【事件评分】 错误
【事件】Private Sub Command1_Click()
标准答案： Shape1.Left = Shape1.Left - 100 学生答案：
【窗体属性评分】 错误 【窗体】sjt2.frm
标准答案：Name=Form1 学生答案：Name=Form2
【窗体属性评分】 错误 【窗体】sjt2.frm
标准答案：Caption=椭圆练习 学生答案：Caption=Form1
【控件属性评分】 错误
【控件】VB.Shape_Shape1 标准答案：Name=Shape1 学生答案：Name=
【控件属性评分】 错误
【控件】VB.Shape_Shape1 标准答案：Height=800 学生答案：Height=
【控件属性评分】 错误
【控件】VB.Shape_Shape1 标准答案：Left=1000 学生答案：Left=
【控件属性评分】 错误
【控件】VB.Shape_Shape1 标准答案：Width=1200 学生答案：Width=
【控件属性评分】 错误
【控件】VB.Shape_Shape1 标准答案：BorderWidth=5 学生答案：BorderWidth=
【控件属性评分】 错误
【控件】VB.Shape_Shape1
标准答案：BorderColor=&H00C00000& 学生答案：BorderColor=
【控件属性评分】 错误
【控件】VB.Shape_Shape1
标准答案：FillColor=&H0000FFFF& 学生答案：FillColor=
【控件属性评分】 错误
【控件】VB.Shape_Shape1
标准答案：FillStyle=0 'Solid 学生答案：FillStyle=
（三）
1 窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。以下的( C )语句可以使文本框内显示的内容为：5+7=12。 A.Text1.Text = a + b + c
B.Text1 = \
C.Text1 = a & \D.Text1.Text = \
2. 在以下有关对象属性的叙述中，不正确的是( D )。 A.属性窗口中的属性列表既可按字母排序也可按类别排序 B.一个对象的属性可分为外观、行为若干类 C.不同属性可能具有不同的数据类型
D.一个对象的所有属性都可在属性窗口的列表中进行设置 3.结构化程序设计有三种基本结构，不包括( A )。 A.模块结构 B.顺序结构 C.选择结构 D.循环结构
4.Int(100 * Rnd())产生的随机整数区间是(B ) A.[1,99] B.[0,99] C.[1,100] D.[0,100]
5. 表达式5 * 2 Mod 25 \\ 2 ^ 2的值是( D ) A.6 B.0 C.1 D.4
6. 以下是布尔型常量的是( D ) A. \B.# True # C.' True ' D.True
7. 为了防止用户随意将光标置于文本框中，应( B ) A.将文本框的TabStop属性设置为True B.将文本框的TabStop属性设置为False C.将文本框的Enabled属性设置为True D.将文本框的TabIndex属性设置为0
8. 以下(A )程序段可以实现X、Y变量值的交换 A.Z=X:X=Y:Y=Z B.Z=X:W=Y:Y=Z:X=Y C.Y=X:X=Y D.Z=X:Y=Z:X=Y
9. 为了给X、Y、Z三个变量赋值1，下面正确的赋值语句是( C) A.X,Y,Z=1 B.X=Y=Z=1 C.X=1:Y=1:Z=1 D.X=1,Y=1,Z=1
10. 下面的赋值语句正确的是( D ) A.PI*R*R=Y B.X=3Y C.X+Y=30 D.Y=X+30
11. 关于语句If x = 1 Then y = 1，下列说法正确的是(A )。 A.x = 1 为关系表达式， y = 1为赋值语句 B.x = 1 和 y = 1均为赋值语句
C.x = 1 为赋值语句， y = 1为关系表达式 D.x = 1 和 y = 1均为关系表达式 12. 下列语句正确的是(C )。
A.If x < 3 * y ： x > y Then y = x ^ 3 B.If x < 3 * y And x > y Then y = x * * 3 C.If x < 3 * y And x > y Then y = x ^ 3 D.If x < 3 * y And x > y Then y = x3
13. 以下( A )程序段可以实现X、Y变量值的交换。 A.Z = X: X = Y: Y = Z
B.Z = X: W = Y: Y = Z: X = Y C.Y = X: X = Y
D.Z = X: Y = Z: X = Y
14. 循环结构For I = 1 to 15 step 2 的执行次数是( D )。 A.6 B.9 C.7
D.8
15. 下列循环结构中，窗体上打印出来的循环变量i的值为( A)。 sum = 0
For i = 1 To 100 sum= sum + i Next i Print i
A.101 B.1 C.100 D.2
16. 在程序中有语句For i = n1 To n2 Step n3，则在循环体中有下列( D )语句会影响循环执行的次数。 A.n1 = n1 + 1 B.n3 = 2 * n3 C.n2 = n2 + n3 D.i=i+n3
17下列有关数组的说法中，错误的是（C ）。
A.Erase语句的作用是对已定义固定大小数组的值重新初始化 B.数组必须先定义后使用 C.数组的下界必须从0开始
D.定义数组时，数组维界值可以不是整数
18. 以下有关数组定义的语句序列中，错误的是（C） A.
Dim arr1(3) arr1(1) = 100 arr1(2) = \arr1(3) = 123.45
B.Dim arr2() As Integer Dim size As Integer
Private Sub command2_click()
size = Val(InputBox(\请输入一个整数:\ ReDim arr2(size) … End Sub
C.Dim n As Integer
Private Sub command4_click() Dim arr4(n) As Integer … End Sub
D.Option Base 1
Private Sub command3_click() Dim arr(3) As Integer … End Sub
19. 下列关于控件数组的说法错误的是（ B ）。 A.控件数组中的每一个控件共享同样的事件过程 B.同一控件数组中的元素只能有相同的属性值
C.控件数组由一组具有共同名称和相同类型的控件组成 D.控件数组中的每个元素的下标由控件的Index属性指定
20. 假定建立一个名为Command1的命令按钮数组，则以下说法错误的是(D) A.用“Command1(下标)”可以访问数组中的某个命令按钮 B.数组中所有命令按钮共享相同的事件过程
C.数组中每个命令按钮的名称（Name属性）均为Command1 D.数组中每个命令按钮的标题（Caption属性）都一样 21. 设有数组声明语句： Option Base 1
Dim A(-1 To 2) As Long
则，函数UBound(A)的值为（C） A.0 B.1 C.2 D.-1
22. 设有数组声明语句： Option Base 1