第1讲 初始Visual Basic

1.1 模拟打字机效果——VB6.0集成开发环境和特点随堂测验

1、关于Microsoft Visual Basic 6.0集成开发环境的说法中,错误的是_______。
    A、可以在集成开发环境中设计界面
    B、可以在集成开发环境中编写程序
    C、可以在集成开发环境中调试程序
    D、可以在集成开发环境中出售软件

2、开发VB6程序,需要安装的软件是Microsoft Visual Basic 6.0

1.2 对象三要素——面向对象概念随堂测验

1、关于类的描述中,错误的是_______。
    A、类是具体对象的抽象描述
    B、类封装了属性、事件和方法
    C、类就是具体的客观事物
    D、类可以继承或派生

2、方法是对象处理事件的执行过程。

1.3计算三角形面积——简单的应用程序建立和概念随堂测验

1、关于VB6.0的语句书写规则中,正确的是______。
    A、一行只能书写一条语句
    B、语句中不能包含空格
    C、语句中只能包含关键字和运算符
    D、语句中可以包含常量

2、可以在通用声明段声明变量

第1讲 单元测验

1、属于VB6.0特点的是 __________。
    A、事件驱动的编程机制
    B、没有数据类型的程序设计语言
    C、基于对象、不支持结构化
    D、没有可视化设计工具
    E、只能通过文本编辑工具编写程序
    F、具有丰富的数据类型、类库

2、在VB6.0集成开发环境中,通过__________窗口编写程序。
    A、立即
    B、代码
    C、监视
    D、属性
    E、资源管理

3、窗体文件的扩展名是__________。
    A、.frm
    B、.vb
    C、.vbp
    D、.exe
    E、.frx

4、对象有三要素,分别是:__________。
    A、属性、事件和方法。
    B、界面、代码和属性
    C、事件、数据和结构
    D、方法、函数和功能
    E、属性、驱动和代码

5、保存一个工程,至少应保存两个文件,分别是:________。
    A、工程文件和窗体文件
    B、工程文件和文本文件
    C、模块文件和窗体文件
    D、模块文件和文本文件
    E、工程文件和模块文件

6、下列不属于VB6.0代码窗口程序结构内容的是________。
    A、通用声明段
    B、事件过程
    C、用户自定义过程
    D、菜单定义
    E、工具栏定义

7、VB6.0程序代码编写的规则中,不正确的是________。
    A、代码不区分字母的大小写
    B、一行上可以写多条语句
    C、一条语句可以分多行书写
    D、代码中不能包含数字
    E、代码中只能包含数字和字母

8、下列选项中,不属于程序设计过程的是________。
    A、建立数学模型
    B、模拟数据分析
    C、分析问题
    D、建立用户界面
    E、编写事件过程
    F、程序调试和运行
    G、保存工程

9、如果没有触发任何事件,程序是不会自动开始执行的。

10、对象的事件是存放对象的数据,用来决定对象的外观和功能。

第2讲 可视化编程基础

2.1 模拟小车行驶——控件基本属性和窗体随堂测验

1、在窗体的属性中,存放窗体标题的属性是______。
    A、Name
    B、Caption
    C、Font
    D、BoderStyle

2、下列方法中,可以在窗体上输出信息的是______。
    A、Show
    B、Print
    C、Cls
    D、Hide

2.2 简易文本编辑器——标签、文本框和命令按钮随堂测验

1、在下面关于文本框的说法中,错误的是______。
    A、文本框可以接受信息输入也能显示信息
    B、文本框也有Caption属性
    C、文本框也有事件
    D、文本框也有方法

2、标签和文本框一样都可以输入信息。

2.3 模拟热气球升空 —— 图片和图像框随堂测验

1、在图片框(PictureBox)控件中,用于存放图片的属性是______。
    A、Image
    B、Picture
    C、Align
    D、Caption

2、Image和PictureBox控件的对齐方式中,Image控件的Stretch属性设置为False与PictureBox控件的AutoSize属性设置为True效果相同

第2讲 单元测验

1、关于文本框的焦点叙述中,错误的是________。
    A、文本框失去焦点时,不会引发自己的LostFocus事件
    B、文本框当其Enabled属性为False时,不能获得焦点
    C、利用TabIndex属性改变Tab顺序
    D、文本框得到焦点时,会引发自己的GotFocus事件

2、要判断在文本框里是否按了回车键,应该在文本框的_______事件中判断。
    A、KeyPress
    B、Changed
    C、Click
    D、Enter
    E、LostFocus

3、若要使命令按钮不可用,可对按钮的_______属性进行设置。
    A、Enabled
    B、Caption
    C、Title
    D、Click
    E、Locked

4、若要使图像控件Image中的图像随着控件的大小自动放大或缩小,可对_______属性进行设置。
    A、Stretch
    B、AutoSize
    C、Size
    D、Location
    E、Align

5、任何控件都具有的属性是_______。
    A、Name
    B、Text
    C、Caption
    D、Color
    E、Font
    F、Stretch

6、控件在窗体上的位置是由控件的Top和Left属性决定的,Top属性值的含义是_______。
    A、控件离开上边框的距离,默认单位为缇(Twip)
    B、控件离开上边框的距离,默认单位为像素
    C、控件离开下边框的距离,默认单位为缇(Twip)
    D、控件离开下边框的距离,默认单位为像素

