09秋VB模拟试卷一
中国药科大学程序设计模拟试卷一
2009-2010学年第一学期
专业班级学号姓名
一、基本概念（每小题1分，共25
1．已知a被定义为整型变量，执行语句a=－6 ：a=a+后，此时a的值为。
A．0 B．1 C．2 D．3
2．以下使用方法正确的语句是。
A． B．C． D．Text1. Clear
3．A为整形变量，调用已定义的Sub过程：Private Sub change(B As Integer)，以下不是按值传递的语句是。
A．Call Change ((A)) B．change (A) C．Call Change (A) D．Change 1
4．若要定义一个变量，使它仅能够在当前过程中访问，可以将其定义为________
①静态变量②局部变量③窗体/模块级变量④全局变量
A．② B．①②C．③④ D．①②③
5．在Select Case X结构中，如果5≤X≤10是其中的一个判断条件，则正确描述5≤X≤10的测试项应该写成。
A．Case 5 To 10 B．Case Is <= 10, Is >= 5
C．Case 5 <= X And X <= 10 D．Case 5 <= X <= 10
6．窗体上有一个文本框Text1，假设已存在三个整型变量a、b和c，且变量a 、b 和c的值分别为1、2和3，以下_____语句可以使文本框中显示的内容为：3=1+2
A． = c = a + b B． = "c=a+b"
C．= c & "=" & a & "+" & b D．Text1 = c & "=" & a & "+" & b 7．以下叙述中错误的是。
A．VB中控件的某些属性只能在运行时通过代码来设置
B．VB工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
C．VB的一个应用程序是由若干个不同类型的文件组成，即一个工程
D．VB 是事件驱动型的可视化编程工具
8．针对语句If X=True Then Y=False，下列说法正确的是。
A．X= True是赋值语句，Y= False是关系表达式
B．X= True 和Y= False都是关系表达式
C．X= True 和Y= False都是赋值语句
D．X= True是关系表达式，Y= False是赋值语句
9．下列有关变量的说法，正确的共有个。
①全局变量既可在窗体模块中定义，也可在标准模块中定义，访问时也一样
②当访问的变量存在同名变量时，优先访问作用范围小的变量
③静态变量，从本质上来说是一个全局变量
④所谓模块级变量，即专指在模块的通用声明中用Private定义的变量
A．1 B．2 C．3 D．4
10．在Visual Basic中，以下叙述是错误的。
A．控件数组中的控件可以是不同类型的控件
B．控件数组中的控件都有相同的名字
C．控件数组中的控件响应同一个事件
D．控件数组中的控件可以在运行时用代码生成
11．以下叙述中正确的是。
A．可以在运行期间改变对象的Name属性的值
B．窗体的Name属性的值是显示在窗体标题栏中的文本
C．对象的Name属性值可以为空
D．窗体的Name属性指定窗体的名称，用来标识一个窗体
12．若在一个应用程序的窗体上，先后创建Label、Frame、OptionButton等控件，则运行程序显示该窗体时，会首先获得焦点是。
A．窗体B．Label C．Frame D．OptionButton 13．定义三个变量i,j,k 均为Integer类型，i = 3: j = : k = ，执行语句Print k = i = j后，窗体上显示的是。
A．True B．False C．-1 D．0
14．窗体上有一个名为Commandl的命令按钮，编写如下程序：
Private Sub Commandl_Click()
Static n As Integer
Dim m As Integer
Cls : m = 10 : m = m + 30 : n = m + n : Print m, n End Sub
程序运行后，三次单击Commandl命令按钮，窗体上的显示结果为。
A．120 120 B．40 40 C． 40 120 D． 120 40 15．在一个多窗体程序中，如果要将窗体Form1从内存中卸载，其他窗体仍然可用，则下列语句正确的是。
A． B．C．Unload Form1 D．
16．列表框中的列表项的数目可通过以下属性的值获得。
A．Count B．ListCount C．ListIndex D．Index 17．关于Visual Basic的基本语句，不是必须成对使用的。
A．If和End If B．Do和Loop C．Select Case和End Select D．For和Next
18．以下有关数组作为形参的说明中错误的是。
A．形参数组只能按地址传递
B．实参为动态数组时，可在过程中用ReDim语句改变形参数组的维界
C．调用过程时，只需把要传递的数组名填入实参表
D．形参若为数组就必须说明它的维界是多少
19．在默认状态下，若有数组声明：Dim a(5, 4 To 6) As Integer,下面数组元素引用中正确的是。
A． a(0,1) B．a(3,3) C．a(6,6) D．a(0,4)
20．表示“A、B之一为零但不得同时为零”的VB逻辑表达式是。
A．A=0 Or B=0 B．A=0 Xor B=0
C．(A=0 Or B<>0) And (A<>0 Or B=0) D．(A=0 And B<0) Or (A<0 And B=0)
21．以下有关对象属性的说法，错误的是。
A．工具箱中的控件并不是VB中所有的控件
B．对象的所有属性都可以在属性窗口中设置
C．每个对象必须有Name属性值
D．当=False，里面的控件也都不可用
22．执行下列语句：Dim A As Integer, B As String ： A = 123 ： B = 123 ：Print Len(A) + Len(B), 会在窗体上打印出。
A．246 B．6 C．5 D．123123
23．下列控件不能够响应双击事件。
A．Form B．CommandButton C．ListBox D．TextBox 24．下列选项中，所包含的所有表达式能够将两位整数X的个位数与十位数对调（例如可以将12转换成21）的是。
① Val(Right(X,1) & Left(X,1))
② Val(Right(Str(X),1) & Left(Str(X),1))
③ Val(Right(CStr(X),1) & Left(CStr(X),1))
④ Val(Mid(X,2,1) + Mid(X,1,1))
A．①②④ B．②③ C．①④ D．①③④
25．下列有关数组的说法中，是错误的。
A．在模块中若没有Option Explicit声明语句，数组不先定义就可以使用，数组会被当作Variant类型来处理
B．过程定义中，形参数组可以是定长字符串类型
C．Erase语句的作用是对固定大小数组的值重新初始化或收回分配给动态数组的存储空间
D．定义数组时，数组维界值可以不是整数
二、运行结果（每小题2分，共30分）
1、运行程序，单击窗体时，窗体上显示的第一行是 （26） ，第二行是 (27) ，第三行是 （28） 。
Option Explicit
Dim x As Integer, y As Integer Private Sub Form_Click() x = 2: y = 3 Print p(y, x) Print x; y End Sub
（26） A ．1 5 B ．5 1 C ．8 2 D ．2 3 （27） A ．15 B ．6 C ．10
D ．11
（28） A ．8 3
B ．2 5
C ．10 5
D ．1 5
2．执行下面程序，单击Command1按钮，多行文本框Text1中显示的第一行是 （29） ，第二行是 (30) ，第四行是 （31） 。
Private Sub Command1_Click() Print money(1) End Sub
Private Function money(ByVal n As Integer) As Single If n > 2 Then money = 0 Else
money = (money(n + 1) + 10) / 2
Private Function p(m As Integer, ByVal n As
Integer) m = m + 2 x = 2 * m n = x Mod 3
End If Print money End Function
(29)．A ．0 B ．1 C ．10 D ．5 (30)．A ．3 B ．15 C ．5 D ．10 (31)．A ．
B ．
C ．5
D ．6
3、执行下列程序，单击按钮后窗体上打印的第一行为 （32） 、第二行为 （33） 、第三行结果为 （34） 。
（32） A ．8 B ．6 C ．4 D ．9 （33） A ．6
B ．5
C ．4
D ．-1 （34） A ．-1 B ．4 C ．-2
D ．2
4．执行下面的程序，当单击命令按钮Command1时，窗体的第一行显示的是 (35) ，第二行显示的是 (36) ，第三行显示的是 (37) 。
Private Sub Command1_Click()
Dim s As String, i As Integer, s1 As String i = Asc("a") : s1 = "A" Do
i = i + 1
s = s1 + UCase(Chr(i))
Private Sub Command1_Click() Dim a As Integer, i As Integer a = 7
Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 1： c = c + 2
s1 = Right(s, 2) & Mid(s, 2, 1)
Print s1
Loop Until i >= 100
End Sub
(35)．A．BAB B．ABB C．BAA D．ABA
(36)．A．BCB B．ABC C．BAB D．CBA
(37)．A．CCB B．DCB C．BDC D．ABC
5、执行下列程序，单击按钮后窗体上打印的第一行为（38）、第二行为（39）、第三行为（40）。
Private Sub Command1_Click()
Dim a(1 To 9) As Integer, b(1 To 3, 1 To 3) As Integer, i As Integer, j As Integer
For i = 1 To 9
a(i) = i
Next i
For i = 1 To 3
For j = 1 To 3
b(i, j) = a(i * j)
If j >= i Then Print b(i, j);
Next j
Next i
End Sub
请在答题卡上完成
Private Function wshu(n As Integer) As （43） Dim i As Integer, s As Integer For i = 1 To n - 1
If n Mod i = 0 Then （44） Next i
If s = n Then （45） End Function
（38） A ．1 2 3 B ．2 3 C ．3 D ． 3 2 1
（39） A ．4 5 6 B ．4 6 C ．5 6 D ． 2 4 9 （40） A ．3 B ．6 C ．8 D ． 9
三、完善程序（每小题2分，共30分）
1、找出10000以内的所有完数并在列表框中输出，完数的个数在Text1中输出。所谓完数，是指它的所有的质因子之和等于它本身的数，如6=1+2+3。
Private Sub 运算_Click() Dim i As Integer For i = 1 To 10000
If wshu(i) Then （41） Next i
Text1 = List1. （42） End Sub
(41) A ． i B ．= i C ．List1= i D ． i
(42) A ．List B ．ListCount C ．ListIndex
D ．Text
(43) A ．Long
B ．Integer
C ．String
D ．Boolean
(44) A ．s = s + i B ．s = s & i
C ．Exit For
D ．Exit
Function
(45) A ．wshu = n
B ．wshu = s
C ．wshu = True
D ．wshu = s +
n
2、本程序的功能是，利用下列公式求通项和S 的近似值，规定通项的绝对值≤10-5
时结束累加。
10,...2,1...!
)1(...!3!2!11
21753≤<=+-+-+-=++x i i x x x x sum i i
Private Sub Command1_Click()
Dim i As Integer x = Val(Text1) sum = 0: i = 1 Do
t = (46) sum = sum + t i = i + 1 Loop (47) Text2 = Format(sum, "###") End Sub
(46) A ．(-1) ^ (i + 1) * x ^ (2 * i + 1) / fact(i) B ．x ^ (2 * i + 1) / fact(i)
C ．(-1) ^ (i + 1) * x ^ (2 i + 1) / fact(i)
D ．(-1) ^ i * x ^
(2 * i + 1) / fact(i) (47) A ．Until t<1e-5
B ．While Abs(t)>1e-5
C ．Until Abs(t)>=10 ^ (-5)
D ．While t>1e-5
(48) A．If a = 1 then fact =1 B．fact = a C．fact = 1 D．fact =
3、编程实现求32和12这两个数的最大公约数，单击单选按钮“过程1”或“过程2”都可以在文本框Text1中显示如图所示的结果。
Option Explicit
Private Sub Option1_Click(Index As Integer)
Dim a As Integer, b As Integer, r As Integer
a = 32:
b = 12
If Index = 0 Then
r = gcd1(a, b)
ElseIf Index = 1 Then
(49)
End If
Text1 = CStr(a) & "和" & CStr(b) & "的最大公数为" & CStr(r)
End Sub
Private Function gcd1(ByVal x As Integer, ByVal y As Integer) As Integer
Dim r As Integer
(50)
Do While r <> 0
x = y: y = r
r = x Mod y Private Function gcd2(x As Integer, y As Integer) As Integer
Dim r As Integer
Do
r = x Mod y
Loop
(51)
End Function
（49）A．r = gcd2(a, b) B．r = gcd1(a, b) C．r = gcd1((a), (b)) D．r = gcd2((a), (b))
（50）A．r=0 B．r = x Mod y C．r = x D．r = y （51）A．gcd1 = x B．gcd1 = y C．gcd1(x,y) = x D．gcd1 (x,y) = y
（52）A．gcd2 = x B．gcd2 = y C．gcd2(x,y) = x D．gcd2 (x,y) = y
4、本程序的功能是产生10个数,统计其中不相同数据的个数。
Option Explicit
Dim a(10) As Integer
Private Sub Command1_Click()
Dim i As Integer
Randomize
For i = 1 To 10
a(i) = Int(90 * Rnd) + 10
Private Sub Command2_Click()
Text1 = Text1 & (53)
Dim i As Integer, j As Integer,
Next i
f As Boolean, n As Integer
End Sub
For i = 1 To 10
（53） A．CStr(a(i))
f = True
For j = i + 1 To 10
If (54) Then f =
B ．Str(a)
C ．CStr(a)
D ．Str(a(i))
（54） A ．a(i) >= a(j)
B ．a(i) = a(j)
C ．a(i+1) = a(j)
D ．a(i) <= a(j)
（55）A ． n = n + 1 B ． n = i C ．n = i + 1 D ．n = True
四、编程题（每小题3分，共15分） 1、单击“产生数组”按钮产生10个两位随机整数，并显示在图片框中；单击按钮“排序”用选择法排序对数组进行从小到大排序；单击“素数统计”按钮，将素数的个数显示在文本框中。
Dim a(10) As Integer
Private Sub 产生数组_Click() Dim i As Integer "排序前"
请在（56）选项中选择正确的程序段
请在答题卡上完成
End Sub
Private Function prime(n As
Integer) As Boolean
Dim i As Integer
（56）下面两段代码中，能正确实现题目要求的程序段有（56）。
A．只有①可以 B．①②都可以 C．只有②可以 D．①②都不可以
(57) 下面四段程序中功能正确的有：（57）。
A．①②③B．①②C．①④D．③④
（58）以下正确的语句组合是（58）。
A．①②③B．①②C．①③④D．③④
2、文本框1中有小写字母和数字混合的字符串，编程将其中的数字筛选出来，并求出它们的平均值显示在文本框2中，结果必须保留两位有效位，对第3位四舍五入。
Private Sub Command1_Click()
Dim str1 As String, str2 As String, st As
String, num() As Integer, i As Integer,
k As Integer, s As Single str1 = Text1
For i = 1 To Len(str1) st = Mid(str1, i, 1)
If st >= "0" And st <= "9" Then
str2 = str2 & st
ElseIf st >= "a" And st <= "z" Then 请在（59）选项中选择正确的程序段 End If Next i
（59）下面代码段能实现功能的是： （59）
A ．只有①可以
B ．①③ 都可以
C ．只有②④可以
D ．②③都可以
If str2 <> "" Then k = k + 1
ReDim Preserve num(k) num(k) = Val(str2) End If For i = 1 To k
（60）下面几种输出语句中，可以实现输出要求的有（60）
① = Format(s / k, "#.00") ② = Format(s / k, "0.##")
③ = Int(100*(s / k+)/100 ④ = Fix(100*(s / k+)/100
A． 1个 B． 2个 C． 3个 D．4个
参考答案
一、基本概念（1-25）（每小题1分，共25分）
ABCBA DBDAA DDBCC BADDB BCBDA
二、运行结果（26-40）（每小题2分，共30分）
BACAC BBCDB ACABD
三、完善程序（41-55）（每小题2分，共30分）
DBDAC ABCDB BADBA
四、编程题（56-60）（每小题3分，共15分）
ADDAC
VB模拟试题1
一、概念填空题 1．在Visaul Basic中,属性窗口分为四个部分，这四个部分分别是（ 1 ）属性显示方式、属性列表和对当前属性的简单解释。 2．组合框有三种不同的风格，它们分别是：( 2 )、( 3 )和( 4 )。3．VB中，当KeyPress事件发生时会返回一个按键的（ 5 ）值。 4. 时钟控件是有规律地以一定的( 6 )激发计时器事件，而执行相应的代码程序。 5．A = 8，B = 3，C = 5，则表达式A MOD 3 + B^3 / C \ 5的值为（ 7 ）。6．声明一个双精度变量Num5，的声明语句是 ( 8 ) 。 7．有一文本框Text1，为了使该文本框在运行时获取焦点，应执行的语句是（ 9 ）。8．在使用动态数组时，如要改变数组的大小而又不丢失数组中的数据，应使用（ 10 ）关键字。 9．Visual Basic逻辑数据类型只有 True 与 False 两个值。当逻辑数据转换成整型数据时，True 转换为（ 11 ），False转换为（ 12 ）。 10．在Visaul Basic 中依据变量的作用范围将VB变量的作用范围分为三类，它们是：（ 13 ）变量、（ 14 ）变量和（ 15 ）变量。 11．在Visual Basic工程中，拥有多个窗体的程序可用（ 16 ）语句将窗体装入内存，用（ 17 ）语句将指定窗体从内存中删除。 12．在Visual Basic中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）是（ 18 ）坐标。 13．字符串常量是由任何ASCII字符组成，在程序代码中，它必须由（ 19 ）括起来。 14．如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中（ 20 ）个单选按钮。 二、概念选择题 1．不能触发滚动条Change事件的操作是（）。 A) 拖动滚动条的滑块 B) 单击两端箭头 C) 单击滚动条的滑块 D) 单击滚动条的空白处 2．已知变量x 、y为整数型，且x=4 , y=12 ,s为字符型，且s=“a”，Leble1为标签控件，Leble1的Caption属性值为Label1，下列合法的赋值语句是（）。 A) X= Leble1.Caption B) Leble1.Caption=Str(X) C) X*3=Y D) Y=X*S 3．下列可以将变量A、B的值互换的语句是( )。 A) A=B : B=A B) C=B : B=A ：A=C C) A=C : C=B : B=A D) A=(A+B)/2 ：B=(A-B)/2 4．下列叙述中错误的是（）。 A)VB是采用了事件驱动编程机制。
汕头市2009届高三第一次模拟考试(数学理)
绝密★启用前 试卷类型：A 汕头市2009年高中毕业生学业水平考试 理科数学 本试卷分选择题和非选择题两部分，共5页，满分150分，考试时间120分钟。注意事项： 1.答卷前，考生务必用黑色字迹的钢笔或签字笔将自己的姓名和考生号分别填写在 答题卡上，用2B 铅笔将试卷类型(A}填涂在答题卡上，并在答题卡右上角的“试室号”和“座位号”栏填写试室号、座位号，将相应的试室号、座位号信息点涂黑。 2.第一部分单项选择题每小题选出答案后，用2B 铅笔把答题卡上对应题目的答案标号涂黑，如需改动，用橡皮擦干净后，再选涂其他答案，答案不能答在试卷上。 3.第二部分必须用黑色字迹的钢笔或签字笔作答，答卷前必须先填好答题纸的密封 线内各项内容。答案必须写在答题纸上各题目指定区域内相应位置上；如需改动，先划掉原来的答案，然后再写上新的答案；第二部分不准使用铅笔和涂改液。不按以上要求作答的答案无效。 4.考生必须保持答题卡、答题纸的整洁，考试结束后，将试卷和答题卡、答题纸一 并交回。 第一部分选择题 一、选择题：本大题共有8小题，每小题5分，共40分，在每小题给出的四个选项中，只有一项是符合题目要求的．请把它选出后在答题卡上规定的位置上用铅笔涂黑． 1、定义A －B ＝{x ｜x ∈A 且x ?B ｝，若M ＝{1，2，3，4，5}，N ＝{2，3，6}，则N －M ＝（ ） A. {6｝ B {1,4,5｝ C ．M D.N 2．中心在原点，焦点在x 轴上的双曲线的实轴与虚轴相等，一个焦点到一条渐近线的距离2 ） A 、x 2－y 2＝1 B 、x 2－y 2＝2 C 、x 2－y 22 D 、x 2－y 2＝12 3.记等比数列｛a n ｝的前n 项和为S n ，若S 3＝2，S 6＝18，则 10 5 S S 等于（） A. - 3 B ·5 C 一31 D. 33 4.在空间中，有如下命题： ①互相平行的两条直线在同一个平面内的射影必然是互相平行的两条直线； ②若平面α∥平面β，则平面α内任意一条直线m ∥平面β； ③若平面α与平面β的交线为m ，平面α内的直线n ⊥直线m ，则直线n ⊥平面β； ④若平面α内的三点A, B, C 到平面β的距离相等，则α∥β． 其中正确命题的个数为（ ）个。 A ．0 B ．1 C ．2 D ．3 5．从5男4女中选4位代表，其中至少有2位男生，且至少有1位女生，分别到四个不同的工厂调查，不同的分派方法有（ ） A. 100种 B. 400种 C. 480种 D ．2400种 6、在113(32)x x 的展开式中任取一项，设所取项为有理项的概率为p ，则
VB程序设计期末模拟试卷
《VB程序设计》期末模拟试卷 一、单项选择 （b ）1．被对象所识别的动作与对象可执行的动作分别称为对象的___________。 A．方法、事件 B．事件、方法 C．事件、属性 D．过程、属性 （ c）2．下列________是Single型变量。 A．Time% B．Name$ C．Sheight! D．CXYZ& （a ）3．以下四个VB的变量名中，合法的是____________。 A．X23 B．$Re C． Len
D．3xy （ d）4．在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是________。 A. str1是整型，str2是长整型 B. str1是长整型，str2变体型 C. str1、str2都是长整型 D. str1是变体型，str2是长整型 （b ）5．表达式(&O36>31) and (“A”>”B”) 的结果是 ____________。 A．True B．False C．”&O3631AB” D．&O3631 （c ）6．表达式“100” + 100 和表达式“100” & 100的值分别是 ____________。 A．200、200 B．“100100”、“100100” C．200、“100100”
D．“100100”、200 （b ）7．以下语句执行时，从键盘上输入Zhao，并按回车键。执行结果是________。 Dim a As String A=InputBox("Input", "", "Name") Print a A．Input B．Zhao C．Name D．空字符串 （b）8．语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的运行结果是________。 A．4 B．5 C．6 D．7 （ d）9．在窗体的通用段声明变量时，不能使用__________ 关键字。 A．Dim
2009年高考作文50篇模拟试题
2009年高考作文50篇模拟试题 1。东北三省三校2009届高三下学期第一次联合模拟考试(语文) 请以“太阳下山明天还会爬上来”为题写一篇文章。 要求：诗歌除外，文体不限，不少于800字。 2。黄冈市2009年3月份高三年级质量检测 阅读下面的文字，根据要求作文(60分) 有这样一种声音，会让你觉得是耳边轻柔的呼唤，低声的诉说：有这样一种声音，没有多余的技巧，却能唤起你灵魂深处的良知和责任；有这样一种声音，会让你卸去疲惫，会带你走到过往的回忆中；有这样的一种声音，会带给你心灵的震撼，会让你心中盛满感动。 请以“有这样一种声音”为题，写一篇文章。 要求：自定立意，自定文体，不少于800字。 3。湖南省师大附中2009届高三语文第六次月考 阅读下面的文字，根据要求作文。(60分) 人类从诞生起就与各种危机相伴，但人类依靠智慧、勇气一次次化险为夷许多危机反而成全了人类的生存和发展。 请就上述的话题，展开联想或延伸思考，写一篇不少于800字的}义论文或记叙文。 要求：(1)题目自拟；(2)不得抄袭或宿构；(3)所写文章符合文体要求。 4.2009年江苏省高考语文模拟试卷 阅读下面的文字，根据要求写一篇不少于800字的文章。(60分) 人类在新石器时代从狩猎转为农耕以前，没有农作物无所谓野草，或曰全是野草。农作物由野草培育而来，稻米源于亚洲的一种野草——红稻。农作物与野草两者采取了截然相反的基因策略：人工培育以追求高产和性状划一为目标，使农作物的基因组合趋于单一化；自生自灭的野草为在逆境中求生存，发展出许多种不同基因，其基因组合趋于多样化。天崩地裂，洪涝干旱，高温低温，什么逆境野草都能适应。道理其实很简单：大难临头时，千百万种不同基因组合中总有一些幸存。大约六千万年前地球被外来天体撞击，曾称霸一时的恐龙从此灭绝，
VB模拟试卷
一、选择题 1．一只白色的足球被踢进球门，则白色、足球、踢、进球门是________。 A.属性、对象、方法、事件 B.属性、对象、事件、方法 C.对象、属性、方法、事件 D.对象、属性、事件、方法 2．有程序代码：Text1.Text="Visual Basic",其中的Text1、Text和"Visual Basic"分别代表___ ___。 A. 对象、值、属性 B. 对象、方法、属性 C. 对象、属性、值 D. 属性、对象、值 3.将命令按钮Command1设置为不可使用，应设置该命令按钮的( )属性。 A.Visible B.Value C.Caption D.Enabled 4．单选按纽（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的___ ___中安排适当的单选按纽，即可实现。 A. 框架控件（Frame）或图象控件（Image） B. 组合框（ComboBox）或图象控件（Image） C. 组合框（ComboBox）或图片框（PictureBox） D. 框架控件（Frame）或图片框（PictureBox） 5．以下有关对象属性的说法中正确的是________。 A. 对象所有的属性都罗列在属性窗口列表中 B. 不同对象不可能有同名属性 C. 不同对象的同名属性取值一定相同 D. 对象的某些属性既可以在实行窗口中设置，也可以通过程序代 码设置或改变 6.下列哪段代码能删除列表框list1中所有项（） A Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 List1.RemoveItem i Next i End Sub B Private Sub Command1_Click() For i = 0 To List1.ListCount List1.RemoveItem 0 Next i End Sub C Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 List1.RemoveItem 1 Next i End Sub D Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 List1.RemoveItem 0
VB期末考试模拟题1讲解
【HNCE网上考试系统 v9.6】本套软件使用权属于：郑州大学 考试课程: 考试时间:100分钟考场:第一考场考试日期:2013.05.24 考号：姓名：剩余时间：99:42 保存交卷退出帮助 A B C D A B C D A B C D A B C D A B C D A B C D
A B C D A 命令 B 命令 C 命令 D 命令 A B C D A B C D A B C D A B C D A B
C D A B C D A B C D A 模块文件 B 件的属性 C 源文件 D 包含多个工程文件及属于该工程的其他文件 A 该窗体文件并没有被删除 B 窗体文件被删除 C 程仍然包含这个窗体 D A B C D A B C D
A B C D A B C D A可以实现交换两个变量值，而S2不能 B 个变量值，而S1不能 C 现交换两个变量值 D 现交换两个变量值 A B C D A B C D A 过程调用后均不保存值 B 有变量都是Static型的变量 C 所有变量都是Private型的变量 D 所有变量都是非全局Public A 用Dim语句或Static语句声明的变量 B 明它的过程
C Static语句声明的 D 程执行完毕后就被释放了 A B C D A B C D A B C D A B C D 声明段 A B C D A B C D A B
C D A B C D A B C D A B C D A 同 B Sub过程不可以 C 值，而Function过程能通过过程名返回值 D 或直接使用过程名调用，而 A工程中可以有多个窗体，但最多只能有一个窗体作为启动窗体 B 声明Public类型的变量来传递数据 C 大化、最小化或正常（保持设计时大小）等三种状态 D A 菜单 B 过程代码都放在窗体文件中 C 名必须相同 D 是设计阶段时显示的位置