vb程序设计考试题库,计算机二级vb上机题库及答案
vb程序设计考试题库,计算机二级vb上机题库及答案详细介绍
本文目录一览： 帮我做下VB考试卷子啊
我帮你做几题吧
1.Visual Basic语言是以结构化Basic语言为基础，以（事件）驱动为运行机制。
2.若要将窗体Form1隐藏起来，课可调用其方法(hide)来实现，具体调用格式为：(Form1.hide)
3.数据控件本身不具有数据显示能力，要显示工作表的数据，需借助treeview控件来实现。
4.Visual Basic对象主要分为(内部控件)和（ActiveX控件）两大类。
5.在Visual Basic中若要让某对象获取焦点，则可通过(setfocus)方法来实现。
6.显示快捷菜单的方法是(PopupMenu)。
7.调试应用程序时，其处于(break)模式。
8.Visual Basic中若要产生以消息框，可用(msgbox)函数来实现。
200分都没人做哦，太多了，且没技术含量
支持楼上的
一、填空题
1.Visual Basic语言是以结构化Basic语言为基础，以(事件)驱动为运行机制。
2.若要将窗体Form1隐藏起来，课可调用其方法(Hide)来实现，具体调用格式为：(Form1.Hide)
3.数据控件本身不具有数据显示能力，要显示工作表的数据，需借助(treeview)控件来实现。
4.Visual Basic对象主要分为(内部控件)和(ActiveX控件)两大类。
5.在Visual Basic中若要让某对象获取焦点，则可通过(Setfocus)方法来实现。
6.显示快捷菜单的方法是(PopupMenu)。
7.调试应用程序时，其处于(break)模式。
8.Visual Basic中若要产生以消息框，可用(msgbox)函数来实现。
二、单选
1.若要卸除窗体，则实现的语句为___ D.unload
2.若要使用命令钮失效，则可设置_B.enabled __属性为Flase来实现。
3.设置或返回文本框中的文本，可通过文本框对象的_B.text __属性来实现。
4.设置定时器控件的定时时间，可通过A.interval ___属性来设置。
5.包含Activex控件的文件的扩展名是_C..ocx __。
6.下列哪个关键字定义的变量可以由其他模块访问_ C.public __
7.图像框或图片框中显示的图形文件，由他们的_B.picture __属性值决定。
8.创建工具栏之前，应选中〖部件〗对话框中的__C.microsoft windows common control 6.0 _复选框才能在工具箱中添加相应的控件按钮。
9.Visual Basic中可通过_C.circle __方法画圆。
10.用下面语句定义的数组的元素个数是_ D.9__
Dmi M (-5 to 3) AS integer
三、多选
1.当用户在窗体上单击鼠标时，触发的事件A.click B.mousedown C.mouseup
2.在运行时，若要以程序代码的方式调整窗体的大小，则改变下列属性或事件中的代码可实现的有_B.width _C.height _
3.当窗体被启动，将会发生的事件A.load B.gotfocus C.paint D.initialize
4.下列控件不具有text属性的是 B.标签_C.图片框__
5.下列变量名正确的有A.count C.banna2 ___
四、判断题
1.所有的对象都具有caption属性和name属性。（错）
2.在VB应用程序之外删除工程中的一个文件时，不能更新此工程文件。（对）
3.一个应用程序只能有一个mdi窗体。（错）
4.在设计段通过用对话框控件的大小不能改变，用户也无法指定对话框在屏幕上的显示位置。（对）
5.数据库中的健必须是唯一的。（对）
五、简答题：
从书上找，略
六、编程题：
1.求1到100内所有能被3整除的数。
dim i as integer
for i=1 to 100
if i mod 3=0 then print i;
next i
print
2.随机生成10个50以内的整数，并按递增顺序排序。
dim i as integer ，A(9) as integer,T as integer
for i=0 to 9
randomize
a(i)=int(rnd*50)
next i
for i=0 to 8
for j=i+1 to 9
if a(i)>a(j) then
T=a(i):a(i)=a(j):a(j)=T
end if
next j
next i
for i=0 to 9
print a(i);
next i
说明：可能有个别题与答案不符，你最后好好看看书，确认一下，不要一味照搬。
VB测试题
Dim
A
As
Single,
B
As
Single
A
=
Val(InputBox("请输入数字:"))
B
=
Val(InputBox("请输入数字:"))
If
A
>=
B
Then
Max
=
A
Min
=
B
Else
Max
=
B
Min
=
A
End
If
Print
"A,B";
A;
B
Print
"最大值为：";
Max
Print
"最小值为：";
Min
End
Sub
1、VB6.0中属于定制控件的文件是（A ）
A .ocx B .frm C .vbp D .exe
2、如果编写的过程要被多个窗体及其对象调用，应将这些过程放在(B )模块中？
A 窗体模块 B 标准模块 C 工程 D 类模块
3、下面的表达式中，不正确的是（ D）
A Const m=&O27 B DIM a%,x%
C static b as integer D 66 >”AB”
4、设a=5,b=6,c=7,d=8,执行x=iif((a>b)and(c>d),10,20),x的值是（ B）。
A 10 B 20 C True D False
5、下面的数组说明中，正确的是( C) 。
A Sub sl(a(),n) B Sub sl(a(),n)
Dim a(n,n) dim preserve a(2,2)
C Sub sl(a(),n) D Sub sl(a(),n)
redim a(5) dim a(5)
6、VB中过程或函数中形参变量的类型声明为“Control” 或“Form”的对象的参数传递是 (B）
A 按值传递 B 按址传递 C 看前面有无”Byval” D 看前面有无”Byref”
7、描述vb6.0过程参数传递不正确的是（ D）。
A 实参和形参的个数、顺序、类型必须一致
B 过程调用可以使用Call或直接使用过程名
C 实参和形参的名称可以不同
D 过程的参数调用都单向的
8、VB应用程序中，在程序中流动的不是一般的数据而是 （A）
A 事件 B 属性 C 方法 D 对象
9、VB6.0 各种表达式运算顺序的不正确描述是( D).
A ( )运算最高 B 逻辑运算最低
C 达式运算一律从左到右 D 函数运算最高
10、在调用SUB过程或FUNCTION过程时，采用（ B）传送相应过程的变量名、数组名、常数或表达式。
A 形式参数 B 实际参数 C 对象参数 D 数组参数
11、一维数组的排序计算方法中采用“相邻比较，大数放右”的方法是（ B)
A 冒泡法 B 选择排序法
C 比较法 D 循环比较法
12、VB6.0 用户使用数据库是通过（A ）。
A 数据控件 B DataSourec
C Connect D reposition
13、下面 Function过程Private Function Exam(A As Integer) 调用方法中哪个是不正确。 （C）
A.Tcmp=Exam(x) B.Call Exam(x) C. Exam x D.Exam(x)
14 、利用可视化数据库管理器可以建立（D ）.
A 数据库 B 表 C 数据查询 D 都可以
15、下列说法正确的是（ A）。
A 全局变量必须在标准模块中用Public语句声明。
B 过程级变量除可用Dim声明外，还可用Static声明，含义相同。
C 标准模块中声明的变量一定是全局的。
D 模块级变量可在窗体模块中用Private和Dim定义。
16\、将当前页面跳转到“Test.asp”的ASP代码是（C）
A．Response.form "Test.asp" B．Request. Goto "Test.asp"
C．Response.Redirect "Test.asp" D．Request. Redirect "Test.asp"
关于VB考试的选择题目
C D D A C D A A C D B C A A C
1. 与传统的程序设计语言相比，Visual Basic最突出的特点是 C
2. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是D
3. 对象是D
4. 以下叙述正确的是 A
5. 如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的哪一个属性 C
6. 从键盘上输入两个字符串，分别保存在变量str1T和str2中。确定第二个字符串在第一个字符串中起始位置的函数是 D
7.表达式(-1)*Sgn(-100+Int(Rnd*100))的值是 A
8. 有如下事件过程：A
9.可以同时删除字符串前导和尾部空格的函数是 C
10.下列程序段的执行结果为 D
11.如下数组声明语句，正确的是B
12. 单击一次命令按钮后，下列程序的执行结果是 C
13.表示滚动条控件取值范围最大值的属性是A
14.设置命令按钮的属性时，只有将何属性设置为1，Picture属性才有效，否则无效? A
15. 要设置标签框是否有边框，应设置的属性是 C
选D
返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。
语法
InStr([start, ]string1, string2[, compare])
InStr 函数的语法具有下面的参数：
部分 说明
start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。
string1 必要参数。接受搜索的字符串表达式。
string2 必要参数。被搜索的字符串表达式。
Compare 可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。
设置
compare 参数设置为：
常数 值 描述
vbUseCompareOption -1 使用Option Compare 语句设置执行一个比较。
vbBinaryCompare 0 执行一个二进制比较。
vbTextCompare 1 执行一个按照原文的比较。
vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库中信息的比较。
返回值
如果 InStr返回
string1 为零长度 0
string1 为 Null Null
string2 为零长度 Start
string2 为 Null Null
string2 找不到 0
在 string1 中找到string2 找到的位置
start > string2 0
说明
InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置，而不是字符位置。
InStr 函数示例
本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。
SearchChar = "P" ' 要查找字符串 "P"。
' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1)
' 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)
' 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar) ' 返回 9。
MyPos = Instr(1, SearchString, "W") ' 返回 0。
3月计算机二级VB上机操作题库及答案
2017年3月计算机二级VB上机操作题库及答案
一、基本操作题
(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。再画两个标题分别为“椭圆”和“圆”的命令按钮。如下图所示。
要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。
二、简单应用题
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体Forml上有两个标题分别是“读数据”和“查找”的命令按钮。请画1个名称为Textl、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。程序功能如下。
①在考生文件夹下的in.3.dat文件中存有100个正整数。单击“读数据”按钮，则将文件in3.dat中的数据读入数组a中。
②单击“查找”按钮，则查找数组a中所有为7的倍数的数据，并将这些数据顺次显示在Textl文本框内(数据之间用空格隔开)。“读数据”按钮的Click事件过程已经给出，请编写程序完成“查找”按钮的Click事件过程，实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须使用“查找”按钮完成查找过程，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后将程序按原文件名存盘。
(2)考生文件夹下有一个工程文件sit4.vbp。在窗体Forml上有两个名称为Commandl和Command2、标题分别为“重输”和“查找”的命令按钮。程序功能如下。
单击“重输”按钮，则清空Textl中的内容，等待用户输入由空格隔开的若干个英文单词;单击“查找”按钮，则找出Textl中最长的单词，并将其显示在Text2中。某一次的运行效果如图所示。请将“查找”按钮的Click事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的.控件和程序，最后将程序按原文件名存盘。
三、综合应用题
考生文件夹下有一个工程文件sjt.s.vbp。在窗体Forml上有两个标题分别是“产生数据”和“重新排列”的命令按钮，有两个标题为“原始数据”和“排列数据”的标签。程序功能如下。
①单击“产生数据”按钮，则随机产生20个一位整数，存人数组a中，并同时显示在Textl中。
②单击“重新排列”按钮，则重新排列数组a中的元素：使等值的元素相邻存放，并且保持它们在数组a中首次出现的相对次序;最后将排列结果显示在Text2中。某一次运行结果如图所示。
请将“重新排列”按钮的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
【参考答案】
一、基本操作题
(1)【解题思路】新建一个空白窗体，添加一个组合框控件，根据题目要求修改窗体和控件的属性值。
【操作步骤】
步骤1：新建一个空白窗体，设置窗体的属性，属性设置如表4.5所示。
步骤2：添加一个组合框控件，设置控件的属性，属性设置如表4.6所示。
完成设置后界面效果如图4.3所示。
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)【解题思路】新建一个空白窗体，添加一个形状控件和两个命令按钮，设置好窗体和控件的属性，对两个命令分别添加事件代码，使单击按钮时，窗体中的形状控件能够产生变化。
【操作步骤】
步骤1:新建一个空白窗体，设置窗体的属性，属性设置如表4.7所示。
步骤5：调试并运行程序，单击“椭圆”按钮，如图4.4所示，单击“圆”按钮，如图4.5所示，关闭程序后按题目要求存盘。
二、简单应用题
(1)【解题思路】本题主要考查利用循环及分支结构处理数组中的数据，使用For循环遍历数组中的全部值，然后使用If语句判断数组中每个元素是否是7的倍数，若是，则将数组保存在文本框中。
【操作步骤】
步骤1：打开本题项目工程。
步骤2：在窗体中添加一个文本框控件，控件属性的设置如表4.9所示。
步骤3：打开代码编辑窗口，在程序代码区域编写如下代码。
所示，单击“查找”按钮，如图4.7所示，关闭程序后按题目要求存盘。
三、综合应用题
【解题思路】本题利用三重循环对数组中的元素进行移动操作，按照题目的要求移动结束后，将数组元素依次显示到Text2文本框中。
;
两道vb编程题
1.放入两个ListBox控件 名字分别是List1,List2mList1的sorted属性为True
代码：
Private Sub Form_Load()
List1.AddItem "计算机应用"
List1.AddItem "软件工程"
List1.AddItem "信息化技术"
List1.AddItem "数据库"
List1.AddItem "C++"
List1.AddItem "软件重用"
List1.AddItem "web设计"
End Sub
Private Sub List1_Click()
If List2.ListCount = 4 Then
MsgBox "只能选4门课", , ""
Exit Sub
End If
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End Sub
2.
Private Sub Command1_Click()
Dim num As Long, temp As Boolean
num = Val(Text1.Text)
temp = True
For i = 2 To Sqr(num )
If num Mod i = 0 Then
temp= False
Exit For
End If
Next
if temp =false then
MsgBox num & "不是一个素数"
else
MsgBox num & "是一个素数"
end if
End Sub
1
Private Sub Form_Load()
List1.Clear
List1.AddItem ""大学计算机基础""
List1.AddItem ""VB程序设计""
List1.AddItem ""数据库技术与应用""
List1.AddItem ""C程序设计""
List1.AddItem ""多媒体技术""
List1.AddItem ""硬件技术基础""
List1.AddItem ""网络技术与应用""
List1.AddItem ""WEB程序设计""
End Sub
Private Sub List1_Click()
If List2.ListCount >= 5 Then
MsgBox ""超过5门课程，不能再选！""
Exit Sub
Else
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End If
End Sub
2
Private Sub Command1_Click()
Dim N As Long, Flags As Boolean
N = Val(Text1.Text)
Flags = True
For i = 2 To Sqr(N)
If N Mod i = 0 Then
Flags = False
Exit For
End If
Next
MsgBox N & IIf(Flags, "", "不") & "是一个素数"
End Sub
计算机二级vb上机题库及答案
2009年全国计算机二级VB精选上机考试试题(2)一、基本操作题
下面出现的“考生文件夹”均为c：＼wexam＼20060001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个水平滚动条，其名称为HScmll1，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能：窗体标题为“设置滚动条属性”；滚动条所能表示的最小值和最大值分别为0和200，滚动框的初始位置为100。程序运行后，单击滚动条两端的箭头时，滚动框移动的增量值为2，单击滚动框前面或后面的部位时，滚动框移动的增量值为10。程序的运行界面如图32-1所示。要求：不要编写任何代码。
图32-1
注意：存盘时必须存放在考生文件夹下，工程文件名为kt1.vbp，窗体文件名为kt1.frm。
(2)在名称为Form1的窗体上画一个文本框，其名称为Text1，如图32－2所示。编写适当的事件过程，使程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果在文本框中输入信息，则可使文本框移到窗体的右上角。程序的运行界面如图32-3所示。
要求：不得使用任何变量；只允许通过修改属性的方式移动文本框。
注意：存盘时必须存放在考生文件夹下，工程文件名为kt2.vbp，
窗体文件名为kt2.frm。
图32-2
图32-3
二、简单应用题
下面出现的“考生文件夹”均为c：＼wexamL20060001。
(1)在考生文件夹下有一个工程文件kt3.vbp，相应的窗体文件为kt3.frm。其功能是产生20个0～1000的随机整数，放入一个数组中，然后输出这20个整数中大于500的所有整数之和。程序运行后，单击命令按钮(名称为Command1，标题为“输出大于500的整数之和”)，即可求出这些整数的和，并在窗体上显示出来，如图32-4所示。这个程序不完整，请把它补充完整，并能正确运行。
图32-4
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件kt4.vbp，相应的窗体文件为kt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0～100范围内不能被7整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数之和的操作在通用过程Fun中实现，请编写该过程的代码。要求请勿改动程序中的任何内容，只在Ftrnction Fun()和 End Function之间填入所编写的若干语句。最后把修改后的文件按原文件名存盘。
三、综合应用题
下面出现的“考生文件夹”均为c：＼wexam＼20060001。
在名为Form1的窗体上建立一个名为Text1的文本框，将MultiLine属性设置为True，ScrollBars属性设置为2。再建立两个名称分别为Cmd1、Cmd2和Cmd3命令按钮，标题分别为“读数”、“排序”和“保存”，如图32-5所示。
程序运行后，如果单击“读数”按钮，则读入in7.txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击“排序”按钮，则对100个整数按从大到小进行排序；如果单击“保存”按钮，则把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件out7.txt中(在考生文件夹下有标准模块mode1.bas过程可以把指定个数的数组元素存入out17.txt文件，考生可以把该模块文件添加到自己的工程中)。
注意：保存时必须存放在考生文件夹中，窗体文件名为kt5.frm，工程文件名为kt5.vbp，
排序结果存入out17.txt，否则没有成绩。
图32-5
求一套VB题库
(1) 在深度为5的满二叉树中，叶子结点的个数为
A) 32
B) 31
C) 16
D) 15
B
(2) 若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是
A) bdgcefha
B) gdbecfha
C) bdgaechf
D) gdbehfca
D
(3) 一些重要的程序语言(如C语言和Pascal语言) 允许过程的递归调用。而实现递归调用中的存储分配通常用
A) 栈
B) 堆
C) 数组
D) 链表
A
(4) 软件工程的理论和技术性研究的内容主要包括软件开发技术和
A) 消除软件危机
B) 软件工程管理
C) 程序设计自动化
D) 实现软件可重用
B
(5) 开发软件时对提高开发人员工作效率至关重要的是
A) 操作系统的资源管理功能
B) 先进的软件开发工具和环境
C) 程序人员的数量
D) 计算机的并行处理能力
B
(6) 在软件测试设计中，软件测试的主要目的是
A) 实验性运行软件
B) 证明软件正确
C) 找出软件中全部错误
D) 发现软件错误而执行程序
D
(7) 数据处理的最小单位是
A) 数据
B) 数据元素
C) 数据项
D) 数据结构
C
(8) 索引属于
A) 模式
B) 内模式
C) 外模式
D) 概念模式
B
(9) 下述关于数据库系统的叙述中正确的是
A) 数据库系统减少了数据冗余
B) 数据库系统避免了一切冗余
C) 数据库系统中数据的一致性是指数据类型一致
D) 数据库系统比文件系统能管理更多的数据
A
(10) 数据库系统的核心是
A) 数据库
B) 数据库管理系统
C) 模拟模型
D) 软件工程
B
(11) 下列说法错误的是
A) 窗体文件的扩展名为.frm
B) 一个窗体对应一个窗体文件
C) Visual Basic中的一个工程只包含一个窗体
D) Visual Basic中一个工程最多可以包含255个窗体
C
(12) 下列四组控件属性中，属性值的类型不相同的一组是
A) Label控件的Enabled属性与TextBox控件的Enabled属性
B) OptionButton控件的Value属性与CheckBox控件的Value属性
C) Command控件的Default属性与Command控件的Cancel属性
D) Command控件的Visible属性与Form控件的Visible属性
B
(13) 下列方法中不能退出Visual Basic的是
A) 按Alt+Q组合键
B) 按下Alt+F组合键，然后按Esc键
C) 打开"文件"菜单，执行"退出"命令
D) 按F10键，然后按F键，再按X键
B
(14) 任何控件都有的属性是
A) BackColor
B) Caption
C) Name
D) BorderStyle
C
(15) 可以实现从键盘输入一个作为双精度变量a的值的语句是
A) a=InputBox()
B) a=InputBox("请输入一个值")
C) a=Val(InputBox("请输入一个值") )
D) a=Val(InputBox() )
C
(16) 下列符号常量的声明中，不合法的是
A) Const a As Single=1.1
B) Const a="OK"
C) Const a As Double=Sin(1)
D) Const a As Integer="12"
C
(17) 在Visual Basic中，要强制用户对所用的变量进行显式声明，这可以在哪里设置?
A) "属性"对话框
B) "程序代码"窗口
C) "选项"对话框
D) 对象浏览器
C
(18) 下列语句中，获得列表框List1中项目个数的语句是
A) x=List1.ListCount
B) x=ListCount
C) x=List1.ListIndex
D) x=ListIndex
A
(19) 要获得当前驱动器应使用驱动器列表框的属性是
A) Path
B) Drive
C) Dir
D) Pattern
B
(20) 如果将文本框的MaxLength属性设置为0，则文本框中的字符不能超过
A) 8K
B) 16K
C) 32K
D) 64K
C
(21) 当在滚动条内拖动滚动块时触发
A) KeyUp事件
B) KeyPress事件
C) Scroll事件
D) Change事件
C
(22) 设有声明语句
Dim b(-1 To 10, 2 To 9, 20) As Integer
则数组b中全部元素的个数
A) 2310
B) 2016
C) 1500
D) 1658
B
(23) 设在窗体上有个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt) > 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text="BBBBB"
End If
End Sub
上述程序运行后，如果按 【Shift+F2】 ，则在文本框中显示得是
A) Alt+F2
B) BBBBB
C) 随机出几个数
D) 文本框平均内容无变化
D
(24) 设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是
A) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button=2 Then PopupMenu Bs, 2
End Sub
B) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bs
End Sub
C) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bs,0
End Sub
D) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bs
End Sub
A
(25) 下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则
Private Sub Command1_Click()
CommonDialog1.CancelError=True
CommonDialog1.Flags=cdlCFEffects Or cdlDFBoth
CommonDialog1.Action=4
CommonDialog1.ShowFont
Text1.Font.Name=CommonDialog1.FontName
Text1.Font.Size=CommonDialog1.FontSize
Text1.Font.Bold=CommonDialog1.FontBold
Text1.Font.Italic=CommonDialog1.FontItalic
Text1.Font.Underline=CommonDialog1.FontUnderline
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Text1.ForeColor=CommonDialog1.Color
End Sub
A) Text1的字体不发生变化
B) Text1的字体发生变化
C) Text1的字体和颜色发生变化
D) 程序出错！
D
(26) 要将名为MyForm的窗体显示出来，正确的使用方法是
A) MyForm.Show
B) Show.MyForm
C) MyForm Load
D) MyForm Show
A
(27) 下列程序段的执行结果为
a=5
For k=1 To 0
a=a + k
Next k
Print k; a
A) -1 6
B) -1 16
C) 1 5
D) 11 21
C
(28) 下列程序段的执行结果为
a=3
b=1
For I=1 To 3
f=a + b
a=b
b=f
Print f
Next I
A) 4 3 6
B) 4 5 9
C) 6 3 4
D) 7 2 8
B
(29) 下列程序段的执行结果为
I=9
x=5
Do
I=I + 1
x=x + 2
Loop Until I >=7
Print "I="; I
Print "x="; x
A) I＝4x＝5
B) I＝7x＝15
C) I＝6x＝8
D) I＝10x＝7
D
(30) 以下程序段运行时从键盘上输入字符"-"，则输出结果为
op$=InputBox("op=")
If op$="+" Then a=a + 2
If op$="-" Then a=a - 2
Print a
A) 2
B) -2
C) 0
D) +2
B
(31) 以下程序段的输出结果为
Dim l, a(10) , p(3)
k=5
For i=0 To 10
a(i) =i
Next i
For i=0 To 2
p(i) =a(i ? (i + 1) )
Next i
For i=0 To 2
k=k + p(i) ? 2
Next i
Print k
A) 20
B) 21
C) 56
D) 32
B
(32) 下列程序的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=12: y=20
Call Value(x, y)
Print x; y
End Sub
Private Sub Value(ByVal m As Integer, ByVal n As Integer)
m=m * 2: n=n - 5
Print m; n
End Sub
A) 20 12
20 15
B) 12 20
12 25
C) 24 15
12 20
D) 24 12 12 15
C
(33) 在窗体上画一个命令按钮，然后编写下列程序
Private Sub Command3_Click()
Tcl 2
Tcl 3
Tcl 4
End Sub
Sub Tcl(a As Integer)
Static x As Integer
x=x + a
Print x;
End Sub
程序运行后，单击命令按钮，输出结果为
A) 2 3 4
B) 2 5 9
C) 3 5 4
D) 2 4 3
B
(34) 下面程序段，运行后的结果是Private Sub Command1_Click()
Dim b%(1 To 4) , i%, t#
For i=1 To 4
b(i) =i
Next i
t=Tof(b() )
Print "t="; t,
End Sub
Function Tof(a() As Integer)
Dim t#, i%
t=1
For i=2 To UBound(A)
t=t * a(i)
Next i
Tof=t
End Function
A) t＝18
B) t＝24
C) t＝30
D) t＝32
B
(35) 单击按钮时，以下程序运行后的输出结果是
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
x=1: y=2: z=3
Call God(x, x, z)
Print x; x; z
Call God(x, y, y)
Print x; y; y
End Sub
Private Sub God(x As Integer, y As Integer, z As Integer)
x=3 * z + 1
y=2 * z
z=x + y
End Sub
A) 6 6 12
7 11 11
B) 8 5 10 5 11 11
C) 9 6 12
9 10 15
D) 8 10 10 5 9 10
A
行了。不要你万分感谢了。用你能给我加的分感谢就行了。
要的话我这还有。
vb期末考试试题谁有啊
还没考得吧
这有一份
VB期末考试试题 一、 填空题
1、VB程序设计的主要特点是 （1） 和 （2） 。
2、在VB中，最主要的两种对象是 （3） 和 （4） 。
3、工程是构成应用程序文件的 （5） 。
4、方法是VB提供的一种 （6） ，用来完成一定的操作。
5、浮点类型数据包括单精度型和___（7）__数据。
6、事件是窗体或控件对象识别的___（8）____。
7、可用窗体的___（9）_ 方法在窗体中显示文字。
8、 复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。
9、在VB中，修改窗体的 （11）和 （12） 属性值，可改变窗体的大小。
10、双击工具箱中的控件图标，可在窗体的 （13） 出现一个尺寸为缺省值的控件。
11、在MsgBox函数中，如果缺省title参数，则使用 （14） 作为消息框的标题。
12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是 （15） 。
13、在VB 中，数值型变量的初值为 （16） ，Varant型变量的初值为 （17） ，布尔型变量的初值为 （18） 。
14、设置窗体的 （19） 属性，可在窗体上显示图片。
15、程序运行工程中，清除MP图片框中的图片应使用语句 （20） 。
二、选择题
1、菜单控件只包括一个事件，即 （1） ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocus B、Load C、Click D、KeyDown
2、滚动条控件(如图所示)的Max属性所设置的是 （2） 。
A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值
B、 单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量
C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量
D、滚动条控件无该属性
3、SQL 语句 Select * Form student 中的 *表示 （3） 。
A、所有记录 B、所有字段 C、所有表 D、都不对
4、以下选项中，不属于标签的属性是 （4） 。
A、Enabled B、Caption C、Default D、Font
5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 （5） 。
A、Caption B、Name C、Text D、Label
6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 （6） 。
A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ （7） 。
A、在标题项中输入&，然后打勾 B、在索引项中打勾
C、在有效项中打勾 D、在复选项中打勾
8、当执行以下过程时，在窗体上将显示 （8） 。
Private Sub Command1_Click( )
Print "VB";
Print "Hello! ";
Print "VB"
End Sub
A、 VBHello!VB B、 VB
Hello!VB
C、 VB D、 VB
Hello! VB Hello!
VB
9、语句Print "The answer is:";20/4-2的结果为 （9） 。
A、The answer is 20/4-2 B、The answer is 3
C、The answer is "20/4-2" D、非法语句
10、下列哪个控件是容器控件 （10） 。
A、Image B、Picture C、ComboBox D、FileListBox
11、若要将窗体从内存中卸载出去，其实现的方法是 （11） 。
A.Show B.Hide C.Load D.UnLoad
12、以下选项中，不是 Visual Basic控件的是 （12） 。
A.窗体 B.定时器 C.单选框 D.命令按钮
13、双击窗体中的对象后，Visual Basic将显示的窗口是 （13） 。
A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口
14、可决定窗体的左上角是否有控制菜单的属性是 （14） 。
A.ControlBox B.MinButton
C.MaxButton D.BorderStyle
15、设有如下语句：
Strl＝InputBox（"输人"，""，"练习"）
从键盘上输人字符 “示例”后，Strl的值是 （15） 。
A．“输入” B．“ ” C．“练习” D．“示例”
16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 （16） 。
A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click
17、窗体的hide属性的含义是 （17） 。
A.隐藏 B.展现 C.装入 D.卸载
18、若要设置定时器控件的定时时间，需设置的属性是 （18） 。
A．Enabled B．Value C．Interval D．Text
19、能够改变复选框中背景颜色的属性是 （19） 。
A．Value B．FontColor C．BackColor D．Font
20、窗体能响应的事件是 （20） 。
A．ActiveForm B．Load C．Drive D．Change
三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。)
1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。
2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。
3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。
4、通过改变属性窗口中的Name属性，来改变窗体的标题。
5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。
6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。
7、已知P＝MsgBox(“Howareyou?"，VbYesNo+VbQuestion，“Hello!”)，变量P是Integer数据类型。
8、工程文件的扩展名是 .vbg 。
9、VB允许设计和使用用户自己设计的控件。
10、OptionButton控件没有DblCliek事件。
11、同一条记录中的各数据具有相同的类型。
12、使用Data控件可以直接显示数据库中的数据。
13、ImageList 是一个图像容器控件，可用作工具栏的图像库。
14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。
15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。
16、如果列表框的ListConut的属性为10，则列表框最后一项的ListIndex值为10。
17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。
18、使用数组定义语句：Dim D$（10），则数组D中各元素的值为空。
19、如果在一行中输入多条语句，各语句之间用使用 ；分隔。
20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。
四、读程序题，写出程序运行结果
1、 Private Sub Form_Click()
Static SUM As Integer
I = 1
Do While I<=10
SUM = SUM + I
I = I + 1
Loop
Print SUM
End Sub
运行程序，第一次单击窗体：
第二次单击窗体：
2、 Private Sub Form_Click()
Print "*"; Tab(6); 2, Tab(15); 5
Print
For I = 15 To 16
Print I;
For j = 2 To 6 Step 3
Print Tab(3 * j); j * I;
Next j
Print
Next I
End Sub
程序运行结果：
五、编程题
（一）窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip（20分之一像素）。请填空：
Private Sub Form_load( )
（1） =loadPicture(“c:\pic\ball.ico”)
（2） .Interval=200
End Sub
Private Sub Timer1_Timer( )
Static x , y As Integer
x=x+100
y=y+100
Picture1.Move （3）
End Sub
（二）有一个单击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请填空：
Private Sub Command1_Click()
Dim x As Integer, N%
Dim Counter As Integer
(1) Timer
For N=1 To 50
X=Rnd()* (2)
If (3) =2 Then
Print x
Counter= (4)
(5)
Next N
Print Counter
End Sub
《VB程序设计与应用》参考答案
一、填空题 1 2 3 4 5
答案 可视化设计 事件驱动编程 窗体（form） 控件 集合
题号 6 7 8 9 10
答案 特殊子程序 双精度 动作 Print 选中
题号 11 12 13 14 15
答案 高度（Height） 宽度(Width) 中央 工程1 34.6
题号 16 17 18 19 20
答案 0 空 False Picture Cls
二、选择题 1 2 3 4 5
答案 C A B C A
题号 6 7 8 9 10
答案 D D A B B
题号 11 12 13 14 15
答案 D A A A D
题号 16 17 18 19 20
答案 C A C C B
三、判断题 1 2 3 4 5 6 7 8 9 10
答案 Х Х Х √ Х √ √ √ √ Х
11 12 13 14 15 16 17 18 19 20
答案 √ Х √ √ Х Х √ Х Х √
四、程序阅读题：
（一） （10分）
1 、 55
2、 110
（二）、 （10分）
* 2 5
15 30 75
16 32 80
五、编程题 （20分）
（一）1、Picture1.Picture
2、 Timer1
3、 x ,y
(二) 1、 Randomize
2、 Rnd()*41+60
3、 x Mod 6
4、 Counter＋1
5 End If
一、单项选择题（共10分）
1．在代码中引用一个控件时，应使用控件的（B）属性。
A．Caption B．Name C．Text D．Index
2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（A）的值为“假”。
A．x+a <= b-y B． x > 0 AND y < 0
C．a = b OR x>y D． x+y > a+b AND NOT (y < b)
3．表达式Int(Rnd*71)+10产生的随机整数范围是（C ）。
A．（10，80） B．（10，81） C．[10，80] D．[10，81]
4．函数Sgn(3.1416)的返回值是（C ）。
A．-1 B．0 C．1 D．以上都不对
5．67890属于（ D ）类型数据。
A．整型 B．单精度浮点数 C．货币型 D．长整型
6．下列变量名中正确的是（D）。
A．3S B．Print C．Select My Name D．Select_1
7．下列赋值语句（ A ）是有效的。
A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0
8．以下的控件或方法具有输入和输出双重功能的为（B）。
A．Print B．Textbox C．Optionbutton D．Checkbox
9．若要获得列表框中被选中的列表项的内容，可以通过访问（D）属性来实现。
A．Name B．ListIndex C．ListCount D．Text
10．下列代码的运行结果为（B ）。
Private Sub command1_click()
Dim m(10)
For k = 1 To 10
m(k) = 11 - k
Next k
x = 5
Print m(2 + m(x))
End Sub
A．2 B．3 C．4 D．5
二、填空题（10分）
1．写出整数n能同时被13和17整除的Basic表达n Mod 13=0 And n Mod 17=0式 。
2．代码窗口中有两个下拉列表框：左侧是(对象)列表框，右侧是过程列表框。
3．写出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表达式LEFT(“Visual Basic 6.0”,6)。
4．函数Len(“abcdef”)的返回值是(6) 。
5．设a = 2，b = 5，c = -2，d = 100，则a > b >= c AND a < b >= d的值为False 。
三、将下列数学表达式转换为VB表达式。（6分）
1．a2+2ab+b2 ： a^2+2*a*b+b^2
2．8exln10 ：8*exp(x)*log(10)
3．2sin(450)cos(450) ：2*sin(3.1416/4)*cos(3.1416/4)
6．在VB中，用户定义常量使用 Const 语句，声明变量使用 Dim语句。
关于VB的题~~求人解答~~
1. ADO (ActiveX Data Object)
2. 对象（窗体，控件）的大小、颜色、方位等一系列外观或内部构造的特征
3. SelStart
4. 只读的
5. Visible属性设置为False
6. (x Mod 5) = 0 And (x Mod 10) = 0
7. 第2条语句执行 4 次，第3条语句执行 12 次
8. 20
9. 个数、类型、位置
10. 两者不表示同一变量，且这两个变量之间没有联系
11.
(1)新建工程
(2)设计用户界面：确定窗体，在窗体中添加控件。
(3)设置对象的属性：窗体和控件的属性在属性窗口设置。
(4)编写有关的代码程序。
(5)调试：若窗体或程序有错，则重复前三步，直到程序完全正确及窗体令人满意为止。
(6)应用程序的集成和管理（存储项目）：把有关项目存储起来，以便以后使用。
(7)运行应用程序
(8)建立可执行文件：脱离VB，而直接在Windows环境下运行。
(9)结束项目。
12. 顺序文件、随机文件、二进制文件
13. msgbox过程中参数不带括号，且没有返回值，msgbox函数有括号，且具有返回值
14. 如果X为Ture,则在窗体上输出X的值,否则输出X+1的值;运行结果是输出 1
15. Exit Do
16. 对于静态数组，一般要声明尽可能大的数目浪费内存空间，而动态数组在运行过程中可以改变大小，节省内存空间，但浪费执行时间。静态数组只能是常量。
17. (0/1 + 1/2 + 2/3 + 3/4 + 4/5)
18.
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max As Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
Max = arr1(1)
For i = 1 To 8
If arr1(i) > Max Then Max = arr1(i)
Next i
Print "最大值是: "; Max
End Sub
程序题 1.
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim I As Long
If KeyAscii = 13 Then
For I = 0 To Me.Combo1.ListCount
If Combo1.Text = Me.Combo1.List(I) Then
Label2.Caption = "输入项已在组合框中"
Exit Sub
End If
Next I
Label2.Caption = "已成功添加输入项"
Combo1.AddItem Combo1.Text
End If
End Sub
程序题2.
Dim I As Integer
Dim tmpNum As Integer
Dim TOTAL As Long
Randomize
For I = 1 To 20
tmpNum = Int(100 * Rnd) + 200
If tmpNum Mod 5 = 0 Then
TOTAL = TOTAL + tmpNum
Print tmpNum
End If
Next
Print "TOTAL:" & TOTAL
1）基本概念（填空与问答）
1．Vb提供了一种新的数据库访问技术，即ADO技术 ，通过该技术，能方便地访问数据库中的数据。
2．对象的属性是指 。对象的性质
3．在文本框中通过 SelStart属性能获得当前插入点所在的位置。
4．在代码窗口中对窗体的MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 只能在属性窗口设置。
5．为了使一个控件在运行时不可见，应该对该控件的 Visible属性设置为False。
6．表示x既是5的倍数又是10 的倍数的逻辑关系表达式 ( x mod 5 = 0 ) and ( x mod 10 = 0) 。
6．Vb也提供了三种基本结构，三种基本结构是 。顺序，分之，循环
7．下面程序段中，第2条语句执行 4 次，第3条语句执行 12次。
1：for i=1 to 12 step 3
2： for j=6 to 2 step -2
3： print i,j
4： next j
5： next i
8．数组声明语句Dim a(3,-2to2,5)中的数组a包含了元素的个数是 120。
9．形参是在定义过程时的一种形式上虚设的参数，只代表了该过程参数的 个数 、 类型 、 位置 、形参的名字并不重要，只表示在该过程中进行某种运算或处理。
10．在同一模块、不同过程声明的相同变量名，两者之间 没有任何关系 。
11．简述建立一个完整应用程序的过程。1建立界面2设置对象的属性3编写有关的代码程序4运行应用程序
12． Visual Basic提供了那三种对数据文件访问方式？顺序访问方式、随机访问方式、二进制访问方式
13．使用MsgBox函数和MsgBox过程的区别是什么？函数有返回值，过程没有。过程中参数不带括号，函数带括号。
14． 说明下面程序段的运行过程和结果。
Dim x
If x Then Print x Else Print x+1
1
15．如果语句：Do While … ..Loop构成了死循环，如何解决？IF
then Exit Do
16．静态数组和动态数组的区别是什么？静态数组声明数组的时候，指定维数，不可以改变；动态数组不声明维数，可以改变，过程中用redim声明。
17. 设有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0n = 0For i = 1 To 5x = n / in = n + 1sum = sum + xNextEnd Sub
Sum=0/1 + 1/2 + 2/3 + 3/4 + 4/5
该程序通过For循环计算一个表达式的值，这个表达式是什么？
18. 设有程序：Option Base 1Private Sub Command1_Click()Dim arr1, Max as Integerarr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) Max = arr1(1)For i = 1 To 8If arr1(i) > Max Then Max=arr1(i) Next iPrint "最大值是: "; MaxEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
二、编程题
1．在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。
Private Sub Combo1 keypress(KeyAscii is integer)
If KeyAscii=13 then
For I=0 to Combo1.listcount-1
If Combo1.text=Combo1.list then
Label2.caption=”输入项已在组合框中”
Exit Sub
End if
Label2.caption=” 已成功添加输入项”
Combo1.AddItem Combo1.text
End if
End Sub
2. 生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1_click()
For I=1to 20
X=Int(Ren*200+100)
If x mod 5=0 then
Print X
S=s+x
End If
next I
print “sum=”,s
End Sub
大一vb期末考试试题
http://wenku.baidu.com/view/7121b3d1240c844769eaee42.html
百度文库
单项选择题 判断题 填空题 编程题
1) 下列程序运行后，输出的结果为______。
B=1
Do while (b<40)
b=b*(b+1)
Loop
Print b
a) 42
b) 39
c) 6
d) 1 答案：A
2) 设执行以下程序段时依次输入1、3、5，执行结果为_____。
Dim a(4) As Integer
Dim b(4) As Integer
For K =0 To 2
a(K+1) =Val(InputBox(“请输入数据："))
b(3-K) =a(K+1)
Next K
Print b(K)
a) 1
b) 3
c) 5
d) 0 答案：A
3) 下列程序执行后，变量s的值为______。
Dim s As long ,x As Integer
s=0:x=1
Do While (x<10)
s=s+x
x=x+2
Loop
Print s
a) 10
b) 25
c) 50
d) 100 答案：B
4) 编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single)
If Shift=6 And Button=2 Then
Print "Hello"
End If
End Sub
程序运行后，为了在窗体上输出"Hello"，应在窗体上执行以下_______操作。
a) 同时按下 Shift 键和鼠标左键
b) 同时按下 Shift 键和鼠标右键
c) 同时按下Ctrl、Alt 键和鼠标左键
d) 同时按下 Ctrl、Alt 键和鼠标右键 答案：D
5) 当变量x=2,y=5时，以下程序的输出结果为____。
Do until y>5
x=x*y
y=y+1
loop
print x
a) 2
b) 5
c) 10
d) 20 答案：C
6) 当执行以下程序时，在名为lblResult的标签框内将显示_____。
Private Sub cmdlt_click()
Dim I,R
R=0
For I=1 To 5 Step 1
R=R+I
Next I
lblResult.Caption=Str（R）
End Sub
a) 字符串15
b) 整数15
c) 字符串5
d) 整数5 答案：A
7) 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。
X=1
do
x=x+3
print x
loop until(___)
a) x>=8
b) x<=8
c) x>=7
d) x<=7 答案：A
8) 若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。
If a>5 then
if b<4 then
c=a-b
else
c=b-a
End if
elseif b>3 then c=a*b
else
c=a mod b
End if
a) 2
b) -1
c) 1
d) 6 答案：A
9) 设有如下语句：
str1=inputbox("输入","","练习")
从键盘上输入字符串“示例”后，str1的值是___。
a) “输入”
b) “”
c) “练习”
d) “示例” 答案：D
10) 我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下，
Private Sub Text1_change( )
Text2.text=ucase(Text1.text)
End Sub
则在Text1文本框输入“visual basic”，Text2将______。
a) Text2中无内容显示。
b) Text2显示"VISUAL BASIC"。
c) Text2显示"visual basic"
d) Text1显示"visual basic" 答案：B
11) 下列程序的运行后s的值是_____。
S=0
For x=99 to 1 Step-2
s=s+x
Next x
Print s
a) 100
b) 500
c) 2500
d) 5000 答案：C
12) 下列程序的执行结果是____。
K=0
For I=1 To 3
a=I^I^K
print a;
Next I
a) 1 1 1
b) 1 2 3
c) 0 0 0
d) 1 4 9 答案：A
13) 下列程序的执行结果是_____。
Dim a(5) As String
Dim b As Integer
Dim I As Integer
For I =0 To 5
a(I)=I+1
Print a(I)
Next I
a) 123456
b) 6
c) 654321
d) 0 答案：A
14) 下列程序的执行结果为_____。
Dim intsum As Integer
Dim I As Integer
intsum=0
For I=20.2 To 5 Step -4.7
intsum=intsum +I
Next I
Print intsum
a) 150
b) 200
c) 50
d) 0 答案：C
15) 下列程序的执行结果为_____。
Dim S As Integer,n As Integer
S=0:n=1
Do While n<=100
S=S+n
n=n+1
Loop
Print S
a) 5050
b) 2500
c) 3000
d) 4000 答案：A
16) 下列程序的执行结果为_____。
A=100:b=50
If a>b Then
a=a-b
Else
b=b+a
End if
Print a
a) 50
b) 100
c) 200
d) 10 答案：A
17) 下列程序的执行结果为________。
Dim intsum As Integer
Dim I As Integer
intsum=0
For I=0 To 50 Step 10
intsum=intsum+I
Next I
Print intsum
a) 150
b) 200
c) 50
d) 0 答案：A
18) 下面程序执行后，X的结果为_____。
X=0
For I =1 to 5
For j=I to 5
X=X+1
Next j
Next I
Print X
a) 5
b) 10
c) 15
d) 20 答案：C
19) 下面程序执行的结果是____。
Private Sub Form_Click()
A$="123":B$="456"
C=Val(A$)+Val(B$)
Print C\100
End Sub
a) 123
b) 3
c) 5
d) 579 答案：C
20) 下列循环语句将执行______次。
A=100
Do
Print a
a=a+1
Loop until a<=10
a) 1
b) 10
c) 100
d) 死循环 答案：D
21) 下面程序段的循环结构执行后， 的输出值是_____。
程序段为：
For I=1 to 10 step 2
y=y+I
Next I
print I;
a) 25
b) 10
c) 11
d) 因为Y的初值不知道，所以不确定 答案：C
22) 写列程序段的执行结果____。
A="abbacddcba"
for I=6 to 2 step -2
x=mid(a,I,I)
y=left(a,I)
z=right(a,I)
z=x & y & z
next I
print Ucase(z)
a) ABA
b) AABAAB
c) BBABBA
d) ABBABA 答案：C
23) 以下语句输出结果是（在立即窗口中）_____。
A="Beijing"
b="ShangHai"
Print a;b
a) Beijing ShangHai
b) Abeijing ShangHai
c) BeijingShangHai
d) Abeijing 答案：C
24) 有如下程序：
For I=1 To 3
For j=5 To 1 Step-1
Print I+j
Next j,I
其循环执行的次数为______。
a) 12
b) 13
c) 14
d) 15 答案：D
25) 有如下程序段，该程序执行后，变量a的值为______。
For I=1 To 2
For J=I To 2
For K=1 To J
a=a+2
Next K
Next J
Next I
a) 2
b) 8
c) 10
d) 20 答案：C
26) 执行下列程序后，变量a的值为____。
Dim I as integer
dim a as integer
a=0
for I=0 to 100 step 2
a=a+1
next I
a) 1
b) 10
c) 51
d) 100 答案：C
27) 执行下列程序后，X的值为______。
X=3
y=6
Do While y<=6
x=x*y
y=y+1
Loop
a) 3
b) 6
c) 18
d) 20 答案：C
28) 执行下列程序段后，整型变量c的值为___。
A=24
b=328
select case b\10
case 0
c=a*10+b
case 1 to 9
c=a*100+b
case 10 to 99
c=a*1000+b
end select
a) 537
b) 2427
c) 24328
d) 240328 答案：C
29) 执行完下面的程序段后，循环将执行____次。
For I=1.7 To 5.9 Step 0.9
a=a+1
Print a
Next I
a) 3
b) 4
c) 5
d) 6 答案：C
30) 有如下语句，执行后该段语句的循环次数是_____。
Dim s,I,j as integer
For I =1 to 3
For j=3 To 1 Step-1
S=I*j
Next j
Next I
a) 9
b) 10
c) 3
d) 4 答案：A
31) 有如下程序，该程序将______。
For I=1 to 10 step 0
K=k+2
Next I
a) 形成无限循环。
b) 循环体执行一此后结束循环。
c) 语法错误。
d) 循环体不执行即结束循环。 答案：A
32) 有如下程序段，该程序段执行完毕后，共循环了________。
For I=1 To 5
For j=1 To I
For k=j To 4
Print "a"
Next k
Next j
Next I
a) 4
b) 5
c) 38
d) 40 答案：D
33) 有如下程序，该程序的运行结果为______。
Dim k As Integer
n=5:m=1:k=1
Do While k<=n
m=m*2
k=k+1
Loop
Print m
a) 1
b) 5
c) 32
d) 40 答案：C
34) 以下程序输出1到1000之间所有的偶数之和，请补充完该程序。
Private Sub Command_Click()
Dim x As Double
For I=0 To 1000
If ____ Then
x=x+I
End If
Next I
Print x
End Sub
a) i Mod 2 = 0
b) x Mod 2 = 0
c) I Mod 2 <> 0
d) x Mod 2 <> 0 答案：A
35) 以下是计算10的阶乘的程序，请补充该程序。
Dim t as single
Dim k as Integer
k=0:t=1
While_______
k=k+1
t=t*k
Wend
Print t
a) k<10
b) k>10
c) k=10
d) k>=10 答案：A
36) _____是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
a) 文件
b) 属性
c) 方法
d) 窗体 答案：C
37) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是_____。
a) 单选按钮
b) 图片框
c) 通用对话框
d) 文本框 答案：C
38) 下列各项不是Visual Basic的基本数据类型的是_____。
a) Char
b) String
c) Integer
d) Double 答案：A
39) 下列运算结果中，值最大的是 ______。
a) 3\4
b) 3/4
c) 4 mod 3
d) 3 mod 4 答案：D
40) 以下不属控件的一项是_____。
a) 文本框
b) 标签框
c) 列表框
d) 消息框 答案：D
41) 用InputBox函数可帮助生成_______。
a) 消息框
b) “保存”对话框
c) 简单输入框
d) “颜色”对话框 答案：C
42) ______对象不能响应Click事件。
a) 列表框
b) 图片框
c) 窗体
d) 计时器 答案：D
43) 17 mod 3的运算结果是_____。
a) 0.5
b) 1
c) 1.5
d) 2 答案：D
44) 变量X=32769，则变量声明时不能将其声明为_____。
a) Intrger
b) Variant
c) Long
d) Single 答案：A
45) 表达式2*3^2+2*8/4+3^2的值为_____。
a) 64
b) 31
c) 49
d) 22 答案：B
46) 复选对象是否被选中，是由其_____属性决定的。
a) Checked
b) Value
c) Enabled
d) Selected 答案：B
47) 没有Caption属性的控件是_____。
a) Label
b) OptionButton
c) Frame
d) LisBox 答案：D
48) 下列符号是Visual Basic中合法变量名的是_____。
a) IF
b) 7AB
c) A[B]7
d) AB_7 答案：D
49) 使窗体自动向下移动的语句是Move_____。
a) Left, Top+100
b) Top+100
c) Top+100
d) Top=Top+100 答案：A
50) RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB（红、绿、蓝），括号中红、绿、蓝三基色的成分使用0-255之间的整数。若使用3个滚动条分别输入3种基色，为保证输入数值有效，则应设置_____属性。
a) Max和Min
b) SmallChange和LargeChange
c) Scroll和Change
d) Value 答案：A