7、若要使标签Label不遮盖背景图像,有效的设置是_______。
    A、将BackStyle设置为Opaque
    B、将BackStyle设置为Transparent
    C、将BackStyle设置为Fixed
    D、将BorderStyle设置为Transparent
    E、将BorderStyle设置为Fixed

8、文本框TextBox的MaxLength属性默认为0,其含义是不能输入字符。

9、Image控件与PictureBox控件都可以装入图片,所以两个控件的功能完全相同。

10、若要使标签控件Lable的大小随着文字内容自动调整,可对_______属性进设置。

11、若要在属性窗口修改文本框Text1的字体,可选择_______属性进行设置。

第3讲 VB语言基础和顺序结构

3.1 数值计算问题——数据类型、常量和变量随堂测验

1、下列选项中,合法的变量名是__________。
    A、2面积
    B、S1
    C、mian ji
    D、S+V

2、vbCrLf 是VB6.0中的系统常量,它表示的是__________。
    A、回车/换行
    B、警告消息图标
    C、默认按钮
    D、提示消息

3、整型数据类型的关键字是 "Integer",类型符是" % "。

3.2 谁是凶手——运算符和表达式随堂测验

1、下列关于关系运算符的说法中,正确的是__________。
    A、"123" > "56" 结果是 True
    B、123 > 45 结果是 False
    C、"abcd" <> "abc" 结果是 False
    D、"ABC" < "abc" 结果是 True

2、若 x = 365,则表达式 (x mod 100) \ 10 的值是 _______。
    A、3
    B、6
    C、5
    D、7

3、在表达式的书写中,乘号可以省略。例如 a 乘以 b 可写成 ab。

3.3 简易计算器——常用内部函数随堂测验

1、函数Abs(x) 的作用是_______。
    A、对x进行四舍五入
    B、对x进行取整
    C、取x的平方根
    D、计算x的绝对值

2、Mid("VB6.0程序设计",3,4)的结果是_______。
    A、VB6.0
    B、VB6
    C、6.0程
    D、程序设计

3、若要随机产生范围为[20,50]的整数,包括20和50,正确的表达式是_______。
    A、Int(Rnd()*30 + 20)
    B、Int(Rnd()*31 + 20)
    C、Int(Rnd()*50 + 20)
    D、Int(Rnd()*20 + 50)

3.4 身份证求年龄问题——顺序结构随堂测验

1、假设a、b、c都是已经定义好的单精度变量,则下列语句中,正确的赋值语句是_______。
    A、a + b = c
    B、36 = sin(a)
    C、c = a / b
    D、sin(a) = b * c

2、关于InputBox函数的说法中,错误的是_______。
    A、InputBox函数的作用是打开一个对话框,让用户输入信息。
    B、InputBox函数不需要设置参数,可直接使用。
    C、InputBox函数可以设置默认值。
    D、InputBox函数可以设置提示信息。

3、Print方法可以直接在窗体或图形框等对象上输出信息。

第3讲 单元测验

1、在VB6.0中,表达式4 * 3 \ 5 Mod 3的值是_______。
    A、2
    B、1
    C、0
    D、3
    E、出现错误提示

2、以下选项中,不合法的变量名是_______。
    A、and
    B、1ab
    C、xyz
    D、_abc
    E、a1b
    F、ab1

3、不属于VB6.0基本数据类型的是_______。
    A、Char
    B、Value
    C、String
    D、Integer
    E、Single
    F、Double

4、数学关系 3<=x<10 表示成正确的VB6.0表达式为_______。
    A、3<=x And x<10
    B、3<=x<10
    C、x>=3 Or x<10
    D、x>=3 XOR x<10
    E、x>=3 MOD x<10

5、表达式Abs(-4.5)的值是_______。
    A、4.5
    B、-4
    C、-5
    D、4
    E、5
    F、-4.5

6、表示x是5的倍数的逻辑表达式为_______。
    A、x Mod 5 = 0
    B、x - 5 = 0
    C、x / 5 = 0
    D、x * 5 = 0

7、若要定义一个变量,用来保存某人的年龄,则最合适的数据类型是_______。
    A、Date
    B、Integer
    C、Byte
    D、String
    E、Boolean
    F、Object
    G、Variant

8、下列关于IsNumeric()函数的描述中,错误的是_______。
    A、IsNumeric("123a")的结果是 False
    B、IsNumeric(123a)的结果是 语法错误
    C、IsNumeric("-123a")的结果是 False
    D、IsNumeric("-123.4")的结果是 False

9、表达式Chr(Int(Rnd*4+97))的结果是_______。
    A、97 ~ 100 之间的整数
    B、"a" ~ "d" 之间的小写字母
    C、97.0 ~ 100.0 之间的小数
    D、4 ~ 97 之间的整数
    E、"A" ~ "D" 之间的大写字母

10、表达式Val("-1.2a3b4")的值是_______。
    A、1.234
    B、-1.234
    C、-1.2
    D、ab
    E、2a3b

11、既可作算术相加,也可作字符串连接的运算符是_______。

第4讲 选择结构

4.1 三角形问题——If语句随堂测验

1、在关于下面程序段的说法中,正确的是 。 y = Sin(x) if x< 0 Then y = Cos(x)
    A、当x>=0,y = Cos(x);当x<0,y = Sin(x)。
    B、无论x的值是什么,y =Cos(x)
    C、当x>=0,y = Sin(x);当x< 0,y = Cos(x)
    D、无论x的值是什么,y = Sin(x)

