2016VB期末考试(试题).
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
| ab |
4.编写程序。在窗体上显示如下图所示的“九九加法表”。 Private Sub Form_Click() Dim i%, j% Print " + 1 2 3 4 5 6 7 8 9" For i = 1 To ______ Print i; For j = 1 To ______ If i + j < 10 ____ Print " "; Print _ _; Next j _______ Next i End Sub
A．Label1.SetFocus
B．Form1.Clear
C．Text1.SetFocus
D．Combo1.Cls
5
25．在文本框 Text1 中输入数字 12，在文本框 Text2 中输入数字 34，
执行以下语句，只有_______可使文本框 Text3 中显示 46。
A．Text3．Text=Text1．Text ＆ Text2．Text
1
ln e x sin 3 x
6．代数表达式 x y 对应的 Visual Basic 表达式是________。 A．Log(Abs((Exp(3.14159)+Sin(x)^3)／(x+Y)))
B．Ln(Abs((Exp(3.14159)+Sin(x)^3)／(X+Y)))
C．Log(Abs(Exp(3.14159)+Sin(x)^3)／(X+Y))
(C) 60
(D) 80
21.在窗体上 画一个名称为 Command1 的命令按 钮和一个名称 为
Text1 的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
中正确的是________。
A．Private Sub Sort(A() As Integer)
2
B．Private Sub Sort(A(10) As Integer)
C．Private Sub Sort(ByVal A() As Integer)
D．Private Sub Sort(A( ，) As Integer)
For i = 1 To 5
x = n / i: n = n + 1: sum = sum + x
Next i
End Sub
(A)1+1/2+ 2/3+3/4+4/5 (B)1+1/2+2/3+3/4
(C)1/2+2/3+3/4+4/5
(D)1+1/2+1/3+1/4+1/5
24．以下使用方法的代码中，正确的是________。
5.下面表达式的值为 True 的是________。
A．Mid("Visual Basic"，1，12)=
Right("Programming language Visual Basic"，12)
B．"ABCRG">"abcde"
C．Int(134.69)>=Asb(-134.69)
D．78.9／32.77<=97.5／43.97 And –45.4>-4.98
a(1)="ABCDE"
a(0)=0 : a(1)=1 : a(2)=2 : b=a
23.设有如下程序，通过 For 循环计算一个表达式的值，这个表达式
是______：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0: n = 0
16.控件在窗体上的位置是由______属性确定的。
(A) Width 和 Height (B) Top 和 Left
(C) Width 和 Left
(D) Top 和 Width
17.下列名称中_____可以作为 VB 的变量名。
(A) mod
(B) m-d
(C) tempVal
(D) left
18.要求出变量 x 和 y 中较大的一个并保存在变量 Max 中，下面的程
B．Text3．Text=Val(Text1．Text)+Val(Text2．Text)
C．Text3．Text=Text1．Text+Text2．Text
D．Text3．Text=Val(Text1．Text) & Val(Text2．Text)
26.VB 中利用 Circle 方法不可以画__________。
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then Print i
Next i
End Sub
4
该事件过程的功能是____
(A) 输出 n 以内的奇数
(B) 输出 n 以内的偶数
(C) 输出 n 以内的素数
(D) 输出 n 以内能被 j 整除的数
(A) a=b 和 c=d 都是赋值语句
(B) a=b 是关系表达式，c=d 是赋值语句
(C) a=b 和 c=d 都是关系表达式
(D) a=b 是赋值语句，c=d 是关系表达式
20.在系统默认的情况下，Dim a(3, 4, 2 To 5) 定义的数组共有
_____个元素。
(A) 36
(B) 48
A．按【Ctrl】+【C】键
B．按【Ctrl】+【Z】键
C．按【Ctrl】+【Break】键
ቤተ መጻሕፍቲ ባይዱ
D．单击“停止运行”按钮
9．使用________方法可将新的列表项添加到一个列表框中。
A．Print
B．AddItem C．Clear D．RemoveItem
10．有程序代码“Text1．Text="Visual Basic"，其中的 Text1、Text
A．Int(Rnd * 30) + 10
B．Int(Rnd * 31) + 10
6
C．Int(Rnd * 30) + 11
D．Int(Rnd * 30) + 12
二、填空题（共 25 空，每空 2 分，共 50 分）
1.根据下图写出 InputBox 函数中的参数。
InputBox(
,
,
)
2.执行下面的程序，在窗体上显示的输出结果的第一行是
无此属性。
对象
名称(Name)
标题 (Caption)
口令字符 (Passwordchar)
窗体
Form1
X
标签
Label1
X
文本框
Text1
X
命令按钮 Command1
X
7.下面的程序是采用“冒泡排序”法用 inputbox 从键盘上输入 10 个 整数，将 10 个数从小到大排序。（inputbox 的标题为“冒泡排序” 提示为“输入数：”） Private Sub Command1_Click()
，
第二行是
。
Option explicit
Private sub form_click()
Dim I as integer, j as integer
J=10
For I=1 to j
I = I+1
J=j-i
Next I
Print I
Print j
7
End Sub
3.将数学式 y3 3 写成 VB 表达式，应该是______。
22.以下定义数组或给数组元素赋值的语句中，正确的是____。
(A) Dim a As Variant
(B) Dim a(10) As Integer
a=Array(1,2,3,4,5)
a=Array(1,2,3,4,5)
(C) Dim a%(10)
(D) Dim a(3),b(3) As Integer
D．Log|(Exp(3.14159)+Sin(x)^3)／x+y|
7.以下语句的输出结果是______ 。
8.Print Format $(32548.5,“000,000.00”)
(A) 32548.5 (B) 32,548.5 (C) 032,548.50 (D) 32,548.50
8．运行程序产生死循环时，________可以终止程序运行。
A．圆
B．直线 C．弧
D．椭圆
27．在窗体模块的通用声明段中声明变量时，不能使用________关
键字。
A．Dim
B．Public
C．Private
D．Static
28．日期类型(Date)在程序中运用时，日期类型必须用________符号
括起来。
A．#
B．@
C．$
D．％
29.86．在程序代码中，将图片文件“abc.jpg”装入图片框 Picture1
和"Visual Basic"分别代表_________。
A．对象、值、属性
B．对象、方法、属性
C．对象、属性、值
D．属性、对象、值
11．语句 Print "5*20"输出的结果是_________。
A．"5*20" B．出现错误信息
C．5*20
D．100
12.名为 Sort 的 Sub 子过程的形式参数为一数组，以下的定义语句
Else Picture1.Print m & "不是完数"
End If
8
End Sub
k = k + i ' 因数和 j = j + 1 ' 因数个数 ReDim ____ a(j) a(j) = _______ End If Next I
6.根据图中给出的窗体，填写下表中的相关内容，“x”表示该对象
9
Dim a(1 To 10) As Integer
Dim t%
For i = 1 To 10
序段中______是不正确的。
3
(A) Max = IIf(x > y, x, y) (B) If x > y Then Max = x Else Max = y
(C) Max = x
(D) If y > x Then Max = y
If y >= x Then Max = y
Max = x
19.对于语句 If a = b Then c = d 的语法分析，_____是正确的。
If m Mod i = 0 Then
If ______ Then Picture1.Print m & "是完数" Picture1.Print m; "="; For i = 1 To UBound(a) - 1 Picture1.Print a(i); "+"; Next i Picture1.Print ______
13．在过程中有语句 For I=N1 To N2 Step N3，在该循环体内有下列
四条语句，其中_______会影响循环执行的次数。
①N1=N1+I ②N2=N2+N3 ③I=I+N3
④N3=2*N3
A．①②
B．①②③
C．③
D．①②③④
14.表示“X>Y>Z”，正确的 VB 逻辑表达式是_________。
的语句是________。
A.Picture1.Picture = "abc.jpg"
B.Picture1.image = "abc.jpg "
C.Picture1.Picture = LoadPicture("abc.jpg")
D.LoadPicture("abc.jpg")
30．162．产生[10，40]之间的随机整数的 VB 表达式是________。
3.下列叙述正确的是_______。
A 程序设计就是编制程序
B 程序的测试必须由程序员自己去完成
C 程序经调试改错后还应进行再测试
D 程序经调试改错后不必进行再测试
4. 在过程中可以用________语句定义变量。
A．Dim、Private B．Dim、Static
C．Dim、Public
D．Dim、Static、Private
5.请完善以下判断完数的程序。一个数如果恰好等于它
的因子之和，这个数就被称为“完数”。一个数的因子
是指除了该数本身以外能够被其整除的数。例如 6 是一
个完数，因为 6=1+2+3。
Private Sub CmdJudge_Click() Dim a() m = Val(Text1.Text) ReDim a(1) a(1) = 1 k = _____ j=1 For i = 2 To m - 1
A．X>Y And Y>Z
B．X>Y>Z
C．X>Y Or Y>Z
D．X>Y And >Z
15．下列关于数组的叙述中，错误的是__________。
A．在过程中可以用 Dim 语句对形参数组进行声明
B．数组是同类变量的一个有序的集合
C．数组元素可以是控件
D．数组在使用之前，必须先用数组说明语句进行说明
14 精工 VB 期末考试
命题：张晓鑫
一、选择题（共 30 题，每题 1 分，共 30 分）
1.下列表示存储容量的数据中，_______是最大的。
(A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byte
2.在计算机内部能够直接执行的程序语言是______。
(A)数据库语言 (B)高级语言 (C)机器语言 (D)汇编语言
4.编写程序。在窗体上显示如下图所示的“九九加法表”。 Private Sub Form_Click() Dim i%, j% Print " + 1 2 3 4 5 6 7 8 9" For i = 1 To ______ Print i; For j = 1 To ______ If i + j < 10 ____ Print " "; Print _ _; Next j _______ Next i End Sub
A．Label1.SetFocus
B．Form1.Clear
C．Text1.SetFocus
D．Combo1.Cls
5
25．在文本框 Text1 中输入数字 12，在文本框 Text2 中输入数字 34，
执行以下语句，只有_______可使文本框 Text3 中显示 46。
A．Text3．Text=Text1．Text ＆ Text2．Text
1
ln e x sin 3 x
6．代数表达式 x y 对应的 Visual Basic 表达式是________。 A．Log(Abs((Exp(3.14159)+Sin(x)^3)／(x+Y)))
B．Ln(Abs((Exp(3.14159)+Sin(x)^3)／(X+Y)))
C．Log(Abs(Exp(3.14159)+Sin(x)^3)／(X+Y))
(C) 60
(D) 80
21.在窗体上 画一个名称为 Command1 的命令按 钮和一个名称 为
Text1 的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
中正确的是________。
A．Private Sub Sort(A() As Integer)
2
B．Private Sub Sort(A(10) As Integer)
C．Private Sub Sort(ByVal A() As Integer)
D．Private Sub Sort(A( ，) As Integer)
For i = 1 To 5
x = n / i: n = n + 1: sum = sum + x
Next i
End Sub
(A)1+1/2+ 2/3+3/4+4/5 (B)1+1/2+2/3+3/4
(C)1/2+2/3+3/4+4/5
(D)1+1/2+1/3+1/4+1/5
24．以下使用方法的代码中，正确的是________。
5.下面表达式的值为 True 的是________。
A．Mid("Visual Basic"，1，12)=
Right("Programming language Visual Basic"，12)
B．"ABCRG">"abcde"
C．Int(134.69)>=Asb(-134.69)
D．78.9／32.77<=97.5／43.97 And –45.4>-4.98
a(1)="ABCDE"
a(0)=0 : a(1)=1 : a(2)=2 : b=a
23.设有如下程序，通过 For 循环计算一个表达式的值，这个表达式
是______：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0: n = 0
16.控件在窗体上的位置是由______属性确定的。
(A) Width 和 Height (B) Top 和 Left
(C) Width 和 Left
(D) Top 和 Width
17.下列名称中_____可以作为 VB 的变量名。
(A) mod
(B) m-d
(C) tempVal
(D) left
18.要求出变量 x 和 y 中较大的一个并保存在变量 Max 中，下面的程
B．Text3．Text=Val(Text1．Text)+Val(Text2．Text)
C．Text3．Text=Text1．Text+Text2．Text
D．Text3．Text=Val(Text1．Text) & Val(Text2．Text)
26.VB 中利用 Circle 方法不可以画__________。
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then Print i
Next i
End Sub
4
该事件过程的功能是____
(A) 输出 n 以内的奇数
(B) 输出 n 以内的偶数
(C) 输出 n 以内的素数
(D) 输出 n 以内能被 j 整除的数
(A) a=b 和 c=d 都是赋值语句
(B) a=b 是关系表达式，c=d 是赋值语句
(C) a=b 和 c=d 都是关系表达式
(D) a=b 是赋值语句，c=d 是关系表达式
20.在系统默认的情况下，Dim a(3, 4, 2 To 5) 定义的数组共有
_____个元素。
(A) 36
(B) 48
A．按【Ctrl】+【C】键
B．按【Ctrl】+【Z】键
C．按【Ctrl】+【Break】键
ቤተ መጻሕፍቲ ባይዱ
D．单击“停止运行”按钮
9．使用________方法可将新的列表项添加到一个列表框中。
A．Print
B．AddItem C．Clear D．RemoveItem
10．有程序代码“Text1．Text="Visual Basic"，其中的 Text1、Text
A．Int(Rnd * 30) + 10
B．Int(Rnd * 31) + 10
6
C．Int(Rnd * 30) + 11
D．Int(Rnd * 30) + 12
二、填空题（共 25 空，每空 2 分，共 50 分）
1.根据下图写出 InputBox 函数中的参数。
InputBox(
,
,
)
2.执行下面的程序，在窗体上显示的输出结果的第一行是
无此属性。
对象
名称(Name)
标题 (Caption)
口令字符 (Passwordchar)
窗体
Form1
X
标签
Label1
X
文本框
Text1
X
命令按钮 Command1
X
7.下面的程序是采用“冒泡排序”法用 inputbox 从键盘上输入 10 个 整数，将 10 个数从小到大排序。（inputbox 的标题为“冒泡排序” 提示为“输入数：”） Private Sub Command1_Click()
，
第二行是
。
Option explicit
Private sub form_click()
Dim I as integer, j as integer
J=10
For I=1 to j
I = I+1
J=j-i
Next I
Print I
Print j
7
End Sub
3.将数学式 y3 3 写成 VB 表达式，应该是______。
22.以下定义数组或给数组元素赋值的语句中，正确的是____。
(A) Dim a As Variant
(B) Dim a(10) As Integer
a=Array(1,2,3,4,5)
a=Array(1,2,3,4,5)
(C) Dim a%(10)
(D) Dim a(3),b(3) As Integer
D．Log|(Exp(3.14159)+Sin(x)^3)／x+y|
7.以下语句的输出结果是______ 。
8.Print Format $(32548.5,“000,000.00”)
(A) 32548.5 (B) 32,548.5 (C) 032,548.50 (D) 32,548.50
8．运行程序产生死循环时，________可以终止程序运行。
A．圆
B．直线 C．弧
D．椭圆
27．在窗体模块的通用声明段中声明变量时，不能使用________关
键字。
A．Dim
B．Public
C．Private
D．Static
28．日期类型(Date)在程序中运用时，日期类型必须用________符号
括起来。
A．#
B．@
C．$
D．％
29.86．在程序代码中，将图片文件“abc.jpg”装入图片框 Picture1
和"Visual Basic"分别代表_________。
A．对象、值、属性
B．对象、方法、属性
C．对象、属性、值
D．属性、对象、值
11．语句 Print "5*20"输出的结果是_________。
A．"5*20" B．出现错误信息
C．5*20
D．100
12.名为 Sort 的 Sub 子过程的形式参数为一数组，以下的定义语句
Else Picture1.Print m & "不是完数"
End If
8
End Sub
k = k + i ' 因数和 j = j + 1 ' 因数个数 ReDim ____ a(j) a(j) = _______ End If Next I
6.根据图中给出的窗体，填写下表中的相关内容，“x”表示该对象
9
Dim a(1 To 10) As Integer
Dim t%
For i = 1 To 10
序段中______是不正确的。
3
(A) Max = IIf(x > y, x, y) (B) If x > y Then Max = x Else Max = y
(C) Max = x
(D) If y > x Then Max = y
If y >= x Then Max = y
Max = x
19.对于语句 If a = b Then c = d 的语法分析，_____是正确的。
If m Mod i = 0 Then
If ______ Then Picture1.Print m & "是完数" Picture1.Print m; "="; For i = 1 To UBound(a) - 1 Picture1.Print a(i); "+"; Next i Picture1.Print ______
13．在过程中有语句 For I=N1 To N2 Step N3，在该循环体内有下列
四条语句，其中_______会影响循环执行的次数。
①N1=N1+I ②N2=N2+N3 ③I=I+N3
④N3=2*N3
A．①②
B．①②③
C．③
D．①②③④
14.表示“X>Y>Z”，正确的 VB 逻辑表达式是_________。
的语句是________。
A.Picture1.Picture = "abc.jpg"
B.Picture1.image = "abc.jpg "
C.Picture1.Picture = LoadPicture("abc.jpg")
D.LoadPicture("abc.jpg")
30．162．产生[10，40]之间的随机整数的 VB 表达式是________。
3.下列叙述正确的是_______。
A 程序设计就是编制程序
B 程序的测试必须由程序员自己去完成
C 程序经调试改错后还应进行再测试
D 程序经调试改错后不必进行再测试
4. 在过程中可以用________语句定义变量。
A．Dim、Private B．Dim、Static
C．Dim、Public
D．Dim、Static、Private
5.请完善以下判断完数的程序。一个数如果恰好等于它
的因子之和，这个数就被称为“完数”。一个数的因子
是指除了该数本身以外能够被其整除的数。例如 6 是一
个完数，因为 6=1+2+3。
Private Sub CmdJudge_Click() Dim a() m = Val(Text1.Text) ReDim a(1) a(1) = 1 k = _____ j=1 For i = 2 To m - 1
A．X>Y And Y>Z
B．X>Y>Z
C．X>Y Or Y>Z
D．X>Y And >Z
15．下列关于数组的叙述中，错误的是__________。
A．在过程中可以用 Dim 语句对形参数组进行声明
B．数组是同类变量的一个有序的集合
C．数组元素可以是控件
D．数组在使用之前，必须先用数组说明语句进行说明
14 精工 VB 期末考试
命题：张晓鑫
一、选择题（共 30 题，每题 1 分，共 30 分）
1.下列表示存储容量的数据中，_______是最大的。
(A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byte
2.在计算机内部能够直接执行的程序语言是______。
(A)数据库语言 (B)高级语言 (C)机器语言 (D)汇编语言