VB程序设计试卷
《VB程序设计》期终考查试卷(A卷)及答案
《VB 程序设计》期终考查试卷（A 卷） 适用专业： 题号 一 二 三 四 总分 总分人 分数 一、填空题（每空1分，共30分） 1、Visual Basic 是一种面向 的程序设计语言。
2、结构化的程序设计思想包括3种基本结构，分别是 、 、 。
3、在Visual Basic 6.0中，窗体和控件都是 ，都有自己的属性、方法和事件。
4、使用窗体的Print 方法输出数据时， 号表示紧凑格式输出， 号表示松散格式输出。
5、语句Print 5/4*6\5 mod 2的输出结果是 。
6、描述“X 是小于100的非负整数”的Visual Basic 表达式是 。
7、在自定义数据类型中的元素类型可以是字符串，但必须是 字符串。
8、在VB 中，参数的传递方式有 和 两种，使用它们时应分别在形参前加上关键字 和 。
9、变量的作用域分为 、 、 等3类。
10、用户自定义过程分为 、 ，两者最根本的区别在于 。
11、VB 将代码存储在3种不同的模块中： 、 、 。
扩展名分别为： 、 、 。
12、PictureBox 控件可通过设置其 属性为ture ，可使其自动调整大小；而image 控件通过设置其 属性为ture ，可使其加载的图片能自动调整大小以适应image 。
13、计时器事件之间的时间间隔通过___________属性设置。
班级 学号 姓名 - -------------------------------------装--------------------------------------------订---------------------------------------线------------------------------------- 阅卷人二、选择题（每小题2分，共30分）1、Visual Basic是一种面向对象的可视化程序设计语言，其中（）不是面向对象系统所包含的3个要素。
vb程序设计试题(含答案)
第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。
vb程序设计试题及答案
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
专升本vb程序设计试题及答案
专升本vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项是Visual Basic中的单行注释符号？A. //B. /* */C. 'D. ' '答案：C3. 在Visual Basic中，下列哪个函数用于计算数组中元素的个数？A. UBoundB. LBoundC. CountD. Len答案：A4. 如果要创建一个名为“Form1”的窗体，应该使用哪个关键字？A. FormB. SubC. FunctionD. Class5. 在Visual Basic中，下列哪个选项是正确的事件处理程序的声明方式？A. Sub Form1_Click()B. Sub Form1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Function Form1_Click()D. Function Form1_Click(ByVal sender As Object, ByVal e As EventArgs)答案：B6. 下列哪个选项是Visual Basic中的逻辑运算符？A. AndB. OrC. NotD. All of the above答案：D7. 在Visual Basic中，哪个关键字用于退出当前的Sub过程？A. ExitB. EndC. ReturnD. Stop答案：A8. 在Visual Basic中，下列哪个选项是正确的条件语句？A. If...ThenB. Do...LoopC. For...NextD. Switch...Case9. 在Visual Basic中，下列哪个选项用于创建一个标签控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：A10. 在Visual Basic中，下列哪个选项用于创建一个文本框控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个常量。
VB程序设计方法考试卷（A）
VB 程序设计方法考试卷（A ）姓名姓名 学号学号一、选择题（40%，每题2分）分） 1、以下关于文件的叙述中，错误的是（、以下关于文件的叙述中，错误的是（ ）。
A 、顺序文件中的记录一个接一个地存放、顺序文件中的记录一个接一个地存放B 、随机文件中记录的长度是随机的、随机文件中记录的长度是随机的C 、执行打开文件的命令后，自动生成一个文件指针、执行打开文件的命令后，自动生成一个文件指针D 、LOF 函数返回给文件分配的字节数函数返回给文件分配的字节数2、以下叙述中错误的是（、以下叙述中错误的是（ ）。
A 、事件过程是响应特定事件的一段程序、事件过程是响应特定事件的一段程序 B 、不同的对象可以具有相同名称的方法、不同的对象可以具有相同名称的方法C 、对象的方法是执行指定操作的过程、对象的方法是执行指定操作的过程D 、对象事件的名称可以由编程者指定、对象事件的名称可以由编程者指定3、以下合法的Visual Basic 标识符是（标识符是（ ）A 、Forloop B 、Const C 、9abc D 、a#x 4、当一个复选框被选中时，它的V alue 属性的值是( ) A 、3 B 、2 C 、1 D 、0 5、表达式5MOD3+3\5*2的值是（的值是（ ）A 、0 B 、2 C 、4 D 、6 6、设x=4,y=8,z=7,以下表达式x<y And (NOT y>z)OR z<x 的值是（的值是（ ）A 、1 B 、－1 C 、True D 、False 7、设窗体上有一个文本框，设窗体上有一个文本框，名称为名称为text1,程序运行后，程序运行后，要求该文本框不能接受键盘输入，要求该文本框不能接受键盘输入，要求该文本框不能接受键盘输入，但但能输出信息，以下属性设置正确的是（能输出信息，以下属性设置正确的是（ ）。
A 、text1.maxlength=0 B 、text1.enabled=false C 、text1.visible=0 D 、text1.with=0 8、以下能在窗体form1标题栏中显示“V isualBasic 窗体”的语句是（窗体”的语句是（ ）。
VB程序设计习题
A．0 B．-1 C．TRUE D．FALSE
4．函数String(n，"str")的功能是（B）
A．把数值型数据转换为字符串B．返回n个由字符串首字符组成的字符串
C．从字符串中取出n个字符D．从字符串中第n个字符的位置开始取子字符串
14．滚动条控件的LargeChange属性所设置的是（A）
A． 单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量
B． 滚动条中滚动块的最大移动位置C． 滚动条中滚动块的最大移动范围
D． 滚动条控件无该属性
15．设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（D）
B． 在运行Windows帮助引擎时，控件能够显示帮助信息
C． 控件显示的对话框由控件的方法决定
D． 设计时在窗体上将该控件显示成一个图标，此图标的大小可以调整
二、写出下列程序的运行结果
１．如下程序运行后，分别输入100和200，然后单击命令按钮：
Private Sub Command1_Click()
5．运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性值时，将触发文本框的（D）事件
A．ClickB．DblclickC．GotfocusD．Change
6．下列表达式Int(-4.8) * 6 \ 3 ^ 2 + 11 Mod 3 * Fix(-4.8)的值为（C）
Private Sub Command1_Click( )
x=InputBox(“x=?”)
If x^2=9 Then y=x
2024年VB语言程序设计试题库
ＶB程序设计一、判断题1．同一Ｆoｒm窗体中的各控件能够相互重叠，其显示的上下层次的次序不能够调整。
（X ）ﻫ2．一个对象的若能识别多个事件,我们只能对其中一个事件编程( )ﻫ3．单项选择按钮与复选框对象的Vａlｕe属性类型不一样，且只能取值Ｔrｕｅ和Falｓe。
（√ )4. 事件过程由某个用户事件或系统事件触发执行,它不能被其他过程调用。
( )5． 图片框的Move措施不但能够移动图片框,并且还能够变化该图片框的大小，同时也会变化该图片框有关属性的值。
( √ )6. “A=B=C”是一个合法的Vｉsual Bａsic语句。
( )７. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。
（ )ﻫ8. Visｕal Bａsｉｃ程序的运行能够从 Ｍａiｎ（）过程开启,也能够从某个窗体开启。
( √ ）ﻫ９. 在图片框中放置的控件既能够在该图片框内移动,也能够移出该图片框外。
( ）１0. 对于文献系统控件，当驱动器控件Drivｅl中的驱动器符变化时，文献夹列表控件Dir1中显示的文献夹也作对应的变化,能够在Dｒive1中的Cｈange事件中使用如下命令。
Dｉｒ1. Path＝ Drivｅ1．Ｄrｉve( √）11. 滚动条控件可作为用户输入数据的一个措施。
（ √）ﻫ１２．单项选择按钮控件和复选框控件都具备Vaｌuｅ属性，它们的作用完全相同。
( ）ﻫ13. 静态变量是一个局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
( √ )ﻫ14． Vｉsual Basｉｃ提供的几个标准坐标系统的原点都是在绘图区域的左上角，假如要把坐标原点放在其他位置，则需使用自定义坐标系统。
（√ ）ﻫ15．注释语句ＲＥM可自成一语句。
( √ )ﻫ１6．用鼠标选中某菜单控件时，触发Clｉcｋ事件；而用键盘选中该菜单控件时，触发 KeyPress（ ）17．组合框兼有文本框和列表框二者的功效,用户能够通过键人文本或选择列表中的项目来进行选择。
VB程序设计综合测试卷(单考单招)
VB程序设计综合测试卷（二）班级_______学号_______姓名_______ 成绩________一、选择题（每题1分，共10分）1.VB中的每个对象都有一组特征，这组特征为（），我们通过修改它可以控制对象的外观的操作。
A）事件B）类C）方法D）属性2.VB的工具栏有4种，默认情况下只显示（）工具栏。
A）编辑B）标准C）窗体编辑器D）调试3.VB工程保存文件时，工程文件以( )的形式保存。
A）*.bas B) *.frm C. *.exe D) *.vbp4.变量定义语句dim index$与（）等价。
A）Dim index as double B) Dim index as stringC) Dim index as integer D) Dim index as long5.表达式3+5\6*2/3 Mod 2 的值是（）A） 3 B）4 C）5 D）66.下列可作为Visual Basic变量名的是（）A）abs B) abc C) 4abc D) a%b7.窗体form1的name属性是mainfrm，它的单击事件过程名是（）。
A）Form1_click B) Me_click C) mainfrm_click D)form_click8.在窗体上画一个名称为command1的命令按钮，然后编写如下事件过程：Private Sub Command1_click( )Move 500,500End sub程序运行后，单击命令按钮，执行的操作为（）A）命令按钮向左、上方各移动500 B）窗体向左、上方向各移动500C）命令按钮移动到距窗体左边界、上边界各500的位置D）窗体移动到距屏幕左边界、上边界各500的位置9.以下程序段的输出结果是（）。
Dim a% , b% , c%A=sqr(3) : b=sqr(2)C=a>bPrint cA) -1 B) 0 C) False D) True10.以下程序段运行结果是（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《VB程序设计》补修课试卷
一、单选题（每题2分，空20分）
1. VB6.0是一种面向 ( ) 的编程环境。
(A) 机器(B) 对象
(C) 过程 (D) 应用
2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下 ( ) 语句是正确的。
(A) Forml.Caption=“欢迎使用VB”
(B) Forml.Caption='欢迎使用VB'
(C) Forml.Caption=欢迎使用VB
(D) Forml.Caption="欢迎使用VB"
3. 若要使命令按钮不可操作，要对 ( ) 属性进行设置。
(A) EnabIed (B)Visible
(C) Backcolor (D)Caption
4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过 ( ) 事件获得输入键值的ASCII 码。
(A) Change (B) LostFocus
(C) KeyPress (D) GotFocus
5. 下面是合法的变量名。
(A) X_yz (B) 123ab。
(C) integer (D) X-Y
6. 以下关系表达式中，其值为False的是( ) 。
(A) "ABC">"AbC" (B) "女">"男"
(C) "BASIC"=UCase("basic) (D) "123"<"23"
7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是( ) 。
(A) x=1:y=1:z=1 (B) x=1,y=1,z=1
(C) x=y=z=1 (D) xyz=1
8. VB提供了结构化程序设计的三种基本结构，三种基本结构是 ( ) 。
(A)递归结构、选择结构、循环结构
(B)选择结构、过程结构、顺序结构
(C)过程结构、输入输出结构、转向结构
(D)选择结构、循环结构、顺序结构
9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 ( ) 。
(A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l
(B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l
(C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l
(D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l
10.下列关于Do…Loop循环结构执行循环次数的描述正确的是( ) 。
(A) Do While…Loop循环和Do…Loop Until循环至少都执行一次
(B) Do While…Loop循环和Do…Loop Until循环可能都不执行
(C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行
(D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次
二、判断题（每空2分，共20分）
1）只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可完成。
2）控件是对象，而窗体不是对象，它只是控件对象的窗口。
3） TextBox与Label有许多共同特点，它们都能显示和输入文本。
4）有的对象属性既可在属性窗口中设定又可在程序代码中设定。
5）在框架控件内的几个单选按钮中，只能有一个单选按钮的Value属性为True。
6）标签没有Change事件和SetFocus方法。
7）事件过程与Sub过程，它们相同点都是事件驱动，而不同的只是事件过程由控件属性决定，而Sub过程是由户自定义。
8） Function函数有参数传递，并且一定有返回值。
9）滚动条控件不可作为用户输入数据的方法。
10）Msgbox函数建立的信息框能显示信息又能输入用户的信息。
三、填空题（每空2分，共20分）
1．变量min@表示（）类型的变量。
2．如果：I=11：J=3：I=int(-8.6)+I\J+13/3 MOD 5，则I值是（）。
3．请写出满足以下条件的VB表达式：0＜X＜10，（）。
X为[0-100]之间的数，能被2整除，但不能被3整除（）。
4．下列循环语句控制的循环次数为（）FOR K=1 TO 10 STEP –1。
5．表达式1 and 0的值( ) 。
6．随机产生100至200（不包括100和200）之间的整数的表达式为：( ) ；如果包括100而不包括200，则表达式为：（）。
7．写出清除图片框的文字或图形信息的语句：（）。
8.写出清除标签显示信息的语句为：（）。
四、程序阅读（每小题10分，共20分）
1．C=InputBox(“请输入字符串：”)
p=” ”
For L=Len(c) To 2 Step –2
P=Mid(C, L – 1, 2) + P
Next L
Print P
End Sub
如果输入：ABCDEFG ，则结果：2．Dim Y As Integer
Private Sub Command_Click()
Dim X As Integer
X=1
Y=1
Call AA(Y+1)
Z=BB(X)
Print X, Y, Z
End Sub
Private Sub AA(ByVal Z As Integer)
Y = Z + X
Z = X + Y
End Sub
Private Function BB (ByRef Y As Integer) Y = Y + 1
BB=X + Y
End Function 结果：
五、编程应用题（共20分）
程序阅读，写出下列程序的运行结果。
Private Sub Command1_Click( )
Dim a, i%, min%, imin%, sum%, t%
a=Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69)
min=a(0): imin=0: sum=a(0)
For i=1 to UBound(a)
sum=sum+a(i)
If a(i)< min Then min=a(i): imin=i
Next i
t=a(0): a(0)=a(imin): a(imin)=t
Print sum; a(0)
End Sub
输出结果：。