2、在If语句中,如果表达式是一个算术表达式,则按算术表达式的值0为True,非0为False进行判断。

4.2 一个月有多少天——Select Case语句随堂测验

1、关于Select Case语句的说法中,错误的是_______。 Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2     … [Case Else 语句块n+1] End Select
    A、表达式列表可以是逗号分隔的枚举值
    B、表达式列表可以是任何变量。
    C、表达式列表可以是 下界 To 上界,如 1 to 10
    D、表达式列表可以是 Is 表达式

4.3 闰年问题——嵌套选择结构随堂测验

1、关于如下图所示的If嵌套结构的说中,正确的是_______。 If 表达式1 Then If 表达式11 Then 语句块1 End If Else 语句块2 End If
    A、只要表达式1为True,语句块1就执行。
    B、只要表达式11为True,语句块1就执行。
    C、只要表达式1或表达式11为True,语句块1就执行。
    D、表达式1和表达式11同时为True,语句块1就执行。

4.4 成绩转换——综合应用随堂测验

1、多分支的If结构如下图,如果表达式1和表达式2都为True,下列说法正确的是_______。 If 表达式1 Then 语句块1 ElseIf 表达式2 Then 语句块2 … [Else 语句块 n+1] End If
    A、只会执行语句块1。
    B、只会执行语句块2。
    C、先执行语句块1再执行语句块2。
    D、先执行语句块2再执行语句块1。

4.5 购物优惠——程序调试随堂测验

1、如果程序有语法错误,则下列说法正确的是_______。
    A、程序可以忽略错误正常执行的。
    B、程序是不能正常执行的。
    C、程序不能编辑修改。
    D、程序不能修改错误的语句。

2、如果程序有逻辑错误,则下列说法正确的是_______。
    A、程序是不能执行的。
    B、程序不能得到正确的结果。
    C、不能生成可执行程序。
    D、无法修改错误的语句。

4.6 个人简历——选择类控件随堂测验

1、单选按钮Option控件的__________属性值为True,表示选中该按钮。
    A、Enabled
    B、Value
    C、Visible
    D、Locked

2、复选框的CheckBox的Value属性有多种值,下列_________不属于该属性值。
    A、vbUnchecked
    B、vbSelected
    C、vbChecked
    D、vbGrayed

3、如果有多组相互独立的单选控件,应使用框架Frame控件,将各组单选控件放置在各个框架中。

第4讲 单元测验

1、有下列If语句,说法正确的是________。 If x=1 Then y=1
    A、x=1为赋值语句,y=1为关系表达式
    B、x=1为关系表达式,y=1为赋值语句
    C、x=1和y=1均为赋值语句
    D、x=1和y=1均为关系表达式

2、假设文本框Text1中输入了一个字母,要求判断输入的字母为"A"~"E"正确,否则显示输入错误信息,下列语句中正确的是_____________。
    A、If "A" <= Text1.Text <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"
    B、If A <= Text1.Text <= E Then MsgBox "输入正确" Else MsgBox "输入错误"
    C、If "A" <= Text1.Text Or Text1.Text <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"
    D、If A <= Text1.Text Or Text1.Text <= E Then MsgBox "输入正确" Else MsgBox "输入错误"
    E、If "A" <= Text1.Text And Text1.Text <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"
    F、If A <= Text1.Text And Text1.Text <= E Then MsgBox "输入正确" Else MsgBox "输入错误"

3、下面程序段的功能是求两个数中的大数,_____________是不正确的。
    A、If x > y Then Max = x Else Max = y
    B、Max = x : If y > x Then Max = y
    C、Max = y : If x > y Then Max = x
    D、If y > x Then Max = y : Max = x
    E、If x > y Then Max = x : Max = y

4、假设x是一个整数变量,要求判断x的值为1~4之间。Select语句形式如下,则Case表达式列表写法正确的是_____________。 Select Case x Case 表达式列表
    A、Case 4>=x>=1
    B、Case x>=1 and x<=4
    C、Case Is>=1 and Is<=4
    D、Case 4>=Is>=1
    E、Case 1 to 4
    F、Case 1,2,3,4

5、分段函数:,下面程序段中正确的是__________。
    A、If x < 0 Then y = 0 If x < 1 Then y = 1 If x < 2 Then y = 2 If x >= 2 Then y = 3
    B、If x > =2 Then y = 3 ElseIf x > =1 Then y = 2 ElseIf x > =0 Then y = 1 Else y = 0 End If
    C、If x >= 2 Then y = 3 If x >= 1 Then y = 2 If x > 0 Then y = 1 If x < 0 Then y = 0
    D、If x < 0 Then y = 0 ElseIf x > 0 Then y = 1 ElseIf x > 1 Then y = 2 Else y = 3 End If
    E、If x < 0 Then y = 0 If 0 <= x <1 Then y = 1 If 1 <= x < 2 Then y = 2 If x >= 2 Then y = 3

6、如果在文本框Text1输入80,程序运行后,显示的结果是_______。 Dim x% x = Val(Text1.Text) Select Case x\5 Case 18 to 20 MsgBox( "优秀") Case 16,17 MsgBox( "良好") Case 12 to 15 MsgBox( "通过") Case Else MsgBox( "不通过") End Select
    A、优秀
    B、良好
    C、通过
    D、不通过

