财务大写数字10610支票是怎么写的，谢谢帮助_百度知道
财务大写数字10610支票是怎么写的，谢谢帮助
我有更好的答案
写支票时大写金额为：壹万零陆佰壹拾元整，小写￥10610.00元即可。
壹万零陆百壹拾元整
本回答被提问者采纳
壹万零陆佰壹拾元整
人民币壹万零陆佰壹拾元整.
人民币壹万零陆佰壹拾元整
壹万零陆佰壹拾圆整
人民币壹万零陆佰壹拾元整
其他8条回答
为您推荐：
其他类似问题
您可能关注的内容
大写数字的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。支票大写数字怎么写_百度知道
支票大写数字怎么写
我有更好的答案
支票的填写：1、 出票日期（大写）：数字必须大写，大写数字写法：零、壹、贰、叁、肆、伍、陆、柒、捌、玖、拾。举例：日：贰零零伍年捌月零伍日
捌月前零字可写也可不写，伍日前零字必写。（1）壹月贰月前零字必写，叁月至玖月前零字可写可不写。拾月至拾贰月必须写成壹拾月、壹拾壹月、壹拾贰月(前面多写了“零”字也认可，如零壹拾月)。（2）壹日至玖日前零字必写，拾日至拾玖日必须写成壹拾日及壹拾X日（前面多写了“零”字也认可，如零壹拾伍日，下同），贰拾日至贰拾玖日必须写成贰拾日及贰拾X日，叁拾日至叁拾壹日必须写成叁拾日及叁拾壹日。2、 人民币（大写）：数字大写写法：零、壹、贰、叁、肆、伍、陆、柒、捌、玖、亿、万、仟、佰、拾。 3.阿拉伯数字中间有&0&时，中文大写要写&零&字。阿拉伯金额数字万位和元位是&0&， 但千位、角位不是&0&时，中文大写金额中可以只写一个零 字，也可以不写&零&字
采纳率：54%
来自团队：
壹 贰 叁 肆 伍 陆 柒 捌 玖 拾
佰 仟 万 元 整
本回答被提问者采纳
1.大写金额紧靠“人民币”三字书写，字与字之间不得留有空白。2.大写金额到：“元”和“角”后面加“整”或者“正&3.数字中间有一个“0”的，大写时加“零”，中间连续有几个“0”的，大写时只需加一个“零”
其他1条回答
为您推荐：
其他类似问题
大写数字的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。《电脑办公从新手到高手 附盘》【摘要 书评 试读】- 京东图书
电脑办公从新手到高手 附盘
与行业相比
京 东 价 &
[定价 &￥]
PLUS会员专享价
您购买此商品可享受专属价
增值业务 &
重　　量 &
搭配赠品 &
加载中，请稍候...
加载中，请稍候...
加载中，请稍候...
加载中，请稍候...
加载中，请稍候...
商品介绍加载中...
下载客户端，开始阅读之旅
权利声明：京东上的所有商品信息、客户评价、商品咨询、网友讨论等内容，是京东重要的经营资源，未经许可，禁止非法转载使用。
注：本站商品信息均来自于合作方，其真实性、准确性和合法性由信息拥有者（合作方）负责。本站不提供任何保证，并不承担任何法律责任。
印刷版次不同，印刷时间和版次以实物为准。
价格说明：
京东价：京东价为商品的销售价，是您最终决定是否购买商品的依据。
划线价：商品展示的划横线价格为参考价，该价格可能是品牌专柜标价、商品吊牌价或由品牌供应商提供的正品零售价（如厂商指导价、建议零售价等）或该商品在京东平台上曾经展示过的销售价；由于地区、时间的差异性和市场行情波动，品牌专柜标价、商品吊牌价等可能会与您购物时展示的不一致，该价格仅供您参考。
折扣：如无特殊说明，折扣指销售商在原价、或划线价（如品牌专柜标价、商品吊牌价、厂商指导价、厂商建议零售价）等某一价格基础上计算出的优惠比例或优惠金额；如有疑问，您可在购买前联系销售商进行咨询。
异常问题：商品促销信息以商品详情页“促销”栏中的信息为准；商品的具体售价以订单结算页价格为准；如您发现活动商品售价或促销信息有异常，建议购买前先联系销售商咨询。
价　格： 到
　　　
iframe(src='//www.googletagmanager.com/ns.html?id=GTM-T947SH', height='0', width='0', style='display: visibility:')纠纷处理 (9:00-18:00)
图书审核 (9:00-18:00)
很抱歉，您查看的商品已下架或删除。
哲学心理学
计算机与互联网
综合性图书
教材教辅考试
收藏与鉴赏
艺术品收藏
文创与周边
动漫影视周边当前位置： >>
30101 标准控件不包括（D ）控件。 A 驱动器列表框 B 目录列表框 C 文件列表框 D 通用对话框 30102 当一个工程含有多个窗体时，它的启动窗体是（D ） 。 A 正在编辑的窗体 B 最后一个添加的窗体 C 第一个添加的窗体 D 在&工程属性&对话框中指定的窗体 30103 VB 应用程序在（A ）模式下不能编辑代码和设计界面。 A 运行 B 中断 C 设计 D 以上均不能 30104 下列叙述错误的是（B ） 。 A VB 应用程序没有明显的开始和结束语句 B VB 控件的所有属性值均可在属性窗口中设置 C VB 是事件驱动型可视化编程工具 D VB 通过&工具&菜单的&选项&设置代码编辑窗口的字体大小 30105 标准模块文件的扩展名是（C ） 。 A .clsB .frmC .basD .rec 30106 下列叙述中，错误的是（D ） 。 A 打开一个工程文件，系统自动装入与该工程有关的文件 B 保存 VB 程序时，应分别保存窗体和工程文件 C 事件可以由用户触发，也可以由系统触发 D VB 应用程序只能以解释方式执行 30107 在设计阶段，双击窗体上的某个控件，可以打开（A ） 。 A 代码窗口 B 属性窗口 C 工具箱窗口 D 工程资源管理器窗口 30108 下列叙述中，错误的是（C ） 。 A VB 是可视化程序设计语言 B VB 采用事件驱动编程机制 C VB 是面向过程的程序设计语言 D VB 应用程序可以以编译方式执行 30109 下列叙述中，正确的是（D ） 。 A VB 的事件由用户定义 B VB 程序以顺序方式执行 C VB 程序从 Main()函数开始执行 D VB 运行时，总是等待事件的发生 30110 在 VB 中可以通过（ C）方法向工具箱加入其它控件。 A 右击工具箱，执行弹出式菜单中的“添加选项卡”命令 B 执行“文件”菜单中的“添加工程”命令 C 执行“工程”菜单中的“部件”命令 D 执行“工程”菜单中的“添加窗体”命令 30111 在 VB 的工程资源管理器窗口中不可能存在的文件类型是（C ） 。 A *.clsB *.vbgC *.gifD *.bas 30112 以下那一种方法不能打开“代码窗口” A） （ 。 A 按快捷键 Alt+C B 双击窗体或窗体上的控件 C 执行“视图”菜单中的“代码窗口”命令1D 单击“资源管理器”窗口的“查看代码”按钮 30113 下列叙述中，错误的是（ ） B 。 A VB 程序代码不区分字母大小写 B VB 程序代码中使用“//”表示注释一行 C VB 程序代码中不能使用数字作为标识符的首字符 D VB 程序代码以“回车换行”作为语句结束标志 30114 VB 窗体文件的扩展名是（ ） B 。 A cls B frm C bas D res 30115 下列关于 VB 代码编辑时常用组合键的叙述错误的是（ ） C 。 A Ctrl＋C 表示复制选定代码 B Ctrl＋X 表示剪切选定代码 C Ctrl＋P 表示粘贴代码 D Ctrl＋Y 表示删除整行代码 30116 VB 是一种面向对象的程序设计语言，构成对象的三要素是（ A ） 。 A 属性、事件、方法 B 控件、属性、事件 C 窗体、控件、过程 D 窗体、控件、模块 30117 以下叙述中错误的是（ D ） 。 A 一个工程可以含有多个标准模块文件 B 窗体文件包含该窗体及其控件的属性 C 以 BAS 为扩展名的文件是标准模块文件 D 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 30118 当程序在运行过程中因某种原因中断时，VB 进入（C）模式。 A) 设计 B) 运行 C) 中断 D) 编程 30119 以下叙述错误的是（B） 。 A) 窗体对象的 ControlBox 属性可用于设置窗体上的控制菜单 B) Visual Basic 要设置某个对象的属性时，只能通过属性窗口设置 C) 当一个工程含有多个窗体时，其中的启动窗体是在“工程属性”对话框中指定的 D) 通用对话框是一种 ActiveX 控件 30201 下列为整型变量的是（ C） 。 A x!B x#C x%D x$ 30202 设有语句组： Dim S1 As String*5 S1 = &VB Test& 则 S1 的值为（B ） 。 A VB TestB VB TeC VBTesD BTest 30203 下列（ A）是合法的变量名。 A x_y B x-y C 2x D and 30204 下列（A ）为单精度变量。 A x! B x# C x% D x$ 30205 由（C ）关键字声明的局部变量在整个程序运行时一直存在。 A Dim B Public C Static D Private 30206 定义变量时如不指定类型，该变量为（C ）变量。 A Integer B String C Variant D Single 30207 用户自定义数据类型的成员不能是（ A） 。 A 数组 B 日期型 C 货币型 D 定长字符串 30208 下列（B ）是合法的变量名。 A x%y B xy% C 2x D Or 30209 日期常量用（ C）作为界定符。2A & B % C # D & 30210 下列哪一个是日期型常量（B ） 。 A &06/08/04& B #06/08/04# C 06/08/04 D {06/08/04} 30211 下列为字符串变量的是（ D） 。 A x! B x# C x% D x$ 30212 可以在窗体模块的声明段中进行（C ）的声明。 A 全局数组 B 全局常量 C 全局变量 D 全局自定义数据类型 30213 下列关于常量的叙述，正确的是（ ） 。C A 常量必须在第一次使用时被赋值 B 常量可以在任何时候被赋值 C 常量必须在定义时被赋值 D 常量与变量不同，没有数据类型之分 30214 如要表示一个在 100～300000 之间变化的整数，应使用（ ）型变量。 C A Integer B String C Long D Byte 30215 在窗体中，用（ ）语句声明的变量 A 可以被其它窗体引用。 B A Dim A As Integer B Public A As Integer C Private A As Integer D Static A As Integer 30216 下列关于符号常量的叙述，正确的是（ C ） 。 A 符号常量必须在第一次使用时被赋值 B 符号常量可以在任何时候被赋值 C 符号常量必须在定义时被赋值 D 符号常量与变量不同，没有数据类型之分 30217 用 Dim x,y as boolean 语句声明变量，下列正确的是（ C ） 。 A x 和 y 都是布尔型变量 B x 是整形变量，y 是布尔型变量 C x 是变体型变量，y 是布尔型变量 D x 和 y 都是变体型变量 30218 以下能正确定义数据类型 TelBook 的代码是（ C ） 。 A Type TelBook Name As String*12 TeL As Integer End Type TelBook B Type TelBook Name As String*12 TeL As Integer Type End C Type TelBook Name String*12 TeL As Integer End Type D Type TelBook Name String*8 TeL As Integer End TelBook330219 下列（ A ）是合法的变量名。 A a_1 B 4A C a-b D string 30220 不能被本模块的其它过程引用的是（A） 。 A) 局部变量 B) 模块级变量 C) 全局变量 D) 以上都是 30221 如果要表示一个在 100～300000 之间变化的整数，应使用（C ）型变量。 A) Integer B) String C) Long D) Byte 30301 表达式 4 + 6 \ 5 * 7 / 9 Mod 3 的值是（B ） 。 A 4 B 5 C 6 D 7 30302 下列逻辑表达式为 True 的是（C ） 。 A &A&&&9& B &A&&&a& C &a&&&AT& D &AT&&&AND& 30303 下列运算符中，优先级最高的是（B ） 。 A Like B Mod C Not D Eqv 30304 设 a=6，b=5，c=-2；执行语句 Print a & b & c 后，窗体上显示的是（B ） 。 A 1 B True C False D 出错信息 30305 下列表达式中，值最大的是（C ） 。 A 2 \ 3 B 2 / 3 C 2 mod 3 D 3 mod 2 30306 下列运算符中，优先级最低的是（D ） 。 A * B ^ C / D \ 30307 表达式 2 = 3 & 1 的是（C ） 。 A 0 B 1 C True D False 30308 表示 x 大于 0 且小于 10 的 VB 表达式是（ B） 。 A 0 & x & 10 B x & 0 And x & 10 C x & 0 Or x & 10 D x & 0 : x & 10 30309 判断整型变量 x 是奇数的表达式是（A） 。 A x Mod 2 && 0 B x Mod 2 != 0 C x Mod 2 ≠ 0 D x Mod 2 ＝ 0 30310 设 a=6，b=-3,则以下表达式值为 True 的是（D ） 。 A a&0 Or b&0 B a&0 And b&0 C a&0 And b&0 D a&0 Eqv b&0 30311 下列正确的赋值语句是（B ） 。 A i=j=0 B i=0:j=0 C i=0,j=0 D i=0; j=030312 下列赋值语句中，正确的是（C ） 。 A i + j = 10 B 2i = j C j=i+j D i=j=0 30313 能正确表达 2 的 3 次幂的表达式是（B ） 。 A 2*3 B 2 ^ 3 C 2 ** 3 D 2&3 30314 表达式 123 + 23 Mod 100 \ 7 的值是（D ） 。 A 6 B 126 C 20 D 132 30315 表达式 12000 + &123& & 100 的值是（ ） A 。 A && B 12223 C 24300 D &1 下列逻辑表达式的值为 False 的是（ C ） 。 A &A&&&9& B &A&&&a&4C &AT&&&AT & D &an &&&an& 30317 下列运算符中，优先级最低的是（ C ） 。 A \ B / C MOD D * 30318 判断整型变量 x 是 5 的倍数的表达式是（ B ） 。 A x Mod 5 && 0 B int(x/5)=x/5 C x/5≠int(x /5) D 5 Mod x = 0 30319 设 a=8，b=6，c= -1；执行语句 Print a&b&c 后，窗体上显示的是（ C ） 。 A 1 B True C False D 出错信息 30320 下列表达式中，非法的是（ C ） 。 A a&b+c B a&b+cC a≠b&c D a=b+c 30321 下列正确的赋值语句是（ B ） 。 A i + j = 10 B i = 0 : j = 0 C i=0,j=0 D i=0;j=0 30322 下列运算符中，优先级最高的是（B） 。 A) * B) ^ C) / D) \ 30323 表达式 23 + 23 Mod 50 \ 7 的值是（C） 。 A) 23 B) 46 C) 25 D) 123 30401 返回值为数值的函数是（B ） 。 A Mid B Instr C Left D Rtrim 30402 表达式 Len(&幸运 52&)的值是（ B） 。 A 0 B 4 C 6 D 8 30403 以下（ B）语句可表示[50,100]之间的随机数。 A Int(Rnd * 51) + 49 B Int(Rnd * 51 +50) C Int(Rnd * 50) + 50 D Int(Rnd * 50 + 50) 30404 返回值为字符串的函数是（ A） 。 A Str B Val C Len D Asc 30405 当 x=0 时，函数 IIf(x & 0, 1, IIf(x & 0, -1, 0))的返回值是（ A） 。 A 0 B 1 C -1 D 出错 30406 表达式 Fix(5.6) + Int(-5.6)的值是（B ） 。 A 0 B -1 C 1 D 以上都不对 30407 如果 Sgn(x)的值为-1，整型变量 x 的值是（ D） 。 A 0 B 整数 C 正整数 D 负整数 30408 表达式 InStr(2, &文本文件&, &文&)的值是（ C） 。 A 0 B 1 C 3 D 5 30409 除去字符串左侧空格的函数是（ C） A Left() B Trim() C Ltrim()D LeftTrim() 30410 设 a=&39 级台阶&，使 b=&台阶&的语句是（ D） 。 A Right(a,4) B Instr(a,5,4) C Left(a,5,4) D mid(a,4,2) 30411 表达式 InStr(3, &文件系统控件&, &件&)的值是（C ） 。 A 2 B 3 C 6 D 11 30412 能判断一个表达式的值是否为数值类型的函数是（B ） 。 A IsDate() B IsNumeric() C IsData() D IsNumber() 30413 表达式 Chr(Asc(&B&) + 1)的值是（ ） A 。 A &C& B C C 67 D &67&530414 下列表达式的值为 15 的是（ ） C 。 A Int(14.6) B Fix(14.6) C Round(15.3) D Trunc(15.3) 30415 表达式 UCase(Mid(&basic!&, 1, 1)) + Right(&basic!&, 5)的值是（ ） D 。 A &asic& B &Asic!& C &basic!& D &Basic!& 30416 以下能判断是否到达文件尾的函数是（ D ） 。 A LOF() B BOF() C LOC()D EOF() 30417 表达式 Len(&神州 6 号&)的值是（ B ） 。 A 10 B 4 C 5 D 8 30418 除去字符串左右侧空格的函数是（ B ） 。 A Rtrim() B Trim() C Ltrim()D Mid() 30419 函数 Choose(2,&＋&,&－&,&×&,&÷&)返回值是（ B ） 。 A ＋ B － C × D ÷ 30420 表达式 String(3,&ABC&) 的结果为（A） 。 A) AAA B) ABC C)BBB D)CCC 30421 执行以下程序段后，变量 C$的值为（D） 。 a$=&Basic 程序设计教程& b$=&Visual & c$=b$ & Ucase(Mid(a$,1,6)) & Right(a$,2) A)Visual Basic B) VISUAL BASIC 教程 C)Visual Basic 程序 D) Visual BASIC 教程 30501 VB 表达式 Format(Val(&111a&), &##.##&)的值是（C ） 。 A 11.1a B 11.10C 111.D 111.00 30502 下列语句不合法的是（D ） 。 A x = 1 : y=2B ?C ? x , y ,D x = 1; y = 2 30503 如果 VB 语句超过一行，可以使用空格加（D ）续行。 A -B +C ；D _ 30504 正确使用 Cls 方法的是（B ） 。 A Text1.ClsB Picture1.ClsC List1.ClsD Image1.Cls 30505 下列语句合法的是（C ） 。 A x + y = 2B x & 2 = yC x = y & 2D x = y++ 30506 错误使用 Print 方法的是（D） 。 A Picture1.Print B Form1.Print C Debug.Print D Text1.Print 30507 Print 方法分区输出时，用（B ）分隔多个表达式。 A 空格 B 逗号 C 冒号 D 分号 30508 Print &10+6=&; 10+6 的输出结果是（C ） 。 A 16=10+6 B 10+6=10+6 C 10+6=16 D &10+6=&10+6 30509 下列叙述错误的是（A ） 。 A 不允许使用行号与标号 B 单条语句可分行书写6C 同一行上可以书写多条语句 D VB 代码不区分字母的大小写 30510 VB 表达式 Format(CInt(&3.14&), &00.00&)的值是（A ） 。 A 03.00 B 03.14 C 3.14 D 3 30511 下列语句合法的是（ B） 。 A 1 + 2 = 3 B x = y && 0 C y & 0 = x D x = 2y 30512 下列语句错误的是（B ） 。 A ClsB Image1.ClsC Form1.ClsD Picture1.Cls 30513 Print 方法紧密输出时，用（ ）分隔多个表达式。 D A 空格 B 逗号 C 冒号 D 分号 30514 下列关于 VB 编码规则的叙述，错误的是（ D） 。 A 一条语句可以分多行书写 B 可以用“Rem”注释单行语句 C 注释可以放在语句之前 D 可以用“:”作为语句的结束符以下程序段中有（ ）处错误。 C ReDim a As Integer n+3=n a=0;b=1 Print n + 3 = n A 1 B 2 C 3 D 4 30516 要强制显式声明变量,可在窗体模块或标准模块的声明段中加入（ C ）语句。 A Option Base 0 B Option Base 1 C Option Explicit D Option Compare 30517 下列语句错误的是（ B ） 。 A Cls B Image1.Cls C Form1.Cls D Picture1.Cls 30518 不能把 2^5*3.14*8 的结果输出到“立即”窗口的是（B） 。 A) 在代码窗口中使用 Debug.Print 2^5*3.14*8 语句 B) 在“立即”窗口中直接使用 2^5*3.14*8 语句 C) 在“立即”窗口中使用 ? 2^5*3.14*8 语句 D) 在“立即”窗口中使用 Print 2^5*3.14*8 语句 30519 要强制显式声明变量，可在窗体模块或标准模块的声明段中加入（D）语句。 A) Option Base 0 B) Option Base 1 C) Option Compare D) Option Explicit 30601 执行 x = InputBox(&请输入半径&,0,&求面积&) ， 在输入框中输入 3 后回车,则下列叙述正确 的是（ B） 。 A x 的值是数值 3B x 的值是字符&3& C 0 是默认值 D 对话框标题是&求面积& 30602 执行 x = MsgBox(&数据类型不匹配&,VbOKCancel,&出错提示!&) ， 然后单击消息框的 “取 消”按钮，x 的值是（D ） 。 A True B False C 1 D 2 30603 下列语句正确的是（ B） 。 A MsgBox VbOkOnly, &Error& 305157B MsgBox &Error&, VbOkOnly C MsgBox ( VbOkOnly, &Error& ) D MsgBox ( &Error&, VbOkOnly ) 30604 执行 Len(InputBox(&请输入编号:&))，在输入框中输入&神州 1 号&后回车，结果为（A ） 。 A 4 B 7 C 0 D 出错 30605 执行 MsgBox &除数不能为 0！&, 48, &数据出错&，在弹出的消息框中显示的图标是（C ） 。 A 停止图标 B 问号图标 C 感叹号图标 D 消息图标 30606 下列语句组： a$=&Today And Tomorrow& b$=Right(a$,8):c$=Left(a$,5) MsgBox a$, ,b$,c$ 执行后消息框的标题是（B ） 。 A Today B Tomorrow C Today And Tomorrow D 1 30607 下列语句组： a$=&Today And Tomorrow& b$=Right(a$,8):c$=Left(a$,5) MsgBox a$, ,b$,c$ 执行后消息框中显示的内容是（C ） 。 A Today B Tomorrow C Today And Tomorrow D 1 30608 下列程序运行时,消息框显示的内容是（A ） 。 Private Sub Command1_Click() MsgBox CStr(123 + 321) End Sub A 444B 3+321D 显示出错信息 30609 窗体上有一个命令按钮 Command1，编写如下事件过程： Private Sub Command1_Click() x = InputBox(&x=&) y = InputBox(&y=&) Print x + y End Sub 运行后，单击命令按钮，先后在两个输入对话框中输入 123 和 321，窗体显示的内容是（B ） 。 A 444 B 123321 C 123+321 D 出错信息 30610 执行 n = InputBox(&n=&, 0, &n!&) ， 在输入框中输入 5 后回车,则下列叙述中， 正确的是 （D ） 。 A 0 是默认值 B 输入框标题是&n=& C n 等于数值 5 D n 的值为字符&5& 30611 执行 x = MsgBox(&数据类型不匹配&, , &出错提示!&) ，然后按回车，x 的值是（B ） 。 A 0 B 1 C True D False 30612 下列语句正确的是（ A） 。 A MsgBox && B MsgBox VbOkOnly,&Error& C MsgBox ( VbOkOnly, &Error& ) D MsgBox ( &Error&, VbOkOnly, ,100 )830613 下列关于 InputBox 函数的叙述，错误的是（ ） A 。 A 可以省略任何参数 B 可以在屏幕指定位置显示输入框 C 可以指定默认值 D 返回值为 String 类型 30614 下列程序运行时,消息框显示的内容是（ ） C 。 Private Sub Command1_Click() MsgBox CStr(&123 + 321&) End Sub A 444 B 123321 C 123 + 321 D 显示出错信息 30615 执行语句 a = MsgBox(&你好&, vbAbortRetryIgnore + vbDefaultButton2)，当出现消息框时， 按回车，a 的值为（ ） B 。 A vbAbort B vbRetry C vbIgnore D vbDefault 30616 对于 InputBox 函数，下列说法不正确的是（ A ） 。 A InputBox 函数输入的是数值型 B InputBox 函数值必须赋予一个变量 C InputBox 函数 prompt 参数不能缺省 D 每执行一次 InputBox 函数，只能输入一个值 30617 执行语句 a=&software and hardware&:b=Right(a,8):c=Mid(a,1,8):MsgBox a, ,b,c,1 后消息框 的标题是（ C ） 。 A 1 B software C hardware D software and hardware 30618 对于 InputBox 函数，下列不正确的说法是（ B ） 。 A 每执行一次 InputBox 函数，只能输入一个值 B InputBox 函数只能输入数值 C InputBox 函数的 prompt 参数不能缺省 D InputBox 函数的参数有三个以上 30619 窗体上有一命令按钮 Command1，编写下列事件过程: Private Sub Command1_Click() MsgBox CStr(&123& + 123) End Sub 程序运行时，单击按钮，消息对话框显示的内容是（ A ） 。 A 246 B 123123 C 123 + 123 D 显示出错信息 30620 在立即窗口中执行语句：a=InputBox(&请输入姓名：&,&姓名&,&张三&),出现输入对话框后直 接选择&确定&按纽后，a 的值为（B） 。 A) 姓名 B) 张三 C) 请输入姓名： D) 以上都不对 30621 下列语句中正确的是（A） 。 A) MsgBox &Error&, vbOKCancel B) MsgBox vbOKCancel, &Error& C) MsgBox (&Error&, vbOKCancel) D) MsgBox (vbOKCancel, &Error&) 30701 将窗体的（C ）属性设置为 True，可使 Form_Load 事件中的 Print 方法显示结果。 A DrawStyle9B DrawMode C AutoRedraw D Enabled 30702 将窗体的 BoderStyle 属性设置为（A ）可使窗口不显示标题栏。 A 0 B 1 C 2 D 5 30703 下列叙述中，正确的是（B ） 。 A 窗体的 Name 属性可以为空 B 窗体的 Name 属性定义窗体的名称 C 可以在运行期间改变窗体的 Name 属性 D 窗体的 Name 属性的值显示在窗体标题栏中 30704 设置窗体的（A ）属性可改变窗体标题。 A Caption B NameC BackColor D BorderStyle 30705 通过（A ）属性设置窗体图标。 A Icon B Picture C MouseIcon D DownPicture 30706 一个工程含有多个窗体及标准模块，下列叙述错误的是（A ） 。 A 如果工程含 Sub Main 过程，程序首先执行该过程 B 任何时刻最多只有一个窗体是活动窗体 C 标准模块不能设置为启动模块 D Hide 方法只是隐藏而不从内存中清除窗体 30707 使用（C ）方法可隐藏窗体，但不从内存中释放。 A Show B Load C Hide D UnLoad 30708 下列叙述中，错误的是（ C） 。 A 窗体的 Load 事件在加载窗体时发生 B 窗体的 Height、Width 属性用于设置窗体的高和宽 C 执行 Unload Form1 语句后，窗体仍在内存中但不可见 D 当窗体的 Enabled 属性为 False 时，对窗体的操作都被禁止 30709 运行后，在窗口上单击鼠标时，窗体不会接收到的事件是（ D） 。 A MouseDown B MouseUp C Click D Load 30710 要使窗体显示在屏幕的中央，应设置属性 StartUpPosition 为（ C） 。 A 0 B 1 C 2 D 3 30711 运行时，单击窗体不能将窗体的背景色设置为红色的事件过程是（C ） 。 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 Sub1030712 可以在运行期间设置窗体的（C ）属性。 A BorderStyle B ControlBox C Icon D MaxButton 30713 在属性窗口设置窗体的 Moveable 属性为 False，使得窗体（ ） B 。 A 不可见 B 不可移动 C 不可放大 D 不可激活 30714 要为窗体设置一幅背景图片，应设置（ ）属性。 D A BackImage B Image C Icon D Picture 30715 能模态显示 Form1 窗口的语句是（ ） C 。 A Form1.Show B Form1.Load C Form1.Show vbModal D Form1.Load vbModal 30716 如果 Form1 是启动窗体，并且 Form1 的 Load 事件过程中有 Form2.Show，则程序启动后 （ A ） 。 A Form1 是最后的活动窗体 B Form2 是最后的活动窗体 C 编译错误 D 运行出 错 30717 能被一个对象所识别的外界动作称为（ A ） 。 A 事件 B 方法 C 过程 D 属性 30718 若要使用 Print 方法在窗体上打印红色的文字，应设置窗体的（ B ）属性。 A Font B ForeColor C Appearance D FillColor 30719 使用（A）方法可隐藏窗体，但不从内存中释放。 A) Hide B) UnLoad C)Show D) Load 30720 下列叙述错误的是（B） 。 A) 当一个窗体变成活动窗体时，会触发 Activate 事件 B) 一旦装载窗体，会自动触发 Click 事件 C) 当单击一个窗体上的关闭按纽卸载该窗体时，会触发 Unload 事件 D) 当一个窗体不再是活动窗体时，会触发 Deactivate 事件 30801 下列叙述错误的是（ A） 。 A 标签和文本框都有 Caption 属性 B 标签和文本框的主要区别在于能否编辑其内容 C 标签具有 AutoSize 属性，而文本框没有 D 文本框具有 ScrollBar 属性，而标签没有 30802 能清除文本框 Text1 中内容的语句是（B ） 。 A Text = && B Text1.Text = && C Text1.clear D Text1.Cls 30803 设置（ A）属性使标签 Label1 没有边框。 A Label1.BorderStyle = 0 B Label1.BorderStyle = 1 C Label1.BackStyle = True D Label1.BackStyle = False 30804 下列叙述错误的是（B ） 。 A 标签和文本框都有 Move 方法 B 标签和文本框都有 Text 属性 C 标签具有 Caption 属性，而文本框没有 D 文本框具有 Locked 属性，而标签没有 30805 下列控件属性赋值语句错误的是（D ） 。11A Label1 = &欢迎& B Text1.Text = &欢迎& C Text1 = &欢迎& D Text = &欢迎& 30806 设置标签 Label1 的（D ）属性使它不可见。 A Label1.Visible = 0 B Label1.Visible == 1 C Label1.Visible = True D Label1.Visible = False 30807 设置标签的（ C）属性，可改变其文字对齐方式。 A Justify B Font C Alignment D 以上都不是 30808 触发文本框 Change 事件的操作是（A ） 。 A 改变文本框的内容 B 改变文本框的大小 C 文本框获得焦点 D 文本框失去焦点 30809 修改文本框的内容触发（B ）事件。 A Modify B Change C ChangeData D AutoSize 30810 对窗体上的文本框 Text1 编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) & &Z& Or Chr(KeyAscii) & &A& Then KeyAscii = 0 End If End Sub 运行时，文本框中能输入的字符是（B ） 。 A 字母 B 大写字母 C 大写字母外的其它字符 D 不能输入字母 30811 文本框没有（ D）属性。 A Name B Left C Font D Caption 30812 要使文本框能显示多行文本，需设置（B ） 。 A AutoSize 属性为 True B MultiLine 属性为 True C SingleLine 属性为 False D MaxLines 属性大于 1 30813 能使文本框 Text1 中文本不可编辑的语句是（ ） D 。 A Text1.Editable = False B Text1.Enabled = True C Text1.TabStop = False D Text1.Locked = True 30814 设置文本框的（ ）属性，可限制文本框中能输入文本的最大长度。 A A MaxLength B Width C MultiLine D MaxText 30815 窗体上有文本框 Text1 和命令按钮 Command1，对 Command1 编写如下事件过程： Private Sub Command1_Click() Text1.Text = &12345& Text1.SelStart = 1 Text1.SelLength = 3 MsgBox Text1.SelText End Sub 运行时，单击命令按钮，出现的信息框显示（ ） B 。 A 12345 B 234 C 123 D &345&1230816 在窗体上有一个名称为 Text1 的文本框，要得到在其中输入字符的 ASCII 码，应使用它 的（ A ）事件。 A KeyPress B KeyUp C KeyDown D Change 30817 由系统触发的事件有（ C ） 。 A MouseMove,MouseUp,MouseDown B Hscrollbox,Click,DblClick C Initialze,Load,Timer D KeyPress,KeyUp,KeyDown 30818 要用文本框控件 Text1 实现一个密码输入框，可以通过（ A ）设置，使得无论用户输入 什么字符文本框只显示“*” 。 A Text1.PasswordChar = &*& B Text1.Font = &*& C Text1.Text = &*& D Text1.Appearance = &*& 30819 要对文本框 Text1 中的文本加删除线，可以通过（ B ）来实现。 A Text1.Font.FontStrikethru = True B Text1.FontStrikethru = True C Text1.Font = vbStrikethru D Text1.Style = vbStrikethru 30820 下列语句中，除（ ）以外，都能使文本框 Text1 不可编辑（ C ） 。 A Text1.Locked = True B Text1.Visible = False C Text1.ReadOnly = True D Text1.Enabled = False 30821 下列叙述正确的是（B） 。 A) 当文本框的内容发生变化时，必将触发 LostFocus 事件 B) 设置文本框的 MaxLength 属性，可限制文本框中能输入文本的最大长度 C) AutoSize 属性为 True 时，能使文本框 Text1 自动改变大小以适应其文本内容的多少 D) 文本框不具有 Left 属性 30822 为了使标签 Label1 有边框，正确的属性设置为（B） 。 A) Label1.BorderStyle=0 B) Label1.BorderStyle=1 C) Label1.BackStyle=0 D) Label1.BackStyle=0 30901 设置图像框的（C ）可使框内的图片按图像框大小自动调整。 A AutoSize 属性为 True B AutoSize 属性为 False C Stretch 属性为 True D Stretch 属性为 False 30902 下列语句组： ScaleWidth = 100 : ScaleHeight = 100 Circle(50, 40) ,10, , , ,2 绘制的是（B ） 。 A 圆形 B 椭圆 C 扇形 D 弧线 30903 将当前目录下的图形文件 Clock.jpg 装入图片框 Picture1 的语句是（ D） 。 A Picture = &Clock1.jpg& B Picture = LoadPicture(&Clock1.jpg&) C Picture1.Picture = &Clock1.jpg& D Picture1.picture = LoadPicture(&Clock1.jpg&) 30904 设置 Line 控件的（A ）属性可使其呈现不同式样。 A BorderStyle B Style C FillStyle D Shape 30905 下列叙述中，错误的是（B ） 。 A Scale 方法用来定义新坐标系13B 窗体缺省坐标原点在窗体的左下角 CScaleLeft 和 ScaleTop 属性可改变坐标系的原点位置。 D ScaleWidth 和 ScaleHeight 属性可改变其对象高度和宽度的刻度单位 30906 下列叙述错误的是（D ） 。 A Pset 方法用于绘制点 B Circle 方法用于画圆、椭圆、圆弧和扇形 C Line 方法用于画直线或矩形 D Ponit 方法用于绘制有颜色的点 30907 设置图片框的（ A）使其按图片尺寸自动调整大小。 A AutoSize 属性为 True B AutoSize 属性为 False C Stretch 属性为 True D Stretch 属性为 False 30908 不属于 VB 作图方法的是（ C） 。 A Pset B Line C Shape D Circle 30909 VB 的图形控件不包括（ B） 。 A 直线 B 框架 C 图像框 D 图片框 30910 为了清除图片框内绘制的图形，应采用的正确方法是（B ） 。 A 选择图片框，然后按 Del 键 B 执行语句 Picture1.Cls C 执行语句 Picture1.Clear D 执行语句 Picture1.Picture=LoadPicture(&&) 30911 窗体中有标签、文本框和用图形方法绘制的图形，它们依次位于哪一图形层（ B） 。 A 上层、中层和下层 B 中层、上层和下层 C 下层、中层和上层 D 上层、下层和中层 30912 设置 Shape 控件的（D ）属性可使其呈现不同形状。 A BorderStyle B Style C FillStyle D Shape 30913 下列语句可使 Shape1 控件呈现为实心图形的是（ ） D 。 A shape1.BorderStyle = 0 B Shape1.BackStyle = 0 C Shape1.Shape = 3 D Shape1.FillStyle = 0 30914 将当前目录下的图像文件 Clock.jpg 装入图像框 Image1 的语句是（ ） D 。 A Image = &Clock1.jpg& B Image = LoadPicture(&Clock1.jpg&) C Image1.Picture = &Clock1.jpg& D Image1.Picture = LoadPicture(&Clock1.jpg&) 30915 为了清除图片框(PictureBox)内装入的图片，应采用的正确方法是（ ） D 。 A 选择图片框，然后按 Del 键 B 执行语句 Picture1.Cls C 执行语句 Picture1.Clear D 执行语句 Picture1.Picture=LoadPicture(&&) 30916 窗体上有一命令按钮 Command1，编写下列事件过程: Private Sub Command1_Click() a = 100: b = 150: c = 2000: d = 2000 Cls Line (a, b)-(c, d), vbBlue, B End Sub 运行时，单击按钮窗体上显示（ A ） 。 A 一个未填充的矩形 B 一条直线14C 一个填满了颜色的矩形 D 无任何图形 30917 窗体上有一命令按钮 Command1，编写下列事件过程: Private Sub Command1_Click() c = 2000: d = 2000 Cls Circle Step(c, d), 1000, vbRed, 3.14, 2 * 3.14, 1 End Sub 运行时，单击按钮，窗体上显示（ C ） 。 A 一个填充的圆 B 一个未填充的圆 C 一段圆弧 D 一个点 30918 执行指令&Form1.Line()-step(),B&后，Form1 的 CurrentX 的值 为（D） 。 A) 1000 B) 1500 C) 500 D)
Pset 方法绘制的点的大小受其容器对象的（ A ）属性的影响。 A) DrawWidth B) Picture C) AutoRedraw D) stretch 31001 复选框的 Value 属性为 0 表示（A ） 。 A 复选框未被选中 B 复选框被选中 C 复选框内有灰色的钩 D 操作出错 31002 单选按钮被选定时，其 Value 属性为（ C） 。 A 1 B 0 C True D False 31003 运行时，下列哪种方法不能选中单选按钮（ B） 。 A 用鼠标单击单选按钮 B 在属性窗口中将单选按钮的 Value 属性设置为 1 C 用 Tab 键将焦点转移到一组单选按钮后单击其中的单选按钮 D 采用单选按钮的访问键快捷方式 31004 下列（B ）语句使复选框 Check1 无效。 A Check1.Value = 1B Check1.Value = 2 C Check1.Style = 1D Check1.Style = 0 31005 下列（ D）语句使复选框 Check1 的标题显示在左边。 A Check1.Style = 0 B Check1.Alignment = 0 C Check1.Style = 1 D Check1.Alignment = 1 31006 下列（B ）语句设置单选按钮 Option1 为选中状态。 A Option1.Value = 0 B Option1.Value = True C Option1.Value = 1 D Option1.Value = False 31007 复选框和单选按钮的（A ）属性可以反应其当前状态。 A Value B Checked C Caption D Selected 31008 单选按钮不具有（ B）属性。 A Value B Checked C CaptionD Stytle 31009 要取得复选框的状态，应访问（A ）属性。 A Value B Checked C VisibleD Enabled 31010 在窗体运行时，复选框处于选中但不激活状态，表示（B ） 。 A Enabled 为 False 且 Value 为 0 B Enabled 为 False 且 Value 为 1 C Enabled 为 True 且 Value 为 0 D Enabled 为 True 且 Value 为 11531011 下列（ B）方法可以将单选按钮设置为图形单选按钮。 A Option1.Style = 0 B Option1.Style = 1 C Option1.Picture = 0 D Option1.Picture = 1 31012 设置（ D）属性可以改变单选按钮或复选框的标题对齐方式。 A Value B Align C SortedD Alighment 31013 下列（ ）方法可以将复选框设置为图形复选框。 B A Check1.Style = 0 B Check1.Style = 1 C Check1.Picture = 0 D Check1.Picture = 1 31014 在实际应用中，经常将一组单选按钮置于一个框架（Frame）控件内，这主要是为了（ ） 。 D A 使用户界面美观 B 使该组单选按钮同步 C 使该组单选按钮处于禁止状态 D 使该组单选按钮互斥，即同一时刻只有一个单选按钮被选中 31015 访问单选按钮的（ ）属性可以获取其状态。 A A Value B Checked C Visible D Enabled 31016 如果要把单选按钮的标题显示在它的左边，应把（ B ） 。 A Alignment 属性设置为 0B Alignment 属性设置为 1 C Style 属性设置为 0 D Style 属性设置为 1 31017 窗体上有一个单选按钮 Option1。如要求当窗体初始显示时 Option1 就处于选中状态，可 以通过（ C ）实现。 A 在窗体的 Load 事件过程中加入语句：Option1.Value = False B 在窗体的 Show 事件过程中加入语句：Option1.Value = False C 在窗体的 Load 事件过程中加入语句：Option1.Value = True D 在窗体的 Show 事件过程中加入语句：Option1.Value = True 31018 下列控件中，可以对单选按钮进行分组是（ A ） 。 A 框架（Frame）控件 B 文本框（TextBox）控件 C 图像框（ImageBox）控件 D 标签（Label）控件 31019 下列（A）语句表示复选框 Check1 被选中。 A) Check1.Value=1 B) Check1.Checked=1 C) Check1.Value=0 D) Check1.Checked=0 31020 复选框和单选按钮的（A）属性可以反映其当前状态。 A) Value B) Checked C) Caption D) Selected 31101 属性窗口为命令按钮的 Picture 属性装入了图片，但却没有显示的原因是（B ） 。 A 按钮的 Enabled 属性为 False B 按钮的 Sytle 属性为 0 C 按钮的 Default 属性为 False D 按钮的 DisabledPicture 属性没有装入图片 31102 如果命令按钮的 Caption 属性包含（ A） ，则按下 Alt+C 可激活该按钮。 A &C B $C C #CD @C 31103 设置命令按钮的（A ）属性为 True，可使按下 Esc 键时执行该按钮的单击事件过程。 A Cancel B Enabled C Value D Default 31104 设置命令按钮的（B ）属性，可使指针指向该按钮时显示提示内容。 A Caption B ToolTipTextC FontD Tag1631105 下列（C ）方法不能触发命令按钮的 Click 事件。 A 在程序运行时单击命令按钮 B 在代码中设命令按钮的 Value 属性为 True C 在设计时设命令按钮的 Default 属性为 True，运行时按 enter 键 D 使用 Tab 键把焦点移到按钮上，然后按空格键或回车键 31106 下列叙述中，错误的是（D ） 。 A 单击命令按钮可触发 MouseDown 事件 B 单击命令按钮可触发 MouseUp 事件 C 命令按钮支持单击事件 D 命令按钮支持双击事件 31107 窗体上有命令按钮 OK,它的单击事件过程为 CmdOK_Click()， 则该按钮的 Name 和 Caption 属性分别为（C ） 。 A OK,Cmd B Cmd,OKC CmdOK,OKDOK，CmdOK 31108 执行（B ）语句，可使窗口的按钮 Command1 上显示“确定” 。 A Command1.Show = &确定& B Command1.Caption = &确定& C Command1.Name = &确定& D Command1.Visible = &确定& 31109 命令按钮不能响应（ A）事件。 A DblClick B DragDrop C KeyPress D MouseMove 31110 在窗体上新建一个命令按钮，其 Index 属性的默认值为（ C） 。 A 0 B 1 C 无 D 任意值 31111 设置命令按钮的（ C）属性，可以使鼠标停在命令按钮上时显示提示信息。 A WhatsThisHelpID B HelpText C ToolTipText D TipText 31112 应通过（D ）属性装入命令按钮处于非激活状态时显示的图片。 A Picture B DragIcon C DownPicture D DisabledPicture 31113 下列语句（ ）可以使命令按钮 Command1 处于禁止状态。 A A Command1.Enabled = False B Command1.Disabled = False C Command1.Enabled = True D Command1.Disabled = True 31114 应通过（ ）属性装入命令按钮处于激活状态时显示的图片。 A A Picture B EnabledPicture C DownPicture D DisabledPicture 31115 下列语句（ ）可以设置命令按钮 Command1 的标题为“黑体” D 。 A Command1.Caption.Name = &黑体& B Command1.Font = &黑体& C Command1.Font.FontName = &黑体& D Command1.FontName = &黑体& 31116 若要设置图形方式的命令按钮，必须（ A ） 。 A 先设置 Style 属性，后设置 Picture 属性 B 先设置 Picture 属性，后设置 Style 属性 C 先设置 Visible 属性，后设置 Caption 属性17D 先设置 Enabled 属性，后设置 Picture 属性 31117 在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Move 500,500 End Sub 程序运行后，单击命令按纽，执行的操作为（ C ） 。 A 窗体向左、上方向各移动 500 B 命令按纽向左、上方向各移动 500 C 窗体移动到距屏幕左边界、上边界各 500 的位置 D 命令按纽移动到距窗体左边界、上边界各 500 的位置 31118 要设计一个图形方式的命令按钮，且按钮被按下与不按下时显示不同的图像，可通过对 （ D ）属性进行设置。 A Picture、DisabledPicture B Picture、DownPicture C Style、Picture 和 DisabledPicture D Style、Picture 和 DownPicture 31119 当命令按钮控件 Commandl 的 Enabled 属性被设为 False 时，该控件（ C ） 。 A 不可见，不能响应事件 B 变为灰色，但能响应事件 C 变为灰色，不能响应事件 D 可见并且能响应事件 31120 设置命令按钮的（ C ）属性为 True，可在按下 Esc 键时执行该按钮的单击事件过程。 A)Enabled B) Value C) Cancel D) Default 31121 窗体上有命令按钮“OK”,它的单击事件过程为 CmdOK_Click(B)，则该按钮的 Caption 和 Name 属性分别为（ B ） 。 A) OK,Cmd B)OK，CmdOK C) CmdOK,OK D) Cmd,OK 31201 引用列表框 List1 最后一项数据应使用（B ） 。 A List1.List（ListCount-1) B List1.List（List1.ListCount-1) C List1.List（ListCount) D List1.List（List1.ListCount) 31202 下列（ C）控件结合了文本框和列表框的特性。 A 图片框 B 图像框 C 组合框 D 标签 31203 将列表框的 MultiSelect 属性设置为（ D）后，可用 Shift 或 Ctrl 键配合鼠标在列表框中 进行多项选择。 A 无 B 0 C 1 D 2 31204 引用列表框 List1 被选中项数据应使用（D ） 。 A List1.list B List1.listCountC List1.Index D List1.Text 31205 使用（D ）语句将&北京奥运&添加到列表框 List1 的首项。 A List1.Text = &北京奥运& B List1.AddItem &北京奥运& C List1.List(0) = &北京奥运& D List1.AddItem &北京奥运&,0 31206 使用（D ）方法可以只删除列表框指定项目。 A Cls B ClearC RemoveD RemoveItem1831207 用（ D）方法可将项目添加到组合框中。 A List B ListIndexC AddD AddItem 31208 能输出组合框 Combo1 中现有项目数的语句是（ C） 。 A Print Combo1.ListIndex B Print Combo1.Index C Print Combo1.ListCount D Print Combo1.Count 31209 使用（ C）语句可将组合框 Combo1 的第 3 项置为当前项。 A Combo1.ListIndex = 3 B Combo1.Index = 3 C Combo1.ListIndex = 2 D Combo1.Index = 2 31210 使用（B ）方法可以一次性删除列表框中全部项目。 A Cls B Clear C Remove D RemoveItem 31211 要将字符串数组 a 中所有学生姓名按数组下标顺序追加到列表框 List1 中，可以使用的程 序段为（C ） 。 A List1.AddItem a B For i = 0 To UBound(a) - 1 List1.AddItem a(i), 0 Next i C For i = 0 To UBound(a) - 1 List1.AddItem a(i) Next i D For i = 0 To UBound(a) - 1 List1.List(i) = a(i) Next i 31212 要删除列表框 List1 中选定的某一项，可以使用的程序段为（ A） 。 A List1.RemoveItem (List1.ListIndex) B List1.RemoveItem List1.Columns(List1.ListIndex) C List1.Clear List1.ListIndex D List1.Clear List1.Columns(List1.ListIndex) 31213 将列表框的 MultiSelect 属性设置为（ ）后，可以使用鼠标进行多项选择，但无法结合 Shift 或 Ctrl 键同时进行。 C A 无 B 0 C 1 D 2 31214 使用（ ）语句可将列表框 List1 的第 3 项的值置为“Basic” 。 D A List1.ListIndex(3) = &Basic& B List1.ListIndex(2) = &Basic& C List1.List(3) = &Basic& D List1.List(2) = &Basic& 31215 设置列表框的（ ）属性可以使每个列表项前面出现一个复选框。 A A Style B Sorted C MultiSelect D ListCheck 31216 使用（ C ）语句可将组合框 Combo1 的第 1 项置为当前项。 A Combo1.ListIndex = 1 B Combo1.Index = 1 C Combo1.ListIndex = 019D Combo1.Index = 0 31217 使用（ D ）语句可将列表框 List1 的第 3 项的值置为“VB6.0” 。 A List1.ListIndex(3) = &VB6.0& B List1.ListIndex(2) = &VB6.0& C List1.List(3) = &VB6.0& D List1.List(2) = &VB6.0& 31218 设有两个列表框控件 List1 和 List2，下列代码段的功能是（ C ） 。 For i = 0 To List1.ListCount - 1 List2.List(i) = List1.List(i) Next i A 将 List1 的所有列表项追加到 List2 中 B 将 List1 的所有列表项插入到 List2 的前部 C 用 List1 的所有列表项覆盖 List2 中对应位置的列表项 D 用 List1 取代 List2 31219 假设列表框控件 List1 被设置为允许多重选择，那么可以返回所选列表项数目的属性是 （ A ） 。 A SelCount B ListCount C DataCount D Count 31220 使用（ D ）语句将&06 足球世界杯&添加到列表框 List1 的首项。 A List1.Text = &06 足球世界杯& B List1.AddItem &06 足球世界杯& C List1.List(0) = &06 足球世界杯& D List1.AddItem &06 足球世界杯&,0 31221 设组合框 Combo1 中有 5 个选项，下列能删除最后一项的语句是（D） 。 A) Combo1.RemoveItem Text B) Combo1.RemoveItem Combo1.Listcount C) Combo1.RemoveItem 5 D) Combo1.RemoveItem 4 31222 若列表框 List1 中有 5 个选项，下列（A）语句可以把选项&Visual Basic&添加到列表框的最 后一项。 A) List1.AddItem &Visual Basic& , List1.ListCount B) List1.AddItem &Visual Basic& , List1.ListCount-1 C) List1.AddItem &Visual Basic& , 4 D) List1.AddItem 4 , &Visual Basic& 31301 计时器控件以一定时间间隔触发（D ）事件。 A Enabled B Interval C Timer1 D Timer 31302 将框架的（ A）属性设为 False，可使框架内的所有对象在运行时均不可操作。 A Enabled B Visible C BorderSytle D ClipControls 31303 拖动滚动条中的滑块将触发滚动条的（ B）事件。 A Slide B Scroll C DragOver D DragDrop 31304 下列叙述错误的是（D ） 。 A 计时器的 Enabled 属性为 False，会暂停计时器的计时操作 B 运行时计时器不可见，所以其位置和大小无关紧要 C 触发计时器 Timer 事件的时间间隔可人为设定20D 计时器的 Interval 属性以秒为单位 31305 用（A ）分隔同一窗体中的多组单选按钮，使它们互不干扰。 A 框架 B 组合框 C 复选框 D 列表框 31306 单击滚动条两端的箭头可触发滚动条的（ A）事件。 A Change B Scroll C DragOverD ItemCheck 31307 设置（ D）属性可改变单击滚动条两端箭头时的滚动步长。 A Max B Min C LargeChangeD SmallChange 31308 将框架的（B ）属性设为 False，可使框架内的所有对象在运行时均不可见。 A Enabled B Visible C BorderSytleD ClipControls 31309 计时器控件能正常工作应具备的两个条件是（ C） 。 A Enabled 属性为 True 和 Interval 属性为 0 B Enabled 属性为 False 和 Interval 属性为 0 C Enabled 属性为 True 和 Interval 属性非 0 D Enabled 属性为 False 和 Interval 属性非 0 31310 述中,错误的是（D ） 。 A Timer 是计时器的唯一事件 B Timer 事件的时间间隔可人为设定 C 计时器的 Enabled 属性为 False，会暂停其计时操作 D 通过适当的设置，运行时计时器可以显示在窗体上 31311 计时器控件 Timer1 的 Interval 属性为 2000，执行如下事件过程： Private Sub Timer1_Timer() Dim i% static j% For i = 1 To 6 j=j+2 Next i End Sub 运行后 5 秒时，j 的值为（C） 。 A 0 B 12 C 24 D 以上都不是 31312 下列叙述中，正确的是（C ） 。 A 框架不响应任何事件 B Caption 是框架的唯一属性 C Timer 是计时器的唯一事件 D 计时器的 Interval 属性以秒为单位 31313 计时器控件的（ ）属性可以控制 Timer 事件发生的时间间隔。 B A Enabled B Interval C TimerSet D Timer 31314 下列关于框架及其内部放置的命令按钮的叙述，错误的是（ ） D 。 A 命令按钮跟随框架一起移动 B 如果框架被禁止，则命令按钮也被禁止 C 如果框架不可见，则命令按钮也不可见 D 单击框架时，框架和命令按钮的 Click 事件同时被激发 31315 设置（ ）属性可改变单击滚动条空白处时的滚动步长。 C A Max B Min C LargeChange D SmallChange 31316 可以触发滚动条的 Scroll 事件的操作是（ C ） 。 A 单击滚动条空白处 B 单击滚动条两端的箭头 C 拖动滚动条的滑块 D 单击滚动条的滑块2131317 下列程序片断中，可以使计时器控件 Timer1 每隔 2 秒触发一次的是（ D ） 。 A Timer1.Interval = 200 B Timer1.Interval = 2000 C Timer1.Enabled = True: Timer1.Interval = 200 D Timer1.Enabled = True: Timer1.Interval =
假设时钟控件的 Interval 属性为 500，Enabled 属性为 True，并且有下面的事件过程，程 序运行 10 秒后变量 x 的值为（B） 。 Dim x As Integer Private Sub Timer1_Timer() x = x + 10 End Sub A) 10000 B) 200 C) 5000 D) 以上都不对 31319 下列叙述错误的是（A） 。 A) 计时器的 Interval 属性值以秒为单位 B) 将计时器的 Enabled 属性设置为 False，会暂停计时器的操作 C) 计时器以一定的时间间隔触发 Timer 事件 D) 程序运行时计时器不可见，所以其位置无关紧要 31401 使用（A ）方法将焦点移到某个控件上。 A SetFocus B GotFocusC MoveD Refresh 31402 文本框获得焦点时，能触发 KeyPress 事件的操作是（ C） 。 A 选定文本框中内容 B 双击文本框 C 按下键盘上的某个键 D 单击文本框 31403 下列叙述中，错误的是（ A） 。 A 所有的控件均支持 Tab 顺序 B 可以在设计阶段改变 Tab 顺序 C 可以在运行阶段改变 Tab 顺序 D 可以设置相应的属性使 Tab 顺序不起作用 31404 下列叙述中，正确的是（D ） 。 A 不同控件的 TabIndex 属性可以相同 B 同一窗体中不同控件的 TabIndex 属性值可以任意设置 C 窗体、命令按钮、标签和文本框控件都有 TabIndex 属性 D 窗体上控件的 TabIndex 属性值必须小于该窗体的控件个数 31405 对文本框 Text1 编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim b As String b = Chr(KeyAscii) KeyAscii = Asc(UCase(b)) End Sub 运行时，下列叙述正确的是（C ） 。 A Text1 中无法输入字符 B Text1 中内容为&b& C Text1 中输入的字符都变为大写 D Text1 中输入的字符都被转换成 ASCII 码 31406 下列叙述错误的是（ D） 。22A 在 KeyDown 事件中，键盘上输入的 A 或 a 被视作相同的字母 B 在 KeyUp 事件中，键盘上的&1&和右侧小键盘上的&1&视作不同的数字 C 只有获得焦点的对象才能够接受键盘事件 D KeyPress 事件中可以识别键盘上某个键的按下与释放 31407 下列叙述错误的是（ A） 。 A 如果文本框的 TabStop 属性为 False，则不能接收从键盘上输入的数据 B 文本框的 Enabled 属性为 False 时，其 Tab 顺序不起作用 C 文本框失去焦点时，触发 LostFocus 事件 D 可以用 TabIndex 属性改变 Tab 顺序 31408 设置控件的（ C）属性为 False，使该控件不能通过 Tab 键得到焦点。 A GotFocusB SetFocusC TabStopD TabIndex 31409 要使用自定义的鼠标指针，必须将 MousePointer 属性设置为（ D） 。 A 0B 15C 3D 99 31410 编写如下两个事件过程： Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub 运行时，在不按住 Shift 键和没有锁定大写情况下，按&A&键，程序的输出是（A ） 。 A Aa B aA C AA D aa 31411 运行时单击窗体，以下事件发生的次序是（B ） 。 A MouseDown、Click、MouseUp B MouseDown、MouseUp、Click C Click、MouseDown、MouseUp D 随机发生 31412 编写如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_ X As Single, Y As Single) If Shift = 3 And Button = 2 Then Print &Visual Basic& End If End Sub 运行时，为了在窗体上输出&Visual Basic&，应执行的操作为（D ） 。 A 按下 Shift 键和鼠标左键 B 同时按下 Shift、Alt 键和鼠标左键 C 按下 Alt 键和鼠标右键 D 同时按下 Shift、Ctrl 键和鼠标右键 31413 当控件失去焦点时，触发的事件是（ ） C 。 A GotFocus B SetFocus C LostFocus D MoveFocus 31414 当文本框的 TabStop 属性设为 False 时，下列叙述正确的是（ ） D 。 A 该文本框无法获得焦点 B 无法在该文本框中输入文本 C 焦点将始终停留在该文本框上23D 该文本框无法通过使用 Tab 键获得焦点 31415 使用（ ）语句可使窗体的鼠标指针呈现“沙漏”型。 D A Me.MousePointer = vbArrow B Me.MousePointer = vbCustom C Me.MousePointer = vbCross D Me.MousePointer = vbHourglass 31416 在窗体上画一文本框 Text1，要求文本框只能接收大写字母的输入，以下能实现该操作的 事件过程是（ A ） 。 A Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii〈65 Or KeyAscii & 90 Then MsgBox &请输入大写字母& KeyAscii = 0 End If End Sub B Private Sub Text1_Change( ) If Asc(Text1.Text) & 64 And Asc(Text1.Text) & 91 Then MsgBox &请输入大写字母& KeyCode = 0 End If End Sub C Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Asc(Text1.Text) & 65 Or Asc(Text1.Text) & 90 Then MsgBox &请输入大写字母& End If End Sub D Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode〈65 Or KeyCode & 90 Then MsgBox &请输入大写字母& KeyCode = 0 End If End Sub 31417 运行时单击窗体，以下事件发生的次序是（ B ） 。 A MouseDown、Click、MouseUp B MouseDown、MouseUp、Click C Click、MouseDown、MouseUp D 随机发生 31418 窗体上有一个文本框控件 Text1，编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii & Asc(&0&) Or KeyAscii & Asc(&9&) Then KeyAscii = 0 End If End Sub 运行时，关于 Text1 说法正确的是（ A ） 。 A 只能向 Text1 中输入数字字符（0～9） B 只能向 Text1 中输入 ASCII 码在 0～9 之间的字符 C 只能向 Text1 中输入非数字字符24D Text1 不接受任何输入 31419 编写如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ X As Single, Y As Single) If Shift = vbShiftMask + vbCtrlMask And Button = vbRightButton Then Print &Visual Basic& End If End Sub 运行时，为了在窗体上输出&Visual Basic&，应执行的操作为（ D ） 。 A 按下 Shift 键和鼠标左键 B 同时按下 Shift、Alt 键和鼠标左键 C 按下 Alt 键和鼠标右键 D 同时按下 Shift、Ctrl 键和鼠标右键 31420 在程序运行时，按 Tab 键跳过了一个可以获得焦点的控件(如文本框),这可能是因 为（D） 。 A) 该控件的 Enabled 属性为 True B) 该控件的 Enabled 属性为 False C) 该控件的 TabStop 属性为 True D) 该控件的 TabStop 属性为 False 31421 对文本框 Text1 编写如下的事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim x As String x = Chr(KeyAscii) KeyAscii = Asc(UCase(x)) Print String(4, KeyAscii) End Sub 程序运行后，将焦点位于文本框，如果在键盘上输入字母&a&，则窗体上显示的内容是（C） 。 A) A B) B C) AAAA D) aaaa 31501 下列求两数中最小数的程序段不正确的是（ D） 。 A If x & y Then Min = x Else Min = y B Min = IIf(x & y，x，y) C Min = x : If y & = x Then Min = y D If y & = x Then Min = y : Min = x 31502 下列程序段的执行结果是（ B） 。 x=3:y=5:z=9 x=x+y y=x-y If x - y & z - x Then z = x + y If x + y & z - y Then x = z + y Print x, y, z A 3 5 9 B 14 3 11 C 8 3 11 D 8 5 9 31503 窗体上有一个命令按钮 Command1，编写如下事件过程： Private Sub Command1_Click()25Sum = 0 For m = 1 To 3 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 运行时，单击按钮，输出结果是（D ） 。 A 3339 B 3216 C 1113 D
窗体上有一个命令按钮 Command1，编写如下事件过程： Private Sub Command1_Click() a = 80: b = 50: c = 30 If a & b Or b & c Then b = c If b = c And a & c Then a = a - 30 If a = b And b & c Then c = a + b Print a, b, c End Sub 运行时，单击按钮，窗体输出的结果是（B ） 。 A 80 50 30 B 80 30 30 C 50 30 80 D 50 30 30 31505 执行下列程序段后，x 的值是（C ） 。 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 31506 执行下列程序段后，窗体输出的结果是（B ） 。26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 31507 执行下列语句后，x 的值是（A ） 。 a=3 x = IIf(a & 5, int(-5.6), Fix(5.6)) A 5 B -5 C 6 D -6 31508 窗体上有一个命令按钮 Command1，编写如下事件过程： Private Sub Command1_Click() a = Val(InputBox(&请输入分数：&, &计算你的等级&, 60)) If a & 0 Or a & 100 Then Print &输入错误& ElseIf a & 60 Then Print &不合格& ElseIf a & 80 Then Print &合格& Else Print &优秀& End If End Sub 运行时，单击按钮，在输入对话框中直接回车，输出结果为（ C） 。 A 输入错误 B 不合格 C 合格 D 优秀 31509 如果 x 小于 y 的平方，则在窗体上输出“OK” 。完成该要求的单行条件语句是（C ） 。 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& 31510 有如下程序段： Dim s%, t%, a%, b% s = 1: t = 1 a = Text1.Text b = Text2.Text If a & 0 Then s = s + 1 If a & b Then t=t+s Else27If a = b Then t=5 Else t=2*s End If End If Print t End Sub 要使程序输出结果为 4，则 a 和 b 应满足的条件是（ A） 。 A a&0 And a&b B a&0 And a&b C a&0 And a&b D a&0 And a&b 31511 以下条件语句错误的是（D） 。 A If X Then Y = Y + 1 B If X = 0 Then Y = 0 C If X & 0 Then Y = 1: Print Y D If X & Y Then Print Y :End If 31512 有语句 If X = 0 Then Y = 0，下列叙述中，正确的是（C ） 。 A X=0 和 Y=0 均为赋值语句 B X=0 和 Y=0 均为关系表达式 C X=0 为关系表达式，Y=0 为赋值语句 D X=0 为赋值语句，Y=0 为关系表达式 31513 下列程序段的执行结果是（ ） A 。 x = 100: y = 80: z = 30 If x & y Or y & z Then y = z If y = z And x & 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 31514 执行下列程序段后，窗体输出的结果是（ ） A 。 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 31515 窗体上有一个命令按钮 Command1，编写如下事件过程：28Private Sub Command1_Click() Dim a%, b% a = 6: b = -1 If a & 0 Or b & 0 Then a=b ElseIf a & 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 运行时，单击按钮，窗体输出的结果为（ ） D 。 A 6 6 B 5 -1 C 6 -6 D -1 -1 31516 在窗体上画一个名称为 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 程序运行后,单击命令按钮,窗体上显示的是（ C ） 。 A -5 B 25 C 1 D -1 31517 下列程序段是求两个数中的最大数，其中不正确的是（ D ） 。 A If a & b Then Max = b Else Max = a B Max = IIf(a & b，a，b) C Max = a : If b & = a Then Max = b D If b & = a Then Max = b : Max = a 31518 窗体上有一个文本框 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 中输入 4 后单击命令按钮，Text1 中内容是（ D ） 。29B - C * D 非法 窗体上有一个命令按钮 Command1，编写下列事件过程： Private Sub Command1_Click() x = InputBox(x) If x ^ 2 = 16 Then y = x If x ^ 2 & 16 Then y = 1 / x If x ^ 2 & 16 Then y = x ^ 2 + 1 Print y End Sub 运行时，单击按钮，在输入框中输入 6 后回车，窗体上将显示（ C ） 。 A 6 B 0.16666 C 37 D 65 31520 下列程序段的执行结果是（C） 。 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 31521 下列程序段的执行结果是（C） 。 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 31601 已知字母 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) A + 3151930运行时要使单击按钮后输出如下结果，程序中空缺的部分应为 （B） D EDE FEDEF GFEDEFG A 1 To 4 B 1 To 3 C 1 To 4 step 2 D 1 To 3 step 2 31602 阅读下列程序段： x=0 For i = 1 To 4 For j = 1 To i x=x+1 Next j, i 执行以上循环后，x 的值为（C ） 。 A 6 B 9 C 10 D 16 31603 运行下列程序，单击窗体后输出的结果是（D ） 。 Private Sub Form_Click() Dim k As Integer For k = 1 To 2 Print &3& + &3& & Spc(3); Next End Sub A 31 31 32 32 B 4 31 5 32 C 31 31 32 32 D 4 31 5 32 31604 执行下列程序段后输出的结果是（D ） 。 s=1 For i = 1 To 3 For j = 0 To i-1 s=s+s*j Next j ? Next i A 1 2B 2 1C 2 2 12D 1 2 12 31605 阅读下列程序段： m=0 For i = 1 To 3 For j = 1 To i m=m+j Next j, i 执行以上的循环后，i 和 m 的值分别为（ D） 。 A 3 6B 3 10C 4 6D 4 10 31606 运行下列程序段，其中“n=n+1”语句被执行的次数是（B ） 。 Dim m%, n% For m = 1 To 331For n = 1 To 6 Step 2 n=n+1 Print n Next Next A 3 B 6 C 9D 18 31607 窗体上有两个文本框（Text1、Text2）和一个命令按钮 Command1，编写如下事件过程： Private Sub Command1_Click() x=0 Do While x & 50 x = (x + 2)* (x + 4) n=n+1 Loop Text1.Text = CStr(n) Text2.Text = CStr(x) End Sub 运行时，单击按钮，Text1 和 Text2 将分别显示（C ） 。 A 0 和 0 B 1 和 8C 2 和 120 D 3 和
窗体上有一个命令按钮 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 运行时，单击按钮，输出结果是（C ） 。 A 4 B 8 C 20D 32 31609 窗体上有一个命令按钮 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 运行时，单击按钮，输出结果是（C ） 。 A 6 6 B 6 18C 12 6D 12 18 31610 窗体上有一个命令按钮 Command1，编写如下事件过程：32Private Sub Command1_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 200 sum = sum + i If i Mod 19 = 18 Then Exit For End If Next i Print sum End Sub 运行时，单击按钮，输出结果是（ D） 。 A 20100 B 0 C 190 D 171 31611 如下程序段的功能是计算 1/2+1/4+1/6 +...+1/50，并显示结果。 Private Sub Command1_Click() Dim i As Integer Dim sum As Double i=2 sum = 0 Do While (i &= 【1】) sum = sum + 1 / 【2】 i=i+2 Loop Print sum End Sub 程序的空缺处【1】和【2】应分别填写（ B） 。 A 50,sum B 50,I C 100,sum D 100,i 31612 窗体上有一个命令按钮 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 运行时，单击按钮，输出结果是（ C） 。 A 编译错误 B 2401 C 2500D 变量 sum 溢出 31613 运行下列程序，单击窗体后输出结果是（ ） B 。 Private Sub Form_Click() Dim i%, j%, k% i = 1: j = 1: k = 10 Do While i &= k j=j+233i=i+2 Loop Print j End Sub A 9 B 11 C 13 D 21 31614 窗体上有一个命令按钮 Command1，编写如下事件过程： Private Sub Command1_Click() Dim i%, j% For i = 1 To 3 For j = 0 To i Print Chr$(48 + i); Next j Print Next i End Sub 运行时，单击按钮，输出结果是（ ） C 。 A 123 B 1 22 333 C 11 222 3333 D 0 11 222
窗体上有文本框 Text1 和命令按钮 Command1，编写如下事件过程： Private Sub Command1_Click() Dim i%, x% For i = 1 To 100 i=i+2 x=x+2 If i & 10 Then Exit For Next i Text1.Text = Str$(x) End Sub 运行后，单击按钮，Text1 显示（ ） 。 B A 6 B 8 C 10 D 100 31616 以下程序段的输出结果是（ C ） 。 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 31617 运行下列程序，单击窗体后输出的结果是（ C ） 。 Private Sub Form_Click() s=1 For i = 1 To 2 For j = 0 To i34A B C Ds=s+s*j P Spc(2); Next j Print Next i End Sub 1 2 4 12 1 2 2 4 1 2 2 4 12 1 21 2 6窗体上有一个命令按钮 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 i Print a End Sub 运行时，单击命令按钮，窗体上将显示（ C ） 。 A 3 B 4 C 5 D 6 31619 设有以下程序段： For i = 1 To 4 For j = 6 To 1 Step -1 Print i * j Next j, i 则语句 Print i * j 的执行次数是（ C ） A 12 B 13 C 24 D 25 31620 窗体上有命令按钮 Command1，编写下列事件过程： Private Sub Command1_Click() x=0 Do While x & 10 x = (x - 2) * (x + 3) n=n+1 Loop End Sub 运行时，单击按钮，n 和 x 的值分别时（ B ） 。 A 1 和 0 B 2 和 24 C 3 和 50 D 4 和 68 31621 下列程序段的执行结果是（B） 。 For i = 3 To 1 Step -1 Print Spc(5 - i); 3161835For j = 1 To 2 * i - 1 Print &*&; Next j Print Next i A) * *** ***** B) ***** *** * C) ***** *** * D) ***** *** * 31622 下列程序段的执行结果是（B） 。 n=1 J=1 Do While J &= 4 n=n*J P J=J+1 Loop A) 1 2 3 4 B) 1 2 6 24 C) 2 4 6 8 D) 1 4 7 11 31701 在通用声明中给出 Option Base 1 语句，则数组 a 包含（ C）个元素。 Dim a(3, -2 To 1, 5) A 120 B 75 C 60 D 13 31702 下列叙述中，错误的是（C ） 。 A 控件数组的每一个元素共享同样的事件过程 B 控件数组的每一个元素都有与之相关联的下标值 C 控件数组的每一个元素都有不同的 Name 属性作为标识 D 可在运行过程中删除控件数组的某个元素 31703 运行下列程序，单击窗体后输出的结果是（ B） 。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3) For i = 2 To 0 Step -1 s = s + a(i) * a(i) Next i Print s End Sub A 13 B 14 C 不确定 D 程序出错 31704 如下数组声明语句中数组 a 包含的元素个数为（A ） 。 Dim a(3, -2 To 1, 5) A 96 B 75 C 60 D 13 31705 下列语句错误的是（ B） 。 A Private a(-10 To 5) B Dim a(N) 'N 为变量 C Dim a() As Integer36D Dim a%(10,-10 To -10) 31706 运行下列程序，单击窗体后输出的结果是（B ） 。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3, 4, 5, 6) s=1 For i = 5 To 1 Step -2 s = s * a(i) Next i Print s End Sub A 15 B 48 C 120 D 720 31707 窗体上有一个命令按钮 Command1，编写如下事件过程： Private Sub Command1_Click() Dim a(10) For j = 6 To 10 a(j) = j - 5 Next j Text1.Text = a(0) + a(a(10) / a(6)) End Sub 运行时，单击按钮，Text1 中显示（A ） 。 A 0 B 1 C 2 D 3 31708 能使一维数组 arr(6)元素个数加 1，但保留数组中原有元素的语句是（B ） 。 A ReDim arr(7) B ReDim Preserve arr(7) C Public arr(1 To 7) D Static arr(7) 31709 如下程序段中包含一个错误。 x=4 Dim a(x) For m = 4 To 0 Step -1 a(m) = m + 1 Next m 出错的原因是（C ） 。 A 第四行，数组元素 a(m)下标越界 B 第四行，不能用循环变量 m 进行运算 C 第二行，不能用变量定义数组下标 D 以上原因都不对 31710 有声明 Dim a(-3 To 1，3) As Integer，则下列叙述中正确的是（B ） 。 A 数组 a 是二维动态数组 B 数组 a 共有 20 个元素 C a(0，0)不是该数组的元素 D a(1，1)是该数组的第十个元素 31711 对窗体上的命令按钮编写如下事件过程： Private Sub Command1_Click() Dim array1(10, 10) As Integer37Dim i, j As Integer For i = 2 To 4 For j = 3 To 5 array1(i, j) = i * j Next j Next i Print array1(2, 4) + array1(3, 4) End Sub 运行时，单击命令按钮后输出的结果是（C ） 。 A 9 B 13 C 20 D 程序出错 31712 运行下列程序，单击窗体后输出结果是（ C） 。 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 = 1 To 3 Print a(5 - i); Next i End Sub A 321 B 432 C 543 D 654 31713 对窗体上的命令按钮编写如下事件过程： Private Sub Command1_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 10 For j = 1 To 10 arr(i, j) = i + 2 * j Next j Next i Print arr(0, 1) + arr(2, 3) End Sub 运行时，单击命令按钮后输出的结果是（ ） 。 A A 8 B 10 C 20 D 下标越界 31714 窗体上有一个命令按钮 Command1，编写如下事件过程： Private Sub Command1_Click() Dim s%, i%, j% Dim a(3, 3) As Integer For i = 1 To 3 For j = 1 To i a(i, j) = j s = s + a(i, j)38Next j, i Print s End Sub 运行时，单击按钮，则窗体上显示的内容是（ ） 。 C A 6 B 9 C 10 D 18 31715 运行下列程序，单击窗体后输出结果是（ ） C 。 Private Sub Form_Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6) For i = 1 To a(5) j=j+1 Next i Print j End Sub A 0 B 5 C 6 D 程序出错 31716 能刚好存放如下方阵数据的数组声明语句是（ C ） 。 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9 A Dim A(9) as Single B Dim A(3,3) as Single C Dim A(-1 to 1, -5 to -3) as Single D Dim A(-3 to -1,5 to 7) as Integer 31717 子过程 Sele 的形式参数为一数组，则以下定义语句正确的是（ B ） 。 A Private Sub Sele(A(20) As integer) B Private Sub Sele(A() As integer) C Private Sub Sele(A(,) As integer) D Private Sub Sele(ByVal A() As integer) 31718 以下定义数组或给数组元素赋值的语句中，正确的是（ A ） 。 A Dim a As Variant a=Array(1,2,3,4,5) B Dim a(10) As Integer a=Array(1,2,3,4,5) C Dim %A(10) a(1)=&ABCD& D Dim a(3),b(3)As Integer a(0)=0:a(1)=1:a(2)=2: b=a 31719 设 arr 是一个上界为 K 的一维动态数组。能使 arr 元素个数增加 1，但保留数组中原有数 据的语句是（ D ） 。 A ReDim arr(K + 1) B ReDim Static arr(K + 1) C Public arr(1 To K + 1) D ReDim Preserve arr(K + 1) 31720 设数组下标从 0 开始，有如下过程 Fun： Private Sub Fun(a() As Integer) Dim T Dim J As Integer J = (LBound(a) + UBound(a)) \ 239For i = LBound(a) To J T = a(i): a(i) = a(UBound(a) - i): a(UBound(a) - i) = T Next i End Sub 下列对其功能的叙述正确的是（ C ） 。 A 该过程能对传入数组进行升序排序 B 该过程能对传入数组进行降序排序 C 该过程能对传入数组进行逆序存放 D 以上均不对 31721 窗体上有命令按钮 Command1，编写下列事件过程： Private Sub Command1_Click() Dim a(10) As Integer Dim p(3) As Integer k=1 For I = 1 To 10 a(I) = I Next I For I = 1 To 3 p(I) = a(I * 3) Next I For I = 1 To 3 k = k + p(I) * 2 Next I Print k End Sub 运行时，单击命令按钮，窗体将显示（ D ） 。 A 15 B 13 C 30 D 37 31722 下列数组声明语句中正确的是（B） 。 A) Dim a[3,4] as Integer B) Dim a(3,4) as Integer C) Dim a(n,4) as Integer D) Dim a(3 4) as Integer 31723 如下数组声明语句中数组 a 包含的元素个数为（A） 。 Dim a(3, -1 To 1, 6) A) 84 B) 54 C) 72 D) 18 31801 窗体上有两个文本框（Text1、Text2）和一个命令按钮（Command1） ，阅读如下程序： Private Sub func(T As TextBox, a As Integer) T.Text = &1234& a=a*a End Sub Private Sub Form_Load() Text1.Text = &ABCD& Text2.Text = 10 End Sub Private Sub Command1_Click() Dim temp As Integer temp = Val(Text2.Text)40Call func(Text1, temp) Text2.Text = temp End Sub 运行后，单击按钮，Text1 和 Text2 将分别显示（B ） 。 A ABCD 和 10 B 1234 和 100 C ABCD 和 100 D 1234 和 10 31802 窗体上有命令按钮 Command1 和 Command2，请阅读下列程序： Dim a As Integer Private Sub Command1_Click() a = a + 3 : Print a End Sub Private Sub Command2_Click() a = a + 2 : Print a End Sub 运行时，分别单击 Command1 和 Command2 按钮，输出的结果为（A ） 。 A 3 5 B 3 2 C 2 5 D 2 3 31803 运行下列程序，单击窗体后输出的结果是（ B） 。 Function F(ByVal x As Integer) Static z z = z + 1: x = x + z F=x+z End Function Private Sub Form_Click() Dim a As Integer Dim i As Integer a=2 For i = 1 To 3 Print F(a), Next i End Sub A 4 7 11 B 4 6 8 C 4 4 4 D 4 5 6 31804 阅读下列程序： Sub Med(x%, ByVal y%) x = 3 * x: y = x + y End Sub Private Sub Form_Click() Dim a%, b% a = 3: b = 8 Med a, b Print a, b End Sub 运行后，单击窗体，输出结果为（ C） 。 A 3 8 B 3 1741C 9 8 D 9 17 31805 阅读下列程序： Private Sub Form_Click() Dim m As Integer Static n As Integer For i = 1 To 3 n=n+i m=m+i^2 Next Print m, n End Sub 运行时，两次单击窗体，输出结果为（B ） 。 A 14 6 14 6 B 14 6 14 12 C 14 6 28 6 D 14 6 28 12 31806 窗体上有一个命令按钮 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，则窗体上显示的内容是（ B） 。 A 6 B 10 C 14 D 18 31807 阅读如下程序， Dim S As Single, a As Single, b As Single a = 1: b = 2 plus S, a, b Print S 不能使其输出结果为 3 的 plus 过程为（ B） 。 A Sub plus(sum As Single, a As Single, b As Single) sum = a + b End Sub B Sub plus(ByVal sum As Single, a As Single, b As Single) sum = a + b End Sub C Sub plus(ByRef sum As Single, ByVal a As Single, ByVal b As Single) sum = a + b End Sub D Sub plus(sum As Single, ByRef a As Single, ByRef b As Single)42sum = a + b End Sub 31808 窗体上有命令按钮 Command1 和 Command2，阅读下列程序： Dim a As Integer Private Sub Form_Load() a = 0: a = a + 1 End Sub Private Sub Command1_Click() Dim a As Integer a=a+2 Print a End Sub Private Sub Command2_Click() Print a End Sub 运行时，先后单击 Command1 和 Command2 按钮，输出的结果为（D） A 3 1 B 3 3 C 2 2 D 2 1 31809 窗体上有命令按钮 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 ） 。 A 1 1 B 2 2 C 1 2 D 2 1 31810 下列叙述中，错误的是（D ） 。 A 控件可以作为过程的参数 B 窗体可以作为过程的参数 C 数组作为过程的参数时，使用“传地址”方式 D 只有函数过程能够将过程中处理的数据传回到主调程序中 31811 窗体上有标签（Label1、Label2）和命令按钮（Command1） ，编写如下事件过程： Private x As Integer Private Sub Command1_Click() Dim x As Integer, y As Integer x = 5: y = 3 proc x, y Label1.Caption = x Label2.Caption = y End Sub Private Sub proc(ByVal a As Integer, b As Integer) x=a+b b=b*b End Sub 运行后，单击按钮，Label1 和 Label2 将分别显示（B ） 。43A 5和3 B 5和9 C 8和3 D 8和9 31812 下列叙述中，错误的是（A ） 。 A Sub 过程中可以嵌套定义 Sub 过程 B 过程被定义为 Static 类型，则该过程中的局部变量都是 Static 类型 C 在某个 Sub 过程中定义的局部变量可以与其它事件过程中定义的局部变量同名 D 在设计 VB 程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件 31813 窗体上有文本框（Text1、Text2 和 Text3）和命令按钮（Command1） ，编写如下事件过程： Private Sub Command1_Click() Dim x%, y%, z% x = 1: y = 2: z = 3 Call proc(x, y, z) Text1.Text = x Text2.Text = y Text3.Text = z End Sub Private Sub proc(ByVal a%, b%, c%) a=a+b+c b=a+b+c c=a+b+c End Sub 运行后，单击按钮，Text1、Text2 和 Text3 将分别显示（ ） C 。 A 1、2 和 3 B 1、6 和 6C 1、11 和 20 D 6、11 和 20 31814 窗体上有命令按钮 Command1，编写如下事件过程： Sub p(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 1: a(2) = 3 a(3) = 5: a(4) = 7 p a() For i = 1 To 4 Print a(i); Spc(1); Next i End Sub 运行后，单击按钮，输出的结果为（ ） 。 B A 1 3 5 7 B 2 4 6 8 C 2 6 10 14 D 2 2 2 2 31815 运行下列程序，单击窗体后输出的结果是（ ） D 。 Private Sub Sele(x%, y%, z%) x = x + 1: y = y + 1: z = z + 1 P z End Sub44Private Sub Form_Click() Dim a%, b%, c% a = 1: b = 2: c = 3 Call Sele(a, b + 1, (c)) P c End Sub A 1 1 1 1 2 3 B 2 3 4 1 2 3 C 1 2 3 2 4 4 D 2 4 4 2 2 3 31816 在窗体上画一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮，然后编写如 下事件过程和通用过程: Public Function f1(ByRef x) x=x*x f1 = x + x End Function Public Function f2(ByVal x) x=x*x f2 = x + x + x End Function Private Sub Command1_Click() n = Val(Text1.Text) If n \ 2 = n / 2 Then f = f1(n) Else f = f2(n) End If P n End Sub 程序运行后，在文本框 Text1 中输入 6，然后单击命令按钮，窗体上显示的是（ A ） 。 A 72 36 B 108 36C 72 6 D 108 6 31817 阅读下列程序： Sub Yu(x%, ByVal y%) x = 5 * x: y = x + y End Sub Private Sub Form_Click() Dim a%, b% a = 5: b = 10 Yu a, b Print a, b End Sub 程序运行后，单击窗体，输出结果为（ C ） 。 A 5 10 B 5 20C 25 10D 25 25 31818 窗体上有一个文本框 Text1 和命令按钮 Command1，编写如下事件过程和过程 p1： Private Sub Command1_Click() Dim x%, y%, z%45x = 7: y = 8: z = 9 Text1.Text = && Call p1(x, y, z) Text1.Text = Str(z) End Sub Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub 运行时，单击命令按钮，Text1 中的内容为（ B ） 。 A 0 B 15 C 9 D Str(z) 31819 窗体上有一个命令按钮 Command1，编写如下事件过程： Function fun(x As Integer) Static z y = y + 1: z = z + 1 fun = x + y + z End Function Private Sub Command1_Click() Dim x As Integer x=1 For i = 1 To 2 Print fun(x); Next i End Sub 运行时，单击命令按钮，窗体将显示（ B ） 。 A 33 B 34 C 11 D 44 31820 有如下两个过程 S1 和 S2： Sub S1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x: x = y: y = t End Sub Sub S2(x As Integer, y As Integer) Dim t As Integer t = x: x = y: y = t End Sub 下列关于 S1 和 S2 的说法，正确的是（ B ） 。 A 调用过程 S1 可以实现交换两个变量值，而 S2 不能 B 调用过程 S2 可以实现交换两个变量值，而 S1 不能 C 调用过程 S1 和 S2 都可以实现交换两个变量值 D 调用过程 S1 和 S2 都不能实现交换两个变量值 31821 运行下面的程序,显示的结果为（A） 。 Public Sub F1(n%, ByVal m%) n = n Mod 10 m = m \ 10 End Sub Private Sub Command1_Click() Dim x%, y%46x = 12: y = 34 Call F1(x, y) Print x, y End Sub A) 2 34 B) 12 34 C) 2 3 D) 12 3 31822 运行下面的程序,显示的结果为（D） 。 Private Sub Command1_Click() Print p1(3, 7) End Sub Public Function p1!(x!, n%) If n = 0 Then p1 = 1 Else If n Mod 2 = 1 Th