Visual Basic程序设计.doc
Visual Basic程序设计（专科）形考（一）试卷总分：100 测试时间：180单项选择题 判断题 一、单项选择题（共 20 道试题，共 80 分。）1. 当运行程序时，系统自动启动窗体的事件过程是（ ）。 A. LoadB. ClickC. UnloadD. GotFocus2. 单选按钮不具有的属性是( )。 A. ValueB. CaptionTextC. TextD. Font3. 为了使文本框同时具有水平和垂直滚动条，应先把multilin属性设置为true，然后再把scrollbars属性设置为（ ）。 A. 0B. 1C. 2D. 34. 列表框图标的英文名称是：( )。 A. ListBoxB. ComboBoxC. FrameD. CommonDialog5. 如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（ ）。 A. Text.MytextB. Mytext.textC. Mytext.（Text）D. Mytext*Text6. 下列不能打开属性窗口的操作是 ( )。 A. 执行“视图”菜单中的“属性窗口”命令B. 按F4键C. 按Ctrl+TD. 单击工具栏上的“属性窗口”按钮7. 程序运行过程中始终保持不变的是（ ）。 A. 数组B. 表达式C. 常量D. 变量8. 为了把窗体上的某个控件变为活动的，应执行的操作是（ ）。 A. 单击该控件的内部B. 单击窗体的边框C. 双击该控件D. 双击窗体9. VB6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是（ ）。 A. 设计状态B. 编写代码状态C. 运行状态D. 中断状态10. 为了在按下Esc键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为true，这个属性是（ ）。 A. ValueB. DefaultC. CancelD. Enabled11. 程序执行的顺序（ ）。 A. 由VB开发系统决定B. 由事件驱动C. 由代码行的顺序决定D. 随意执行12. 在Visual Basic中，默认的数据类型是（ ）。 A. IntegerB. DoubleC. CurrencyD. Variant13. VB的应用程序中，决定程序流向的是（ ）。 A. 对象B. 方法C. 属性D. 事件14. 如果想让文本框中的内容在运行时不能编辑，需将文本框的（ ）属性设置为True。 A. LockedB. MultiLineC. TabStopD. Visible15. 表达式 10+ 5 Mod 10 9 / 3 的值等于（ ）。 A. 10B. 12C. 15D. 运算错误16. 当窗体最小化时缩小为一个图标，设置这个图标的属性是（ ）。 A. MouseiconB. IconC. PictureD. Mousepointer17. Dim I As Integer，则运行时变量I的初始值是（ ）。 A. 0B. 1C. -1D. 空值18. 在VB的集成环境中创建应用程序时，除了工具箱窗口、窗体设计器、属性窗口外，必不可少的窗口是（ ）。 A. 立即窗口B. 代码窗口C. 窗口布局窗口D. 监视窗口19. 确定一个控件在窗体上位置的属性是( )。 A. Width或HeightB. Width和HeightC. Top或LeftD. Top和Left20. 控件大小不能改变的是（ ）。 A. 标签B. 框架C. 文本框D. 计时器二、判断题（共 5 道试题，共 20 分。）1. VB的代码存储在模块中。在VB中提供了三种类型的模块：窗体模块、控件模块和类模块。 A. 错误B. 正确2. 声明变量的数据类型有二种方法，显式声明和隐式声明。 A. 错误B. 正确3. 方法是对象调用的、用来完成特定操作的特殊子程序。 A. 错误B. 正确4. 通过VB编译生成的文件具有“.exe”文件扩展名，该文件只能在VB环境下执行。 A. 错误B. 正确5. VB变量名中允许出现空格。 A. 错误B. 正确Visual Basic程序设计（专科）形考（二）试卷总分：100 测试时间：120单项选择题 判断题 一、单项选择题（共 20 道试题，共 80 分。）1. x+y小于10且x+y要大于0的逻辑表达式是（ ）。 A. x+y<10,x+y>0B. (x+y<10)：(x+y) >0C. x+y<10 and x+y>0D. 0<x+y<102. 表达式2*32+2*8/4+32的值是（ ）。 A. 64B. 31C. 49D. 423. a能被b整除的逻辑表达式是（ ）。 A. a/b=0B. ab=0C. a<>bD. a mod b =04. 可以进行打开文件、选择字体、选择颜色等操作的控件是（ ）。 A. 列表框B. 文本框C. 公共对话框D. 组合框5. 删除列表框中指定的项目所使用的方法为（ ）。 A. MoveB. RemoveC. ClearD. RemoveItem6. 从一个字符串中的第3个字符开始，获取5个字符，应使用（ ）。 A. Left函数B. Mid函数C. Right函数D. Len函数7. 实现字符的unicode编码方式与ANSI编码方式相互转换的函数是（ ）。 A. StrB. StrconvC. TrimD. Mid8. 要利用通用对话框控件来显示“打开文件”对话框，需要调用控件的（ ）方法。 A. ShowPrintB. ShowOpenC. LoadD. ShowColor9. 对于定时器（Timer）控件，设计其定时是否开启的属性是（ ）。 A. IndexB. TagC. EnabledD. Left10. 下列关于变量的说法不正确的是（ ）。 A. 局部变量是指那些在过程中用Dim语句或Static语句声明的变量B. 局部变量的作用域仅限于声明它的过程C. 静态局部变量是在过程中用Static语句声明的D. 局部变量在声明它的过程执行完毕后就被释放了11. 要清除列表框的所有内容，可用（ ）方法来实现。 A. RemoveTtemB. ClsC. ClearD. 以上均不可以12. 字符串运算符是（ ）。 A. NotB. &C. ModD. >=13. Dim Abc(2,3)所定义的数组元素个数是（ ）。 A. 6B. 5C. 12D. 914. 语句Print "123" + "456" 执行后，显示的结果是（ ）。 A. 123456B. 579C. 123D. 78915. 逻辑表达式Not 5>3 And 9<3 Or 7>5的值为（ ）。 A. TRUEB. FALSEC. 表达式有错D. 条件不足16. 关于列表框（ListBox）不正确的阐述是（ ）。 A. 列表框显示项目列表。B. 用户只可以从中选择一个项目。C. 列表框可以选择多个列表项。D. 如果项目数超过列表框可显示的数目，控件将自动出现滚动条。17. 条件表达式的结果是一个（ ）数据。 A. 数值型B. 字符型C. 日期型D. 逻辑型18. 在一个语句行内写多条语句时，语句之间应该用（ ）分隔。 A. 逗号B. 分号C. 顿号D. 冒号19. 可获得字符的ASCII码的函数是（ ）。 A. ValB. FixC. AscD. Chr20. 用Dim A（-3 To 5）As Integer语句所定义的数组的元素个数是（ ）。 A. 6B. 7C. 8D. 91. 控件和窗体的Name属性只能通过属性窗口进行设置，不能在运行阶段通过程序设置或修改。 A. 错误B. 正确2. 4AB和AB都可以作为VB的变量名。 A. 错误B. 正确3. 在程序中使用语句：wb1.FontSize="小五号"，就可以使名为wb1的文本框中显示的汉字呈小五号大小。 A. 错误B. 正确4. 全局变量在整个应用程序中有效，其作用域是整个应用程序运行期间。 A. 错误B. 正确5. 假定一个文本框的Name属性为Text1，为了在该文本框中显示“Hello!”，所使用的语句可写为： text1="Hello!" A. 错误B. 正确Visual Basic程序设计（专科）形考（三）试卷总分：100 测试时间：180单项选择题 判断题 一、单项选择题（共 20 道试题，共 80 分。）1. 如果希望以模态方式显示窗体Form1，下列正确的语句是（ ）。 A. Form1.Show 0B. Form1.ShowC. Form1.Show 1D. 以下都不正确2. COM对象有两种类型接口,即用户自定义接口和（ ）。 A. 程序接口B. 标准接口C. 文件接口D. 外部接口3. 要发送数据，通常使用Winsock控件的（ ）。 A. SendData方法B. Listen方法C. Accept方法D. GetData方法4. 利用ADO访问数据库，首先要创建一个（ ）对象，用于建立和数据库的连接。 A. Connection对象B. Recordset对象C. Command对象D. Object对象5. 当使用SendData将数据发送到主机后时，将触发Winsock控件的（ ）事件。 A. SendProgressB. MouseDownC. ClickD. KeyPress6. 引用列表框的最后一项应使用（ ）。 A. List1.List(ListCount-1)B. List1.List(List1.ListCount)C. List1.List(ListCount)D. List1.List(List1.ListCount-1)7. 在“打开”对话框中设置Files.Pattern="*.bat"程序代码执行后，会显示（ ）。 A. 只包含扩展文件名为“*.bat”的文件B. 第一个bat文件C. 包含所有文件D. 会显示磁盘的路径8. SQL语言的Select语句中，用于分组的语句为（ ）。 A. whereB. group byC. order byD. having9. 在下列选项中，不能将图像装入图片框和图像框的是（ ）。 A. 在界面设计时，通过Picture属性装入B. 在界面设计时，手工在图像框和图片框中绘制图形C. 在界面设计时，利用剪贴板把图像粘贴上D. 在程序运行期间，用LoadPicture函数把图形文件装入10. 一旦数据到达,将首先触发Winsock控件的（ ）。 A. DataArrival事件B. ConnectionRequest事件C. DataSend事件D. DataGet事件11. Line（100，100）-Step（400，400）将在窗体中的（ ）画一条直线。 A. （200，200）到（400，400）B. （100，100）到（300，300）C. （100，100）到（500，500）D. （100，100）到（400，400）12. 为了在运行时把d：pic文件夹下的图形文件a.jpg装入图片框Picture1中，所使用的语句为（ ）。 A. Picture1Text=Load Picture("d：pica.jpg")B. Picture1Picture =Load Picture("d：pica.jpg")C. Picture1Picture =Load Picture(d：pica.jpg)D. Picture1Picture =Load ("d：pica.jpg")13. 以下4个控件中，不属于数据绑定控件的是( )。 A. Text控件B. OLE控件C. OptionButton控件D. Image控件14. 要绘制多种式样的直线，需要设置Line控件的（ ）属性。 A. ShapeB. BordrestyleC. FillStyleD. Style15. 随机文件进行文件读写的单位是（ ）。 A. 字节B. 记录C. 整个文件D. 字符16. KILL语句在VB语言中的功能是（ ）。 A. 清内存B. 清病毒C. 删除磁盘上的文件D. 清屏幕17. 除框架外，能对单选按钮分组的控件是（ ）。 A. 窗体B. 标签C. 图片框D. 图像框18. 如下数组声明语句，正确的是（ ）。 A. Dim a3，4 As IntegerB. Dim a(3，4) As IntegerC. Dim a(n，n) As IntegerD. Dim a(3 4) As Integer19. 如果准备向随机文件中写入数据，常用的语句是（ ）。 A. Print #1,recB. Write #1,recC. Put #1,recD. Get #1,rec20. 下列关于PictureBox控件与Image控件的说法不正确的是（ ）。 A. PictureBox控件作为控件容器，因而比Image控件占用系统资源多B. Image控件能自动调整大小以适应载入的图片C. PictureBox控件除具有Image控件的所有特征外，还能作为容器D. PictureBox控件能使图片自动调整大小以适应PictureBox控件大小二、判断题（共 5 道试题，共 20 分。）1. 在多文档应用中，每次只能有一个活动的子窗体可以进行输入/编辑。 A. 错误B. 正确2. Private表示此过程只可被本工程中的其它过程调用。 A. 错误B. 正确3. 在VB中所谓文件是指存放在内存中的数据和程序等。 A. 错误B. 正确4. 列表框包含了组合框的功能。 A. 错误B. 正确5. 要将命令按钮 Command1设置为不可见，应修改该命令按钮的Value属性。 A. 错误B. 正确Visual Basic程序设计（专科）形考（四）试卷总分：100 测试时间：240应用题 综合题 一、应用题（共 8 道试题，共 80 分。）1. 在程序中添加一个命令按钮，并编写如下程序代码： Private Sub Command1_Click() a = 1: b = 2: c = 3 a = b: b = c: c = a Print cEnd Sub程序运行后，写出单击命令按钮后的输出结果。参考答案：参考答案：2 上传附件上传要求：以zip格式或RAR格式压缩文档后上传。 文件操作2. 在窗体中添加一个命令按钮，然后编写如下程序： Private Sub Command1_Click()Static Sum As IntegerI=1While I<=10Sum=Sum+II=I+1WendPrint SumEnd Sub单击命令按钮，窗体的输出结果是什么？参考答案：参考答案：55上传附件上传要求：以zip格式或RAR格式压缩文档后上传。 文件操作3. 在窗体中添加一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer, a As Integer k = 0 For i = 1 To 6 If i > 3 Thena = a + 5 Else a = a + 2 End If Next iPrint i, a End Sub单击命令按钮时，窗体中的输出值依次为多少？参考答案：参考答案：7 21上传附件上传要求：以zip格式或RAR格式压缩文档后上传。 文件操作4. 在窗体中添加一个命令按钮和一个文本框，然后编写如下程序： Private Sub Command1_Click()Dim A(1 To 4) As StringDim c As IntegerDim j As IntegerA(1) = "5"For j = 1 To 4A(j) = 5 * jc = 1c = c + Val(A(j)NextText1.Text = cEnd Sub单击命令按钮时，文本框中的值为多少？参考答案：参考答案：21上传附件上传要求：以zip格式或RAR格式压缩文档后上传。 文件操作5. 在窗体中添加一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, s As Integer n = 8 s = 0 Do s = s + n n = n - 1 Loop While n > 0 Print sEnd Sub单击命令按钮，窗体的输出结果是什么？参考答案：参考答案：36上传附件上传要求：以zip格式或RAR格式压缩文档后上传。 文件操作6. 在窗体中添加一个命令按钮，然后编写如下程序： Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t Print x, yEnd Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3: b = 4Change a, b Print a, bEnd Sub单击命令按钮时，窗体中的输出值依次为多少？>参考答案：参考答案：4 33 4上传附件上传要求：以zip格式或RAR格式压缩文档后上传。 文件操作7. 在窗体中添加一个命令按钮和一个文本框，然后编写如下程序： Private Sub Command1_Click() Dim I As Integer, j As Integer Dim c As Integer c = 0 For I = 1 To 3 For j = 1 To 3 c = c + 1 Next j Next IText1.Text = cEnd Sub单击命令按钮，文本框中的值为多少？参考答案：参考答案：9上传附件上传要求：以zip格式或RAR格式压缩文档后上传。 文件操作8. 在窗体中添加一个命令按钮和一个文本框，然后编写如下程序： Private Sub Command1_Click()Dim Sum1 As Integer, Sum2 As IntegerSum1 = 1: Sum2 = 2For i = 1 To 3 For j = 1 To i Sum1 = Sum2 * j Next j Sum1 = Sum1 + Sum2Next iText1.Text=Sum1End Sub单击命令按钮，文本框中的值是多少？参考答案：参考答案：8二、综合题（共 1 道试题，共 20 分。）1. 请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下： （1）收入在3000元以内，不扣税；（2）收入在3000-5000元内，3000元以上部分扣税5%，（3）收入在5000-10000元内，3000元以上部分，扣税15%，（4）当收入达到10000元以上，3000元以上扣税25%。程序运行界面如下图所示。参考答案：参考答案：Private Sub Command1_Click() If Val(Text1) <= 3000 Then Text2 = 0 ElseIf Val(Text1) > 3000 And Val(Text1) <= 5000 Then Text2 = (Val(Text1) - 3000) * 0.05 ElseIf Val(Text1) > 5000 And Val(Text1) <= 10000 Then Text2 = (Val(Text1) - 3000) * 0.2 Else Text2 = (Val(Text1) - 3000) * 0.25 End IfEnd Sub Private Sub Command2_Click() Unload MeEnd Sub24 程 (计 科 考 一 . 0 - ( = . )0- ( 0 <) 0 ) ( 00*0 ( 0 < 0> 0 =) ( 案案答示图下% 上0 上元0入% ，分以 内0-0在% 分元0，0-0在税不内0在：下，税得酬征务述描请。 ， 共题案案考是中本， . +试 ： = := , ( _ ：程如后本一按个加窗 操文。传文式 或格：传件案案答少为的文按令 . = ( ：序如后框一和命添窗在操文。传文缩 要 案案答 ？为输的"时 按 ,/ / = . ( / , ：-：写然， 命添中 操文。 上档缩 或格 以传 上案案答么选题 0 - - = / . / " 单 0 - & 么出题体钮按 > 共 = 。 + = ( ：如然按个添体在操文。传后式 式 ：求上案：答少多运中文， ， 系 动 ) ( 的 件 （ 。= ) ( _ ：写然，一和个加窗操文。传档式 式 以要件上 案：答少多值的中时 , ( ：程写然钮个加窗 操文。上档式 式 ：传传案案案么是 出的钮按 + = ( ：序写然钮命添体操文。档式 式 ：传件上案案答果出输令单， := =: =( _ ：码下写钮命个中 。分 题 用 - 0 = / / . : " 题 - - & - = / . : " ：时 0 四（）（程 正错。属 令该修可置 令要正错。能合了框正错。等据中在指文所 正错。调过中程只此 正错。辑/进可动一只，中文。分 ，道 断大大 应大动片件 容作，特所件 有控 图入应大整自控 源源用控 而器控件 。 的正的 与 于列 # , # 。 句的据写文随果 )( ( ， ， 。 的确语声下 像像片图 标窗。） 是组钮对外除屏清 文的磁病清内清。） （功语句语 字文个记字。） 是写件进机 。属 （件 置要直样绘要控 控控 控 控 。 的控据于，个以" ( = = " . " ：( = 。） （用所 片 .文的下 ：时在为 0 0 00（000 ）0 0 0（00 0 0（00（。线条 （体在） -0， 事事 事 事 事 。 件 发先达数一装文图 间序贴贴板用时计在图制框和像，时界装属 过时设。） 的像片图将不选在 。 句组于中 言 路路显文有文 文文 *名展包。 示，执序". . 中话打“ - . . 。 用项后表用 。件 （的 发时主送数 用 对 象 对 对对 。连据立用对 一要，数 用 方 方 方 方 。 件控 使据发接外接接接标接接。 和定用即类有 正不 . . 。 句语正 示方模望。分0，道 题选题 0 - - - = - / 选" 0 = - - = & / 试 0三（科计程 正错"" " 写语使” 显本在， 属 本个 正错。期运程是域效序应在局正错。大小汉的本的为使，"= . 语用程正错。量 以 正错。修或过通在，行进属只属 体控 。 数素的义语 ） - 用 。 （的 得可冒顿分逗。分 该之语条写语一辑逻 期日符字值数。据 （个的表 条动动将，的框过目如项表多以列目个选以户用表列显列。 （阐不 框于 不件有达表 。） 值 式辑 。） 是示后 + 句 。 是个数所 > 。） 是算 可不 。实方） 用有框除 放释毕执过声量局明声语 中过变态过它于限的量变明声 语 中过是变。 的正法于下 。） 是的是其，控 （定对 。方 （控调需”开示件框对要 。） 是函相方 码 符 函 函函 函 函 。 使应 ，开字中字从 。 为用目定框除合组话共本文 表列。 件作色择、选文进可= ><= = 。 式表逻被 。 值 *达表 >+ < >) )<+>+0 。） 是辑的大 。分0题试 题项题 - & - - 0 = / / . / " 项" - - - -0 & ? . ./ 时 ：分二考）计程 正错。空现中 正错。境在件该扩文 .文成 过正错。殊作成用用对方正错。明隐声，二型的明正错。块件块：块类了中。块存的 。分 ，试共断时计本文框标。） 的能大 和 。) 性上在控定 窗监窗口窗代窗立。） 口少可外性计设窗工除时建中成 空- 。 （的变运， 。性图个，一缩小窗 错运 。） （的/ 0式 。 置属 的本辑不时在的让如事属方对。） 的向定中应 。 是据默 执随决顺码由驱驱由决系开。） 顺执程 。（是个 置性一令把需件钮命行键 下了状中状状状写状设。 的态工三，状三环发. 窗双控击边体窗内件该。 操执，活件的上了变常达表数。 不持始过序按”性上具+ 按 按命口属中菜图执。 是操性打能下 . 。 式正属该代在 一对且 名象 。 (文英图列 。设 后， 设性 把，滚和具框文为 。 是的具单