7、如果在文本框Text1输入80,程序运行后,显示的结果是_______。 Dim x% x = Val(Text1.Text) If x >= 60 Then MsgBox ("通过") ElseIf x >= 80 Then MsgBox ("良好") ElseIf x >= 90 Then MsgBox ("优秀") Else MsgBox ("不通过") End If
    A、优秀
    B、良好
    C、通过
    D、不通过

8、在下列关于单选按钮的说法中,正确的是___________。
    A、单选按钮的Value属性为Fasle时表示选中
    B、一个单选按钮被单击一定会触发它的Click事件
    C、一个单选按钮被选中不会影响其他单选按钮的状态
    D、单选按钮的Value属性为vbGrayed时表示不可选择
    E、用户可以同时选中一组单选按钮中的多个单选按钮

9、复选框CheckBox的___________属性表示是否被选中。
    A、Value
    B、Caption
    C、Enabled
    D、Visible
    E、Text

10、关于复选框CheckBox的单击事件,下列正确的说法是___________。
    A、不影响其他复选框的状态
    B、一定使得当前复选框被选中
    C、一定使得当前复选框不被选中
    D、一定使得其他复选框不被选中
    E、一定使得其他复选框被选中
    F、不影响当前复选框的状态

11、程序运行后,要使单选按钮Option1为选中状态,下面语句正确的是_________。
    A、Option1.Value = True
    B、Option1.CheckState = True
    C、Option1.Visible = True
    D、Option1.Enabled = True

12、任何Select Case语句都可以改写成If语句,同样,任何If语句也都可以改写成Select Case语句。

13、简单 If 形式无 End If 时,Then 后面只能是一句语句或多条语句间用冒号分隔,而且必须在一行上书写。

14、已知两个变量m和n,利用If语句,使得m大于n。在下列程序中填写合适的语句,使得功能完善(答案不要有空格)。 If m < n Then __________ n = m m = t End If

第5讲 循环结构

5.1 数字之美——For 语句随堂测验

1、下列For循环语句中,使用错误的是_______。
    A、For i = 2 to 10 ``` Next
    B、For i = 2,4,6,8,10 ``` Next
    C、For i = 10 to 2 Step -2 ``` Next
    D、For i = 2 to 10 Step 2 ``` Next

2、若有如下For循环语句中,循环结束后x的值是_______。 s = 0 For x = 3 to 15 Step 3 s = s + 1 Next MsgBox(x)
    A、15
    B、16
    C、14
    D、18

5.2 猜数游戏——DO 语句随堂测验

1、下列Do ``` Loop 循环计算2~100 偶数和,正确的是_______。
    A、Dim sum%, i% sum = 0 i = 2 Do While i <= 100 sum = sum + i i = i + 2 Loop MsgBox (sum)
    B、Dim sum%, i% sum = 0 i = i + 2 Do While i <= 100 sum = sum + i Loop MsgBox (sum)
    C、Dim sum%, i% sum = sum + i i = 2 Do While i >= 100 i = i + 2 Loop MsgBox (sum)
    D、Dim sum%, i% sum = 0 i = 2 Do sum = sum + i i = i + 2 Loop While i > 100 MsgBox (sum)

2、若有如下循环,程序执行后显示______次MsgBox。 Dim s% Do While s<=3 s=s+1 MsgBox(s) Loop
    A、2
    B、3
    C、4
    D、5

第5讲 单元测验

1、下列正确的For语句结构是_______。
    A、For 1 <= i <= 10 ``` Next
    B、For 1 <= i and i <= 10 ``` Next
    C、For i=1 to 10 ``` Next
    D、For i=1,2,3,4 ``` Next
    E、For i=10 to 1 step -1 ``` Next

2、下列循环语句能正常结束的是_______。
    A、i = 5 Do While i > 0 i = i + 1 Loop
    B、i = 1 Do i = i + 2 Loop Until i = 10
    C、i = 10 Do i = i + 1 Loop Until i > 0
    D、i = 6 Do i = i + 2 Loop While i > 2

3、从循环体 Do ... Loop中退出,跳出循环体,应使用______。
    A、Exit Loop
    B、Exit Do
    C、Exit While
    D、End Do
    E、End Loop

4、从循环体中 For ... Next中退出,跳出循环体,应使用______。
    A、Exit For
    B、Exit Next
    C、Exit
    D、End For
    E、End Next

5、循环语句 For i = 9 To -3 Step -3 的执行次数是__________。
    A、0
    B、1
    C、4
    D、5
    E、6

6、从键盘输入一个正整数,将该数的各位分离出来。 请在_________处填入适当的内容,完善程序。 Dim s, s1 As Integer s = Val(InputBox("输入一个正整数:")) Do While s > 0 s1 = __________ s = s \ 10 MsgBox(s1) Loop
    A、s / 10
    B、s - 10
    C、s * 10
    D、s mod 10
    E、s \ 100

7、窗体上有一标签Label1,将1~9连接成123456789的9位数,显示在标签中。请在_________处填入适当的内容,完善程序。 Dim i%, s& s = 0 For i = 1 To 9 s = ___________ Next Label1.Caption = s
    A、s + 10 * i
    B、s * 10
    C、s + 10 + i
    D、s * 10 + i
    E、s * i

8、下面程序的功能是在Label1中输出如图所示的图形。请在_________处填入适当的内容,完善程序。 Private Sub Command1_Click() Dim i%, j% Label1.Alignment = 2 For i = 1 To 6 For j = 1 To ___________ Label1.Caption = Label1.Caption + "*" Next j Label1.Caption = Label1.Caption + vbCrLf Next i End Sub
    A、2 * i
    B、2 * i - 1
    C、2 * i + 1
    D、5
    E、3

