试卷总分：100 测试时间：180
单项选择题 判断题
一、单项选择题（共 20 道试题，共 80 分。）
1. 当运行程序时，系统自动启动窗体的事件过程是（ ）。 A. Load B. Click C. Unload D. GotFocus
2. 单选按钮不具有的属性是( )。 A. Value B. CaptionText C. Text D. Font
3. 为了使文本框同时具有水平和垂直滚动条，应先把multilin属性设置为true，然后
再把scrollbars属性设置为（ ）。
A. 0 B. 1 C. 2 D. 3
4. 列表框图标的英文名称是：( )。 A. ListBox B. ComboBox C. Frame D. CommonDialog
5. 如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的
正确格式是（ ）。
A. Text.Mytext B. Mytext.text C. Mytext.（Text） D. Mytext*Text
6. 下列不能打开属性窗口的操作是 ( )。 A. 执行“视图”菜单中的“属性窗口”命令 B. 按F4键 C. 按Ctrl+T
D. 单击工具栏上的“属性窗口”按钮
7. 程序运行过程中始终保持不变的是（ ）。 A. 数组 B. 表达式 C. 常量 D. 变量
8. 为了把窗体上的某个控件变为活动的，应执行的操作是（ ）。 A. 单击该控件的内部 B. 单击窗体的边框 C. 双击该控件 D. 双击窗体
9. VB6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是（ ）。 A. 设计状态 B. 编写代码状态 C. 运行状态 D. 中断状态
10. 为了在按下Esc键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性
设置为true，这个属性是（ ）。
A. Value B. Default C. Cancel D. Enabled
11. 程序执行的顺序（ ）。 A. 由VB开发系统决定 B. 由事件驱动
C. 由代码行的顺序决定 D. 随意执行
12. 在Visual Basic中，默认的数据类型是（ ）。 A. Integer B. Double C. Currency D. Variant
13. VB的应用程序中，决定程序流向的是（ ）。 A. 对象 B. 方法 C. 属性 D. 事件
14. 如果想让文本框中的内容在运行时不能编辑，需将文本框的（ ）属性设置为
True。
A. Locked B. MultiLine C. TabStop
D. Visible
15. 表达式 10+ 5 Mod 10 \\ 9 / 3 的值等于（ ）。 A. 10 B. 12 C. 15 D. 运算错误
16. 当窗体最小化时缩小为一个图标，设置这个图标的属性是（ ）。 A. Mouseicon B. Icon C. Picture D. Mousepointer
17. Dim I As Integer，则运行时变量I的初始值是（ ）。 A. 0 B. 1 C. -1 D. 空值
18. 在VB的集成环境中创建应用程序时，除了工具箱窗口、窗体设计器、属性窗口外，
必不可少的窗口是（ ）。
A. 立即窗口 B. 代码窗口 C. 窗口布局窗口 D. 监视窗口
19. 确定一个控件在窗体上位置的属性是( )。 A. Width或Height B. Width和Height
C. Top或Left D. Top和Left
20. 控件大小不能改变的是（ ）。 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>0 B. (x+y<10)：(x+y) >0 C. x+y<10 and x+y>0 D. 0 3. a能被b整除的逻辑表达式是（ ）。 A. a/b=0 B. a\\b=0 C. a<>b D. a mod b =0 4. 可以进行打开文件、选择字体、选择颜色等操作的控件是（ ）。 A. 列表框 B. 文本框 C. 公共对话框 D. 组合框 5. 删除列表框中指定的项目所使用的方法为（ ）。 A. Move B. Remove C. Clear D. RemoveItem 6. 从一个字符串中的第3个字符开始，获取5个字符，应使用（ ）。 A. Left函数 B. Mid函数 C. Right函数 D. Len函数 7. 实现字符的unicode编码方式与ANSI编码方式相互转换的函数是（ ）。 A. Str B. Strconv C. Trim D. Mid 8. 要利用通用对话框控件来显示“打开文件”对话框，需要调用控件的（ ）方法。 A. ShowPrint B. ShowOpen C. Load D. ShowColor 9. 对于定时器（Timer）控件，设计其定时是否开启的属性是（ ）。 A. Index B. Tag C. Enabled D. Left 10. 下列关于变量的说法不正确的是（ ）。 A. 局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B. 局部变量的作用域仅限于声明它的过程 C. 静态局部变量是在过程中用Static语句声明的 D. 局部变量在声明它的过程执行完毕后就被释放了 11. 要清除列表框的所有内容，可用（ ）方法来实现。 A. RemoveTtem B. Cls C. Clear D. 以上均不可以 12. 字符串运算符是（ ）。 A. Not B. & C. Mod D. >= 13. Dim Abc(2,3)所定义的数组元素个数是（ ）。 A. 6 B. 5 C. 12 D. 9 14. 语句Print \"123\" + \"456\" 执行后，显示的结果是（ ）。 A. 123456 B. 579 C. 123 D. 789 15. 逻辑表达式Not 5>3 And 9<3 Or 7>5的值为（ ）。 A. TRUE B. FALSE C. 表达式有错 D. 条件不足 16. 关于列表框（ListBox）不正确的阐述是（ ）。 A. 列表框显示项目列表。 B. 用户只可以从中选择一个项目。 C. 列表框可以选择多个列表项。 D. 如果项目数超过列表框可显示的数目，控件将自动出现滚动条。 17. 条件表达式的结果是一个（ ）数据。 A. 数值型 B. 字符型 C. 日期型 D. 逻辑型 18. 在一个语句行内写多条语句时，语句之间应该用（ ）分隔。 A. 逗号 B. 分号 C. 顿号 D. 冒号 19. 可获得字符的ASCII码的函数是（ ）。 A. Val B. Fix C. Asc D. Chr 20. 用Dim A（-3 To 5）As Integer语句所定义的数组的元素个数是（ ）。 A. 6 B. 7 C. 8 D. 9 1. 控件和窗体的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 0 B. Form1.Show C. Form1.Show 1 D. 以下都不正确 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. SendProgress B. MouseDown C. Click D. KeyPress 6. 引用列表框的最后一项应使用（ ）。 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. where B. group by C. order by D. having 9. 在下列选项中，不能将图像装入图片框和图像框的是（ ）。 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. Picture1．Text=Load Picture(\"d：\\pic\\a.jpg\") B. Picture1．Picture =Load Picture(\"d：\\pic\\a.jpg\") C. Picture1．Picture =Load Picture(d：\\pic\\a.jpg) D. Picture1．Picture =Load (\"d：\\pic\\a.jpg\") 13. 以下4个控件中，不属于数据绑定控件的是( )。 A. Text控件 B. OLE控件 C. OptionButton控件 D. Image控件 14. 要绘制多种式样的直线，需要设置Line控件的（ ）属性。 A. Shape B. Bordrestyle C. FillStyle D. Style 15. 随机文件进行文件读写的单位是（ ）。 A. 字节 B. 记录 C. 整个文件 D. 字符 16. KILL语句在VB语言中的功能是（ ）。 A. 清内存 B. 清病毒 C. 删除磁盘上的文件 D. 清屏幕 17. 除框架外，能对单选按钮分组的控件是（ ）。 A. 窗体 B. 标签 C. 图片框 D. 图像框 18. 如下数组声明语句，正确的是（ ）。 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 Integer 19. 如果准备向随机文件中写入数据，常用的语句是（ ）。 A. Print #1,rec B. Write #1,rec C. Put #1,rec D. Get #1,rec 20. 下列关于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 c End Sub 程序运行后，写出单击命令按钮后的输出结果。 参考答案： 参考答案： 2 上传附件 上传要求：以zip格式或RAR格式压缩文档后上传。 文件 操作 2. 在窗体中添加一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Static Sum As Integer I=1 While I<=10 Sum=Sum+I I=I+1 Wend Print Sum End 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 Then a = a + 5 Else a = a + 2 End If Next i Print i, a End Sub 单击命令按钮时，窗体中的输出值依次为多少？ 参考答案： 参考答案： 7 21 上传附件 上传要求：以zip格式或RAR格式压缩文档后上传。 文件 操作 4. 在窗体中添加一个命令按钮和一个文本框，然后编写如下程序： Private Sub Command1_Click() Dim A(1 To 4) As String Dim c As Integer Dim j As Integer A(1) = \"5\" For j = 1 To 4 A(j) = 5 * j c = 1 c = c + Val(A(j)) Next Text1.Text = c End 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 s End 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, y End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3: b = 4 Change a, b Print a, b End Sub 单击命令按钮时，窗体中的输出值依次为多少？> 参考答案： 参考答案： 4 3 3 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 I Text1.Text = c End Sub 单击命令按钮，文本框中的值为多少？ 参考答案： 参考答案： 9 上传附件 上传要求：以zip格式或RAR格式压缩文档后上传。 文件 操作 8. 在窗体中添加一个命令按钮和一个文本框，然后编写如下程序： Private Sub Command1_Click() Dim Sum1 As Integer, Sum2 As Integer Sum1 = 1: Sum2 = 2 For i = 1 To 3 For j = 1 To i Sum1 = Sum2 * j Next j Sum1 = Sum1 + Sum2 Next i Text1.Text=Sum1 End 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 If End Sub Private Sub Command2_Click() Unload Me End Sub 因篇幅问题不能全部显示，请点此查看更多更全内容