VB程序设计试题及答案(一)

1 VB 程序设计试题及答案 一 程序设计试题及答案 一 一 单选题一 单选题 1 VB6 0 是一种面向是一种面向 B 的编程环境 的编程环境 A 机器机器 B 对象对象 C 过程过程 D 应用应用 2 要使要使 FormI 窗体的标题栏显示窗体的标题栏显示 欢迎使用欢迎使用 VB 以下 以下 D 语句是语句是 正确的 正确的 A Forml Caption 欢迎使用欢迎使用 VB B Forml Caption 欢迎使用欢迎使用 VB C Forml Caption 欢迎使用欢迎使用 VB D Forml Caption 欢迎使用欢迎使用 VB 3 若要使命令按钮不可操作 要对若要使命令按钮不可操作 要对 A 属性进行设置 属性进行设置 A EnabIed B Visible C Backcolor D Caption 4 如果在窗体上已经创建了一个文本框对象如果在窗体上已经创建了一个文本框对象 TextI 可以通过 可以通过 C 事件获得输入键值的事件获得输入键值的 ASCII 码 码 A Change B LostFocus C KeyPress D GotFocus 5 下面下面 A 是合法的变量名 是合法的变量名 A X yz B 123ab C integer D X Y 6 以下关系表达式以下关系表达式 中 其值为中 其值为 False 的是的是 A A ABC AbC B 女女 男男 C BASIC UCase basic D 123 O Then n n l B If sex 男男 And age 4O And duty 教授教授 Or duty 副教授副教授 Then n n l C If sex 男男 And age 4O And Right duty 2 教授教授 Then n n l D If sex 男男 And age 4O And duty 教授教授 And duty 副教授副教授 Then n n l 10 下列关于下列关于 Do Loop 循环结构执行循环次数的描述正确的是循环结构执行循环次数的描述正确的是 D A Do While Loop 循环和循环和 Do Loop Until 循环至少都执行一次循环至少都执行一次 B Do While Loop 循环和循环和 Do Loop Until 循环可能都不执行循环可能都不执行 C Do While Loop 循环至少执行一次和循环至少执行一次和 Do Loop Until 循环可能不循环可能不 执行执行 D Do While Loop 循环可能不执行和循环可能不执行和 Do Loop Until 循环至少执行循环至少执行 一次一次 11 以下以下 B 是正确的是正确的 For Next 结构 结构 A For x 1 To Step 10 B For x 3 To 3 Step 3 Next x Next x C For x 1 To 10 D For x 3 to 10 step 3 re Next x Next y If i 10 Then GoTO re 12 如下数组声明语句 如下数组声明语句 B 是正确的 是正确的 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 13 下列语句中 假定变量下列语句中 假定变量 n 有值 能正确声明可变长数组的是有值 能正确声明可变长数组的是 A A Dim a As Integer B Dim a As Integer ReDim a n ReDim a n As String C Dim a As Integer D Dim a 10 As Integer ReDim a 3 4 ReDim a n 10 ReDim Preserve a 4 4 14 要想从子过程调用后返回两个结果 下面子过程语句说明合法的是要想从子过程调用后返回两个结果 下面子过程语句说明合法的是 C A Sub f2 ByVal n ByVal m B Sub f1 n ByVal m C Sub f1 n m D Sub f1 ByVal n m 15 设有如下程序段 设有如下程序段 Public Sub F1 n n 3 n 4 End Sub Private Sub Command1 Click Dim n m n 3 m 4 调用调用 F1 语句语句 End Sub 2 则在则在 Command1 Click 事件中有效的调用语句是事件中有效的调用语句是 B A Call F1 n m B Call F1 m C Call F1 5 D Call F1 m 5 16 用来设置粗体字的属性是用来设置粗体字的属性是 C A FontItalic B FontName C FontBold D FontSize 17 假定定时器的假定定时器的 Interval 属性为属性为 1000 Enabled 属性为属性为 True 调用下 调用下 面的事件过程 程序运行结束后变量面的事件过程 程序运行结束后变量 x 的值为的值为 D Dim x As Integer Sub Timer1 Timer For i 1 to 10 x x 1 Next i End Sub A 1000 B 10000 C 10 D 以上都不以上都不 对对 18 在下列关于通用对话框的叙述中 错误的是在下列关于通用对话框的叙述中 错误的是 B A CommonDialog1 ShowFont显示显示 字体字体 对话框对话框 B 在在 打开打开 或或 另存为另存为 对话框中 用户选择的文件名可以经对话框中 用户选择的文件名可以经 FileTitle 属性返回属性返回 C 在在 打开打开 或或 另存为另存为 对话框中 用户选择的文件名机器路径可以对话框中 用户选择的文件名机器路径可以 经经 FileName 属性返回属性返回 D 19 当用户按下并且释放一个键后会触发当用户按下并且释放一个键后会触发 KeyPress KeyUp 和和 KeyDown 事件 这三个事件发生的顺序是事件 这三个事件发生的顺序是 C A KeyPress KeyDown KeyUp B KeyDown KeyUp KeyPress C KeyDown KeyPress KeyUp D 没有规律没有规律 20 在下面关于顺序文件的描述中 正确的是在下面关于顺序文件的描述中 正确的是 C A 顺序文件中每行的长度都是相同的 顺序文件中每行的长度都是相同的 B 可以通过编程对文件中的某行方便地进行修改可以通过编程对文件中的某行方便地进行修改 C 数据以数据以 ASCII 码的形式存放在文件中 所以可通过记事本打开码的形式存放在文件中 所以可通过记事本打开 D 文件的组织结构复杂文件的组织结构复杂 21 随机文件是因为随机文件是因为 C A 文件中的内容是通过随机数产生的文件中的内容是通过随机数产生的 B 文件中的记录号通过随机数产生的文件中的记录号通过随机数产生的 C 可对文件中的记录根据记录号随机地读可对文件中的记录根据记录号随机地读 写写 D 文件的每条记录的长度是随机的文件的每条记录的长度是随机的 22 从磁盘上读入一个文件名为从磁盘上读入一个文件名为 c t1 txt 顺序文件 如下顺序文件 如下 A 正确 正确 A F c t1 txt Open F For Input As 1 B F c t1 txt Open F For Input As 2 C Open c t1 txt For Input As 1 D Open c t1 txt For Input As 2 23 坐标度量单位可由通过来坐标度量单位可由通过来 D 改变 改变 A Drawstyle 属性属性 B DrawWidth 属性属性 C Scale 方法方法 D ScaleMode 属性属性 24 指令指令 Circle 1000 1000 500 8 6 3 将绘制将绘制 A A 画圆画圆 B 椭圆椭圆 C 圆弧圆弧 D 扇形扇形 25 用用 ADO 数据控件建立与数据源的链接 设置操作过程按数据控件建立与数据源的链接 设置操作过程按 A 顺顺 序进行 序进行 选择数据源连接方式 选择数据源连接方式 选择数据库类型 选择数据库类型 指定数据库文件名 指定数据库文件名 指定记录源指定记录源 A B C D 二 填空题二 填空题 1 VB 是建立在是建立在 BASIC 语言基础上的语言基础上的 可见可见 化编程语言或编程化编程语言或编程 环境 环境 2 在窗体上已建立多个控件如 在窗体上已建立多个控件如 Text1 Label1 Command1 若要程 若要程 序一运行时焦点就定位在序一运行时焦点就定位在 Command1 控件上 应对控件上 应对 Command1 控件控件 设置设置 TabIndex 属性的值为属性的值为 0 3 在 在 VB 中 中 1234 Next i End Sub 2 用递归的方法求用递归的方法求 n Private Sub Command1 Click Print fac 4 fac 4 End Sub Public Function fac As Integer If n 1 Then fac 1 Else Fac fac n End If End Function VB 程序设计试题及答案 三 程序设计试题及答案 三 一 单选题一 单选题 6 1 Visual Basic 是一种面向对象的可视化程序设计语言 采取了是一种面向对象的可视化程序设计语言 采取了 A 的编程机制 的编程机制 A 事件驱动事件驱动 B 按过程顺序执行按过程顺序执行 C 从主程序开始执行从主程序开始执行 D 按模块顺序执行按模块顺序执行 2 若要使标签控件显示时不覆盖其背景内容 要对若要使标签控件显示时不覆盖其背景内容 要对 D 属性进行设置 属性进行设置 A Backcolor B BorderStyle C Forecolor D Backstyle 3 在在 Visual Basic 中最基本的对象是中最基本的对象是 C 它是应用程序的基石 它是应用程序的基石 是其他控件的容器 是其他控件的容器 A 文本框文本框 B 命令按钮命令按钮 C 窗体窗体 D 标签标签 4 要判断在文本框是否按下要判断在文本框是否按下 Enter 键 应在文本框的键 应在文本框的 D 事件中判断 事件中判断 A Change B KeyDown C Click D KeyPress 5 数学表达式数学表达式 3 x l0 在在 VB 中的逻辑表达式为中的逻辑表达式为 D A 3 x 10 B 310 C x 3 Or x 3 AND xy x y B If x y Then Max x Else Max y C Max x D Ify x Then Max y If y x Then Max y Max x 10 当在文本框中输入当在文本框中输入 ABCD 4 个字符时 窗体上显示的是个字符时 窗体上显示的是 C Private Sub Text1 Change Print Text1 End Sub A ABCD B A C AABABCABCD D A B AB C ABC D ABCD 11 下列哪个程序段不能分别正确显示下列哪个程序段不能分别正确显示 1 2 3 4 的值 的值 B A For i 1 to 4 B For i 1 to 4 n 1 For j 1 to i For j 1 to I n 1 n n j n n j Next j Next j Print n Print n Next I Next i C n 1 D n 1 For j 1 to4 j 1 n n j Do While j 0 And a c b 3 Or Not d 的值是的值是 False 5 要获得动态数组的上界通过 要获得动态数组的上界通过 UBound 函数 下界通过函数 下界通过 LBound 函数 函数 6 由 由 Array 函数建立的数组 其变量类型必须是函数建立的数组 其变量类型必须是 variant 类型 类型 7 VB 中的变量按其作用域分为全局变量 模块变量和中的变量按其作用域分为全局变量 模块变量和 局局 部变量部变量 变量 变量 8 复选框的 复选框的 Value 属性设置为属性设置为 2 Grayed 时 变成灰时 变成灰 色 禁止用户选择 色 禁止用户选择 9 滚动条响应的重要事件有 滚动条响应的重要事件有 Scroll 和和 Change 10 假定有一个通用对话框控件 假定有一个通用对话框控件 CommonDialog1 除了用 除了用 COmmonDialog1 Action 3 显示颜色对话框之外 还可以用显示颜色对话框之外 还可以用 showcolor 方法显示 方法显示 11 窗体 窗体 Form1 的左上角坐标为的左上角坐标为 200 250 窗体 窗体 Form1 的的 右下角的坐标为右下角的坐标为 300 150 则 则 X 轴的正向向轴的正向向 右右 Y 轴轴 的正向向的正向向 上上 12 使用 使用 Circle 方法画扇形 起始角 终止角取值范围为方法画扇形 起始角 终止角取值范围为 0 2 13 在运行状态改变 在运行状态改变 ADO 数据控件的数据源连接属性后 数据控件的数据源连接属性后 必须使用必须使用 Refresh 方法激活这些变化 方法激活这些变化 14 VB 中工程文件的扩展名为中工程文件的扩展名为 vbg 15 如果在窗体上已经创建了一个文本框对象 如果在窗体上已经创建了一个文本框对象 Text1 可以 可以 通过通过 Keypress 事件获得输入键值的事件获得输入键值的 ASCII 码 码 8 16 VB 中对象的三要素是中对象的三要素是 属性属性 事件事件 和和 方法方法 三 编程应用题三 编程应用题 1 程序阅读程序阅读 1 Private Sub Command1 Click Dim s as String i s abcd For i Len s to 1 step 1 Print Mid s i 1 Next i End Sub 输出结果 输出结果 d c b a 2 Sub Swap1 ByVal x ByVal y Dim t t x x y y t End Sub Sub Swap2 ByRef x ByRef y Dim t t x x y y t End Sub Sub Command1 Click Dim a b a 10 b 20 Print 调用调用 Swap1 前前 a 和和 b 的值为 的值为 a b Call Swap1 a b Print 调用调用 Swap1 后按传值方式后按传值方式 a 和和 b 的值的值 为 为 a b a 10 b 20 Call Swap2 a b Print 调用调用 Swap2 后按传地址方式后按传地址方式 a 和和 b 的的 值为 值为 a b End Sub 输出结果输出结果 调用调用 Swap1 前前 a 和和 b 的值为 的值为 10 20 调用调用 Swap1 后按传值方式后按传值方式 a 和和 b 的值为 的值为 10 20 调用调用 Swap2 后按传地址方式后按传地址方式 a 和和 b 的值为 的值为 20 10 3 Private Sub Command1 Click Dim x y z x 242 y 44 z x y Do Until x y If x y Then x x y Else y y x Loop Print x z x End Sub 输出结果输出结果 22 484 2 补充程序补充程序 1 以下是求以下是求 1 18 之间某个数的阶乘的程序 具体的数值之间某个数的阶乘的程序 具体的数值 n 由滚动由滚动 条条 HScroll1 获得 结果显示在窗体下部的两个获得 结果显示在窗体下部的两个 Label 标签里 补充完标签里 补充完 整如下程序 整如下程序 Private Sub HScroll1 Change Dim i As Integer s As Double s 1 n Hscroll1 Value If n 0 Then For i 1 To n s s i Next i End If Label2 Caption n Max MIN Min End Sub 2 若 若 A2 B2 C2 则则 A B C 称为一组勾股数 如下程序是找出称为一组勾股数 如下程序是找出 10