9、下面程序段执行后,出了循环x的值为_______。 Dim x% x = 1 Do While x < 10 x = x * 3 Loop

10、找出1~100内被3或7除整除的整数个数。请在_________处填入适当的内容(不要空格!!),完善程序。 Dim x%, i% x = 0 For i = 1 To 100 If i Mod 3 = 0 Or i Mod 7 = 0 Then x = _________ End If Next Text1.Text = x

第6讲 循环结构(续)

6.1 交通灯控制车辆行驶——循环类控件随堂测验

1、对于循环嵌套的说法中,正确的是_______。
    A、多重循环的总循环次数是每一重循环次数之和。
    B、外循环和内循环应使用不同的循环变量。
    C、循环嵌套语句中,不能使用If条件语句。
    D、For循环只能和For循环嵌套,不能和Do循环嵌套。

2、下列循环嵌套的结构中,正确的是_______。
    A、For i = 2,4,6,8,10 ``` Do ``` Loop While s > 0 Next
    B、For i = 2 To 10 ``` Do While s > 0 ``` Loop Next
    C、For i = 2 To 10 ``` Do While s > 0 ``` Next Loop
    D、For i = 2 To 10 ``` Do ``` Next Loop While s > 0

3、下列关于定时器(Timer)的Interval属性,正确的说法是___________。
    A、Interval属性表示定时器是否产生Timer事件。
    B、Interval属性表示定时器是否在界面上显示。
    C、Interval属性表示定时器上所显示的文字。
    D、Interval属性表示定时器触发Timer事件的时间间隔。

4、水平滚动条的__________属性表示滑块当前位置的值。
    A、Caption
    B、Value
    C、Text
    D、Name

5、滚动条(ScrollBar)的Scroll事件是在拖动滑块的时候触发的。

6.1 部分级数和、枚举法、迭代法、字符串处理——常用算法随堂测验

1、关于枚举法的说法中,正确的是_______。
    A、枚举法得到的结果不一定全面,有可能遗漏答案。
    B、枚举法的算法效率是最高的。
    C、枚举法一般采用多重循环实现。
    D、枚举法的算法效率和数据量有关,数据量越大,效率越高。

2、如下程序的功能是删除文本框Text1中的数字字符。请在_________处填入适当的内容,完善程序。 Private Sub Command1_Click() Dim i%, s$, c$ s = "" For i = 1 To Len(Text1.Text) c = Mid(Text1.Text, i, 1) If _________ Then s = s + c End If Next Text1.Text = s End Sub
    A、c >= "0" And c <= "9"
    B、c >= 0 And c <= 9
    C、c < "0" Or c > "9"
    D、c <= 0 Or c >= 9

第6讲 单元测验

1、若有如下程序,在文本框中输入“VisualBasic”,程序运行后Label1显示的是__________。 Dim s$,ch$,k% s="" For k=1 TO Len(Text1.Text) ch = Mid(Text1.Text,k,1) s = ch+s Next k Label1.Caption = s
    A、BasicVisual
    B、VISUALBASIC
    C、cisaBlausiV
    D、visualbasic

2、有如下程序,用来求4个整数(从键盘输入)中的最小值。若程序运行后,依次输入56,88,23,14,则在Label1显示的是__________。 Private Sub Command1_Click() Dim min%, k%, a% For k = 1 To 4 a = Val(InputBox("输入一个整数")) If a < min Then min = a End If Next Label1.Caption = min End Sub
    A、14
    B、23
    C、56
    D、88
    E、0

3、刑警在处置某案件时采用“地毯式”方式搜寻犯罪嫌疑人,相当于计算机中的_____方法。
    A、枚举法
    B、迭代法
    C、递归法
    D、选择法

4、两个小和尚合吃1个馒头,年轻和尚一次吃3个馒头,老和尚一次吃2个馒头。总共有40个和尚他们刚好吃40个馒头,问有多少个小和尚,年轻和尚和老和尚?程序如下,请在_________处选择适当的内容,完善程序。 Dim y%, s%, x% For x = 1 To 40 For y = 1 To 40 s = _________ If s / 2 + y * 3 + x * 2 = 40 Then Print x & "个老和尚, " & y & " 年轻和尚," & s & " 个小和尚。" & vbCrLf End If Next Next
    A、x + y
    B、40 - y
    C、40 + x
    D、40 - x - y

5、若有程序,显示有规律的图形,效果如下图。 请在_________处选择适当的内容,完善程序。 Private Sub Command1_Click() Dim n%, s$ s = Text1.Text n = _________ Cls For i = 1 To n Print Tab(2 * n - i); Mid(s, n - i + 1, i) Next End Sub
    A、Val(Text1.Text)
    B、Len(s)
    C、Mid(s, i, 1)
    D、n + 1
    E、Val(Mid(s, i, i))

6、下列关于定时器Timer控件的说法中,正确的是__________。
    A、当Enabled属性为False时,不产生Timer事件
    B、当Enabled属性为True时,不产生Tick事件
    C、当Interval属性为False时,不产生Timer事件
    D、当Interval属性为True时,不产生Timer事件
    E、当Visible属性为False时,不产生Timer事件
    F、当Visible属性为True时,不产生Timer事件

7、拖动滚动条(ScrollBar)的滑块,下列_________事件将被触发 。
    A、Scroll
    B、GetFocus
    C、LostFocus
    D、DragDrop

