理论2012-带答案.doc

Visual Basic 6 0程序设计程序设计 练练 习习 册册 诚毅学院计算机教研室诚毅学院计算机教研室 版本版本 No 4 No 4 目录目录 目录目录 1 第一 二章理论复习题第一 二章理论复习题 2 第三 四章理论复习题第三 四章理论复习题 12 第五章理论复习题第五章理论复习题 23 第六章理论复习题第六章理论复习题 36 第七章理论复习题第七章理论复习题 49 第八章理论复习题第八章理论复习题 54 第九章理论复习题第九章理论复习题 63 第十一章理论复习题第十一章理论复习题 66 第十二章理论复习题第十二章理论复习题 69 第一 二章理论复习题第一 二章理论复习题 1 标准模块文件的扩展名是 A cls B frm C bas D res 2 有程序代码 Text1 Text Visual Basic 则 Text1 Text 和 Visual Basic 分别代表 A 对象 值 属性 B 对象 方法 属性 C 对象 属性 值 D 属性 对象 值 3 命令按钮能响应 事件 A Scroll B Change C DblClick D KeyPress 4 下列不是 VB6 0 的特点是 A 事件驱动的编程机制 B CAD 技术 C 可视化设计平台 D Active 技术 5 下列可以打开立即窗口的操作是 A Ctrl D B Ctrl E C Ctrl F D Ctrl G 6 当一个工程含有多个窗体时 其中的启动窗体是 A 最后一个添加的窗体 B 存盘时正在编辑的窗体 C 第一个添加的窗体 D 在 工程属性 对话框指定的窗 体 7 下列不能打开属性窗体的操作是 A 执行 视图 菜单中的 属性窗口 命令 B 按 F4 键 C 按 Ctrl T D 单击工具栏上的 属性窗口按钮 8 以下不能在 工程资源管理器 窗口中列出的文件类型是 A Bas B Res C Frm D ocx 9 为了在按回车键时执行某个命令按钮的事件过程 需要把该命令按钮的一个 属性设置为 True 这个属性是 A Value B Default C Cancel D Enabled 10 当文本框的 属性设置为 True 时 文本框控件相当于标签的作用 A Visible B Locked C Enabled D Multiline 11 VB 应用程序在 模式下不能编辑代码和设计界面 A 运行 B 中断 C 设计 D 以上均不能 12 为了在运行时不显示窗体的标题栏 必须把窗体的 BorderStyle 属性设 置为 A 0 B 1 C 2 D 5 13 若要命令按钮具有图形特性可通过下列 属性来设置 A BackStyle B Style C BordeStyle D Appearance 14 任何控件都具有的属性是 A Text B Name C Caption D Value 15 下列 是合法的变量名 A 12ab B a 1 C ab D integer 16 下列可作为 Visual Basic 变量名的是 A A A B 4A C xy D constA 17 VB6 0 所有控件均有 属性 A Name 和 Caption B Visible 和 Tag C Width 和 Height D Enabled 和 Top 18 下列叙述中正确的是 A VB 的事件由用户定义 B VB 程序以顺序方式执行 C VB 程序从 Main 函数 开始执行 D VB 运行时 总是等待事件的发生 19 设置标签的 属性 可改变其文字对齐方式 A Justify B Font C Alignment D 以上都不是 20 设置命令按钮的 属性 可以使指针指向该按钮时显示提示内容 A Caption B Tooltiptext C Font D Tag 21 设置窗体的 属性可以改变窗体的标题 A Caption B Name C Backcolor D Boderstyle 22 假定窗体上有一个标签 名为 Labell 为了使该标签透明并且没有边框 则下列属性设置正确的是 A Labell BackStyle 0 Labell BorderStyle 0 B Labell BackStyle 0 Labell BorderStyle 1 C Labell BackStyle True Labell BorderStyle False D Labell BackStyle False Labell BorderStyle True 23 设置 属性使标签 Label1 没有边框 A Label1 BorderStyle 0 B Label1 BorderStyle 1 C Label1 BorderStyle True D Label1 BorderStyle False 24 要在工程中删除窗体 应使用 工程 下拉菜单中的 命令 A Delete B Erase C Move D Remove 25 如果命令按钮的 Caption 属性包含 则按下 Alt C 可激活该按钮 A End Sub Private Sub Label1 DblClick Print 4 End Sub A 2 4 B 24 C 24 D 4 61 下列关于窗体 Show 方法和 Hide 方法的叙述 错误的是 A 调用 Show 方法与设置窗体的 Visible 属性为 True 具有相同的效果 B 调用 Hide 方法与设置窗体的 Visible 属性为 False 具有相同的效果 C 调用 Show 方法时 如果窗体没有事先装入 系统将自动触发 Load 事 件 装入该窗体再显示 D 调用 Hide 方法时 如果窗体还没有装入 则程序将出错 62 在窗体上画一个名称为 Commandl 的命令按钮 然后编写如下事件过程 Private Sub Commandl Click Command1 Move 300 300 End Sub 程序运行后 单击命令按纽 执行的操作为 A 命令按纽向左 上方向各移动 300 B 命令按纽移动到距窗体左边界 上边界各 300 的位置 C 窗体向左 上方向各移动 300 D 窗体移动到距屏幕左边界 上边界各 300 的位置 63 以下关于窗体的叙述中 错误的是 A 窗体的 Enabled 属性用于设置窗体及窗体上的控件是否响应事件 B 窗体的 Hide 方法用于从内存中删除窗体 C 窗体的 Cls 方法用来清除窗体上运行时打印的文本或绘制的图形 D 窗体的 MaxButton 属性只能在设计状态设置 64 通过 属性设置窗体图标 A Picture B DownPicture C MouseIcon D Icon 65 下列叙述中 错误的是 A 标签具有 Caption 属性 而文本框没有 B 标签和文本框都有 Multiline 属性 C 标签具有 AutoSize 属性 而文本框没有 D 文本框具有 ScrollBar 属性 而标签没有 66 要使一个命令按钮显示文字 确定 正确的设置是把该命令按钮的 A Font 属性设置为 确定 B ForeColor 属性设置为 确定 C Caption 属性设置为 确定 D BorderStyle 属性设置为 确定 67 下列叙述中正确的是 A Visual Basic 的事件由用户定义的 B Visual Basic 的程序是由 Main 函数开始执行 C Visual Basic 的程序是以顺序方式执行的 D 保存一个 Visual Basic 程序 应分别保存窗体模块 标准模块和工程文 件 68 当命令按钮控件 Command1 的 Enabled 的属性被设为 False 时 该控件 A 不可见 不能响应事件 B 变为灰色 但能响应事件 C 变为灰色 不能响应事件 D 可见并且能响应事件 69 当程序在运行过程中因某种原因中断时 VB 进入 模式 A 设计 B 运行 C 中断 D 编程 70 下列叙述错误的是 A 窗体本是也是一个对象 有自己的属性 事件和方法 B Appearance 属性用于在窗体上设置要显示的图形 C 一旦装载窗体 就会自动产生 Load 事件 D 卸载窗体时触发 Unload 事件 71 有关程序代码窗口说法错误的是 A 在窗口的垂直滚动条的上面 有一个 拆分栏 利用它可以把窗口分 为两部分 每个窗口显示代码的一部分 B 双击控件设计窗体可以打开程序代码窗口 C 在程序代码窗口左下角有两个按钮 可以选择全模块或者是过程查看 D 在默认情况下 窗体的事件是 Load 72 要使标签控件显示时不覆盖其背景内容 要对 属性进行设置 A BackColor B ForeColor C BorderStyle D BackStyle 73 用自定义的鼠标指针 必须将 MousePointer 属性设置为 A 0 B 15 C 3 D 99 74 要使窗体显示在屏幕的中央 应设置属性 StartUpPosition 为 A 0 B 1 C 2 D 3 75 当程序中断修改后再运行时 VB 进入 模式 A 设计 B 编程 C 运行 D 中断 76 在立即窗口中运行以下语句 对其输出结果的描述中 正确的是 a Beijing b Shanghai Print a b A Beijing 和 Shanghai 前面有 7 个空格 B Beijing 和 Shanghai 前面没有空格 C Beijing 和 Shanghai 中间有 1 个空格 D Beijing 和 Shanghai 中间有 6 个空格 77 如果一个工程含有多个窗体及标准模块 下列叙述中错误的是 A 用 Hide 方法将从内存中清除该窗体 B 如果含有 Sub Main 过程 程序首先执行该过程 C 不能把标准模块设置为启动模块 D 任何时刻最多只有一个窗体是活动窗体 78 VB 是一种面向 的程序设计语言 A 用户 B 对象 C 过程 D 方法 79 对于窗体 属性在程序运行后不能改变 A Left B BorderStyle C Name D Caption 80 向文本框输入字符时 会触发 事件 A MouseMove B Click C KeyPress D LostFocus 81 以下关于控件属性的描述中 对命令按钮来说不正确的是 A Font 用来设置字体 B BackColor 用来设置背景颜色 C Caption 用来设置标题 D ForeColor 用来设置前景色 82 程序运行时 不由系统触发的事件是 A UnLoad B MouseUp C Initialize D Load 83 在窗体上画一个名称为 Commandl 的命令按钮 然后编写如下事件过程 Private Sub Commandl Click Move 300 200 End Sub 程序运行后 单击命令按纽 执行的操作为 A 命令按纽移动到距窗体左边界 300 上边界 200 的位置 B 窗体向左移动 300 向上移动 200 C 窗体移动到距屏幕左边界 300 上边界 200 的位置 D 命令按纽移动到距窗体上边界 300 左边界 200 的位置 84 对象本身的行为称为 A 方法 B 属性 C 过程 D 事件 85 标签没有 属性 A Visible B Enabled C Caption D Text 86 以下叙述中 错误的是 A 文本框的 PasswordChar 属性可以设置密文的长度 B 设置文本框的 MaxLength 属性 可限制文本框中能输入文本的最大长 度 C 当文本框的内容发生变化时 必将触发 Change 事件 D 文本框的内容在程序运行时是可以编辑的 87 要使一个命令按钮显示图片 正确的设置是把该命令按钮的 A Style 属性设置为 1 B Style 属性设置为 0 C Picture 属性中选择一个图片文件 D Style 属性设置为 1 同时 Picture 属性中选择一个图片文件 88 以下 是窗体卸载时发生的事件 A GotFocus B Load C UnLoad D Click 89 当控件失去焦点时 触发的事件是 A GotFocus B SetFocus C LostFocus D MoveFocus 90 当文本框的 TabStop 属性设为 False 时 下列叙述正确的是 A 该文本框无法获得焦点 B 无法在该文本框中输入文本 C 焦点将始终停留在该文本框上 D 该文本框无法通过使用 Tab 键获得焦点 91 使用 语句可使窗体的鼠标指针呈现 沙漏 型 A Me MousePointer vbArrow B Me MousePointer vbCustom C Me MousePointer vbCross D Me MousePointer vbHourglass 92 在程序运行时 按 Tab 键跳过了一个可以获得焦点的控件 如文本框 这 可能是因为 A 该控件的 Enabled 属性为 True B 该控件的 Enabled 属性为 False C 该控件的 TabStop 属性为 True D 该控件的 TabStop 属性为 False 93 下列叙述中 错误的是 A 单击命令按钮可触发 MouseDown 事件 B 单击命令按钮可触发 MouseUp 事件 C 命令按钮支持单击事件 D 命令按钮支持双击事件 94 执行 语句 可使窗口的按钮 Command1 上显示 确定 A Command1 Show 确定 B Command1 Caption 确定 C Command1 Name 确定 D Command1 Visible 确定 95 下列语句 可以使命令按钮 Command1 处于禁止状态 A Command1 Enabled False B Command1 Disabled False C Command1 Enabled True D Command1 Disabled True 96 应通过 属性装入命令按钮处于激活状态时显示的图片 A Picture B EnabledPicture C DownPicture D DisabledPicture 97 下列语句 可以设置命令按钮 Command1 的标题字体为黑体 A Command1 Caption Name 黑体 B Command1 Font 黑体 C Command1 Font FontName 黑体 D Command1 FontName 黑体 98 要设计一个图形方式的命令按钮 且按钮被按下与不按下时显示不同的 图像 可通过对 属性进行设置 A Picture DisabledPicture B Picture DownPicture C Style Picture 和 DisabledPicture D Style Picture 和 DownPicture 99 在属性窗口设置窗体的 Moveable 属性为 False 使得窗体 A 不可见 B 不可移动 C 不可放大 D 不可激活 100 要为窗体设置一幅背景图片 应设置 属性 A BackImage B Image C Icon D Picture 101 能模式显示 Form1 窗口的语句是 A Form1 Show B Form1 Load C Form1 Show vbModal D Form1 Load vbModal 102 下列控件属性赋值语句错误的是 大部分控件有默认属性 A Label1 欢迎 B Text1 Text 欢迎 C Text1 欢迎 D Text 欢迎 103 文本框没有 属性 进入代码窗口书写代码 尝试 A Name B Left C Font D Caption 104 能使文本框 Text1 中文本不可编辑的语句是 A Text1 Editable False B Text1 Enabled True C Text1 TabStop False D Text1 Locked True 105 窗体上有文本框 Text1 和命令按钮 Command1 编写如下事件过程 Private Sub Command1 Click Text1 Text 12345 Text1 SelStart 1 Text1 SelLength 3 MsgBox Text1 SelText End Sub 运行时 单击命令按钮 出现的信息框显示 A 12345 B 234 C 123 D 345 106 在窗体上有一个名称为 Text1 的文本框 要得到在其中输入字符的 ASCII 码 应使用它的 事件 KeyAscii 可以接受 ASCII 码 A KeyPress B KeyUp C KeyDown D Change 107 要用文本框控件 Text1 实现一个密码输入框 可以通过 设置 使 得无论用户输入什么字符文本框只显示 A Text1 PasswordChar B Text1 Font C Text1 Text D Text1 Appearance 108 下列语句中 除 以外 都能使文本框 Text1 不可编辑 A Text1 Locked True B Text1 Visible False C Text1 ReadOnly True D Text1 Enabled False 109 下列语句中能清除运行时在窗体中显示的文本的是 A A Form1 Cls B Form1 Clean C Form1 Release D Form1 Clear textbox 没有这 个属性 110 Print 方法紧密输出时 用 分隔多个表达式 A 空格 B 逗号 C 冒号 D 分号 111 为了使标签 Label1 呈现透明 正确的属性设置为 A Labell BackStyle 0 B Labell BorderStyle 1 C Labell BackStyle 1 D Labell BorderStyle 0 第三 四章理论复习题第三 四章理论复习题 1 以下 语句可表示 50 100 之间的随机整数 A Int Rnd 51 49 B Int Rnd 51 50 C Int Rnd 50 50 D Int Rnd 50 50 2 设 a 39 级台阶 使 b 台阶 的语句是 A Right a 4 B Instr a 5 4 C Left a 5 4 D Mid a 4 2 3 下列语句合法的是 A x y 2 B x y 2 C x y 2 D x y 4 定义变量时如不指定类型 该变量为 类型 A Integer B String C Variant D Single 5 设 a 6 b 5 c 2 执行语句 Print a b c 后 窗体上显示的是 A 1 B True C False D 出错信息 6 下列语句组 a Today And Tomorrow b Right a 8 c Left a 5 msgbox a b c 5 执行后消息框的标题是 A Today B Tomorrow C Today And Tomorrow D 1 7 如果 x 小于 y 的平方 则在窗体上输出 OK 完成该要求的条件语句是 A If x y 2 Then OK B If x y 2 Then Show OK C If x y 2 Then Print OK D If x y 2 Then Put OK 8 表达式 Len 幸运 52 的值是 A 0 B 4 C 6 D 8 9 错误使用 Print 方法的是 A Picture1 Print B Form1 Print C Debug Print D Text1 Print 10 执行 x MsgBox 数据类型不匹配 vbOKCancel 出错提示 然后 单击消息框的 取消 按钮 x 的值是 A TrueB False C 1D 2 11 下列为字符串变量的是 A x B x C x D x 12 下列正确的赋值语句是 A i j 0 B i 0 j 0 C i 0 j 0 D i 0 j 0 13 除去字符串左侧空格的函数是 A Left B Trim C Ltrim D LeftTrim 14 VB 表达式 Format Cint 3 14 00 00 的值是 A 03 00 B 03 14 C 3 14 D 3 15 执行 x MsgBox 数据类型不匹配 出错提示 然后按回车 x 的值是 A 0 B 1 C True D False 16 能清除文本框 Text1 中内容的语句是 A Text1 B Text1 text C Text1 clear D Text1 cls 17 有语句 If X 0 Then Y 0 下列叙述中正确的是 A X 0 和 Y 0 均为赋值语句 B X 0 和 Y 0 均为关系表达式 C X 0 为关系表达式 Y 0 为赋值语句 D X 0 为赋值语句 Y 0 为关系表达式 18 设有语句组 Dim s1 as string 5 S1 vb test 则 s1 的值为 A vb test B vb te C vbtes D btest 19 设 a 6 b 3 则以下表达式值为 True 的是 A a0 B a0 C a 0 and b 0 D a0 20 执行 X InputBox 请输入半径 0 求面积 在输入框中输入 3 后回 车 则下列叙述中 正确的是 A X 的值是数值 3 B X 的值是字符 3 C 0 是默认值 D 对话框标题是 求面积 21 下列叙述中错误的是 A 不允许使用行号与标号 B 单条语句可分行书写 C 同一行上可以书写多条语句 D VB 代码不区分字母的大小写 22 下列叙述中错误的是 A 窗体的 Load 事件在加载窗体时发生 B 窗体的 Height Width 属性用于设置窗体的高和宽 C 执行 Unload Form1 语句后 窗体仍在内存中 但不可见 D 当窗体的 Enabled 属性为 False 时 对窗体的操作都被禁止 23 由 关键字声名的局部变量在整个程序运行时一直存在 A Dim B Public C Static D Private 24 下列逻辑表达式的值为 True 的是 A A a C a AT D AT 0 1 IIF x 0 1 0 的返回值是 A 0 B 1 C 1 D 出错 26 正确使用 Cls 方法的是 A Text1 Cls B Picture1 Cls C List1 Cls D Image1 Cls 27 下列语句正确的是 A MsgBox Vbokonly Error B MsgBox Error Vbokonly C MsgBox Vbokonly Error D MsgBox Error Vbokonly 28 使用 方法可以隐藏窗体 但不从内存中释放 A Show B Load C Hide D Unload 29 下列哪一个是日期型常量 A 06 08 04 B 06 08 04 C 06 08 04 D 06 08 04 30 如果 vb 语句超过一行 可以用空格加 续行 A B C D 31 下列程序运行时 消息框显示的内容是 Private Sub Command1 Click MsgBox CStr 123 321 End Sub A 444 B 123321 C 123 321 D 显示出错信息 32 运行时 单击窗体不能将窗体的背景色设置为红色的事件过程是 A Private Sub Form Click Me BackColor vbRed End Sub B Private Sub Form Click Form1 BackColor vbRed End Sub C Private Sub Form Click This BackColor vbRed End Sub D Private Sub Form Click BackColor vbRed End Sub 33 使文本框能显示多行文本 需设置 A Autosize 属性为 True B Multiline 属性为 True C Singleline 属性为 False D Maxlines 属性大于 1 34 表达式 instr 3 文件系统控件 控件 的值是 A 2 B 3 C 5 D 6 35 下列语句错误的是 A Me Cls B Picture1 Cls C Text1 Cls D Form1 Cls 36 执行 MsgBox 除数不能为 0 vbexclamation 数据出错 在弹出的消 息框中显示的图标是 A 停止图标 B 问号图标 C 感叹号 D 消息图标 37 下列求两数中最小数的程序段不正确的是 A If a b Then Min a Min b B Min IIf a a Then Min a else Min b D Min b If b a Then Min a 38 执行 Print Len InputBox 请输入编号 在输入框中输入 神州 1 号 后回车 结果为 A 4 B 7 C 0 D 出错 39 执行 n InPutBox n 0 n 在输入框中输入 5 后回车 则 下列叙述中正确的是 A 0 是默认值 B 输入框标题是 n C n 等于数值 5 D n 的值为字符 5 40 下列为单精度变量的是 A X B X C X D X 41 判断整型变量 x 是奇数的表达式是 A X mod 20 B X mod 2 0 C X mod 2 0 D X mod 2 0 42 表达式 fix 5 6 int 5 6 的值是 A 0 B 1 C 1 D 以上都不对 43 窗体上有一个命令按钮 command1 编写如下事件过程 Private Sub Command1 Click x InputBox x y InputBox y Print x y End Sub 运行后单击命令按钮 先后在两个输入对话框中输入 123 和 321 窗体显示的 内容是 A 444 B 123321 C 123 321 D 出错信息 44 日期常量用 作为界定符 A B C D Next I A 12 B 21 C 2212 D 1212 6 窗体上有一个命令按钮 command1 编写如下事件过程 Private Sub Command1 Click Dim i As Integer Dim sum As Integer For i 1 To i 99 sum sum i i i 1 Next i Print sum End Sub 运行时单击按钮 输出结果是 A 编译错误 B 2401 C 2500 D 变量 sum 溢出 7 执行下列程序段后 窗体输出的结果是 Dim a As Integer a Val InputBox 请输 a 的值 6 Select Case a Case 1 To 4 Print A Case Is 3 Print B Case 5 To 10 Print C Case Else Print D End Select A A B B C C D D 8 有如下程序段 Private Sub Form Click Dim s t a b s 1 t 1 a Val Text1 Text b Val Text2 Text If a 0 Then s s 1 If a b Then t t s Else If a b Then t 5 Else t 2 s End If End If Print t End Sub 要使程序输出结果为 4 则 a 和 b 应满足的条件是 A a 0 and a b B a 0 and a0 and a b D ab 9 窗体上有一个命令按钮 Command1 编写如下事件过程 Private Sub Command1 Click Dim i j x n x 0 n InputBox For i 1 To n For j 1 To i x x j Next j Next i Print x End Sub 运行时单击命令按钮 如果在输入对话框中输入 3 则窗体上显示的内容是 A 6 B 10 C 14 D 18 10 已知字母 D 的 ASCII 码是 68 在窗体上添加命令按钮 Command1 并编 写如下事件过程 要使单击按钮输出如下结果 程序中空缺的部分应为 Private Sub Command1 Click m 68 a D Print a For i m m 1 a Chr m a Chr m Print a Next i End Sub A 0 to 4 B 1 to 3 C 1 to 4 D 1 to 5 11 运行下列程序段 其中 n n 1 语句被执行的次数是 Dim m n For m 1 to 3 For n 1 to 6 Step 2 n n 1 Print n Next Next A 3 B 6 C 9 D 18 12 窗体上有一个命令按钮 Command1 编写如下事件过程 Private Sub Command1 Click For i 1 To 4 For j 4 To 8 Sum Sum 1 Next j Next i Print Sum End Sub 运行时单击按钮 输出的结果是 A 4 B 8 C 20 D 32 13 执行下列程序段后 x 的值是 n 5 x 1 I 1 Do x x I I I 1 Loop While I n A 10 B 15 C 24 D 120 14 窗体上有一个命令按钮 Command1 编写如下事件过程 Private Sub Command1 Click Sum 0 For m 1 To 3 D EDE FEDEF GFEDEFG Select Case m Case 1 a 1 Case 2 a 2 Case 3 a 3 End Select Print a Sum Sum a Next m Print Sum End Sub 单击命令按钮输出结果是 A 3339 B 3216 C 1113 D 1236 15 窗体上有一个命令按钮 Command1 编写如下事件过程 Private Sub Command1 Click a 0 For m 1 To 3 a a 1 b 0 For j 1 To 3 a a 1 b b 2 Next j Next m Print a b End Sub 运行时 单击按钮 输出结果为 A 66 B 618 C 12 6 D 12 18 16 窗体上有一个命令按钮 command1 编写如下事件过程 Private Sub Command1 Click a 80 b 50 c 30 If a c Then b c If b c And a c Then c a b Print a b c End Sub 运行时单击命令按钮 窗体输出的结果是 A 80 50 30 B 80 30 30 C 50 30 80 D 50 30 30 17 阅读下列程序段 m 0 For i 1 To 3 For j 1 To i m m j Next j i 执行以上的循环后 i 和 m 的值分别为 A 36 B 310 C 46 D 410 18 阅读下列程序段 x 0 For i 1 To 4 For j 1 To i X x 1 Next j i 执行以上的循环后 x 的值为 A 6 B 9 C 10 D 16 19 如下程序段的功能是计算 1 2 1 4 1 6 1 50 并显示结果 Private Sub Command1 Click Dim i As Integer Dim sum As Double i 1 sum 0 Do While i0 Then y 1 Print y D If x y Then Print y End If 21 窗体上有两个文本框 Text1 Text2 和一个命令按钮 Command1 编 写如下事件过程 Private Sub Command1 Click x 0 Do While x y Or y z Then x x z Print x y z A 70 30 30 B 100 30 30 C 70 80 30 D 100 80 30 24 运行下列程序 单击窗体后输出的结果是 Private Sub Form Click s 1 For i 1 To 2 For j 0 To i s s s j Print s Spc 2 Next j Print Next i End Sub A 1 2 4 12 B 1 2 2 4 C 1 2 2 4 12 D 1 2 1 2 6 25 执行下列程序段后 x 的值是 n 5 x 1 i 1 Do x x i i i 1 Loop While i n A 10 B 15 C 24 D 120 26 在窗体上画一个名称为 Command1 的命令按钮 然后编写如下事件过程 Private Sub Command1 Click x 5 If Sgn x Then y Sgn x 2 Else y Sgn x End If Print y End Sub 程序运行后 单击命令按钮 窗体上显示的是 A 5 B 25 C 1 D 1 27 下列程序段是求两个数中的最大数 其中不正确的是 A If a b a b C Max a If b a Then Max b D If b a Then Max b Max a 28 以下程序段的输出结果是 M 24 N 18 A M B N R M Mod N Do While R 0 M N N R R M Mod N Loop Print A B N A 6 B 24 C 72 D 432 29 假定有如下事件过程 Private Sub Form Click Dim x As Integer n As Integer x 1 n 0 Do While x 32 x x 3 n n 1 Loop Print x n End Sub 程序运行后 单击窗体 输出结果是 A 814 B 563 C 281 D 2435 30 下列程序段的运行结果是 Private Sub Form Click For i 1 To 5 Select Case i Mod 2 Case 0 Print Exit For Case 1 Print Case Else Print End Select Next i End Sub A B C D 31 如下程序段的功能是 从键盘上输入若干学生的考试分数 当输入负数时 结束输入 然后输出其中最高的分数和最低的分数 Private Sub Form Click Dim x As Single mmax As Single mmin As Single x InputBox 请输入学生的考试分数 mmax x mmin x Do While 1 If 2 Then mmax x End If If x 0 和 x mmax B x 0 和 x mmin C xmmax D x 0 和 x mmin 32 窗体上有一个文本框 Text1 和命令按钮 Command1 编写如下事件过程 Private Sub Command1 Click i Text1 Text Select Case i Case 1 j Case 2 j Case 3 j Case Else j 非法 End Select Text1 Text j End Sub 运行时 在 Text1 中输入 1 后单击命令按钮 Text1 中内容是 A B C D 非法 33 在窗体上有两个列表框 List1 List2 一个命令按钮 Command1 List1 List 有 5 个列表项 List2 List 为空 程序运行后 单击 Command1 List1 和 List2 中分别有 个字段 Private Sub Command1 Click Dim i As Integer For i 1 To List1 ListCount 1 List1 Selected 1 True List2 AddItem List1 TabIndex List1 RemoveItem 1 Next i End Sub A 0 和 5 B 1 和 4 C 5 和 0 D 4 和 1 34 窗体上有一个命令按钮 Command1 编写如下事件过程 Private Sub Command1 Click x InputBox x If x 2 16 Then y x If x 2 16 Then y x 2 1 Print y End Sub 运行时 单击按钮 在输入框中输入 6 后回车 窗体上将显示 A 6 B 0 16666 C 37 D 65 35 下列程序段的执行结果是 n 1 j 1 Do While j 60 Then i i 1 ElseIf a 70 Then i i 2 ElseIf a 80 Then i i 3 ElseIf a 90 Then i i 4 End If Print i i End Sub A i 1 B i 2 C i 3 D i 4 38 窗体上有一个命令按钮 Command1 编写如下事件过程 Private Sub Command1 Click x 0 Do While x 10 x x 2 x 3 n n 1 Loop End Sub 运行时单击按钮 n 和 x 的值分别是 A 1 和 0 B 2 和 24 C 3 和 50 D 4 和 68 39 下列循环语句能正常结束循环的是 A i 5 Do i i 1 Loop Until i 0 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 Until i 1 40 执行下列程序段后 x 的值是 n 6 x 1 I 1 Do x x I I I 1 Loop While I 60 Then i i 4 ElseIf a 70 Then i i 3 ElseIf a 80 Then i i 2 ElseIf a 90 Then i i 1 End If Print i i End Sub A i 4 B i 3 C i 2 D i 1 42 以下程序段的执行结果是 n 2 j 1 Do While j b c Then a b c If a b b c Then b a c Print a b c A 14 914 B 23 914 C 23 14 9 D 14 95 46 执行以下程序段后输出的结果是 For i 1 To 3 x 4 For j 1 To 4 x x 6 Next j Next i Print x A 16 B 24 C 28 D 22 47 以下程序段的执行结果是 n 2 j 1 Do While j 4 n n j Print n j j 1 Loop A 234 B 2624 C 2412 D 248 48 运行下列程序 单击窗体后输出的结果是 Private Sub Form Click s 1 For i 1 To 2 For j 1 To i s s s j Print s Spc 2 Next j Print Next i End Sub A 2 412 B 2 46 C 12 412 D 12 24 49 窗体上有一个命令按钮 Command1 编写如下事件过程 Private Sub Command1 Click Dim i j x n x 0 n InputBox For i 1 To n For j 1 To i x x j Next j Next i Print x End Sub 运行时 单击命令按钮 如果在输入对话框中输入 3 则窗体上显示的内容是 A 6 B 10 C 14 D 18 50 窗体上有命令按钮 Command1 和 Command2 阅读下列程序 Private Sub Command1 Click a a 1 Print a End Sub Private Sub Command2 Click a a 1 Print a End Sub 运行时 先后单击 Command1 和 Command2 按钮 输出的结果为 A 1 1 B 2 2 C 1 2 D 2 1 51 执行下列程序段后 窗体输出的结果是 Dim X As Integer Y As Integer Y Val InputBox 请输入 a 的值 9 直接按回车键 Select Case Y Case Is 10 x x 1 Case 5 7 9 11 x x 2 Case 5 To 15 x x 3 Case Else x x 4 End Select Print x A 1 B 2 C 5 D 6 52 窗体上有一个命令按钮 Command1 编写如下事件过程 Private Sub Command1 Click Dim a b a 6 b 1 If a 0 Or b 0 Then a a b ElseIf a 0 And b 0 Then b a Else b a b End If Print a b End Sub 运行时 单击按钮 窗体输出的结果为 A 6 6 B 5 1 C 6 6 D 1 1 53 下列程序段的执行结果是 Dim x As Double Dim y As Double x Int 42 4 3 Select Case x Case Is 3 y x 1 Case Is 12 y 2 x 5 Case Else y 3 x 11 End Select Print y A 25 B 75 C 50 D 14 54 下列程序段的执行结果是 x 5 y 7 z 4 If x y Then t x x y y t End If If y z Then t y y z z t If x y Then t x x y y t End If End If Print x y z A 5 7 4 B 4 5 7 C 7 5 4 D 5 4 7 55 运行下列程序 单击窗体后输出结果是 Private Sub Form Click Dim i j k i 1 j 1 k 10 Do While i 10 Then Exit For Next i Text1 Text Str x End Sub 运行后 单击按钮 Text1 显示 A 6 B 8 C 10 D 100 58 窗体上有一个命令按钮 Command1 编写如下事件过程 Private Sub Command1 Click a 1 For i 1 To 3 Select Case i Case 1 3 a a 1 Case 2 4 a a 2 End Select Next