2012.07VB程序设计电大期末考试试题
VB期末考试2012版复习题(含答案)
第 6 题 （2.0 分） 题号:5675 下列关于变量名命名规则，不正确的是（）。 A:以字母或汉字开头，后可跟字母、数字或下划线组成，长度小于等于 40 个字符。 B:变量名的长度不能超过 255 个字符。 C:Visual Basic 中区分变量名的大小写。
D:不能使用 Visual Basic 中的关键字。
Private Sub fun(score() As Integer, average As Integer, sum As Integer)
'**********Program**********
'********** End ********** End Sub
'要求必须包含 for next 语句
'-------------------------------------------------
'注意： 请在指定的事件内编写代码
'
代码只能写在两行标识之间
'
不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。
'-------------------------------------------------
答案：C
第 17 题 （2.0 分） 题号:5666 关于使用 MouseIcon 属性自定义鼠标的说法正确的是(). A:只有窗体才具有 MouseIcon 属性 B:一般在 MousePointer=99 时使用 C:MouseIcon 属性可以使用动态鼠标 D:MouseIcon 属性要求图标文件大小一定
=======(答案 2)======= 1 To i
四、程序设计 共 1 题 （共计 20 分） 第 1 题 （20.0 分） 题号:291 '------------------------------------------------'【程序设计】 '------------------------------------------------'题目：编写函数 fun，函数的功能是： '计算出成绩数组 score()的平均分与总分
VB期末考试试卷2012版(含答案)
'********** End ********** fun = Sum End Function Private Sub Form_Load() Show Print fun() NJIT_VBபைடு நூலகம்End Sub Private Sub NJIT_VB() Dim i As Integer Dim s As String Dim fOut As Integer fOut = FreeFile Open App.Path & "\out.dat" For Output As #fOut Print #fOut, fun() Close #fOut End Sub
8
C:DrawWidth 属性 D:DrawStyle 属性
答案：B 第 19 题 （2.0 分） 关于顺序文件和随机文件的说法错误的是(). A:顺序文件中记录的逻辑顺序与存储顺序是一致的 B:随机文件的结构特点是固定记录长度以及每条记录均有记录号 C:随机文件的操作与顺序文件相同 D:随机文件读写操作比顺序文件灵活
答案：A 第 17 题 （2.0 分） 在 VB 中没有提供下列()事件. A:MouseDown B:MouseUp C:MouseOver D:MouseMove
答案：C 第 18 题 （2.0 分） 在 VB 中,坐标轴的默认刻度单位是缇,用户可以根据实际需要使用()来改变刻度单位. A:Scale 属性 B:ScaleMode 属性
答案：C 第 15 题 （2.0 分） 下列程序： Sub mtv(ByVal m As Integer, ByVal n As Integer) m = m+7 n = n* 5 Print"m=";m;"n="n; End Sub Sub Form_Click() Dim a As Integer, b As Integer a = 8: b = 7 mtv a,b
vb程序设计期末复习题及答案
《vb程序设计》期末复习题及答案一、填空题1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。
4．窗体的常用方法有__________、___________、___________和___________。
5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是____________________________________。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。
Private Sub Cmdopen_ ________________________________End Sub7．Visual Basic 6种类型的表达式是______________、______________、______________、________________、_________________、____________________。
Visual Basic根据表达式的___________来确定表达式的类型。
8．表达式93 \ 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c<a+b的值是_________。
表达式c>a And Not b<c的值是___________。
VB程序设计期末试卷.pdf
制卷 :
陈皓
姓名 :
学 号:
题号
一
二
三
四
五
六 总分
得分
一、 判断题（每题１分，共 10 分）
（ ）１、设置属性的语句格式为： “对象名．属性名＝属性值” 。
（ ）２、在窗体或模块文件中声明为 Private 的过程，只能被本窗体或模块中的过程所调用。
（ ）３、ＶＢ的赋值语句只能给变量赋值。
（ ）４、在ＶＢ中，字符型常量应使用＂＃＂号将其括起来。
（ ）５、窗体大小只能通过鼠标拖动窗体边框来设置。
（ ）６、 VB 的 Double 类型数据，可以精确表示其数值范围内的所有实数。
（ ）７、若用户在键盘上按下一个键，则会产生一个 Click 事件。
（ ）８、罗马数制是进位计数制。
（ ）９、事件过程可以由用户事件触发执行，也可以由其他过程所调用。
a=1:b=2:c=3
a=b:b=c:c=a
A.2 3 1
B.2 3 2
C.3 2 1 D.1 3 2
（ ）14．将数学表达式 cos2 (a b) 5 * e2 写成 Visual Basic 的表达式，其正确的形式是
A.Cos (a+b) ^2+5*exp(2) B.Cos^2(a+b)+ 5*exp(2)
A. abc+ B. then
C. m&m D. p4
（ ）17．从键盘上输入两个字符串，分别保存在变量 个字符串中起始位置的函数是
str1、str2 中。确定第二个字符串在第一
A. Left B. Mid C. Instr D. String （ ）18．以下叙述中正确的是
VB程序设计期末试卷及答案
VB程序设计期末试卷及答案选择题1. Visual Basic中的窗体⽂件的扩展名是A、.regB、.frmC、.basD、.vbp2. Visual Basic中的模块⽂件的扩展名是A、.regB、.frmC、.basD、.vbp3. Visual Basic中的⼯程⽂件的扩展名是A、.regB、.frmC、.basD、.vbp4. ⼀个对象可以执⾏的动作和可被对象识别的动作分别称为A、事件、⽅法B、⽅法、事件C、属性、⽅法D、过程、事件5要使窗体在运⾏时不可改变窗体的⼤⼩和没有最⼤化和最⼩化按钮，要对下列属性进⾏设置。
A．MaxButton B．Width C．MinButtonD．BorderStyle6 在⽤菜单编辑器设计菜单时，必需输⼊的项有＿＿＿＿。
A．快捷键B．索引C．标题D．名称8 ⽂件号最⼤可取的值为A 255 B511 C512 D2569 以下能判断是否到达⽂件尾的函数是＿＿＿＿A BOFB LOC C LOFD EOF10 Visual basic 常见的颜⾊设置中，表⽰红⾊的是A vbblueB vbredC vbblackD vbcyan11当使⽤line⽅法画直线后，当前坐标在A （0,0）B 直线起点C 直线终点D容器的中⼼12语句circle（500,500），300,8，-6，-3将绘制A圆 B 椭圆 C 圆弧D扇形13坐标度量单位可以通过来改变A DrawstyleB DrawwidthC ScaleD Scalemode14对象的边框类型由设置A DrawstyleB DrawwidthC BorderstyleD Scalemode 15以下的属性和⽅法中可重新定义坐标系A DrawstyleB DrawwidthC ScaleD Scalemode16执⾏语句line（1200,1200）——step(1000,500),B后，CurrentX=A 2200B 1200C 1000D 170017 在下列通⽤对话框的叙述中，错误的是A Commondialogl.showfont显⽰字体对话框B 在打开或另存为对话框中，⽤户选择的⽂件名可以通过Filetitle 属性返回C在打开或另存为对话框中，⽤户选择的⽂件名及其路径可以经Filetitle属性返回D 通过对话框可以⽤来制作和显⽰帮助对话框填空题1如果要将某个菜单项设计为分隔线，则该菜单的标题应设置为-(减号)。
vb电大期末考试试题及答案
vb电大期末考试试题及答案VB电大期末考试试题一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于定义类？A. ClassB. PublicC. PrivateD. Function2. VB中的事件处理程序通常使用什么关键字定义？A. SubB. FunctionC. EventD. Procedure3. 下列哪个不是VB中的标准控件？A. LabelB. TextBoxC. ButtonD. ScrollBar4. 在VB中，若要实现循环，可以使用以下哪个结构？A. IfB. Select CaseC. For EachD. Do While5. 下列哪个是VB中用于数组的关键字？A. ArrayB. ListC. CollectionD. Dictionary6. VB中，以下哪个不是布尔逻辑运算符？A. AndB. OrC. NotD. Xor7. 在VB中，以下哪个不是集合的属性？A. CountB. ItemC. AddD. Remove8. VB中，以下哪个不是文件访问模式？A. InputB. AppendC. BinaryD. Random9. 在VB中，要创建一个自定义类，需要使用哪个关键字？A. ClassB. ObjectC. TypeD. Structure10. VB中，以下哪个不是错误处理的关键字？A. On ErrorB. ResumeC. Exit SubD. Err答案：1. A2. A3. D4. D5. A6. B7. C8. D9. A10. C二、简答题（每题5分，共20分）1. 简述VB中类与对象的区别。
2. 解释VB中的事件驱动编程是什么。
3. 描述VB中数组的声明和使用。
4. 说明VB中错误处理的基本步骤。
答案：1. 类是对象的蓝图，它定义了对象的属性和方法。
对象是类的实例，是类的具体实现。
2. 事件驱动编程是一种编程模式，程序的执行流程由事件（如用户操作）触发，而不是由程序的顺序执行决定。
VB程序设计+闭卷电子科技大学试卷及答案
VB程序设计+闭卷+A+3+92分•• A、工具箱;•B、文本框;•C、工具栏;•D、属性窗口;••A、编辑、生成可执行程序、运行程序，但不能调试程序•B、编辑、调试、运行程序，但不能生成可执行程序•C、编辑、调试、运行程序，也能生成可执行程序•D、编辑、调试、生成可执行程序，但不能运行程序•• A、函数过程形参的类型与函数返回值的类型没有关系•B、在函数过程中，过程的返回值可以有多个•C、如果不指明函数过程参数的类型，则该参数不能有数据类型的参数•D、当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传••A、T op•B、Width•C、Left•D、Enabled••A、可以通过Print方法在图片框中输出文本•B、清空图片框控件中图形的方法之一是加载一个空图形•C、图片框控件可以作为容器使用•D、用图片框控件的Stretch属性可以自动调整图片框中图形的大小••A、Z;•B、False;•C、A;•D、True;••A、0,009.86•B、009.86•C、9.86•D、0,009.86••A、For i=1 To List1.listCount ...... Next i•B、For i=0 To ListCount-1 ...... Next i•C、For i=1 To ListCount ...... Next i•D、For i=0 To List1.ListCount-1 ......Next i••A、"ABC"＞"AbC"•B、"VISUAL"=UCase("Visual")•C、"Integer"＞"Int"•D、"the"＜＞"they"•• A、选择结构，循环结构，顺序结构•B、递归结构，选择结构，循环结构•C、过程结构，输入输出结构，转向结构•D、选择结构，过程结构，顺序结构••A、FontItalic•B、FontName•C、FontBold•D、FontSize••A、DblClick•B、Enabled•C、Unload•D、Load••A、Combo1.RemoveItem 3•B、Combo1.RemoveItem Text•C、Combo1.RemoveItem Combo1.Listcount•D、Combo1.RemoveItem 2••A、设计状态•B、中断状态•C、编写代码状态•D、运行状态••A、T ext•B、Visible•C、Style•D、MultiLine••A、对象•B、事件•C、动作•D、属性••A、Dim a(3,4)?As Integer•B、Dim a[3,4]?As Integer•C、Dim a(n,n)?As Integer•∆、∆ιμ α(3 4)?Aσ Iντεγερ••A、Load;•B、Timer;•C、Run;•D、Click;••A、True•B、出错信息•C、1•D、False•• A、属性、事件、方法•B、属性、过程、方法•C、控件、窗体、事件•D、属性、事件、事件过程••A、second;•B、学生信息;•C、a(x*y);•D、1xyz;••A、BOF•B、LOC•C、LOF•D、EOF••A、20•B、1•C、4•D、8•• A、1 3 5•B、1 3.4 5.8•C、无数据输出•D、1 4 7A、∆ο ΩηιλεΛοοπ循环可能不执行， ∆οΛοοπ Yντιλ循环至少执行一次•B、Do While…Loop循环和Do…Loop Until循环可能都不执行•C、Do While…Loop循环和Do…Loop Until循环至少都执行一次•D、Do While…Loop循环至少执行一次，Do…Loop Until循环可能不执行二、判断，共10题/每题2.0分/共20.0分：••A、正确•B、错误••A、错误•B、正确•• A、正确•B、错误••A、错误•B、正确••A、正确•B、错误•• A、错误•B、正确•• A、错误•B、正确•B、错误•23、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim a, b As Integera = val(InputBox("Enter the First integer"))b = val(InputBox("Enter the Second integer"))Print a + bEnd Sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是和（）••A、579•B、123456•C、456•D、123••A、0.02567•B、0.00002567•C、0.0002567•D、0.002567••A、Picture•B、DisabledPicture•C、DownPicture•D、Style•B、错误••A、正确••A、正确••A、错误•B、正确•B、正确•B、错误•B、正确•B、错误••A、正确•B、错误••A、错误••A、11;•B、12;•C、9;•D、10;••A、Value;•B、Name;•C、Index;•D、Caption;••A、Mid(string);•B、Trim(string);•C、LTrim(string);•D、Instr(string1,string2);••A、100;•B、10;•C、1;•D、1000;••A、参数x,y用来设置鼠标当前位置的坐标•B、通过Button参数判定当前按下的是键盘上哪一个键•C、Shift参数只能用来确定是否按下Alt和Ctrl键•D、Shift参数只能用来确定是否按下Shift键••A、a_2•B、Float•C、a-b•D、2xy••A、2.4•B、5•C、3•D、1••A、T abStop•B、Enabled•C、TabIndex•D、Visible••A、IsDate;•B、Date;•C、TimeOfDate;•D、Now;••A、字符串•B、数值或字符串(视输入的数据而定)•C、变体•D、数值••A、34 0•B、7 9•C、死循环•D、9 7••A、Beijing＜CR＞ShangHai•B、＜CR＞beijing＜CR＞ShangHai•C、ΔBeijingΔ•D、BeijingShangHai＜CR＞••A、.bas•B、.frx•C、.vbp•D、.frm••A、代码•B、方法•C、命令•D、对象••A、Button;•B、Label;•C、Form;••A、Visual•B、11•C、Basic•D、6••A、显示当前驱动器或指定驱动器上某文件夹的路径•B、显示当前驱动器或指定驱动器上的某目录下的文件名•C、显示根目录下的文件名•D、只显示当前路径下的文件•B、8•C、9••A、单选框•B、定时器•C、通用对话框•D、命令按钮23、语句format(1234.5678 , ”####.00”)的结果为：（）A、“1234.57”;B、“1234.56”;C、1234.56;D、1234.57;48、常量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是变量。
《VB程序设计》期末考试试卷(A)附答案
******学院2009-2010学年第二学期《VB程序设计》期末考试试卷（A）附答案一、选择题（2分/题，共60分）（1）要设置窗体上各控件的属性，可以在＿＿＿中进行。
A“窗体布局”窗口B“工程资源管理器”窗口C“属性”窗口D“对象”窗口（2）下面程序段＿＿＿能够正确实现目的：如果x<y,则a=15,否则a=-15。
AIfx<yThena=15a=-15PrintaBifx<yThena=15:Printaa=-15:PrintaCIfx<yThena=15:PrintaElseA=-15:PrintaEndifDIfx<yThena=15a=-15PrintaEndif（3）VB窗体设计器的主要功能是＿＿＿。
A建立用户界面B编写源程序代码C画图D显示文字（4）文本框控件的值是＿＿＿属性。
ACaptionBValueCIndexDText（5）双击窗体中的对象后，VB将显示的窗口是＿＿＿。
A工具箱B“工程”窗口C“代码”窗口D“属性”窗口（6）下列程序段的执行结果是＿＿＿。
X=int(Rnd()+4)SelectcasexCase5Print“优秀”Case4Print“良好”Case3Print”通过”CaseelsePrint”不通过”EndselectA优秀B良好C通过D不通过（7）下列哪个不是窗体的属性＿＿＿。
ACaptionBTextCControlBoxDBorderStyle（8）设组合框Combo1中有3个项目,则以下能删除最后一项的语句是＿＿＿。
ACombo1.RemoveItemTextBCombo1.RemoveItem2CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount（9）窗体BorderStyle属性的功能是＿＿＿。
A设置窗体的边框大小B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等C决定是否显示窗体的控制菜单图标与状态控制按钮D决定窗体的最大化或最小化按钮是否有效（10）下列可作为VB的变量名的是＿＿＿。
vb程序设计期末复习题及答案
《vb程序设计》期末复习题及答案一、填空题1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。
4．窗体的常用方法有__________、___________、___________和___________。
5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是____________________________________。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。
Private Sub Cmdopen_ ________________________________End Sub7．Visual Basic 6种类型的表达式是______________、______________、______________、________________、_________________、____________________。
Visual Basic根据表达式的___________来确定表达式的类型。
8．表达式93 \ 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c<a+b的值是_________。
表达式c>a And Not b<c的值是___________。
电大《VB程序设计》期末考试试题及答案
Visual Basic 程序设计试题一、单项选择题(每小题2分，共30分}1.与传统的程序设计语宵相比，VisualBasic最突出的特点是( C )。
A. 结构化程序设计B.程序开发环境C.事件驱动的编程机制D程序调试技术2.在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是( D )A设计模式B中断模式c.执行模式D编写代码模式3. 下列关于窗体的说法不正确的是( B )。
A.窗体的标题由Caption属性确定B.窗体的Name属性Caption属性相同C.窗体的背景图片由其Picture 属性设成D.通过设置Icon属性可使窗体获得最小化时的图标4.工程文件的后缀是( B )。
A.frmB..vbp c.bas D..cls5.要在窗体的标题内显示"myfrm"，使用的语句是( D )。
A.Form1.Print"myfrm" B. Form.Print"myfrm"C.Form.caption="myfrm"D.Form1.caption="myfrm"6.在设计动画时，用时钟控件来控制动画速度的属性是( B )。
A.Enab led B.IntervalC.TimerD.Move7.关于语句行，下列说法正确的是( D )。
A一行只能写一条语句 B.长度不能超过255个学符C.每行的首学符必须大写D一条语句可以分多行书写8.假定已在窗体上画了多个控件，井有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是( A )。
A.单击窗体上没有控件的地方B.单击任一个控件C不执转任何操作D.双击窗体的标题栏9.下列关于变量的说法不正确的是( D )。
A.局部变量是指那要是在过程中用Dim语句或Static语句声明的变量B.局部变量的作用域仅限于声明它的过程C.静态局部变量是在过程中用Static语句声明的D.局部变量在声明它的过程孰行完毕后就被释放了10.使用ADO数据模型时，建立Recordset和Connection对象连接的属性是( C )。
vb期末考试试题及答案电大
vb期末考试试题及答案电大一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于定义一个类？A. ClassB. FunctionC. SubD. Property答案：A2. 以下哪个是VB中声明变量的正确方式？A. Dim xB. Declare xC. Define xD. Set x答案：A3. 在VB中，哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B4. VB中的事件处理程序通常使用哪个关键字定义？A. EventC. FunctionD. Procedure答案：B5. 以下哪个不是VB中的数据类型？A. IntegerB. StringC. ObjectD. Float答案：D6. 在VB中，以下哪个控件用于创建下拉列表？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B7. VB中的条件语句关键字是？A. IfB. ThenC. ElseD. Select答案：A8. VB中的循环结构关键字包括？B. WhileC. DoD. All of the above答案：D9. 在VB中，哪个函数用于获取当前日期？A. Date()B. Now()C. GetDate()D. Today()答案：A10. VB中的数组声明方式是什么？A. Dim array() As TypeB. Declare array As Type()C. Define array() As TypeD. Set array() As Type答案：A二、填空题（每空2分，共20分）1. 在VB中，使用________关键字可以创建一个新类。
答案：Class2. 声明一个名为MyVar的变量，其类型为整型，应使用语句________。
答案：Dim MyVar As Integer3. 在VB中，要调用一个名为MyFunction的函数，应使用语句________。
vb程序设计期末复习题及答案
《vb程序设计》期末复习题及答案一、填空题1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。
4．窗体的常用方法有__________、___________、___________和___________。
5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是____________________________________。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。
Private Sub Cmdopen_ ________________________________End Sub7．Visual Basic 6种类型的表达式是______________、______________、______________、________________、_________________、____________________。
Visual Basic根据表达式的___________来确定表达式的类型。
8．表达式93 \ 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c<a+b的值是_________。
表达式c>a And Not b<c的值是___________。
VB程序设计-期末测试卷含答案 (一)
VB程序设计-期末测试卷含答案 (一)作为学习VB程序设计的学生，在期末测试卷中我们不仅需要理解学过的知识点，还要能够运用所学知识进行程序设计。
本文将为大家详细介绍一份VB程序设计-期末测试卷含答案，帮助大家更好地备考。
一、基础知识题1.请简单介绍VB程序设计语言，并举例说明其应用场景。
答：VB程序设计属于面向对象编程技术体系，专门用于Microsoft Windows操作系统的开发。
VB的目标是开发出可视化的数据库应用程序，具体包括广泛的GUI(AppWin)，以及对绝大多数数据库的支持。
2.请简述VB程序设计中的数据类型，同时说明它们的区别。
答：在VB程序设计过程中，共有六种数据类型，分别是Byte、Boolean、Integer、Long、Single和Double。
Byte 和 Integer 分别代表字节和整数。
Boolean类型专门用于逻辑判断，只有True或False两种情况。
Long类型在处理大数字时会比Integer类型更加稳定。
而Single和Double类型都是浮点型数据，不同之处在于Double 类型可以表示更大范围和更高精度的浮点数。
3.请简述VB程序设计中的变量和常量。
答：在VB程序设计中，使用变量和常量进行数值存储和管理。
变量是数据存储位置的符号名称，它用于表示程序运行时结果的值，可以在程序运行时被改变。
而常量是包含在程序代码中的固定数值，一旦定义就无法被更改。
二、编程题1.请编写一个可以计算出a,b两个数乘积的程序。
答：Dim a,b,result As Doublea = InputBox("请输入第一个数：")b = InputBox("请输入第二个数：")result = a * bMsgBox ("乘积为：") &result2.请编写一个可以计算圆面积和圆周长的程序。
答：Dim radius As DoubleDim area, perimeter As Doubleradius = InputBox("请输入圆的半径：")area = 3.14 * radius * radiusperimeter = 2 * 3.14 * radiusMsgBox ("圆的面积为：") &area &"，圆的周长为：" &perimeter3.请编写一个可以计算阶乘的程序。
vb大学期末试题及答案
vb大学期末试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，下列哪个关键字用于声明常量？A. ConstB. DimC. FunctionD. Sub答案：A2. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D3. Visual Basic中的哪种控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B4. 在Visual Basic中，以下哪个函数用于将字符串转换为日期？A. CDateB. ValC. StrD. Date答案：A5. 在Visual Basic中，如何表示一个空字符串？A. ""B. ' 'C. NullD. Nothing答案：A6. 在Visual Basic中，以下哪个关键字用于循环遍历数组的所有元素？A. ForB. DoC. WhileD. Repeat答案：A7. 在Visual Basic中，以下哪个选项是正确的文件访问模式？A. Open AsB. CloseC. InputD. Output答案：A8. 在Visual Basic中，以下哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Today答案：D9. 在Visual Basic中，以下哪个控件用于创建下拉列表？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B10. 在Visual Basic中，以下哪个事件用于响应鼠标单击事件？A. ClickB. DblClickC. MouseDownD. MouseUp答案：A二、填空题（每题2分，共20分）1. 在Visual Basic中，声明变量时使用的关键字是________。
VB程序设计期末考试题(修改后)范文
VB程序设计期末考试题学号班别姓名评分一、单项选择题：（每小题1分，共35分）1．下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令。
B．按F4键C．按Ctrl+TD．单击工具栏上的属性窗口按钮。
2．下列可以打开立即窗口的操作是（）A．Ctrl+DB．C trl+EC．C trl+FD．Ctrl+G3．InputBox返回值的类型为A．数值B．字符串C．变体D．数值或字符串（视输入的数据而定）4．可以同时删除字符串前导和尾部空格的函数是（）A．LtrimB．R trimC．T rimD．Mid5.表达式Int(68.555*100+0.5)/100的值是（）A．68.54B．68.56C．68.55D．68.56.如果在立即窗口中执行以下操作：a=8<CR>(<CR>是回车键，下同)b=9<CR>print a>b<CR>则输出结果是（）A．-1B．0C．F alseD．True7.以下语句的输出结果是（）Print Format (32548.5,”000,000.00”)A．32548.5B．32,548.5C．032,548.50D．32,548.508.执行以下程序段后，变量C$的值为（）a$=”Visual Basic Programing”b$=”Quick”c$=b$&UCase(Mid$(a$,7,6))&Right(a$,11)A．Visual BASIC ProgramingB．Q uick Basic ProgramingC．Q UICK Basic ProgramingD．Quick BASIC Programing9.为了在按下鼠标左键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是（）A．ValueB．E nabledC．C ancelD．Default10.为了把焦点移到某个指定的控件，所使用的方法是（）A．SetFocusB．V isibleC．R efreshD．GetFocus11.设a=6,同执行x=IIF(a>5,-1,0)后，x的值为（）A．5B．6C．0D．-112.执行下面的程序段后，x的值为（）X=5For i=1 to 20 Step 2X=x+i\5Next iA．21B．22C．23D．2413.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 to 4X=4For j=1 to 3X=3For k=1 to 2X=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是（）A．7.B．15C．157D．53814.在窗体上画一个命令命令按钮，然后编写如下事件过程：Private Sub Command1_Click()X=0Do Until x=-1A=InputBox(“请输入A的值”)A=Val(a)B=InputBox(“请输入B的值”)B=Val(b)X=InputBox(“请输入X的值”)X=Val(x)A=a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5,4,3,2,1,-1;则输入出结果为（）A．2B．3C．14D．1515.在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()A=Text1.Text+Text2.TextPrint aEnd SubPrivate Sub Form_Load()Text1.Text=””Text2.Text=””End Sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（）A．444B．C．D．16.阅读下面的程序段：For i=1 to 3For j=1 to iFor k=j to 3A=a+1Next kNext jNext i执行上面的三重循环后，a的值为（）A．3B．9C．14D．2117.在窗体上画一个文本框（其中Name属性为Text1）,然后编写如下事件过程：Private Sub Form_Load()Text1.Text=””Text1.SetFocusFor i=1 to 10Sum=sum+1Next iText1.Text=sumEnd Sub上述程序运行的结果是（）A.在文本框Text1中输出55B.在文本框Text1中输出0C.出错D.在文本框Text1中输出不定值18.在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name 属性为Command1）,然后编写如下事件过程：Private Sub Command1_Click()X=0Do While x<50X=(x+2)*(x+3)N=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）A.1和0B.2和72C.3和50D.4和16819.用下面语句定义的数组的元素个数是（）Dim A(-3 to 5) As IntegerA. 6B.7C.8D.920.以下程序的输出结果是（）Option Base iPrivate Sub Command1_Click()Dim A(10),P(3) As IntegerK=5For i=1 to 10A(i)=iNext iFor i=1 to 3K=k+p(i)*2Next iPrint kEnd SubA.33B.28C.35D.3721.在窗体上面画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aA=Array(1,2,3,4)J=1For i=4 to 1 Step -1S=s+a(i)*jJ=j*10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是（）A.4321B.12C.34D.123422.在窗体上面画一个命令按钮（其Name属性为Command1）,然后编写如下代码：Option Base iPrivate Sub Command1_Click()Dim a(4,4)For i=1 to 4For j=1 to 4A(I,j)=(i-1)*3+jNext jNext iFor i=3 to 4For j=3 to 4Print a(j,i)Next jPrintNext iEnd Sub程序运行后，单击命令按钮，其输出结果为（）A. 6 9B. 7 10C. 8 11D. 9 127 10 8 1 9 12 10 13 23.假定有如下的Sub过程：Sub S(x As Single, y As Single)T=xX=t/yY=t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As SingleDim b As SingleA=5B=4S a,bPrint a,bEnd Sub程序运行后，单击命令按钮，输出结果为（）A. 5 4B. 1 1C. 1.25 4D. 1.25 124.阅读程序：Function F(a As Integer)B=0Static cB=b+1C=c+1F=a+b+cEnd FunctionPrivate Sub Command1_Click()Dim a AS IntegerA=2Print F(a)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为（）A. 4B. 4C. 4D. 44 5 6 74 6 8 925.阅读程序：Sub subP(b() As Integer)For i=1 to 4B(i)=2*iNext iEnd SubPrivate Sub Command1_Click()Dim A(1 to 4) As IntegerA(1)=5A(2)=6A(3)=7A(4)=8SubP a()For i=1 to 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为（）A. 2B. 5C. 8D.出错4 6 104 6 126 7 148 8 1626.下列不能打开菜单编辑器的操作是（）A.按Ctrl+EB.单击工具栏中“菜单编辑器”按钮C.执行“工程”菜单中的“菜单编辑器”命令D.按Shift+Alt+M27.假定有一个菜单项，名为MenuItem,为了在运行时使该菜单项失效（变灰），应使用的语句为（）A.MenuItem.Enabled=FalseB.MenuItem.Enabled=TrueC.MenuItem.Visible=TrueD.MenuItem.Visible=False28.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是（）A.MoveC.ScrollD.GetFocus29.假定窗体上有一个标签，名为Label1,为了使该标签透明并且没有边框，则正确的属性设置为（）bel1.BackStyle=0Lbael1.BorderStyle=0bel1.BackStyle=1Lbael1.BorderStyle=1bel1.BackStyle=TrueLbael1.BorderStyle=Truebel1.BackStyle=FalseLbael1.BorderStyle=False30.在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：Private Sub Form_Load()List1.AddItem”357”List1.AddItem”246”List1.AddItem”123”List1.AddItem”456”Text1.Text=””End SubPrivate Sub List1_DblClick()A=List1.TextPrint a+Text1.TextEnd Sub程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为（）A.1245B.C.D.031.为了暂时关闭计时器，应把该计时器的某个属性设置为False,这个属性是（）A.VisibleB.TimerC.EnabledD.Interval32.为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为（）A.Get文件号，记录号，变量名B.Get文件号，变量名，记录号C.Put文件号，变量名，记录号D.Put文件号，变量名，记录号33.对窗体编写如下事件过程：Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 thenPrint “AAAAA”End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print “BBBBB”End Sub程序运行后，如果单击鼠标右键，则输出结果为（）A.AAAAAＢ．ＢＢＢＢＢＣ．ＡＡＡＡＡＤ．ＢＢＢＢＢBBBBBＡＡＡＡＡ34.为了在运行时能显示窗体左上角的控制框（系统菜单），必须（）A.把窗体的ControlBox属性设置为True，并且把BoderStyle属性设置为1B.把窗体的ControlBox属性设置为False，其他属性任意C.把窗体的ControlBox属性设置为False，同时把BoderStyle属性设置为非0值D.把窗体的ControlBox属性设置为True，把窗体的ControlBox属性设置为0值35.对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)A=Array(237,126,87,48,498)M1=a(1)M2=iIf KeyAscii=13 thenFor i=2 to 5If a(i)>m1 thenM1=a(i)M2=iEnd ifNext iEnd ifPrint m1Print m2End Sub程序运行后的输出结果为（）A.48B.237C.498D.87二、填空题（每小题3分，共30分）1.设有如下的Visual Basic表达式5*x^2-3*x-2*Sin(a)/3，则它的数学表达式为3) (2352a Sinxx--2.执行下面的程序段后，S的值为9S=5For i=2.6 to 4.9 step 0.6S=s+1Next i3.表达式Fix(-32.86)+Int(-23.02)的值为-564.为了在运行时把图形文件Picfile.jpg装入图片Picture1，所使用的语句法为Picture1.picture=LoadPicture(“Picfile.jpg”)5.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()A=InputBox(“请输入一个整数”)B=InputBox(“请输入一个整数”)Print a+b程序运行后，单击命令按钮，在输入对话框中分别输入321和456，则输出结果为6.执行下面的程序段后，B的值为300A=300B=20A=a+bB=a-bA=a-b7.以下程序段的输出结果是1Num=0While num<=2Num=num+1Print numWend8.在窗体画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a(1 to 10)Dim p(1 to 3)K=5For i=1 to 10A(i)=iNext iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是339.在窗体上画一个命令按钮，然后编写如下过程：Function fun(ByVal num As Long) As LongDim k As LongK=1Num=Abs(num)Do While numK=k*(num Mod 10)Num\num\10LoopFun=kEnd FunctionDim n As LongDim As LongN=InputBox(“请输入一个数”)N=Clng(n)Print rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为2410.如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为-（减号）三、编程题（第1题10分，第2题15分）1、求1到100之间所有偶数的和。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
试卷代号:2231中央广播电视大学20112012学年度第二学期"开放专科"期末考试VisualBasic程序设计试题2012年7月一、单项选择题{每小题2分，共30分)1.后缀为. bas文件的文件表示VB 的( D )。
A类模块文件B 窗体文件C.工程文件D标准类模块文件2.无论何何控件，共同具有的属性是( C )。
A Text属性B Caption属性C. Name属性D. Autosize属性3.如果对象的名称为Mytext，而且对象有一个属性Text.那么在代码中引用该属性的正确格式是( B )。
A.Text.MytextB.Mytext.TextC.Mytext.(Text)D.Mytext*Text4.在设计动画时，用时钟控件来控制动画速度的属性是( B )。
A.EnabledB.IntervalC.TimerD.Move5.要在窗体上显示"欢迎您!"，使用的语句是( C )。
A.Form.caption="欢迎您!"B.Forml.caption="欢迎您!"C.Form1.print"欢迎您!"D.Form.print"欢迎您!"6.关于语句行，下列说法正确的是( D )。
A.一行只能写一条语句B.长度不能超过255个字符c.每行的首字符必须大写D一条语句可以分多行书写7.下列正确的赋值语句是( B )。
A.x十y=20B.y=x+20C.3x=yD.s=π*r*r8.如果希望以模态方式显示窗体Forml，下列正确的语句是( C )。
A.Form1.ShowB.Form1.Show0C.Form1.Show1D.以下都不正确9.对于定时器(Timer)控件，设置其定时是否开启的属性是( C )。
A.IndexB.TagC.EnabledD.Left10.多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把( B )指定为启动窗体A.不含任何控件的窗体B.设计时的第一个窗体c.包含控件最多的窗体D.命名为Frml的窗体11.Dim I As Integer，则运行时变量I的初始值是( A )。
A.OB.1C.-1D.空值12.使用ADO数据模型时，建立Recordset和Connection对象连接的属性是( C )。
A.ExecuteB.OpenC.ActiveConnectionmandType13.下列关于变量的说法不正确的是( D )。
A.局部变量是指那些在过程中用Dim语句或Static语句声明的变量B.局部变量的作用域仅限于声明它的过程c.静态局部变量是在过程中用Static语句声明的D.局部变量在声明它的过程执行完毕后就被释放了14.下列数据对象模型中采用。
LEDB访问数据库的是( B )。
A.DA( )B.ADOC.RDOD.RDO和ADO15.为了在运行时把dz\pic文件夹下的图形文件a.jpg装入图片框Picture1中，所使用的语句为( B )。
A.Picture1.Text=LoadPicture("d:\pic\a.jpg")B.Picture1.Picture=LoadPicture("d:\pic\a.jpg")C.Picture1.Picture=LoadPicture(d:\pic\a.jpg)D.Picture1.Picture =Load("d:\pic\a.jpg")二、填空题(每小题2分，共20分)16.在VB17.表达式8十13Mod2铃4+318.全局变量在整个应用程序中有效，一般在标准模块中使用19.若窗体Form1左上角坐标为(0，600)，右下角的坐标为(800，一200)。
则X轴的正向y轴的正向向20.将图片框的AutoSize21.Winsock22.VB中，Access()23.VB24.设某个程序中要用到一个二维数组，要求数组名为A从1到3，第二维下标从一1到2，则相应的数组声明语句为25.列表框控件中最后一项的序号等于ListCount三、阅读程序题{共2 5分)阅读下列程序并写出程序运行结果。
26. (6分〉Private Sub CommandLClickODim Sum1 As Integer , Sum2 As IntegerSum1=O，Sum2=2For I =1 to 2For j =1 to iSum2=sum2*jNextjSum1=sum1+sum2Next iPrint Sum1End Sub写出程序运行时单击Command 1按纽后，Form 1上的输出结果。
627. (6 分〉Private Sub CommandLClickODo While x < 50x = (x 十1) *(x + 2)n = n 十1LoopTextl. Text = Str( n)Text2. Text = Str(x)End Sub写出程序运行时单击Command l按纽后，text1和text2上的输出结果o3 18228. (6 分)Private Sub Form_ClickOA=3;b=4Print "A="; a;"B="; bCall mult(a)Print "A=";a;"B=";bEnd SubPrivate Sub mult(x)x = 3 十xb = 5 十bEnd Sub写出程序运行后，单击窗体时的输出结果。
A=3 B=4A=6 B=429. (7 分)Private Sub Commandl_Click()Static b As IntegerDim I As IntegerI = 1Dob = b 十II = I + 1Loop While I < = 4Textl. Text = bText2. Text =IEnd Sub写出程序运行时两次单击Commandl按纽后，文本框Text1、Text2上的输出结果。
10 520 5四、完善程序题(共1 0分)假设在C盘根目录中存在一个名为“学生.MDB”的Access数据库，其中包含一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。
现在要求利用VB编写一个数据库记录增加程序，程序的运行界面如图2所示，基本逻辑是：分别在Text1、Text2、Text3中输入学号、姓名、籍贯信息，然后点击“保存”按钮(Command1)将该记录添加到数据库中。
如果数据库中已经存在相同的学号信息，则程序应提示用户“记录已存在，请重新输入”，并将焦点置于Text1上，等待用户修改或重新输入。
当点击退出按钮(Command2)时关闭本窗体。
图1图2程序如下，请补充完整。
Private Sub Form_Load()学生.mdb;Persist Security Info=False"End SubPrivate Sub Command1_Click()Dim strSQL As StringDim ADOrs As New RecordsetADOrs.ActiveConnection = ADOcnstrSQL = "Select * from 学生基本情况Where 学号= '" + Text1 + " ' "If Not ADOrs.EOF ThenMsgBox "学号已经存在，请重新输入!", vbOKOnly, "信息提示"Text1.SetFocusElse strSQL = "Insert Into 学生基本情况(学号,姓名,籍贯) "添加成功!", vbOKOnly, "信息提示"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub五、编写程序题{共1 5分)31.编写简单的工资计算程序，要求在Text1、Text2、Text3中分别输入基本工资、奖金、扣款，单击"计算"按钮(Command1)后，首先计算"应发工资"(Text4)，然后根据"应发工资"计算个人所得税(Text5)，最后计算出实发工资(Text6)。
(1)应发工资=基本工资+奖金一扣款(2)个人所得税的计算规则假设为:①当应发工资在1000元以内部分(含1000元)，不扣所得税。
②当应发工资大于1000，但小于等于4000元时，超过1000元的部分按15%计算所得税。
③当应发工资大于4000，按20%扣税。
程序运行结果如图3所示。
图3Private Sub Command1_Click()Text4 = Val(Text l)十Val(Text2) - Val(Text3)If Val(Text4) < = 1000 ThenText5 = 0ElseIf Val(Text4) > 1000 And Val(Text4) <= 4000 Then Text5 = (Val(Text4) - 1000)*0. 15ElseText5 = Val(Text4)*0. 2End IfText6 = Val(Text4) - Val(Text5)End SubPrivate Sub Command2_ClickOUnload MeEnd SubEnd Sub。