8、在嵌套的内循环中,可以利用Exit语句跳出循环,跳到最外层的循环之外。

9、要使定时器Timer1控件每隔1秒触发Timer事件,应将Interval属性设为10。

10、如下程序的功能是计算自然对数e的近似值。请在_________处填入适当的内容(不要空格,字母小写),完善程序。 e的近似公式: Dim e!, i%, s!, t! e = 1: i = 1: s = 1 Do s = _________ t = 1 / s e = e + t i = i + 1 Loop While t > 0.0001 Print e

第7讲 数组

7.1 数组概念随堂测验

1、若要定义一个具有10个元素的整型数组,下列语句不正确的是___________。
    A、Dim a(10) As Integer
    B、Dim a%(9)
    C、Dim a(0 To 9) As Integer
    D、Dim a%(1 To 10)

2、数组中每个元素的数据类型是不同的。

3、数组中每个元素的下标是不同的。

7.2 数组的基本操作随堂测验

1、若有数组Dim a%(10),每个元素的值都通过InputBox输入,则下列语句正确的是___________。
    A、a(10) = Val(InputBox("请输入数据"))
    B、Dim i% a(i) = Val(InputBox("请输入数据"))
    C、Dim i% For i = 1 To 10 a(i) = Val(InputBox("请输入数据")) Next
    D、Dim i% For i = 0 To 10 a(i) = Val(InputBox("请输入数据")) Next

2、若有数组Dim a%(10)且每个元素有值,求最小值并在Text1中显示,下列语句正确的是___________。
    A、Dim i%, nMin% nMin = 0 For i = 1 To 10 If a(i) < nMin Then nMin = a(i) End If Next Text1.Text = nMin
    B、Dim i%, nMin% nMin = 0 For i = 1 To 10 If a(i) < nMin Then nMin = i End If Next Text1.Text = nMin
    C、Dim i%, nMin% nMin = a(0) For i = 1 To 10 If a(i) < nMin Then nMin = i End If Next Text1.Text = nMin
    D、Dim i%, nMin% nMin = a(0) For i = 1 To 10 If a(i) < nMin Then nMin = a(i) End If Next Text1.Text = nMin

7.3 数组排序和维护随堂测验

1、若有数组Dim a%(10)且每个元素有值,用选择法升序排序,下列语句正确的是___________。
    A、Dim i%, j%, iMin%, t% iMin = i For j = i To 10 If a(j) < a(iMin) Then iMin = j End If Next For i = 0 To 9 t = a(i) a(i) = a(iMin) a(iMin) = t Next
    B、Dim i%, j%, iMin%, t% For i = 0 To 9 t = a(i) a(i) = a(iMin) a(iMin) = t Next iMin = i For j = i To 10 If a(j) < a(iMin) Then iMin = j End If Next
    C、Dim i%, j%, iMin%, t% For i = 0 To 9 iMin = i For j = i To 10 If a(j) < a(iMin) Then iMin = j End If Next t = a(i) a(i) = a(iMin) a(iMin) = t Next
    D、Dim i%, j%, iMin%, t% For i = 0 To 9 t = a(i) a(i) = a(iMin) a(iMin) = t iMin = i For j = i To 10 If a(j) < a(iMin) Then iMin = j End If Next Next

2、若有动态数组Dim a%(),11个元素,若要删除下标为k(k为0~10范围)的元素,下列语句正确的是___________。
    A、Dim i% For i = 0 To k a(i) = a(i + 1) Next ReDim Preserve a(9)
    B、Dim i% For i = 0 To k a(i) = a(i - 1) Next ReDim Preserve a(9)
    C、Dim i% For i = k To 9 a(i) = a(i + 1) Next ReDim Preserve a(9)
    D、Dim i% For i = k To 9 a(i) = a(i - 1) Next ReDim Preserve a(9)

第7讲 单元测验

1、下列数组声明语句中, 不正确的是___________。
    A、Dim a(5) As Single
    B、Dim a(1 To 5) As Single
    C、Dim a(0) As Single
    D、Dim a(5) As Single=(1,2,3,4,5,6)

2、若要定义一个10个元素的整数数组,每个元素的值均为5,则下列语句正确的是___________。
    A、Dim a%(9) = 5
    B、Dim a%(10) = 5
    C、Dim a%(9) = (5)
    D、Dim a%(9), i% For i = 0 To 9 a(i) = 5 Next

3、对于正在使用的动态数组a(n),要增加3个数组元素,又要保留原来数组中的值,则下列语句正确的是___________。
    A、Dim a(n+3)
    B、ReDim a(n+3)
    C、Dim Preserve a(n+3)
    D、ReDim Preserve a(n+3)

4、下列定义二维数组的语句中,正确的是___________。
    A、Dim a(3)(4) As Integer
    B、Dim a(3, 4) As Integer
    C、Dim a[3, 4] As Integer
    D、Dim a{3, 4} As Integer

5、在一维数组的定义中,Dim 数组名(上界) as 数据类型,默认的下界是1。

6、通过ReDim语句可以重新定义数组,重新定义数组的维数、下标的上下界和数据类型。

7、如下程序的功能是随机产生10个大写字母保存到数组。请在_________处填入适当的内容(不要空格),完善程序。 Private Sub Command1_Click() Dim a(9) As String, i% For i = 0 To 9 a(i) = Chr(Rnd * 26 + _________) Next End Sub

