VB复习题(含答案)

1 第一部分 单选 填空 程序填空 读程序写结果 VB 考试一 1 能够获得一个文本框中被选取文本的内容的属性是 A SelStart B SelLength C SelText D Text 参考答案 C 2 在窗体上画一个文本框 其名称为 Text1 为了在程序运行后 隐藏该文本框 应当使用的语句为 A Text1 Enabled False B Text1 Hide C Text1 Clear D Text1 Visible False 参考答案 D 3 对于语句 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 为赋值语句 参考答案 D 4 以下变 量名中 是不符合 Visual Basic 的命名规范的 A mnu Open 234 B Abc901 C price D K 参考答案 A 5 MsgBox 函数返回值的类型是 A 数值或字符串 B 字符 串 C 变体 D 整型数值 参考答案 D 6 VB 一共有设计 运行和中断三种模式 要使用调试 工具应该 A 进入中断模式 B 进入运行模式 C 进入设计模式 D 不用进入任何模式 参考答案 A 7 设 a 6 则执行 x IIF a 5 1 0 后 x 的值为 A 1 B 6 C 0 D 5 参考答案 A 8 可以同时删除字符前导和尾部空白的函数是 A Mid B Rtrim C Trim D Ltrim 参考答案 C 9 以下语句的输出结果是 Print Format 32548 5 000 000 00 2 A 32 548 5 B 32548 5 C 032 548 50 D 32 548 50 参考答案 C 10 设有如下声明 Dim X As Integer 如果 Sgn X 的值为 1 则 X 的值是 A 等于 0 的整数 B 大于 0 的整数 C 整数 D 小于 0 的整数 参考答案 D 11 在窗体上画一个命令按钮 然后编写如下事件过程 Private Sub Command1 Click For i 1 To 4 x 4 For j 1 To 3 x 3 For k 1 To 2 x x 6 Next k Next j Next i Print x End Sub 程序运行后 单击命令按钮 输出结果是 参考答案 15 15 15 15 12 执行下 面的程序段后 S 的值为 s 5 For i 2 6 To 4 9 Step 0 6 s s 1 Next i 参考 答案 9 13 下列表达式有错误 正确的写法应该是 a b c 80 5 d e 参考答案 a b c 80 5 d e a b c 80 5 d e 14 表示 x 是 5 的倍数或是 9 的倍数的逻辑表达式为 参考答案 x Mod 5 0 Or x Mod 9 0 x Mod 9 0 Or x Mod 5 0 15 以下程序的功能 是 从键盘上输入若干个数字 当输入负数时结束输入 统计出若干数字的平均值 输出结果 请填空 3 Private Sub Form click Dim x y As Single Dim z As Integer x InputBox Enter a score Do while x 0 y y x z z 1 x InputBox Enter a score Loop If z 0 Then z 1 End If y Print y End Sub 参考答案 y z VB 考试二 1 列表框中的列表项的数目可以通过以下哪个属性的值获得 A ListIndex B ListCount C Count D Index 参考答案 B 2 在窗体上画一个名称为 List1 的列表框 一个 名称为 Label1 的标签 列表框中显示若干城市的名称 当单击列表框中的某个城市名时 在标签中显示选 中城市的名称 下列能正确实现上述功能的程序是 A Private Sub List1 Click Label1 Caption List1 Text End Sub B Private Sub List1 Click Label1 Name List1 ListIndex End Sub C Private Sub List1 Click Label1 Name List1 Text End Sub D Private Sub List1 Click Label1 Caption List1 ListIndex End Sub 参考答案 A 3 在列表框中当前被 选中的列表项的序号是由下列哪个属性表示 A Listindex B Index C List D Tabindex 参考答案 A 4 为了清除列表框中的所有内容 应使用的方法是 A Clear B Remove C RemoveItem D Cls 参考答案 A 5 在窗体上画一个名称为 List1 的列表框 为了对列表框中 2 的每个项目都能进行处理 应使用的循环语句为 A For i 1 To List1 ListCount NEXT B For i 0 To List1 Count 1 NEXT C For i 0 To List1 ListCount 1 NEXT D For i 1 To List1 Count NEXT 参考答案 C 6 设有如下 程序 Option Base 0 Private Sub Form Click Dim a Dim i As Integer a Array 1 2 3 4 5 6 7 8 9 For i 0 To 3 Print a 5 i Next End Sub 程序运行后 单击窗体 则在窗体 上显示的是 A 6 5 4 3 B 5 4 3 2 C 4 3 2 1 D 7 6 5 4 参考 答案 A 7 设执行以下程序段时依次输入 1 3 5 执行结果为 Dim a 4 As Integer b 4 As Integer For K 0 To 2 a K 1 Val InputBox 请输入数据 b 3 K a K 1 Next K Print b K A 0 B 3 C 5 D 1 参考答案 D 8 在窗体上画一个名称为 Command1 的命令按钮 然后编写如下程序 Private Sub Command1 Click Dim i As Integer j As Integer Dim a 10 10 As Integer For i 1 To 3 For j 1 To 3 a i j i 1 3 j Print a i j Next j Print Next i End Sub 程序运行 后 单击命令按钮 窗体上显示的是 A 1 2 3 4 5 6 7 8 9 B 2 3 4 3 4 5 4 5 6 C 1 4 7 2 5 8 3 6 9 D 1 2 3 2 4 6 3 6 9 参考答案 A 9 用下面的语句所定义的数组的元素个数是 Dim arr 3 To 5 2 to 2 A 24 B 12 C 15 D 20 参考答案 C 10 下列 语句可以为动态数组 分配实际元素个数 A static 语句 B Dim 语句 C public 语句 D ReDim 语句 参考答案 D 11 假定程序中有以下语句 answer MsgBox String1 String2 String3 2 执行该语句后 将显示 一个信息框 此时如果单击 确定 按钮 则 answer 的值为 A String3 B String2 C String1 D 1 参考答案 D 6 12 设有语句 x InputBox 输入数值 0 示例 程序运行后 如果从键盘上输入数值 10 并按 回车键 则下列叙述中正确的是 A 0 是默认值 B 变量 X 的值是字符串 10 C 在 InputBox 对话框标题栏中显示的是 示例 D 变量 X 的值是数值 10 参考答案 B 13 以下程序 段运行的结果是 Dim a 1 To 5 As Boolean Dim flag As Boolean flag False Dim i As Integer Dim j As Integer Do Until flag True For i 1 To 5 j j 1 If a i False Then a i True Exit For End If If i 5 Then flag True End If Next Loop Print j A 20 B 7 C 8 D 35 参考答案 D 14 设 a 5 b 6 c 7 d 8 则执行下列语句后 x 的值为 x IIF a b And c 0 Then Func x Else Func y End If End Function Private Sub Command1 Click Dim a As Integer b As Integer a 3 b 4 c Func a b Print a a Print b b Print c c End Sub 程序运行后 单击命令按钮 其输出结果为 A a 3 b 4 c 12 B a 13 b 12 c 12 C a 3 b 4 c 3 D a 3 b 12 c 3 参考答 案 D 题分 6 3 单击命令按钮时 下列程序代码的执行结果为 Public Sub Procl n As Integer ByVal m As Integer n n Mod 10 m m 10 3 8 End Sub Private Sub Command1 Click Dim x As Integer y As Integer x 12 y 34 Call Procl x y Print x y End Sub A 12 3 B 2 3 C 12 34 D 2 34 参考答案 D 题分 6 4 以下关于函数过程的叙述中 正确的是 A 在函数过程中 过程的返回值 可以有多个 B 函数过程形参的类型与函数返回值的类型没有关系 C 当数组作为函数过程的参数 时 既能以传值方式传递 也能以传址方式传递 D 如果不指明函数过程参数的类型 则该参数没有数 据类型 参考答案 B 题分 6 5 以下说法错误的是 A 函数过程可以带参数 B 子过程没有返回值 C 函数过程没有返回值 D 子过程可以带参数 参考答案 C 题分 6 6 在窗体上画一个命令按钮 名称为 Command1 然后编写如下事件过程 Private Sub Command1 Click Dim b As Integer b b 1 End Sub 运行程序 三次单击命令按钮后 变量 b 的值是 A 2 B 1 C 0 D 3 参考答案 B 题分 6 7 假定有以下函数过程 Function Fun S As String As String Dim s1 As String For i 1 To Len S s1 UCase Mid S i 1 s1 Next i Fun s1 End Function 在窗体上画一个命令按钮 然后编写如下事件过程 Private Sub Command1 Click Dim Str1 As String Str2 As String Str1 InputBox 请输入一个字符串 Str2 Fun Str1 Print Str2 End Sub 程序运行后 单击命令 按钮 如果在输入对话框中输入字符串 abcdefg 则单击 确定 按钮后在窗体上的输出结果为 A GFEDCBA B ABCEDFG C gfedcba D abcdefg 参考答案 A 题分 6 8 Sub 过程与 Function 过程最根本的区别是 A 两种过程参数的传递方式不同 B Function 过程可以有参 数 Sub 过程不可以 C Sub 过程可以使用 Call 语句或直接使用过程名调用 而 Function 过程不可以 D Sub 过程的过程名不能返回值 而 Function 过程能通过过程名返回值 参考答案 D 题分 6 9 在代码中定义了一个子过程 Sub P a b End Sub 下面 调用该过程的格式是正确 的 A Call P B Call P 10 20 C P 10 20 D Call P 10 20 参考答案 D 题分 6 10 在窗体上画一个名称为 Command1 的命令按钮 然后编写如下程序 Private Sub Command1 Click Static X As Integer Static Y As Integer Cls Y 1 Y Y 5 X 5 X Print X Y End Sub 程序运行时 三次单击命令按钮 Command1 后 窗体上显示的结果为 A 15 15 B 15 6 C 15 16 D 5 6 参考答案 B 题分 6 11 设有以下循环结构 Do 循环体 Loop While 则以下叙述中错误的是 A 循环体中可以使用 Exit Do 语句 B 条件 可以是关系表达式 逻辑表达式或常数 C 若 条件 是一个为 0 的常数 则一次也不执行循环体 D 如果 条件 总是为 True 则不停地执行循环体 参考答案 C 题分 6 12 在窗体上画一个名称为 Command1 的命令 按钮 然后编写如下通用过程和命令按钮的事件过程 Private Function fun ByVal m As Integer If m Mod 2 0 Then fun 2 Else fun 1 End If End Function Private Sub Command1 Click Dim i As Integer s As Integer s 0 For i 1 To 5 s s fun i Next Print s End Sub 程序运行后 单击命令按钮 在窗体上显示是 A 7 B 6 C 8 D 9 参考答案 A 题分 6 VB 考试四 1 某人编写了如下程序 用来求 10 个整数 整 数从键盘输入 中的最大值 Private Sub Command1 Click Dim a 10 As Integer max As Integer For k 1 To 10 a k InputBox 输入一个整数 Next k max 0 For k 1 To 10 If a k max Then max a k End If Next k Print max End Sub 运行程序时 发现 当输入 10 个正数时 可以得到正确结果 但输入 10 个负数时结果是错误的 程序需要修改 下面 的修改中可以得到正确运行结果的是 A 把 max a k 改为 a k max B 把 If a k max Then 改为 If a k max Then C 把第 2 个循环语句 For k 1 To 10 改为 For k 2 To 10 D 把 max 0 改为 max a 10 参考答案 D 2 设有语句 Open d Test txt For Output As 1 以下叙述中错误的是 A 执行该语句后 就可以通过 Print 语句向文件 Test txt 中写入信息 B 用该语句建立的文 4 件的文件号为 1 C 该语句打开 d 盘根目录下一个已存在的文件 Test txt 之后就可以从文件中读取信 息 D 若 d 盘根目录下无 Test txt 文件 则该语句创建此文件 参考答案 C 3 工程中有 2 个窗体 名称分别为 Form1 Form2 Form1 为启动窗体 该窗体上有命令按钮 Command1 要求程序运行后单击该 命令按钮时显示 Form2 则按钮 Click 事件过程应该是 A Private Sub Command1 Click Form2 Load End Sub B Private Sub Command1 Click Form2 Visible End Sub C Private Sub Command1 Click Load Form2 End Sub D Private Sub Command1 Click Form2 Show End Sub 参考答案 D 4 在窗体上画一个名为 Command1 的命令按钮 然后编写 如下代码 Option Base 1 Private Sub Command1 Click Dim a a Array 1 2 3 4 j 1 For i 4 To 1 Step 1 s s a i j j j 10 Next i Print s End Sub 运行上面的程序 其输出结果是 A 12 B 1234 C 34 D 4321 参考答 案 B 5 设在窗体中有一个名称为 List1 的列表框 其中有若干个项目 如图 要求选中某一项后 单击 Command1 按钮 就删除选中的项 则正确的事件过程是 A Private Sub Command1 Click List1 Clear List1 ListIndex End Sub B Private Sub Command1 Click List1 Clear End Sub C Private Sub Command1 Click List1 RemoveItemList1 ListIndex End Sub D Private Sub Command1 Click List1 RemoveItem End Sub 参考答案 C 6 窗体 上有一个名称为 Frame1 的框架 如图 若要把框架上显示的 Frame1 改为汉字 框架 下面正确的语句 是 A Frame1 Caption 框架 B Frame1 Name 框架 C Frame1 Text 框 架 D Frame1 Value 框架 参考答案 A 7 设窗体上有一个图片框 Picture1 要在程序运行 期间装入当前文件夹下的图形文件 13 File1 jpg 能实现此功能的语句是 A Call LoadPicture File1 jpg B Picture1 Picture LoadPicture File1 jpg C LoadPicture File1 jpg D Picture1 Picture File1 jpg 参考答案 B 8 在窗体上画一个名称为 Timer1 的计时器控件 要求每隔 0 5 秒发生一次计时器事件 则以下正确的属性设置语句是 A Timer1 Interval 50 B Timer1 Interval 5 C Timer1 Interval 0 5 D Timer1 Interval 500 参考答案 D 9 在窗体上画一个通用对话框 其名称为 CommonDialog1 然后画一个命令按钮 并编写如下事件过程 Private Sub Command1 Click CommonDialog1 Filter All Files Text Files Format a 1 For i 1 To n Print Tab 2 n i 1 For j i 1 To 1 Step 1 a j a j 1 a j Print Format a j Next j Print Edit By Jia Haiping Next i End Sub 杨辉三角形的每一行是 x y n 的展开式的各项的 系数 例如第 1 行是 x y 0 其系数为 1 第 2 行为 x y 1 其系数为 1 第 3 行为 x y 2 其展开式为 x2 2xy y2 系数分别为 1 2 1 2 排序 冒泡法 选择法排序在每一轮排序时找最小 递增次序 数 的下标 出了内循环 一轮排序结束 再交 换最小数的位置 而冒泡法排序在每一轮排 序时只要将第一个与其他几个比较 只要次 序不对 就交换 出了内循环 最小数已冒 出 排序进行的过程见下表 Private Sub Form Click dim a 1 To 6 As Integer n as integer n 6 For I 1 To n a I InputBox 请输入 6 个数 升序 Next I For I 1 To n 1 进行 n 1 轮比较 For j I 1 To n If a j a I Then 若次序不对 则马上进行交换位 置 t a j a j a I a I t End If Next j 出了内循环 一轮排序结束 最小数已冒 到最上面 Next I For I 1 To n Print a I Next I End Sub 3数组排序 选择法 对已知存放在数组中的 n 个数 用选择法按递增顺 序排序 1 从 n 个数的序列中选出最小的数 递增 与第 1 个数交换位置 Edit By Jia 10 2 除第 1 个数外 其余 n 1 个数再按 1 的方法选 出次小的数 与第 2 个数交换位置 3 重复 1 n 1 遍 最后构成递增序列 Private Sub Form Click dim a 1 To 6 As Integer n as Integer n 6 For I 1 To n a I InputBox 请输入 6 个数 升序 Next I For I 1 To n 1 P I For j I 1 To n If a j a p Then p j Next j t a I a I a p a p t Next I For I 1 To n Print a I Next I End Sub 4 这两个通用过程分别用来求 3 个数中的最大值 和最小值 各有 3 个形参 都使用传值方式 在下 面的事件过程中调用这两个过程 分别求 3 个 5 个 7 个数中的最大 最小值 Private Sub Form Click 求 3 个数的最大和最小值 Print Print 3 个数 34 124 68 的最大值是 Max 34 124 68 Print 3 个数 34 124 68 的最小值是 Min 34 124 68 求 5 个数的最大和最小值 Print Print 5 个数 34 124 68 73 352 的最大值是 Max1 Max 34 124 68 Max1 Max Max1 73 352 Print Max1 Print 5 个数 34 124 68 73 352 的最小值 是 Min1 Min 34 124 68 Min1 Min Min1 73 352 Print Min1 求 7 个数的最大和最小值 Print Print 7 个数 34 124 68 73 352 493 25 的 最大值是 Max1 Max 34 124 68 Max1 Max Max1 73 352 Max1 Max Max1 493 25 Print Max1 Print 7 个数 34 124 68 73 352 493 25 的最小值是 Min1 Min 34 124 68 Min1 Min Min1 73 352 Min1 Min Min1 493