8、数组a是个整数数组且已有数据,如要在a中查找InputBox中输入的数字,并输出其下标。程序如下,请在_________处填入适当的内容(不要空格,小写字母书写),完善程序。 Dim i%, idx%, key% key = Val(InputBox("输入要查找的数字")) idx = -1 For i = 0 To UBound(a) If a(i) = key Then _________ Exit For End If Next If idx >= 0 Then MsgBox ("下标为" & idx) Else MsgBox ("找不到此数字") End If

第8讲 数组(续)

8.1 数据有序和维护——可视化数组类控件随堂测验

1、关于组合框ComboBox控件的List属性,下列正确的说法是___________。
    A、表示组合框的样式。
    B、它一个集合,存放多个可选的项目。
    C、表示当前选定的项目。
    D、表示是否显示可选项目。

2、下列___________不属于列表框List控件的常用方法。
    A、AddItem
    B、AppendItem
    C、RemoveItem
    D、Clear

3、列表框List控件是既可以输入内容也可以从选项中选择项目的控件。

8.2 常用算法——分类统计随堂测验

1、若有数组Dim a%(10)且每个元素有值,统计前一个元素大于后一个元素的次数,结果存放在变量n中。 则下列语句正确的是___________。
    A、Dim i%, n% For i = 1 To 10 If a(i) > a(i + 1) Then n = n + 1 End If Next MsgBox(n)
    B、Dim i%, n% For i = 1 To 10 If a(i) > a(i + 1) Then n = a(i) End If Next MsgBox(n)
    C、Dim i%, n% For i = 0 To 9 If a(i) > a(i + 1) Then a(i) = n + 1 End If Next MsgBox(n)
    D、Dim i%, n% For i = 0 To 9 If a(i) > a(i + 1) Then n = n +1 End If Next MsgBox(n)

第8讲 单元测验

1、引用列表框List1 最后一个数据项应使用代码_________。
    A、List1.List(List1.ListCount - 1)
    B、List1.List(List1.ListCount)
    C、List1.List(ListCount)
    D、List1.List(ListCount - 1)

2、数组a是个整数数组且已有数据,如要在a中查找InputBox中输入的数字,并输出其下标。程序如下,请在_________处填入适当的内容,完善程序。 Dim i%, idx%, key% key = Val(InputBox("输入要查找的数字")) idx = -1 For i = 0 To UBound(a) If a(i) = key Then _________ Exit For End If Next If idx >= 0 Then MsgBox ("下标为" & idx) Else MsgBox ("找不到此数字") End If
    A、idx=i
    B、idx=key
    C、key=i
    D、i=key

3、要将字符串“vb程序”添加到列表框List1中,下列代码正确的是___________。
    A、List1 &= “vb程序”
    B、List1.Text &= “vb程序”
    C、List1.Caption &= “vb程序”
    D、List1.AddItem(“vb程序”)
    E、List1.InsertItem(“vb程序”)

4、如要删除列表框List1中第3个项目,下列代码正确的是___________。
    A、List1.Delete 3
    B、List1.Clear 2
    C、List1.ClearAt 3
    D、List1.RemoveItem 2
    E、List1.DeleteItem 2

5、组合框ComboBox控件具有列表框类似的属性,它同样不允许用户输入内容,只能选择列表中的项目。

6、组合框ComboBox控件的List属性表示是否显示可选项目。

7、组合框控件是既可以输入内容也可以从选项中选择项目的控件。

第9讲 过程

9.1 求多边形面积 — 函数过程随堂测验

1、下列函数过程的定义语句中,正确的是_____________。
    A、Dim fun1 as Function
    B、Public fun1 as Function
    C、Function fun1%(ByVal n%)
    D、Sub fun1%(ByVal n%)

2、函数Fun1(x%,y%)已有定义,若要调用此函数,参数是3和5,调用结果显示在Label1中。正确的调用语句是_____________。
    A、Label1 = Fun1(3,5)
    B、Label1.Caption = Fun1(3,5)
    C、Call Fun1(Label1)
    D、Call Fun1(Label1.Caption,3,5)

3、函数过程一定有一个返回值。

9.2 打印图案 — 子过程随堂测验

1、下列子过程的定义语句中,正确的是____________。
    A、Sub mySub(ByRef n%) As Integer
    B、Sub mySub%(ByVal n As Integer)
    C、Dim mySub as Sub(n%)
    D、Sub mySub(ByVal n%)

2、从子过程退出,并返回到主调过程,可使用语句____________。
    A、Return Sub
    B、Exit Sub
    C、Return Function
    D、Exit Function

9.3 两数交换 — 参数传递随堂测验

1、过程定义如下,单击按钮后标签上的文字为________。 Sub ProcString(ByVal m$) m = Mid(m, 7, 2) End Sub Private Sub Command1_Click() Dim s$ s = "VB.NET程序设计" Call ProcString(s) Label1.Caption = s End Sub
    A、VB.NET
    B、程序
    C、VB.NET程序
    D、VB.NET程序设计

2、要求调用MyProc子过程后形参m不能被修改,而n要被修改, 则MyProc声明正确的为__________。
    A、Sub MyProc(ByRef m%, ByVal n%)
    B、Sub MyProc(ByRef m%, n%)
    C、Sub MyProc(ByVal m%, n%)
    D、Sub MyProc(m%,ByVal n%)

3、下列关于参数和参数传递,错误的说法是____________。
    A、形参没有具体的值,只代表了参数的个数、位置、类型。
    B、在参数传递中,按实参的位置次序与形参的位置次序对应传送,与参数名没有关系。
    C、参数传递的作用是主调过程和被调过程之间的数据交互。
    D、在参数传递时,实参名与形参名相同才能实现数据传递。

第9讲 单元测验

1、下面的函数过程的定义语句中,不正确的是____________。
    A、Function F1( F1 ) as Integer
    B、Function F1() as Integer
    C、Function F1( n )
    D、Function F1( n% ) as Integer

2、下列子过程的定义语句中,正确的是____________。
    A、Sub S1(ByRef n%) As Integer
    B、Sub S1%(ByVal n As Integer)
    C、Sub S1(ByVal n%) As Integer
    D、Sub S1(ByVal n%)
    E、Sub S1(ByRef n As Integer)

3、在过程定义中,在形参前加_____________关键字表示传值方式。
    A、Val
    B、ByVal
    C、ByRef
    D、Value
    E、as

4、设有如下函数定义: Function fun(ByVal a%) As Integer fun = 3 * a + 4 End Function Private Sub Command1_Click() Dim n%, m% n=3 m=4 … ' 调用fun语句 … End Sub 则在Command1_Click中正确的调用语句是____________。
    A、3 = fun(4)
    B、4 = fun(n)
    C、3 = fun(m)
    D、4 = fun(3)
    E、m = fun(3)
    F、n = fun(4+n)

5、设有如下的子过程: Public Sub p1(ByRef x%, ByVal y%) x = 3 * x y = y + 1 End Sub Sub Command1_Click() Dim a%,b% a = 1: b = 2 Call p1(a, b) MsgBox( "a=" & a & " b=" & b ) End Sub 则在Command1_Click中 MsgBox 显示的结果是____________。
    A、a=1 b=2
    B、a=3 b=2
    C、a=3 b=3
    D、a=1 b=3
    E、a=4 b=4

6、设有如下的子过程: Public Sub F1(ByVal n%, ByRef m%) n = n Mod 10 m = m \ 10 End Sub Private Sub Command1_Click() Dim x%, y% x = 12: y = 34 Call F1(x, y) MsgBox( x & " " & y) End Sub 则在Command1_Click中 MsgBox 显示的结果是____________。
    A、1 3
    B、12 3
    C、2 34
    D、12 34
    E、1 4

7、子过程是没有返回值的,因此调用子过程并不能得到任何结果。

8、数组作为参数,形参必须是ByRef方式。

第10讲 过程(续)

10.1 数据的共享——变量的作用域随堂测验

1、如下程序段,要计算s=1+(1+2)+(1+2+3),已知主调程序为: Private Sub Command1_Click() Dim s%, i% For i = 1 To 3 s = s + sum(i) Next MsgBox ("s=" & s) End Sub 则下列sum函数过程正确的是__________。
    A、Function sum%(ByVal n%) Static c% c = c + n sum = c End Function
    B、Function sum%(ByVal n%) Dim c% c = c + n sum = c End Function
    C、Function sum%(ByVal n%) Public c% c = c + n sum = c End Function
    D、Function sum%(ByVal n%) Private c% c = c + n sum = c End Function

2、要在多个过程中共享某变量,可以将该变量声明为模块级变量。

10.2 常用算法——数制转换、信息加密、数据查找随堂测验

1、数制转换的函数定义如下,将100转变成16进制并在Text1中显示结果,正确的调用是____________。 Function Trans(ByVal r%, ByVal n%) As String Dim a% Do While n > 0 a = n Mod r If a > 9 Then Trans = Chr(a + 55) & Trans Else Trans = a & Trans End If n = n \ r Loop End Function
    A、Text1.Text = Trans(100, 16)
    B、Text1.Text = Trans(16, 100)
    C、Trans(Text1.Text,100, 16)
    D、Trans(Text1.Text,16, 100)

2、加密的过程是加序数,解码是减序数,下列解码函数的定义正确的是____________。
    A、Function Decoder(ByVal s$, ByVal key%) As String Dim i%, c$, n% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "a" To "z","A" To "Z" n = Asc(c) - key If n < Asc("a") Then n = n + 26 Decoder = Decoder & Chr(n) Case Else Decoder = Decoder & c End Select Next End Function
    B、Function Decoder(ByVal s$, ByVal key%) As String Dim i%, c$, n% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "a" To "z","A" To "Z" n = Asc(c) - key If n < Asc("a") or n < Asc("A") Then n = n - 26 Decoder = Decoder & Chr(n) Case Else Decoder = Decoder & c End Select Next End Function
    C、Function Decoder(ByVal s$, ByVal key%) As String Dim i%, c$, n% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "a" To "z" n = Asc(c) - key If n < Asc("a") Then n = n - 26 Decoder = Decoder & Chr(n) Case "A" To "Z" n = Asc(c) - key If n < Asc("A") Then n = n - 26 Decoder = Decoder & Chr(n) Case Else Decoder = Decoder & c End Select Next End Function
    D、Function Decoder(ByVal s$, ByVal key%) As String Dim i%, c$, n% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "a" To "z" n = Asc(c) - key If n < Asc("a") Then n = n + 26 Decoder = Decoder & Chr(n) Case "A" To "Z" n = Asc(c) - key If n < Asc("A") Then n = n + 26 Decoder = Decoder & Chr(n) Case Else Decoder = Decoder & c End Select Next End Function