4703人阅读
VB的数据类型比较丰富，可以分为两大类：基本数据类型和用户自定义类型。
一、基本数据类型
表3-1列出了VB使用的基本数据类型。
表3-1 VB 基本数据类型
负数：-3.~1.
正数：1.~3.
负数：-1.32D308~
-4.47D-324
正数：4.47D-324~
-477.5808~
Date(time)
01,01,100~12,31,9999
(00:00:00~23:59:59)
True与False
0~65535个字符
任何对象引用
上述有效范围之一
基本数据类型是系统定义的标准数据类型，可以直接使用。分为6类：数值型，日期型，逻辑型，字符型和变体型。
(一)数值型数据
数值型数据分为整型和实型两类。整型数据分为整数和长整数，实型数据分为单精度和双精度数据。有时把货币型和字节型数据也归为数值型数据。
1.整数（Interger）。整数是不带小数点，范围在-之间，在机器内使用2个字节存储的整数。在VB中数尾常加“%”表示整型数据，也可省略。如-34，78%。
2.长整数（Long）。长整数可以超过整数-范围，可以是-~之间的不带小数点的整数，在机器内用4个字节存储。在VB中数尾常加：“&”表示长整型数据。如-334&，&。整数（Interger）和长整数（Long）均用于保存整数，其可以是正整数、负整数或者0。例如：369、-369、+369均表示整数，而369.0就不是整数；-345678均表示长整数，而123,456则是非法数。整型数的运算速度快、精确，且占用存储空间较小，但表示数的范围也较小。
3.单精度数（Single）。单精度数是带小数点的实数，有效数字为7位，在机器内用4个字节存储。通常以指数形式表示，指数部分用“E”或“e”表示。在VB中数尾常加“！”表示单精度数据，也可省略。如-234.78,45.56！，2.67e+3，-2.89E-2。单精度数有多种表示形式：±n.n(小数形式)、±n E ±m(指数形式)、 ±n.n E ±m (指数形式)。例如：123.45、0.12345E+3、123.45！都是同值的单精度数。如果某个数的有效数字位数超过7位，当把它定义为单精度变量时，超出的部分会自动四舍五入。
4.双精度数（Double）。双精度数也是带小数点的实数，有效数字为15或16位，在机器内用8个字节存储。通常以指数形式表示，指数部分用“D”或“d”表示。在VB中数尾常加“#”表示双精度数据，也可省略。如-374.778#，5.678D+2，-2.67e+3#。
5.货币型数据（Currency）。货币型数据是为是一种专门为处理货币而设计的数据类型，是一种特殊的小数。，它的精度要求较高，用8个字节存储，保留小数点右边4位和小数点左边15位，如果数据定义为货币型，且其小数点后超过4位，那么超过的部分自动四舍五入。在VB中数尾常加“@”表示货币型数据。如3.4@，565@。
6.字节型数据（Byte）。字节型数据用来存储二进制数,是范围在0~255之间的无符号整数，不能表示负数，在机器内用一个字节存储。Byte是从0-255的无符号类型，
在VB中，声明和使用数值型数据时，应注意以下几点：
(1)如果数据中包含小数，则应使用single、double或currency型。
(2)如果数据为二进制数，则使用byte数据类型。
(3)数值型数据都有一个有效范围值，程序中的数如果超出规定的范围，将会出现“溢出”信息。如小于范围的下限值，系统将按“0”处理，如大于上限值，则系统按上限值处理，并显示出错信息。
(4)所有数值变量可互相赋值。
(二)日期型数据（Date）
日期型数据是为表示日期设置的，在机器内用8个字节存储，表示从公元100年1月1日到公元日的日期，时间范围则从0点0分0秒到23点59分59秒即0：00：00～23：59：59。表示方法是以“#”括起来的字面上被认为是日期和时间的字符，例如：#04/10/2008#、##、#September 1，2004#、# 13：30：15#。
(三)逻辑型数据（Boolean）
逻辑型数据是用来表示逻辑判断结果的，只有真(True)和假(False)两个值，在机器内用2个字节存储。若数据信息是“true/false”、“yes/no”、“on/off”信息，则可将它定义为Boolean 类型。逻辑数据转换成整型数据时，真转换为-1，假转换为0；其他类型数据转换为逻辑数据时，非0数转换为真，0转换为假。
(四)字符型数据
字符型数据是用双引号括起来的一串字符，用来定义一个计算机字符组成的序列。在机器中一个字符用1个字节存储。每个字符都以ASCII编码表示，因此在字符串中字母的大小写是有区别的。在默认字符状态下，它是变长字符串，也可以声明为定长字符串，变长字符串的最大长度为231-1个字符；定长字符串的最大长度为65535个字符。如果字符个数少于固定长度，自动用空格将不足部分补齐，否则会自动截去多余部分的字符。例如：“Visual
Basic”、“赣南师院”、“123.456”、“everyone”、“”（空字符串）。
(1)“”表示空字符串，而“ ”表示的是有一个空格的字符串；
(2)如字符串中本身含有双引号，则用两个连续的双引号表示。例：表示字符串计算机”ABC，正确的表示形式为：“计算机””ABC”
(五)对象型数据(Object)
对象型数据主要以变量形式存在，可以引用应用程序中或某些其他应用程序中的对象。在机器内用4个字节存储。使用Set语句指定一个被声明为Object的变量去引用应用程序所识别的任何实际对象。例如：
Dim objDb As Object
Set objDb=OpenDatabase(&c:\Vb6\student.mdb&)
(六)变体型数据（Variant）
变体型是一种通用的，可变的数据类型，它可以表示以上任何一种数据类型。它是声明变量时的默认类型。Variant数据类型能够存储所有系统定义类型的数据。如果把它们赋予Variant变量，则不必在这些数据的类型间进行转换，VB会自动完成任何必要的转换。假设定义a为变体型变量，在变量a中可以存放任何类型的数据，例如：
a=“-BASIC”- -‘存放一个字符串
a=10 - ‘存放一个整数
a=20．5 -‘存放一个实数
a=#08／15／2003# ‘存放一个日期型数据
根据赋给a的值的类型不同，变量a的类型不断变化，这就是称之为变体类型的由来。当一个变量未定义类型时，VB自动将变量定义为Variant类型。
不同类型的数据在Variant变量中是按其实际类型存放的(例如将一个整数赋给a，在内存区中按整型数方式存放)，用户不必作任何转换的工作，VB自动完成。可以通过VarType函数来检测变体型变量的实际数据类型，如表3-2所示。
表3-2 Variant变量的内部表示
函数值
数值类型
Empty(未初始化)
Null(无有效数据)
单精度浮点数
双精度浮点数
V_Currency
货币值
错误值
布尔值
Variant(只与变体中的数组一起使用)
数据访问对象
位值
VB不仅提供了系统定义的以上基本数据类型，也允许用户自己定义数据类型，它由若干个基本数据类型组成。自定义类型必须通过Type语句来声明。
格式：
Type数据类型名
元素名 As 类型名
元素名 As 类型名
元素名 As 类型名
其中，数据类型名为自定义数据类型名，元素名为自定义数据类型中的一个成员，类型名为上述基本类型名或自定义数据类型名。
例如:对于一个学生的“学号”、“姓名”、“性别”、“年龄”、“入学成绩”等数据，为了处理数据的方便，常常需要把这些数据定义成一个新的数据类型（如Student类型）。
Type Student
Xh As Sting
Xm As String*10 ‘长度为10
Xb As String
Nl As Integer
Score As Single
注意：自定义类型中的元素为字符型时，必须为定长字符串。
可以看出，自定义数据类型类似于C语言中的结构体形，因此通常把这种类型又称为记录型。
这样，就可以定义一个student类型的变量了。
Dim Estu As student ‘用变量，元素的形式引用各成员
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：17757次
排名：千里之外
原创：11篇
转载：19篇
(2)(1)(3)(2)(1)(2)(1)(1)(17)当前位置： >>
SelectOneInfo(OLD)SelProblem VB 窗体默认的坐标单位是（ ）。 VB6.0中专门为程序代码的书写提供了一个（ ）窗口。 VB把开发一个应用程序视为一项工程，用创 建工程的方法来创建一个应用程序，并利用 （ ）窗口来管理工程。 Visual Basic程序中的注释所使用的字符是 （ ）。 Visual Basic程序中分隔一行中
各语句的字 符是（ ）。SelChooseA cm 代码 SelChooseB m 属性SelChooseC Twip 窗体 工程资源管理器 ' '属性 : :窗体
\关于VB中程序运行的方式，以下说法正确的 是（ ）。 若要将控制权交还给操作系统，则实现的语 句为（ ）。 下列不属于常量的是（ ）。 下列不属于数值数据类型的是（ ）。 下列可作为Visual Basic的变量名的是（ ） 下列可作为Visual Basic的变量名的是（ ） 下列可作为Visual Basic的变量名的是（ ） 下列哪个符号不能作为Visual Basic的变量 名（ ）。 要让菜单项不显示出来，应将（ ）属性值设 置为False。 要让菜单项无效，应将（ ）属性值设置为 False。 以下不是Visual Basic中的事件是（ ）。 以下不是结构化程序设计的基本结构的是（ ）。 以下过程是（ ）。
Public Function MaxNum( )
? End Function 以下过程是（ ）。
Public Function MaxNum( )
? End Function 以下过程是（ ）事件。
Prviate Sub Form_Click( )
? End Sub 以下过程是（ ）事件。
Prviate Sub Form_Load( )
? End Sub 以下过程是标签Label1的（ ）事件。
Prviate Sub Label1_Click( )
? End Sub 以下过程是标签Label1的（ ）事件。
Prviate Sub Label1_DblClick( )
? End Sub\ 既不能使用解 释运行模式， 只能使用解释运行 只能使用编译运 也不能使用编 模式 行模式 译运行模式 Exit 12 整型
Abt Filename Exit AbC Visible Visible DblClick 逆序结构
End Sub “ch” 实型 TAB A（A＋B） Student POOO Enabled Enabled MouseMove 顺序结构
Exit sub abc 货币型 IF A%D IF 8TF Moveable Moveable Caption 选择结构用户自定义函数窗体单击事件 按钮单击事件用户自定义函数
窗体单击事件 命令按钮的单击命令按钮的双击 窗体的单击命令按钮的单击命令按钮的装载 窗体的装载单击 双击拖拽单击 双击 拖拽 Page 1SelectOneInfo(OLD)以下过程是窗体Form1的（ ）事件。
Prviate Sub Form_DblClick( )
? End Sub 以下过程是命令按钮的（ ）事件。
Prviate Sub Command1_Click( )
? End Sub 在VB中，若某变量未经Dim语句声明便直接使 用，系统会默认其为（ ）。 子过程是以（ ）保留字开始的。 Visual Basic程序中语句行的续行符是（ ）。 For语句的格式如下，下列说法错误的是（ ）。
&循环变量&=&初值& to &终值& [step & For 步长&]
[&循环体&]
[exit for] InputBox 函数返回值的类型是（ ）。 VB中的菜单（ ）。 Vb中描述文件路径的是（ ）属性。 Vb中描述文件扩展名的是（ ）属性。 Vb中描述文件名的是（ ）属性。 Visual Basic 窗体设计器的主要功能是（ ）。 不属于VB三种工作模式的是（ ）。 从功能上讲，Visual Basic 6.0有3种版本， 下列不属于这3种版本的是( ) 。 打印机的对象名为（ ）。 以下()是定义定长字符串。 关于VB源代码的编写，下列说法错误的是（ ）。单击 双击 装载单击
Load '双击
变体型 Sub :拖拽 字符型 Property \步长只能为正数， 不能为负数 数值
有组合式菜单和列 表式菜单 Drive Drive Drive 建立用户界面 设计模式 学习版 Point Dim str As string步长为1时，可 略去不写 字符串 有下拉式菜单和 弹出式菜单 Pattern Pattern Pattern初值、终值和 步长都是数值 表达式 变体
只有弹出式菜 单 FileName FileName FileName编写源程序代码 画图 运行模式 调试模式 免费版 Printer Dim str As string*10 专业版 NewPageDim str$=10 可以适当添加 VB源代码中不区分 同一行可以写多 注释有利于程 字母的大小写 个语句 序的维护和调 事件是由Visual Basic预先定义好 的，能够被对象识 别的动作 DblClick（双 击）是Visual Basic中的一种 事件 条件语句中的“ 条件”可以是数 条件语句中的“条 值表达式，非0 件”可以是逻辑表 值表示true，0 达式或关系表达式 值表示false关于Visual Basic中事件的说法中，不正确 的为（ ）。关于条件语句，下列说法错误的是（ ）。一个对象可以 识别一个或多 个事件 在块结构条件 语句中，“语 句块”中的语 句不能与then 在同一行上程序中必须为 每一个Goto语 句提供一个唯 一的转向入口 SetFocus if语句中只能 if语句中可以没有 if语句中可以没 有一个elseif 下列关于条件语句的说法中正确的为（ ）。 then保留字 有else保留字 分句 该语句的功能是把 关于无条件转移语句Goto &标号&的说明，下 控制转移到“标号 列说法错误的是（ ）。 ”所在的程序行 激活弹出式菜单的命令是（ ）。 Load 其中的标号可以 是一个标识符或 整型数 ShowPage 2SelectOneInfo(OLD)下列控件中可设置滚动条是（ ）。下列叙述中正确的是（ ）。 在菜单设计中，要将菜单项的某字母设置为 热键，应在该字母前加（ ）字符。 一个VB工程中标准模块文件的扩展名是（ ） 一个VB工程中窗体文件的扩展名是（ ）。 一个VB工程中工程文件的扩展名是（ ）。 一个长整型变量在内存中占据（ ）字节的空 间。 一个单精度型变量在内存中占据（ ）字节的 空间。 一个工程文件可包含7种类型的文件，下列哪 个文件不包含其中（ ）。 一个双精度型变量在内存中占据（ ）字节的 空间。 一个整型变量在内存中占据（ ）字节的空间 一个字节型变量在内存中占据（ ）字节的空 间。检查框（复选框）
框架 只有窗体才是 只有控件才是 Visual Basic 中 Visual Basic中 的对象 的对象 / .vbp .vbp .vbp 1 1 工程文件
1 1 1 @ .frm .frm .frm 2 2 窗体文件
2 2 2 Public Sub Sum(ByVal x, ByVal y)文本框 窗体和控件都 是Visual Basic中的对象 & .frx .frx .frx 4 4 可执行文件 4 4 4 Public Sub Sum(x As Integer,y As Integer)以下过程的定义中，（ ）是错误的。以下说法错误的是（ ）。Public Sub Sum( y) 注释语句用来对程 序或程序中某些语 句做注释，使程序 便于理解以下正确的叙述是（ ）。 用于常量说明的关键字是（ ）。 在VB6.0的集成开发环境中调试程序时，用户 可直接在（ ）窗口中用Print方式或直接在 程序中用Debug.Print方法显示表达式的值。 在VB中，数值型数据可以用八进制数来表 示，但必须在其前面冠以（ ）。 在VB中，数值型数据可以用十六进制数来表 示，但必须在其前面冠以（ ）。 在Visual Basic中建立一个空窗体，( )不 会是其默认名。 在菜单设计器中，要将当前菜单项上移一个 等级，应按（ ）按钮。 在菜单设计器中，要将当前菜单项上移一个 位置，应按（ ）按钮。 在菜单设计器中，要将当前菜单项下移一个 等级，应按（ ）按钮。 在菜单设计器中，要将当前菜单项下移一个 位置，应按（ ）按钮。 在以下事件过程中，Private表示（ ）。 Private Sub txtName_Change() ?? End Sub注释语句不能 注释语句是非执 放在执行语句 行语句 的后面 用属性窗口可 用属性窗口只能设 用属性窗口只能 以设置窗体和 置窗体的属性 设置控件的属性 控件的属性 Const Dim Public代码 O O Form1 “左箭头” “左箭头” “左箭头” “左箭头”属性 H H Form2 “右箭头” “右箭头” “右箭头” “右箭头”窗体
&O &O Formx “上箭头” “上箭头” “上箭头” “上箭头”此过程只可以被 此过程不可以 此过程可以被任何 本窗体模块中的 被任何其它过 其它过程调用 其它过程调用 程调用Page 3SelectOneInfo(OLD)连接符两旁的操 “&”用作字符串连接符时，下列说法正确的 连接符两旁的操作 作符只能为字符 是（ ）。 符只能为数值型 型 Const Four％=4，则Four为（ ）类型的常数 整型
字节型 Const One&=1，则One为（ ）类型的常数。 整型
字节型 Const Three!=3，则Three为（ ）类型的常 数。 整型 字节型 Const Two＃=2，则Two为（ ）类型的常数。 整型 长整型 Dim x As Variant 与下列哪个语句等价（ ）。 Dim x! Dim x% Until是当条件 While是当条件为 为真时执行循 真时执行循环，而 环，而While是 Do循环语句是根据条件决定循环的语句的， Until是在条件变 在条件变为真的 下列说法正确的是（ ）。 为真的之前重复 之前重复 VB可支持最多（ ）种颜色。 VB中MDI窗体是指（ ）窗体。 VB中SDI窗体是指（ ）窗体。 把当前窗体的内容打印出来的方法是（ ）。 16×16×16 单文档界面 单文档界面 Print 48×48×48 多文档界面 多文档界面 Printer连接符两旁的 操作符既可为 数值型，也可 为字符型 长整型 长整型 长整型 双精度型 Dim xWhile和Until 都是当条件为 真时执行循环 256×256×256
简单界面 简单界面 NewPage 当把其他类型 数据转换为逻 辑数据时，非0 数转换为 True，0转换为 只保存标准模 块文件 （.bas） OCX 十六进制 Msgbox语句和 Msgbox函数都 有返回值 VB中区分常量 或变量名的大 小写，即x和X 是两个不同的 为4个字节当把逻辑值转换 逻辑型数据只有两 为数值时False 种可能值：True或 转为0，True转 关于逻辑型数据，下列说法错误的是（ ）。 者False 为1 为了保存一个Visual Basic应用程序，应当 （ ）。 下列( )表示“面向对象的程序设计”。 VB中不能直接表示( )整型数。 只保存窗体模块文 件（.frm） OLE 十进制 只保存工程文件 （.vbp） OOP 八进制 End语句是用来 Stop语句用来暂停 结束一个程序的 程序的执行 执行 常量或变量的名字 常量和变量的长 必须以字母或汉字 度不能超过255 开头 个字符 为1个字节 为2个字节下列说法错误的是（ ）。下列说法错误的是（ ）。 一个变长字符型变量在内存中占据的存储空 间（ ）。集成可视化程序 事件驱动编程 开发环境 机制 Public Sub Public Sub Sum(x As 以下定义的过程（ ）是按“传值”方式传递 Public Sub Sum(ByVal x, Integer,y As 参数的。 Sum(x,y) ByVal y) Integer) Public Public Function Function Sum(x As 以下定义的函数中（ ）不是按“传址”方式 Public Function Sum(ByVal x, Integer,y As 传递参数的。 Sum(x,y) ByVal y) Integer) 当一个程序包 以下可产生工程组文件（.vbg）的情况是（ 当一个程序包含两 当一个程序包含 含两个以上类 ）。 个以上工程时 两个以上窗体时 模块时 以下（ ）不是Visual Basic的特点。 结构化程序设计Page 4SelectOneInfo(OLD)用Type语句定义的类型称为记录类型，要访 问某记录型变量中的某个元素，需采用下述 格式（ ）。 执行下面的语句后，所产生的对话框的标题 是（ ）。
A=InputBox (&aaaa&,&bbbb&，“5”) 执行下面的语句后，所产生的对话框的提示 消息是（ ）。
A=InputBox (&aaaa&,&bbbb&,&5&) 执行下面的语句后，所产生的对话框中用户 输入区域的默认值是（ ）。
A=InputBox (&aaaa&,&bbbb&,&5&) 执行下面的语句后，所产生的信息框的提示 消息是（ ）。
A=MsgBox(&aaaa&,5 ,&bbbb&) 执行下面的语句后，信息框中按钮的数目及 形式由值（ ）决定。
A=MsgBox(&1&,2 ,&3&,&&,4) 标签所显示的内容，由（ ）属性值决定。 窗体的load事件可以被用来实现的功能为（ ）。 窗体标题栏显示的内容由窗体对象的（ ）属 性决定。 打开通用对话框的“帮助”对话框的方法是 （ ） 打开通用对话框的“打开”对话框的方法是 （ ） 打开通用对话框的“打印机”对话框的方法 是（ ） 打开通用对话框的“另存为”对话框的方法 是（ ） 打开通用对话框的“字体”对话框的方法是 （ ）。 定时器的定时间隔单位是（ ）。 检查框（复选框）的控件名称为（ ）。 单复选框的控件名称为（ ）。 命令按钮的标题文字由（ ）属性来设置。 命令按钮的单击事件是（ ）。 清除当前VB 窗体上文本信息的方法是（ ） 卸载窗体的方法为（ ）。 隐藏窗体的方法为（ ）。 若要将隐藏的窗体显示出来，实现的方法为 （ ）。 若要禁止操作窗体，则可设置（ ）属性为 False来实现。 若要禁止窗体被移动，可设置窗体的（ ）属 性为False。 若要求向文本框输入密码时，只在文本框中 显示&号，则应当在此文本框的属性窗口中（ ）。 若要求向文本框输入密码时，只在文本框中 显示*号，则应当在此文本框的属性窗口中置变量名－&元素名元素名－&变量 变量名.元素名 名 bbbbaaaa空bbbbaaaa空bbbbaaaa空bbbbaaaa空1 Text2 Name确定窗体的位置 BackColor ShowOpen ShowOpen ShowOpen ShowOpen ShowOpen 秒 OptionBotton OptionBotton Text Value Cls Unload Unload Unload ControlBox Moveable3 Caption 在程序启动时 从内存中清楚一 对属性和变量 个窗体 初始化 BorderStyle ShowSave ShowSaveAs ShowSave ShowSave ShowSaveAs 微秒
CheckBox CheckBox Caption DblClick( ) Clear Load Cls Cls MinButton Move Text ShowHelp ShowColor ShowPrinter ShowColor ShowColor 毫秒
PictureBox PictureBox Name Name Erase Show WindowState Show MaxButtonMinButton 将 将Caption属性 PasswordChar 将Text属性值为 & 值为 & 属性值为空 Caption属性值 PasswordChar Text属性值为 * 为 * 属性值为空Page 5SelectOneInfo(OLD)若要求向文本框输入密码时，只在文本框中 显示@号，则应当在此文本框的属性窗口中设 置（ ）。 若要设置定时器的定时间隔，可通过（ ）属 性来设置。 若要设置定时器的定时间隔设为10秒，应将 （ ）属性值设为10000。 若要设置定时器的定时间隔设为1秒，应将（ ）属性值设为1000。 若要设置定时器的定时间隔设为1秒，应将 Interval属性值设为（ ）。 若要设置定时器的定时间隔设为2秒，应将（ ）属性值设为2000。 若要设置定时器的定时间隔设为5秒，应将（ ）属性值设为5000。 若要设置定时器的定时间隔设为5秒，应将 Interval属性值设为（ ）。 若要设置文本框可接收多行字符，可将（ ） 属性值设置为真。 若要设置文本框中的文本，可通过文本框对 象的（ ）属性来实现。 若要使不可见命令按钮显示出来，可通过设 置（ ）属性的值为True来实现。 若要使窗体不可见，则可设置（ ）属性为 False来实现。 若要使定时器起作用，应将其（ ）属性设置 值设为True。 若要使定时器暂停，应将其（ ）属性设置值 设为False。 若要使命令按钮失效，可设置（ ）属性为 False来实现。 若要使命令按钮在运行时不可见，可通过设 置（ ）属性的值为False来实现。 若要使失效的命令按钮变为有效，可设置（ ）属性为True来实现。 若要向列表框新增列表项，可使用（ ）方法 来实现。 下列哪个属性可以设置窗体中显示文本的字 体大小（ ）。 斜体字由（ ）属性设置。 要获得垂直滚动条Vscrollbar控件所能表示 的最大值，可通过调用该控件的（ ）属性来 实现。 要获得水平滚动条Hscrollbar控件所能表示 的最小值，可通过调用该控件的（ ）属性来 实现。 要将命令按钮上的文字设置为“粗体”可通 过设置（ ）属性值为True来实现。 要将命令按钮上的文字设置为“斜体”可通 过设置（ ）属性值为True来实现。 要将命令按钮上的字体设为“隶书”，可设 置（ ）的属性为“隶书”。 要将命令按钮上的字体设为“宋体”，可设 置（ ）的属性为“宋体”。Text属性值为 @ Interval Interval Interval 1 Interval Interval 5 Multiline Text Visible ControlBox Interval Interval Value Visible Value Add ForeColor FontNameCaption属性值 PasswordChar 为 @ 属性值为空 Value Value Value 10 Value Value 50 Length Caption Enabled MinButton Value Value Enabled Enabled Enabled RemoveItem Font FontSize Enabled Enabled Enabled 100 Enabled Enabled 500 Min Name Default Visible Text Text Visible Default Visible Clear Text FontItalicValueMaxMinValue FontItalic FontItalic FontBold FontBoldMax FontBold FontBold BackItalic BackItalicMin FontUnderline FontUnderline FontName FontNamePage 6SelectOneInfo(OLD)要将文本框背景颜色设为红色，可设置（ ） 的属性为vbRed。 要将文本框背景颜色设为蓝色，可设置（ ） 的属性为vbBlue。 要将文本框背景颜色设为绿色，可设置（ ） 的属性为vbGreen。 要将文本框前景颜色设为红色，可设置（ ） 的属性为vbRed。 要将文本框前景颜色设为蓝色，可设置（ ） 的属性为vbBlue。 要将文本框前景颜色设为绿色，可设置（ ） 的属性为vbGreen。 要将文本框中的字体设为“黑体”，可设置 （ ）的属性为“黑体”。 要将文本框中的字体设为“隶书”，可设置 （ ）的属性为“隶书”。 要将文本框中的字体设为“宋体”，可设置 （ ）的属性为“宋体”。 要将文本框中的字体设为“斜体”，可设置 （ ）的属性为True。 要控制窗体启动时，其在屏幕上的位置，可 通过（ ）属性来设置。 要让菜单项无效，应将（ ）属性值设置为 False。 要让没有显示的菜单项显示出来，应将（ ） 属性值设置为True。 要让无效的菜单项有效，应将（ ）属性值设 置为True。 以下（ ）是驱动器列表框。 以下（ ）是文件夹列表框。 以下（ ）是文件列表框。 以下（ ）可从通用对话框的“打开”对话框 中返回用户选择的文件名。 以下（ ）可从通用对话框的“颜色”对话框 中返回用户选择的颜色。 以下（ ）可从通用对话框的“字体”对话框 中返回用户选择的字体大小。 以下（ ）可从通用对话框的“字体”对话框 中返回用户选择的字体名。 以下（ ）为True时，表明用户从通用对话框 的“字体”对话框中选择了粗体字。 以下（ ）为True时，表明用户从通用对话框 的“字体”对话框中选择了斜体字。 以下选项中，不属于单选按钮属性的是（ ） 由（ ）属性，可将字符串输入到文本框中。 由（ ）属性可将文本框中显示的文本内容读 出来。 在当前VB 窗体上输出一个字符串“计算机” 的方法是（ ）。 在以下情况下，窗体的Click事件将会被触发 的为（ ）。 字体大小由（ ）属性设置。 字体名称由（ ）属性设置。 组合框的风格可通过（ ）属性来设置。 标签的边框由（ ）属性的设置来决定。ForeColor ForeColor ForeColor ForeColor ForeColor ForeColor FontBold FontBold FontBold FontBold Top 和 Left Visible Visible Visible DirListBox DirListBox DirListBox FileName FileName FileName FileName FontBold FontBold Enabled Text TextBackColor BackColor BackColor BackColor BackColor BackColor BackItalic BackItalic BackItalic BackItalicBackStyle BackStyle BackStyle BackStyle BackStyle BackStyle FontName FontName FontName FontNameLeft 和 Right Moveable Enabled Enabled Enabled DriveListBox DriveListBox DriveListBox Path Path FontSize Path Path Path Caption Caption Caption Moveable Moveable Moveable FileListBox FileListBox FileListBox FontName FontName FontName FontName FontName FontName Name Name Name 计算机 当鼠标在窗体 上移动时 FontItalic FontItalic Style BorderStylePrint “计算机”
Print 计算机 当窗体变为活动窗 口时
当程序启动时 FontName FontSize FontName FontSize BackStyle BorderStyle BackColor BackStylePage 7SelectOneInfo(OLD)窗体的背景颜色由（ ）属性设置。 窗体的前景颜色由（ ）属性设置。 粗体字由（ ）属性设置。 单选按钮的控件名称为（ ）。 单选按钮的当前状态可通过（ ）属性来访问 当窗体被启动时，（ ）事件将会发生。 当窗体的被移动时，将会发生的事件是（ ） 当窗体的大小被调整时，将会发生的事件是 （ ）。 当滚动条中的滑块位置变化时，将触发其（ ）事件。 假定Picture1和Form1分别为图片框和窗体的 名称，以下语句（ ）可清除图片框中的文本 信息。 检查框（复选框）的当前状态可通过（ ）属 性来访问。 检查框（复选框）的当前状态可通过（ ）属 性来设置。 能够将文本框隐藏起来的属性是（ ）。 确定一个窗体或控件的大小的属性是（ ）。 确定一个控件在窗体上的位置的属性是（ ） 若要获得当前列表项的数目，可通过访问（ ）属性来实现。 若要获得滚动条的当前值，可通过访问（ ） 属性来实现。 若要将命令按钮设置为默认按钮，可设置（ ）属性为True来实现。 若要将一普通窗体设置为MDI窗体的子窗体， 应将（ ）属性值设为True。 若要清除列表框中列表项，可使用（ ）方法 来实现。 若要取消窗体的最大化功能，则可设置（ ） 属性为False来实现。 若要取消窗体的最小化功能，则可设置（ ） 属性为False来实现。 若要设置文本框最大可接收的字符数，可通 设置（ ）属性值来实现。 若要使标签成为透明，可通过设置（ ）属性 来实现。 若要使标签的大小自动与所显示的文本相适 应，可通过设置（ ）属性的值为True来实现 若要使已被禁止移动的窗体能移动，可设置 窗体的（ ）属性为True。 若要使只读文本框成为可编辑文本框，可通 设置（ ）属性值为False来实现。 若要在列表框中同时选择多项，可通过设置 列表框对象的（ ）属性来实现。 文本框中内容的对齐方式，由（ ）属性值决 定。 下列哪个操作可以清除文本框对象Text1的内 容（ ）。 要控制窗体启动时距屏幕顶部的位置，可通 过（ ）属性来设置。BorderStyle BorderStyle FontName Botton Value Load Move Move LostFocusBackColor BackColor FontSize CheckBox Checked Unload Resize Resize SetFocusForeColor ForeColor FontItalic PictureBox Selected QueryUnoad Paint Paint ChangePicture1.cls Value Value Clear Width或Height Width或Height Columns Text Cancel Enabled Add ControlBox ControlBox Multiline BackColor AutoSize MinButton ReadOnly Columns Text Text1.Text=&&Picture1.clear Form1.cls Checked Checked Visible Width和Height Width和Height Text Value Value Visible RemoveItem MinButton MinButton Length BackStyle Alignment Move Unlock Style Name Text1.cls Selected Selected Hide Top或Left Top或Left ListIndex Max Enabled MdiChild Clear MaxButton MaxButton Min BorderStyle Apperance Moveable Enabled MultiSelect Caption Text＝&& StartUpPositi onTopLeftPage 8SelectOneInfo(OLD)要控制窗体启动时距屏幕左部的位置，可通 过（ ）属性来设置。 要想通过单击Command1弹出Form2窗体，则可 在Command1的单击事件中，使用（ ）命令。 要想通过单击Form1上的Command1，从屏幕 （而非内存中）上清除Form1窗体，则可在 Command1的单击事件中，使用（ ）命令。 要想通过单击Form2上的Command1，从内存中 清除Form2窗体，则可在Command1的单击事件 中，使用（ ）命令。 要想通过单击Form2上的Command1，从内存中 清除Form2窗体，则可在Command1的单击事件 中，使用（ ）命令。 要想通过单击Form2上的Command1，从屏幕 （而非内存中）上清除Form2窗体，则可在 Command1的单击事件中，使用（ ）命令。 要想通过单击Form2上的Command1，从屏幕 （而非内存中）上清除Form2窗体，则可在 Command1的单击事件中，使用（ ）命令。 一个工程中有Form1和Form2两个窗体，（ ） 命令可以同时关闭这两个窗体。 以下（ ）是目录（文件夹）列表框。 以下属性中只在运行时起作用的为（ ）。 用户在组合框中所输入的数据，可通过访问 组合框对象的（ ）属性来获得。 用鼠标选择列表框中的项目，将触发其（ ） 事件。 在VB 窗体要设计两组单选按钮，应用（ ） 控件对其分组。 在窗体运行时，若要以程序代码的方式改变 窗体的高度，可用（ ）属性进行设置。 在窗体运行时，若要以程序代码的方式改变 窗体的宽度，可用（ ）属性进行设置。 在运行时，若要获得文本框中所选的文本长 度，可通过访问（ ）属性来实现。 在运行时，若要使文本框获得输入焦点，可 调用文本框对象的（ ）方法来实现。 标签中内容的对齐方式，由（ ）属性值决定 窗体的风格由窗体对象的（ ）属性来设置。 窗体的控制菜单的有无由窗体对象的（ ）属 性决定。 窗体中的鼠标指针形状，可以通过（ ）属性 来设置。 窗体最小化所显示的图标可用（ ）属性来设 置。 假定Picture1,Form1，Text1，Label1分别为 图片框、窗体、文本框、标签的名称，程序 代码如下，单击图片框时，清除下列哪个对 象的内容（ ）。
Private Sub Picture1_Click() Cls End Sub 假定Picture1和Text1分别为图片框和文本框 的名称，下列不正确的语句是（ ）。Top Load Form2Left Form2.ShowStartUpPositi on Form2.SetFocu sLoad MeMe.ShowUnload MeLoad Form2Form2.ShowUnloadForm2Load MeMe.ShowUnload MeLoad Form2Form2.ShowUnload Form2Load Me UnLoad Form2 DirListBox Caption属性 Text Change Picture Move Move SelStart Refresh Text BackColor ControlBox MouseIcon PictureMe.Show UnLoad Form1 DriveListBox Visible属性 List Click Image Resize Resize SelLength GetFocus Name BorderStyle MaxButton MousePointer ImageUnload Me UnLoad Me FileListBox BorderStyle属 性 List index Select Label Width Width Text SetFocus Caption WindowState MinButton Picture IconPicture1 Print 25Text1 Form1 Picture1.Print Text1.Print 25 25Page 9SelectOneInfo(OLD)判断窗体当前所处状态，可通过访问（ ）属 性来实现。 若要将图片&D:\PIC\CAR.JPG&载入到当前的 图片框(PictureBox)中，应用（ ） 命令。 若要将图片&D:\PIC\CAR.JPG&载入到当前的 图像框(Image)中，应用（ ）命令。 若要设置列表框的选择方式，可通过（ ）属 性设置来实现。 若要设置命令按钮为图形风格的按钮，可通 过将（ ）属性设置为Graphical。 若要使窗体启动时，位于屏幕中央，可通过 （ ）一个属性来设置。 若要使命令按钮获得控制焦点，可使用（ ） 方法来设置。 若要使文本框中成为只读文本框，可通设置 （ ）属性值为True来实现。 若要文本框在失去控制焦点后，执行某一动 作，可以对（ ）事件进行编程。 文本框的按键事件是（ ）。 要设置Hscrollbar控件在单滚动箭头时Value 属性值的变化幅度，可通过调用该控件的（ ）属性来实现。 在窗体中利用Print方法输出文本信息时，信 息的输出位置由（ ）属性设置。 对话框的（ ）属性可以设置所打开对话框的 “默认路径”。 函数（ ）可实现将十进制数值转换为八进制 数。 在运行时，若要获得文本框中所选的文本的 起始位置，可通过访问（ ）属性来实现。 在运行时，若要获得文本框中所选定的文 本，可通过访问（ ）属性来实现。 默认情况下，语句：Dim student(100) 定义 的数组有（ ）个元素。 语句：Dim student(10,5 to 100) 定义的是 一个（ ）维数组。 语句：Dim student(10,5 to 9,4 to 9) 定 义的是一个（ ）维数组。 语句：Dim student(10,5 to 9,4) 定义的是 一个（ ）维数组。 语句：Dim student(10,5,4) 定义的是一个 （ ）维数组。 语句：Dim student(100) 定义的是一个（ ）维数组。 控件数组是通过（ ）来区分控件数组元素的 默认情况下，语句：Dim student(10 to 11 ,4) 定义的数组有（ ）个元素。 默认情况下，语句：Dim student(10,5) 定 义的数组有（ ）个元素。 已知A(1)=1,A(2)=2,A(3)=3,则A(A(3)A(1))=( )。 已知A(1)=1,A(2)=2,A(3)=6,A(4)=8则 A(A(1)+A(2))=( )。 已知A(1)=1,A(2)=2,A(3)=6,A(4)=8则 A(A(1)+A(2))=( )。MaxButton LoadFile LoadFile Columns Style Top Refresh ReadOnly Refresh KeyMoveMinButton LoadPicture LoadPicture Style BorderStyle Left SetFocus Unlock SetFocus KeyPressControlBox LoadPic LoadPic MultiSelect BackStyle StartUpPositi on GetFocus Enabled GetFocus MouseMoveValue Left FileName Hex SelStart SelStart 100 2 1 1 1 1 名称 20 50 0 8 8SmallChange Top InitDir Oct SelLength SelLength 10 3 2 2 2 2 Count属性 22 6 1 6 6Min x,y Filter Bin Text Text 任意 5 3 3 3 5 Index属性 10 15 2 2 2Page 10SelectOneInfo(OLD)已知Eng(1)=90，Math(1)=80， Comp(1)=95Total(1)= Eng(1)+Math(1)+Comp(1)，则Total(1)=（ ）。 已知Eng(1)=90，Math(1)=80，T(1)=2， Total(1)= (Eng(1)+Math(1))/T(1)，则 Total(1)=（ ）。 已知T(1)=9，T(2)=8，T(0)=5，Total= T(1)+T(2)+T(0)，则Total=（ ）。 有一数组定义语句：Dim M(-2 to 1) As string，则数组M中包含的元素个数为（ ） 语句：Dim S(-1 to 5) 定义的数组有（ ） 个元素。 语句：Dim S(10 to 25) 定义的数组有（ ） 个元素。 语句：Dim student(10 to 20,5) 定义的是 一个（ ）维数组。 语句：Dim student(10,5) As Long定义的 数组元素的类型为（ ）。 语句：Dim student(10,5) As String定义 的数组元素的类型为（ ）。 语句：Dim student(10,5) 定义的是一个（ ）维数组。 语句：Dim student(10,5) 定义的数组有（ ）个元素。 语句：Dim student(1990 to 2003) 定义 的数组有（ ）个元素。 语句：Dim student(2 to 4, 5 to 6) 定义 的数组有（ ）个元素。 默认情况下，语句：Dim student(2,3,4) 定 义的数组有（ ）个元素。 默认情况下，语句：Dim student(4, 5 to 6) 定义的数组有（ ）个元素。 默认情况下，语句：Dim student(4, 5 to 6) 定义的数组有（ ）个元素。 已知在“通用”代码有以下语句：
Dim A( ) As Integer
，在某一事件代码中使用（ ）是正确的 则 已知在“通用”代码有以下语句：
Dim stu( ) As String
，在某一事件代码中使用（ ）是正确的 则 已知在“通用”代码有以下语句：
Dim tt( ) As Integer
，在某一事件代码中使用（ ）是正确的 则 有以下数组声明语句：Option Base 1: Dim A(3,2 to 4)，则数组A有（ ）个元素。 有以下数组声明语句：Option Base 1: Dim A(3,4)，则数组A有（ ）个元素。 2*Sqr(4)的值是（ ）。 A$=&25.25.2868&，则Val（A$）的值为（ ） 。 Abs( -3.14)的值是（ ）。 Int（23.512）的值为（ ）。 Sgn(-6)的值是（ ）。 表达式1＋((2＋3)*2)*2的值是（ ）。265908080 9 4 7 10 1 整型
数值型 1 50 14 3 60 4 2090 22 3 6 15 2 字符型 字符型 2 6
5 2485 8 2 5 16 3 逻辑型
逻辑型 5 15
10 10ReDim A(30,4)ReDim A(4) As String ReDim A(100) ReDim stu(4,120)ReDim stu(120)ReDim stu( )ReDim tt(3,4) As ReDim tt(4) boolean As String 3 3 4 25. 6 26 4 4 8 25.25 -3 -24 -6 22ReDim tt(10) 12 12 32 25..14 24 1 21Page 11SelectOneInfo(OLD)表达式3*2^2的值是（ ）。 函数过程是以（ ）保留字开始的。 计算绝对值的函数是（ ）。 计算平方根的函数是（ ）。 将ASCII码转换成字符串的函数是（ ）。 将数值型数据转换成字符串型数据的函数是 （ ）。 将数字字符串转换成数值型常数的函数是（ ）。 可获得字符ASCII码值的函数是（ ）。 求字符串长度的函数是（ ）。 提取计算机系统的当前日期的函数是（ ）。 提取系统的当前时间的函数是（ ）。 下列表达式值为False的是（ ）。 在函数过程中的任意位置要退出当前函数过 程，应用（ ）命令。 设a=2,b=3,c=4,d=5,下列表达式的值是（ ）。
A&b AND c&d OR 2*a&c s$=&abcdefghijk&，Right$(s$,4)的值是（ ）。 “X是小于100的非负数”，用VB表达式表示 正确的是（ ）。 A$=&+3.14+2&，则Val（A$）的值为（ ）。 Cint（-23.512）的值为（ ）。 Fix（-23.512）的值为（ ）。 LCase$(&Abc&)的值为（ ）。 Len（“ab湖南长沙”）的值是（ ）。 s$=&abcdefghijk&，left$(s$,4)的值是（ ）。 s$=&abcdefghijk&，Mid$(s$,1,4)的值是（ ）。 UCase$(&Abc&)的值为（ ）。 表达式11 Mod 4/2的值是（ ）。 表达式14/5*2的值是（ ）。 表达式14\5*2的值是（ ）。 计算以e为底的幂的函数是（ ）。 计算自然对数值的函数是（ ）。 将浮点数或货币型数转换为小于等于该数的 最大整型量的函数是（ ）。 将数值的小数部分进行四舍五入，返回一个 整型量的函数是（ ）。 截去浮点数或货币型数的小数部分，返回一 个整型量的函数是（ ）。 可实现从字符串任意位置截取字符的函数是 （ ）。 去掉字符串右边空格的函数是（ ）。 去掉字符串左边空格的函数是（ ）。 设a=2,b=3,c=4,d=5,下列表达式的值是（ ） 。
设a=2,b=3,c=4,d=5,下列表达式的值是（ ） 。
实现将大写字母转换成小写字母的函数是（ ）。12 Function Int Sgn Chr$ Chr$ Chr$ Chr$ Len Date$ Date$ True Or 8&3 End Function81 Sub Exp Exp Str$ Str$ Str$ Str$ long Time$ Time$ 5&2 Xor 8&3 Exit3 Property Sqr Sqr Asc Asc Asc Asc Length DateValue DateValue 5&2 Or 8&3 Exit FunctionTrue “efghijk” 0≤X&100 +3.14+2 -23 －23 Abc 5 “efghijk” “efghijk”
Abc 1.5 1.4 1.4 Log Log Cint Cint Cint Instr Ltrim$ Ltrim$ True True Lower$False “hijk” 0&=X&100 +5.14 -24 －24 abc 6 “hijk” “hijk” abc 2 4 4 Exp Exp Fix Fix Fix Mid$ Rtrim$ Rtrim$ False False Upper$-1 “abcd”
0&=X And X&100 3.14 24 24 ABC 10 “abcd”
“abcd” ABC 3 5.6 5.6 Ln Ln Int Int Int Left$ Left$ Left$ 0 -1 UCase$Page 12SelectOneInfo(OLD)实现将小写字母转换成大写字母的函数是（ ）。 数学式子Sin25℃, 写成VB表达式是（ ）。 提取系统的日期和时间的函数是（ ）。 下列表达式值为True的是（ ）。 用于从字符串右边截取字符的函数是（ ）。 用于从字符串左边截取字符的函数是（ ）。 Month(&&)+Day(&&) 的 值为（ ）。 s=&ab&+Space(2)+&cd&,则s的值为（ ）(□ 表示空格)。 s＝Left$(&abcd&,2)+Mid$(&efgh&,2,2)，则 s的值为（ ）。 s＝Left$(&abcd&,2)+Right$(&efgh&,2)，则 s的值为（ ）。 s＝left$(“abcd”,2)+Mid$(“efgh ”,2,2)，则s的值为（ ）。 s＝left$(“abcd”,2)+right$(“efgh ”,2)，则s的值为（ ）。 StrReverse（&abcD&）的值为（ ）。 变量x的值为3，y的值为4，执行下列哪个语 句后，可输出表达式：3＋4＝7（ ）。 表达式25^(0.5*-1)的值是（ ）。 表达式Hour(&12:03:06&)Minute(&12:03:06&)-Second(&12:03:06&)的 值为（ ）。 表达式中包含下述多种运算时，计算机会最 后进行（ ）运算。 表达式中包含下述多种运算时，计算机会最 先进行（ ）运算。 产生N个空格组成的字符串的函数是（ ）。 产生大于10且小于等于20的随机整数的表达 式为（ ）。 产生大于等于10且小于20的随机整数的表达 式为（ ）。Lower$ sin25 Date$ 5&2 And 8&3 Ltrim$ Ltrim$ 516 abcd abgh abef abgh abef dCBAUpper$ sin(25) Time$UCase$sin(25。) DateValue 'b'&&a& And 4&9 And 1+1=2 &C&&&c& Rtrim$ Left$ Rtrim$ Left$ 21 ab□□cd abfg cdef abfg 2007 abcd□□ cdgh abgh cdgh abgh Dcba P&+&;&y&;&=x +y& -5cdef dcba P&+&;y;&=&;x+ Print &x+y=&;x+y y -12.5 0.212-03-06 函数运算 函数运算 Space$12-3-6 算术运算 算术运算 Spc$1236 关系运算关系运算 Rtrim$ Int(Rnd*10+11 Int(Rnd(10)＋10)
Int(Rnd*10+10) ) Int(Rnd*10+11 Int(Rnd(10)＋10) Int(Rnd*10+10) ) sin[25] Length (year mod 4=0 or year mod 100&&0) and (year mod 400=0) 0 0 产生一个大于0 小于10的单精 度随机数 &abc&&&ABC&求25度的正弦值，写成VB表达式是（ ）。 sin25 求字符串存储时所占的字节数的函数是（ ） Lensin(25) LenB (year mod 4=0 (year mod 4=0 and year mod 闰年的条件是年号(year)能被4整除，但不能 and year mod 100&&0) or 被100整除，或者能被400整除。则闰年的布 100&&0) and (year mod 尔表达式为（ ）。 (year mod 400=0) 400=0) 设a=5，则执行x＝IIf(a&6,-1,0)后，x的值 为（ ）。 5 6 设a=6，则执行x＝IIf(a&5,-1,0)后，x的值 为（ ）。 5 6 产生一个大于或等 产生一个大于或 于0小于1的单精度 等于0小于10的 随机函数Rnd（10）的功能为（ ）。 随机数 单精度随机数 下列表达式值为True的是（ ）。 &ABC&&&abc& &abc&=&ABC&Page 13SelectOneInfo(OLD)下列表示命题|x|≥|y|或x&y的布尔表达式是 Abs( x) ≥Abs( （ ）。 y) or x&y 双击窗体上的某个 下列不能打开代码窗口的操作是（ ）。 控件
下列哪个函数（ ）可实现将十进制数值转换 为八进制数。 Hex 下列哪个函数（ ）可实现将十进制数值转换 为十六进制数。 Hex VB对二进制随机文件访问时，应用（ ）模式 OutPut VB提供的三种访问文件的模式中，不包括（ ）。 顺序文件
默认情况下，VB中的图形坐标的y轴方向是（ ）。 向下
默认情况下，VB中的图形坐标的原点在图形 控件的（ ）。 左下角 若要在图片框中绘制一个椭圆，可使用（ ） 方法来实现。 Circle 以下有关VB的绘图方法中，（ ）表示画圆 或椭圆。 Circle 以下有关VB的绘图方法中，（ ）表示画直 Circle 在VB的图形属性中，（ ）表示绘图的前景颜 色。 BackColor Form1.Circle （ ）可以在窗体上绘制一个半径为1000的圆 (), 。 1000 VB对顺序文件访问的三个步骤中，不包括（ ）。 建立索引
VB对顺序文件访问的三种形式中，不包括（ ）。 OutPut 从“视图”菜单中 选取“调色板”， 下列关于调色板说法错误的是（ ）。 可打开调色板 想要加载图片文件，并设定给 Picture 属 性，应使用的函数是（ ）。 LoadGraph ic 以下关于VB中的图形坐标的度量单位的说法 只有一种单位： 正确的是（ ）。 Twip 在程序运行过程中可使用RGB函数指定颜色参 RGB(红色值,黄色 数值，它的格式是（ ）。 值,蓝色值) 在图片框(PictureBox)中显示的图形，由对 象的（ ）属性决定。 Picture 在图像框（Image）中显示的图形，由对象的 （ ）属性决定。 Picture VB对随机文件访问时，应用（ ）模式。 OutPut 以下有关VB颜色的表示中，（ ）是错误的 vbRed 在程序运行中，可直接输入颜色值来指定颜 色参数值，通常用（ ）进制数表示颜色值。 二进制 假定窗体的名称（Name属性）为Form1，则把 Form1=”VB Test 窗体的标题设置为“VB Test”的语句为（ ”
设a，b，c为整型变量，其值分别为1，2， 3，以下程序段的输出结果是（ ）。
a=b:b=c:c=a Pb;c 1 2 3Abs( x) ≥ Abs( x)&=Abs( Abs( y) and y) or x&y x&y 单击查看代码 双击窗体 按钮
Oct Oct Input 数据库文件
右上角 Line Line Line ForeColor Line ()-() 打开文件 Input Bin Bin Binary 随机文件 向左
左上角 Point Pset Pset FillColor Point
读/写文件 Append调色板可设置对 调色板可设置 象的前景色 对象的背景色 LoadPicture 只有一种单位： Cm RGB(红色值,绿 色值,蓝色值) Image Pic Input QbColor(4) 八进制 Caption=”VB Test” LoadBitmap 只有一种单 位：Point RGB(红色值,黄 色值,黑色值) Icon Icon Random RGB(255,0,0) 十进制 Form1.Text=” VB Test” 231321Page 14SelectOneInfo(OLD)下列For－Next循环的循环体的执行次数为（ ）。
For I=1 to 11 I=I+1 Next I 5 下列程序的输出结果是（ ）。
For I=1 to 4 p=p*I Next I Print p 24 下列程序段的输出为（ ）。
S=0 For I=1 to 10 I=I+1:s=s+I Next I Print s 55 下列语句错误的是（ ）。 下列语句有语法错误的是（ ）。 以下VB语句中，（ ）的功能是创建一个新的 目录（文件夹）。 以下程序段的输出结果是（ ）。
A=1：b=2：t=0
if a&b then t=a:a=b:b=t Pb 以下程序段的输出结果是（ ）。
A=1：b=2：t=0
if a&b then t=a:a=b:b=t Pb 以下程序段的输出结果是（ ）。
While n&=100 n=n+1 : s=s+n wend Print s 以下程序段的输出结果是（ ）。
X=1:y=4 do until y&4
x=x*y：y=y+1
loop Print x 以下程序段的输出结果是（ ）。
N=4：k=1：I=0
For I=1 to n k=k*I Next I Print I 以下程序段的输出结果是（ ）。
N=4：k=1：I=0
For I=1 to n k=k*I Next I Print k FontName=宋体 a＝5 Kill1164066 FontSize＝20 b＝a
FileCopy30 FontBold＝ True b=“a” Name1 11 22 2111222494950504950148234212223Page 15SelectOneInfo(OLD)以下程序段的输出结果是（ ）。
N=4：k=1：I=0
For I=1 to n k=k*I Next I Print k 以下程序段的输出结果是（ ）。
Num=0 While num&=2 num=num+1 P Wend 以下程序段运行的结果为（ ）。
Dim m(10) For I=1 to 5 m(I)=I*I Next I Print m(I-1) 以下程序段运行的结果为（ ）。
Dim m(10) For I=1 to 5 m(I)=I*I Next I Print m(I-1) 以下程序段运行的结果为（ ）。
Dim m(10) For I=1 to 5 m(I)=I*I Next I Print m(I-2) 以下程序段运行的结果为（ ）。
m(10)，s ：s=0
Dim For I=1 to 5 m(I)=I s=s+m(I) Next I Print s 在子过程中的任意位置要退出当前子过程， 应用（ ）命令。 对于下列语句，其输出是（ ）。
A=2:b=1:c=0
a then if b then if c then Print “1 if ” else Print “2” else Print “3” else Print “4” 假定有以下程序段
For I=1 to 3
or j=5 to 1 step C1
F Print I*j Next j,I
语句Print I*j的执行次数是（ ）。 则 假定有以下循环结构 ，则正确的描述是（ ）。
Until 条件
循 Loop2122231 2 31 1 13 2 15251652516525165 End Function10 Exit15 Exit Function1231517 如果“条件” 如果“条件”是一 如果“条件”是 是一个不为0的 个为0的常数，则 一个为0的常 常数，则至少 一次循环体也不执 数，则无限次执 执行一次循环 行 行循环体 体16Page 16SelectOneInfo(OLD)假定有以下循环结构 ，则正确的描述是（ ）。
While 条件
循 Loop 假定有以下循环结构 ，则正确的描述是（ ）。
Until &条件&
Loop 假定有以下循环结构 ，则正确的描述是（ ）。
While &条件&
Loop 下列程序段执行的结果为（ ）。
Dim m(10 to 20) For I=10 to 20 m(I)=2*I Next I Print m(20) 下列程序段执行的结果为（ ）。
Dim m(10) For I=0 to 10 m(I)=2*I Next I Print m(3) 下列程序段执行的结果为（ ）。
Dim m(10) For I=0 to 10 m(I)=I*I Next I Print m(5) mod 10 下列程序段执行的结果为（ ）。
Dim m(10) For I=1 to 10 m(I)=2*I Next I Print m(1) 下列程序段执行的结果为（ ）。
Dim m(10) For I=1 to 10 m(I)=2*I Next I Print m(3) 下列程序段执行的结果为（ ）。
Dim m(10) For I=9 to 10 For j=1 to 2 m(I)=j Next j Next I Print m(9);m(10)如果“条件”是一 个为1的常数，则 一次循环体也不执 行 如果“条件”是一 个为0的常数，则 一次循环体也不执 行 如果“条件”是一 个为1的常数，则 一次循环体也不执 行如果“条件”是 一个为1的常 数，则无限次执 行循环体 如果“条件”是 一个为0的常 数，则无限次执 行循环体 如果“条件”是 一个为1的常 数，则无限次执 行循环体如果“条件” 是一个不为1的 常数，则至少 执行一次循环 体 如果“条件” 是一个不为0的 常数，则至少 执行一次循环 体 如果“条件” 是一个不为1的 常数，则至少 执行一次循环 体4020101263251052630631 11 22 1Page 17SelectOneInfo(OLD)下列程序段执行的结果为（ ）。
Dim m(10) For I=0 to 10 m(I)=2*I Next I Print m(m(3)) 下面程序运行时内层循环的循环总次数是（ ）。
For m=1 to 3 For n=0 TO m-1 Next n Next m 已知一窗体中有如下函数过程和一命令按钮 Command1，且Command1的Click事件中只有一 行命令：Print Sum(1,2,3)，则单击 Command1时，输出结果为（ ）。
Private Function Sum( a,b,c) a=a+1:b=b+1:c=c+1 Sum=a+b+c End Function 已知一窗体中有如下子过程和一命令按钮 Command1，且Command1的Click事件中只有一 行命令：Print_Number，则程序运行中第三 次单击Command1时，输出结果为（ ）。
Private Sub Print_Number( ) Private x x = x + 10 Print x End Sub 已知一窗体中有如下子过程和一命令按钮 Command1，且Command1的Click事件中只有一 行命令：Print_Number，则程序运行中第三 次单击Command1时，输出结果为（ ）。
Private Sub Print_number( ) Static x x = x + 10 Print x End Sub 以下VB语句中，（ ）的功能是复制指定文件 以下VB语句中，（ ）的功能是删除指定文件 以下VB语句中，（ ）的功能是文件改名。 以下程序段的输出结果是
x=13:y=15 a=x-y if x&=y then a=y else a=a-y Print a 以下程序段的输出结果是（ ）。
N=1:s=0 do s=s+n : n=n+1 loop until n&100 Print s1263653678010200 Kill Kill Kill10 FileCopy FileCopy FileCopy20 Name Name Name-2213494950504950Page 18SelectOneInfo(OLD)以下程序段的输出结果是（ ）。
N=1:s=0 do s=s+n : n=n+1 loop while n&=100 Print s 以下程序段的输出结果是（ ）。
N=1:s=0 do until n&=100 s=s+n : n=n+1 loop Print s 以下程序段的输出结果是（ ）。
N=1:s=0 do while n&100 s=s+n: n=n+1 loop Print s 以下程序段的输出结果是（ ）。
For x=5 to 2.5 step C7
Next x Print x 以下程序段的输出结果是（ ）。
For x=5 to 2.5 step C7
Next x Print x 以下程序段的输出结果是（ ）。
A=0 For j=1 TO 15 a=a+(j MOD 3) Next j Print a 以下程序段的输出结果是（ ）。
A=0 For j=1 TO 15 a=a+(j Mod 3) Next j Print a 以下程序段的输出结果是（ ）。
A=23 while a*2&&a+46 a=a+1 wend a=a-23 Print a 以下程序段的输出结果是（ ）。
L$=“X”：M$=“Y”：N$=“Z”
For J=1 TO 3
L$=M$：M$=N$：N$=L$
Next J Print L$;M$;N$4949505049504949505049504949505049502.22.52.92.22.52.90159001590212223ZXYXYZYZYPage 19SelectOneInfo(OLD)以下程序段的输出结果是（ ）。
L$=“X”：M$=“Y”：N$=“Z”
For J=1 TO 2
L$=M$：M$=N$：N$=L$
Next J Print L$;M$;N$ 以下程序段的输出结果是（ ）。
L$=“X”：M$=“Y”：N$=“Z”
For J=1 TO 2
L$=M$：M$=N$：N$=L$
Next J Print L$;M$;N$ 以下程序段的输出结果是（ ）。
X=13:y=15 a=x-y if x&=y then a=y else a=a-y Print a 以下程序段的输出结果是（ ）。
Print Format(#2/14/1998#,&m/d/yy&) 以下程序段的输出结果是（ ）。
Print Format(#2/14/1998#,&mmmm-yy&) 以下程序段的输出结果是（ ）。
Print Format(#9:21:30PM#,&h-m-s AM/PM&) 以下程序段的输出结果是（ ）。
Sum=0 For j=1 to 10 if j=10 then sum=sum+j endif Next j Print sum 以下程序段的输出结果是（ ）。
X=0:n=0 Do While x&50 x=(x+2)*(x+3) n=n+1 Loop print x 以下程序段的输出结果是（ ）。
X=0:n=0 Do While x&50 x=(x+2)*(x+3) n=n+1 Loop Print n 以下程序段的输出结果是（ ）。
X=0:n=0 Do While x&50 x=(x+2)*(x+3) n=n+1 Loop Print xZXYYZXYZYZXYYZXYZY-2 2-14-98 February/98 9-21-30 PM2 02-14-98 February-98 09-21-30 PM13 2/14/98 Febr/98 9-21-30 P10551000725012307250Page 20SelectOneInfo(OLD)以下程序段的输出结果是（ ）：
a=3:b=2:c=1: n=a if b&n then max=b if c&n then max=c Print n 以下可以在For-Next循环体中跳出循环，执 行Next下一句的语句（ ）。 以下可以在For-Next循环体中跳出循环，执 行Next下一句的语句（ ）。 以下是Command1的单击事件，单击Command1 后，在当前目录下创建了一个名为a.txt的文 件，该文件内容为（ ）。
Private Sub Command1_Click() Open &a.txt& For Output As #1
Print #1, &计算机&；&等级考试&
Close #1 End Sub 执行Text1.Move 200,300,语句 后，控件Text1的高度是（ ）twip。 执行Text1.Move 200,300,语句 后，控件Text1的宽度是（ ）twip。 执行Text1.Move 200,300,语句 后，控件Text1上边距窗体（ ）twip。 执行Text1.Move 200,300,语句 后，控件Text1左边距窗体（ ）twip。 执行如下程序段后，c的值为（ ）。
Dim c As Integer,f As Integer f=98 c=5/9*(f-32) 执行如下程序段后，s的值为（ ）。
Dim I%,j%,s As string I=2:j=3:s=&I& & &j& 执行如下程序段后，s的值为（ ）。
Dim I%,j%,s As string I=2:j=3:s=I & j 执行下列语句：
int1&30 then Print “int1&30”；
Print “int1&=30”
输出结果为（ ）。 其 执行下面的程序段后，a的值为 （ ）。
For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k, j, I 执行下面的程序段后，I 的值为 （ ）。
X=5 For I=1 To 10 Step 2 x=x+( I \3) Next I print I0 Exit For Exit For1 Exit While Exit While2 Exit Do Exit Do等级考试
200 200 200 200计算机等级考试 计算机 300 300 300 300 00 150036.6667370iji32jiji32jint1&30int1&=30int1&30int1&= 30391491011Page 21SelectOneInfo(OLD)执行下面的程序段后，I的值为（ ）。
S = 5 For I = 2.5 To 4.6 Step 0.5 s = s+1 Next I print I 执行下面的程序段后，s的值为（ ）。
S = 5 For I = 2.5 To 4.6 Step 0.5 s = s+1 Next I print S 执行下面的程序段后，x 的值为 （ ）：
x=5 For I=1 To 10 Step 2 x=x+( I Mod 3) Next I Print x 以下程序段运行的结果为（ ）。
Dim m(10),s : s=0 For I=1 to 5 m(I)=I s=s+m(I) Next I Print s 单击Command1后，在当前目录下创建了一个 名为（ ）的文件。
Private Sub Command1_Click() Open &a.txt& For Output As #1
Print #1, &计算机&
Close #1 End Sub 某一变量要求在程序各模块中均可使用，应 在（ ）中用Public声明该变量。 情况语句的一般格式如下，其中表达式表列 的形式通常有三种，下列选项中不属于这三 种形式之一的是（ ）。
Case &测试表达式&
Case &表达式表列1&
[&语句块1&]
? [Case Else]
[&语句块n&]
End select 下列程序段执行的结果为（ ）。
Dim m(10) For I=9 to 10 For j=1 to 2 m(I)=j Next j Next I Print m(9);m(10)3457899101151015close 子过程output 窗体模块a.txt 标准模块&表达式1&[,&表达 &表达式1& to & Like &关系表 式2&]?? 表达式2& 达式&111221Page 22SelectOneInfo(OLD)下列程序段执行的结果为（ ）。
Dim m(10),n(10) For j=0 to 10 m(j)=j n(j)=m(j)+10 Next j Print n(3) 13 下列程序运行时，会产生（ ）错误。
Dim Stu(2, 3) For I = 1 To 4 For j = 1 To 5 Stu(I, j) = I * j Next j Next I 下标越界 下列哪组语句可以将变量A，B的值互换（ ） 。 A=B:B=A 下列语句中，不能将变量x，y均定义为单精 度型的是（ ）。 下面的数组定义语句正确的是（ ）。 下面的数组定义语句正确的是（ ）。 已知&student.txt&文件内容为： This is a VB Program.
程序段如下：
一 Private Sub Command1_Click() Open &student.txt& For Append As #1 Print #1, &We are all love VB.& Close #1 End Sub
该程序段执行后，&student.txt&文件内容 则 为（ ）。 已知&student.txt&文件内容为： This is a VB Program.
程序段如下：
一 Private Sub Command1_Click() Open &student.txt& For Input As #1 Line Input #1, S Print S; Close #1 End Sub
该程序段执行的结果为（ ）。 则 已知&student.txt&文件内容为： This is a VB Program.
程序段如下：
一 Private Sub Command1_Click() Open &student.txt& For Output As #1 Print #1, &We are all love VB.& Close #1 End Sub
该程序段执行后，&student.txt&文件内容 则 为（ ）。 Dim x,y As single Dim a[3,4] Dim a[3]310大小写不匹配 C=A:A=B:B=C数组定义错误 A=C:C=B;B=ADim x!,y As Dim x!,y! single Dim a[3;4] Dim a(3,4) Dim a[3 to 4] Dim a(10 4)This is a VB Program.We are all love VB.（无内容）hisisVBThis is a VB Program.We are all love VB.（无内容）Page 23SelectOneInfo(OLD)已知一程序段如下：
Private Sub Command1_Click() S = 0 Open &student.txt& For Output As #1 For I = 1 To 10 S = S + I Next I Print #1, &S=&; S Close #1 End Sub
该程序执行后，“Student.txt”文件的内 则 容为（ ）。 已知一窗体上命令按钮Command1的Click事件 代码如下，则单击Command1后，文本显示的 文字为（ ）。
Private Sub Command1_Click()
Text1.Text =&湖南省& & &计算机& + &等 级考试&
Text1.ForeColor = vbRed Text1.BackColor = vbGreen Text1.FontBold = True End Sub 已知一窗体上命令按钮Command1的Click事件 代码如下，则单击Command1后，文本中的背 景颜色为（ ）色。
Private Sub Command1_Click()
Text1.Text =&湖南省& & &计算机& + &等 级考试&
Text1.ForeColor = vbRed Text1.BackColor = vbGreen Text1.FontBold = True End Sub 已知一窗体上命令按钮Command1的Click事件 代码如下，则单击Command1后，文本中的文 字颜色为（ ）色。
Private Sub Command1_Click()
Text1.Text =&湖南省& & &计算机& + &等 级考试&
Text1.ForeColor = vbRed Text1.BackColor = vbGreen Text1.FontBold = True End Sub 已知一窗体中有如下函数过程和一命令按钮 Command1，且Command1的Click事件中只有一 行命令：Print Max(1,2,3)，则单击 Command1时，输出结果为（ ）。
Private Function Max( a,b,c) m=a if b&m then m=b if c&m then m=c Max=m End FunctionS=；S
S=SS= 10湖南省计算机等级 考试 计算机等级考试红绿白红绿黑123Page 24SelectOneInfo(OLD)已知一窗体中有如下函数过程和一命令按钮 Command1，且Command1的Click事件中只有一 行命令：Print Min(10,20,30)，则单击 Command1时，输出结果为（ ）。
Private Function Min( a,b,c) m=a if b&m then m=b if c&m then m=c Min=m End Function 已知一窗体中有如下函数过程和一命令按钮 Command1，且Command1的Click事件中只有一 行命令：Print Sum(1,2,3)，则单击 Command1时，输出结果为（ ）。
Private Function Sum( a,b,c) Sum=a+b+c End Function 已知一窗体中有如下函数过程和一命令按钮 Command1，则单击Command1时，输出结果为 （ ）。
Private Function Sum( a,b,c) a=a+1:b=b+1:c=c+1 Sum=a+b+c End Function Private Sub Command1_Click( ) a=1:b=2:c=3 Call Sum(a,b,c) Pb;c End Sub 已知一窗体中有如下函数过程和一命令按钮 Command1，则单击Command1时，输出结果为 （ ）。
Private Function Sum( ByVal a, ByVal b,ByVal c) a=a+1:b=b+1:c=c+1 Sum=a+b+c End Function Private Sub Command1_Click( ) a=1:b=2:c=3 Call Sum(a,b,c) Pb;c End Sub 已知一窗体中有如下函数过程和一命令按钮 Command1，则单击Command1时，输出结果为 （ ）。
Private Function Sum( ByVal a, ByVal b,c) a=a+1:b=b+1:c=c+1 Sum=a+b+c End Function Private Sub Command1_Click( ) a=1:b=2:c=3 Call Sum(a,b,c) Pb;c End Sub1020301231 2 32 3 43 4 51 2 32 3 41 3 41 2 32 3 41 3 4Page 25SelectOneInfo(OLD)已知一窗体中有如下函数过程和一命令按钮 Command1，则单击Command1时，输出结果为 （ ）。
Private Function Sum( ByVal a,b,c) a=a+1:b=b+1:c=c+1 Sum=a+b+c End Function Private Sub Command1_Click( ) a=1:b=2:c=3 Call Sum(a,b,c) Pb;c End Sub 已知一窗体中有如下函数过程和一命令按钮 Command1，则单击Command1时，输出结果为 （ ）。
Public Function even(x) If x Mod 2 = 0 Then even = 1 else even = 0 End If End Function Private Sub Command1_Click() n = 20 If even(n) = 1 Then P &is a even number.& Else P &is not a even number.& End If End Sub 已知一窗体中有如下函数过程和一命令按钮 Command1，则单击Command1时，输出结果为 （ ）。
Public Function even(x) If x Mod 2 = 0 Then even = 1 else even = 0 End If End Function Private Sub Command1_Click() n = 39 If even(n) = 1 Then P &is a even number.& Else P &is not a even number.& End If End Sub1 2 32 3 41 3 420 is a even number.20 is not a even number.n is a even number.39 is a even number.39 is not a even number.n is a even number.Page 26SelectOneInfo(OLD)已知一窗体中有如下函数过程和一命令按钮 Command1，则单击Command1时，输出结果为 （ ）。
Public Function Fn(n) If n = 0 Then Fn = 1 Else Fn = Fn(n - 1) * n End Function Private Sub Command1_Click() Print Fn(1) End Sub 已知一窗体中有如下函数过程和一命令按钮 Command1，则单击Command1时，输出结果为 （ ）。
Public Function Fn(n) If n = 0 Then Fn = 1 Else Fn = Fn(n - 1) * n End Function Private Sub Command1_Click() Print Fn(6) End Sub 已知一窗体中有如下函数过程和一命令按钮 Command1，则单击Command1时，输出结果为 （ ）。
Public Function Fun(x, y) Fun = 1 For I = 1 To y Fun = Fun * x Next I End Function Private Sub Command1_Click() Print Fun(3, 4) End Sub 已知一窗体中有如下子过程和一命令按钮 Command1，则单击Command1时，输出结果为 （ ）。
Public Sub change(ByVal x, ByVal y) t = x x = y y = t End Sub Private Sub Command1_Click() a = 12 b = 34 Call change(a, b) P b End Sub124017203481123434122143Page 27SelectOneInfo(OLD)已知一窗体中有如下子过程和一命令按钮 Command1，则单击Command1时，输出结果为 （ ）。
Public Sub change(ByVal x, ByVal y) x = y End Sub Private Sub Command1_Click() a = 12 b = 34 Call change(a, b) P b End Sub 已知一窗体中有如下子过程和一命令按钮 Command1，则单击Command1时，输出结果为 （ ）。
Public Sub change(x, y) x = y End Sub Private Sub Command1_Click() a = 12 b = 34 Call change(a, b) P b End Sub 已知一窗体中有如下子过程和一命令按钮 Command1，则单击Command1时，输出结果为 （ ）。
Public Sub change(x, y) t = x x = y y = t End Sub Private Sub Command1_Click() a = 12 b = 34 Call change(a, b) P b End Sub 已知一名为“Student.txt”的文件，其内容 如下：
小三,98,87,99
四明,77,88,93
大光,89,56,65
以下程序段执行的结果为（ ）。
则 Private Sub Command1_Click() Open &student.txt& For Input As #1 While (Not EOF(1)) Sum=0 Input #1, Nam, Chn, Eng, Cmp Sum = Chn + Eng + Cmp Print S Wend Close #1 End Sub123434341212123434343412123434122143284258210988799778893Page 28SelectOneInfo(OLD)已知一命令按钮的单击事件的代码如下，第 一次单击该按钮输出的值为2，第三次单击该 按钮输出的值为（ ）。
Private Sub Command1_Click() Static Stu(3) As Integer For I = 2 To 3 Stu(I) = Stu(I) + I Next I Print Stu(2); End Sub 2 已知一命令按钮的单击事件的代码如下，第 一次单击该按钮输出的值为2，第三次单击该 按钮输出的值为（ ）。
Private Sub Command1_Click() Static Stu(3) As Integer For I = 2 To 3 Stu(I) = Stu(I) + I Next I Print Stu(2); End Sub 2464 6 if x&0 then if x&=0 then if x&0 then y=1 y=1 else if if x=0 then 以下不能实现符号函数y＝sgn(x)的程序段是 else if x=0 then x&0 then y= -1 y=0 else y= （ ）。 y=0 else y= -1 else y=0 1 else y=1 以下程序段的输出结果是（ ）
Print Format(0.123,&0.00%&) 12.3% 1.23% 12.30% 以下程序段的输出结果是（ ）
Print Format(.00E+00&) 1.23E+04 1.23E+4 1.23456E+04 以下程序段的输出结果是（ ）(□表示空格)
Print &a&; Spc(3);&b& a□□□b □□□ab □□ab□ 以下程序段的输出结果是（ ）(□表示空格)
Print &a&; Spc(3);&b& a□b □a□□□□b a□□□b 以下程序段的输出结果是（ ）(□表示空格)
Print &a&;Tab(3);&b& a□b
□a□□□□b a□□□b 以下程序段的输出结果是（ ）(□表示空格)
Print Format(－19.456,&####.##&) □－19.46 □－19.45 －19.46 以下程序段的输出结果是（ ）(□表示空格)
Print Format(19.456,&0000.00&) □□19.46 □□19.45 0019.46 以下程序段的输出结果是（ ）(□表示空格)
Print Format(100&) 19330 □□□19330 以下程序段的输出结果是（ ）(□表示空格)
Print Tab(3);1 □□□1 □□1 □1 以下程序段的输出结果是（ ）。
Score=int(rnd*5)+80 Select Case score
Case 60 to 69： a$=“D”
Case 70 to 79： a$=“C”
Case 80 to 89: a$=“B”
Case else: a$=“A”
End select Print a$ A B CPage 29SelectOneInfo(OLD)以下程序段的输出结果是（ ）。
Score=int(rnd*5)+80 Select Case score
Case is&60： a$=“F”
Case 60 to 69： a$=“D”
Case 70 to 79： a$=“C”
Case 80 to 89: a$=“B”
Case Else:
a$=“A” 以下程序段的输出结果是（ ）。
N=13: a=2 m=n mod 10 Select Case m Case is&0: a= -1 Case is=0: a=0 Case is&0: a=1 End select Print a 以下程序段的输出结果是（ ）。
For k=1 to 3 if k &=1 then a=3 if k &=2 then a=2 if k &=3 then a=1 P Next k 以下程序段的输出结果是（ ）。
Print Format(#9:21:30PM#,&hh:mm:ss A/P&) 以下程序段的输出结果是（ ）。
Print &1&;&2&; Print &3& 以下程序段的输出结果是（ ）。
Print &1&;&2& Print &3& 以下程序段的输出结果是（ ）。
Print 1;2 Print 3 以下程序段的输出结果是（ ）。
Print 1;2,3 以下程序段的输出结果是（ ）。
Print 1;2; Print 3ABC-1011113213339:21:30 PM09:21:30 PM9:21:30 P1 2 31 231231 2 31 23 1 2 3 1 2 31231 2 3 1 2 3123 3 2 1 12 31 2 3123Public Public Function Public Function Function Fn(n Fn(n As Fn(n As As Integer) Integer) Integer) If n=0 If n=0 Then If n=0 Then Fn=1 Fn=1 Else Then Fn=1 Else Else Fn=Fn(nFn=Fn*n Fn=Fn(n)*n 1)*n 以下递归函数中，正确的是（ ）。 End Function End Functio End Function 用于遍历对象集合所有元素的语句是（ ）。 Do while?Loop For Each?Next While? WendPage 30SelectOneInfo(OLD)在窗体上画一个命令按钮，编写如下事件过 程：
Private Sub Command1_Click() a=InputBox (&Enter the First Integer&) b=InputBox (&Enter the Second Integer&) Print b+a End Sub
程序运行后，单击命令按钮，先后在两个 输入对话框中分别输入456和123，输出结果 在以下事件过程中，Private表示（ ）。
Private Sub txtName_Change()
End Sub 　 在以下事件过程中，Public表示（ ）。
Public Sub txtName_Change() 　
　 End Sub579123456此过程只可以被 此过程不可以 此过程可以被任何 本窗体模块中的 被任何其它过 其它过程调用 其它过程调用 程调用 此过程只可以被 此过程不可以 此过程不可以被本 本窗体模块中的 被任何其它过 模块中的过程调用 其它过程调用 程调用Page 31SelectOneInfo(OLD)SelChooseD Pix 立即SelAnswer C A窗体布局 _A A_ B 既能使用解释 运行模式，又 能使用编译运 行模式 D End 1.23 布尔型 A[B]T Print A[B]T xyz Checked Checked Change 循环结构 D C D A A A C A B C A窗体属性A窗体属性B窗体的双击C窗体的单击C移动A移动BPage 32SelectOneInfo(OLD)按键B移动 单精度型 Event _A B B DExit For 只能 退出当前For循 环 逻辑 只有下拉式菜 单 Path Path Path 显示文字 中断模式 企业版 NextPage Dim str$ 一个语句必须 写在一行中， 不可分成多行 对于一个系统 提供的对象可 以识别哪些事 件，需要程序 员自己定义 块结构的条件 语句和单行结 构的条件语句 都必须以End if结束 Goto语句与其 相应的转向入 口可以在同一 过程中，也可 在不同过程中 PopupMenuA B B D B C A C B B BDDDD Dif语句都可以 由iif语句替代 BPage 33SelectOneInfo(OLD)标签框 C 窗体和控件都 不是Visual Basic中的对象 C \ .bas .bas .bas 8 8 资源文件 8 8 8 C D B A C C C D B APublic Sub Sum(x%, y%) 任何字符都可 以放在注释行 中作为注释内 容 用属性窗口可 以设置任何对 象的属性 StaticACC A立即 &H &H Form10 “下箭头” “下箭头” “下箭头” “下箭头”D C D C A C B D此过程是一个 不可用过程
BPage 34SelectOneInfo(OLD)连接符两旁的 操作符既不能 为数值型，也 不能为字符型 C 单精度型 A 单精度型 C 单精度型 单精度型 Dim x＃ While和Until 都是在条件变 为真的之前重 复循环 6 ×65536 复杂界面 复杂界面 PrintForm D C CA C B A D逻辑型数据以2 个字节存储 分别保存工程 文件、窗体文 件和标准模块 ODBC 二进制 MsgBox语句常 用于简单的信 息显示DD B DC不能使用VB中 的关键字命名 常量或变量 C 由字符串的长 度决定 D 可将用户的编 程思想自动转 换成程序代码 DPublic Sub Sum(x%, y%)BPublic Function Sum(x%, y%) B 当一个程序包 含两个以上程 序模块时 APage 35SelectOneInfo(OLD)元素名.变量名 B5A5B5D5B4 AlignmentB C重画窗体 Caption ShowFont ShowFont ShowFont ShowFont ShowFont 分 Image Image Value Click( ) Droup Hide Hide Load EnabledC D C A C B D C B A B D A A D C DControlBox A 将 PasswordChar 属性值为 & D PasswordChar 属性值为 * DPage 36SelectOneInfo(OLD)PasswordChar 属性值为 @ D Text Text Text 1000 Text Text 5000 MaxLength (名称) Value Enabled Enabled Enabled Cancel Value Cancel AddItem Backcolor FontBold A A A D A A D A A A C D D B A B D B CLargeChangeBLargeChange FontSize FontSize FontSize FontSizeC B A C CPage 37SelectOneInfo(OLD)BorderStyle BorderStyle BorderStyle BorderStyle BorderStyle BorderStyle FontSize FontSize FontSize FontSize WindowState Checked Checked Checked ComboBox ComboBox ComboBox Color Color Size Color Color FontItalic Min Value Value Output 计算机 当鼠标单击窗 体时 FontBold FontBold Sorted AutoSizeB B B A A A C C C B A B A B B A C A D B C A D D A A A D B A C CPage 38SelectOneInfo(OLD)FillStyle FillStyle FontBold OptionBotton Caption CLs Click Click GetFocusB C D D A A A B CForm1.clear Caption Caption New Top和Left Top和Left ListCount Min Default Moveable AddItem Enabled Enabled MaxLength ForeColor Visible ControlBox Locked List Alignment clsA A A B B D D B D C B C B D B A C D C D AWindowStateAPage 39SelectOneInfo(OLD)WindowState B Form2.PopupMe nu BMe.HideDForm2.hideCMe.HideCForm2.HideDMe.Hide End ComboBox Picture属性 ListCount ItemCheck Frame Height Height SelText Tab Alignment FillStyle BorderStyle Icon MouseIconD D A B A B D D C B C D B A B CLabel1 Debug.Print 25C CPage 40SelectOneInfo(OLD)WindowState LoadJPG LoadJPG List Apperance WindowState LostFocus Locked LostFocus MouseUpD B B C A C B D D BLargeChange B CurrentX,Curr entY D Pattern Dec SelText SelText 101 10 4 4 4 100 控件标题 11 66 3 1 1 B B A D D A C C C A C C D C B BPage 41SelectOneInfo(OLD)95A170 5 1 4 25 5 长整型 日期型 10 66 13 10 12 20 30C B A A C B D B B D A B A C CReDim A( )CReDim stu( ) As Integer AReDim tt( ) 9 20 16 .14 23 -1 24C D C A B D D D CPage 42SelectOneInfo(OLD)18 Event Abs Sqrt Val Val Val Val Val Now Now 5&2 And 8&3 Exit SubA A D C A B D C A A B D C1 abcdefgB B0&=X or X&100 C 5.14 C 23 B 23 A aBC B 12 B abcdefg abcdefg aBC 1 1 1 Abs Sqr Ccur Ccur Ccur Right$ Right$ Right$ 1 1 LCase$ C C C D C D B A C A B B B A A B DPage 43SelectOneInfo(OLD)LCase$ C sin(25*3.14/1 80) D Now D Not(5&2) Right$ Right$ 2018 □□abcd cdfg cdgh cdfg cdgh DABC P&+&;&y=&;x+ y 5 B D C B B B C B C CB B3 逻辑运算 逻辑运算 Ltrim$ Int(Rnd*2010) Int(Rnd*2010) sin(25*3.14/1 80 Val (year mod 4=0 or year mod 100&&0) or (year mod 400=0) -1D D A A C B D BB C-1 D 产生一个大于0 小于1的单精度 随机数 A &ABC&&&Ab& CPage 44SelectOneInfo(OLD)Abs( x)&=Abs( y) or x&y B 单击窗体或控 件 D Dec Dec Append 二进制文件 向右 右下角 Pset Point Point PenColor Pset
关闭文件 B A C B A C A A B BA AWrite D 调色板不能进 行细致的颜色 调整 D LoadPhoto B 可以有多种单 位 D RGB(红色值,绿 色值,黑色值) B LoadPic ALoadPic A Append C RGB(-255,0,0) D 十六进制 D Form1.Name=” VB Test” B232DPage 45SelectOneInfo(OLD)有语法错误C10C60 C FontItalic＝ False A 5=a D MkDir D2 1D21D5151D20B5D24DPage 46SelectOneInfo(OLD)24D2 1 3A9B9B0C20 Exit SubC D4B18A不论“条件” 是否为“真 ”，至少要执 行一次循环体 BPage 47SelectOneInfo(OLD)不论“条件” 是否为“真 ”，至少要执 行一次循环体 B 不论“条件” 是否为“真 ”，至少要执 行一次循环体 B 不论“条件” 是否为“真 ”，至少要执 行一次循环体 B2A9B2.5C9A9B2 2DPage 48SelectOneInfo(OLD)9A4A9D30B3 MkDir MkDir MkDirD B A C-17D5151BPage 49SelectOneInfo(OLD)5049B5049C5049C-2D-2D120B120B24CZYZCPage 50SelectOneInfo(OLD)ZYZDZYZD-17 02/14/98 Febr-98 09-21-30 PD A B A0A168B4B168BPage 51SelectOneInfo(OLD)3 Exit ExitD A A计算机；等级 考试 B 00 1000 D C D A36B23A23D无任何输出显 示 C21C12CPage 52SelectOneInfo(OLD)6C10D12A20Copen 事件过程C CIs &关系表达 式& C22DPage 53SelectOneInfo(OLD)30A循环嵌套错 A=(A+B)/2:B=( A-B)/2 Dim x As single, y As single Dim a(3;4) Dim a(3 to 6)A BA C DThis is a VB Program. We are all love VB. DThis is a VB Program. DThis is a VB Program. We are all love VB. BPage 54SelectOneInfo(OLD)S= 55D计算机等级考 试 A黄B黄A6CPage 55SelectOneInfo(OLD)60A6D4 5 6B1 2 4*AA1 2 4DPage 56SelectOneInfo(OLD)2 2 3Cn is not a even number. An is not a even number. BPage 57SelectOneInfo(OLD)24A6C256C4321APage 58SelectOneInfo(OLD)3412A1212B4321B895665APage 59SelectOneInfo(OLD)8C8 C if x&&0 then if x&0 then y= -1 else y= 1 else y=0 C 01.23% 1.23456E+4 ab□□□ a□□b a□□b －19.45 0019.45 □19330 □□□□1 C A A C A C C B ADBPage 60SelectOneInfo(OLD)DB2C123A09:21:30 P 12 3 12 3 1 2 3 1 2 3DCDB B123 A Public Function Fn(n As Integer) If n=0 Then Fn=1 Else Fn=Fn(n+1)*n End Function C For? Next BPage 61SelectOneInfo(OLD)123456D此过程是一个 不可用过程 B 此过程可以被 本工程中的所 有模块调用
D 　Page 62
A) B) C) D) 答案 155 A) B) C) 函数 InStr(&VB 程序设计教程&,&程序&)的值为(). 1 2 3 4 C 假设变量 BOOLVAR 是一个布尔型变量,则下面正确...VB单选_计算机软件及应用_IT/计算机_专业资料。1 单选(2 分)是面向对象程序设计的核心,是创建对象的模板。 A.变量 B.控件 C.模块 D.类 2 单选(2 分)标签...vb单选判断题题库_院校资料_高等教育_教育专区。上海海事大学 序号 题干 1 VB 是一种面向对象的程序设计语言。 2 VB 通过窗体管理构成应用程序的各类文件的集合...MsgBox(& 确实要退出吗?&, vbYesNo+ VbQuestion+vbDefaultButton2, &关闭窗口&) 该信息框函数输出的信息是___。 A、确实要退出吗? B、关闭窗口 C、vbYesNo...序号 题干 1 VB 是一种面向对象的程序设计语言。 2 VB 通过窗体管理构成应用...在框架控件内的几个单选按钮中,只能有一个单选按钮的 Value 133 属性为 True...VB单选_其它课程_高中教育_教育专区。学校老师整理的哦。高中学业水平测试必备哦 第1 页共 11 页 第 2 页共 11 页 第 3 页共 11 页 第 4 页共 11 页...VB单选题(第6章)_理学_高等教育_教育专区。349 ()属性决定了按 Tab 键时焦点在各个控件之间移动的顺序. A) Index B) TabStop C) TabIndex D) SetFocus 答...VB单选按钮习题_电脑基础知识_IT/计算机_专业资料。VB单选按钮习题1:请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上...VB单选按钮和复选框练习_电脑基础知识_IT/计算机_专业资料。练习十一(单选按钮和复选框)一、填空题: 1、 单选按钮的重要属性 Value 其数据是___类型, 当选中...( 通用对话框) A 单选按钮 B 图片框 C 通用对话框 D 文本框 10 在设计...双击&VB6.exe&图标 B 在 DOS 窗口中,键入 Visual Basic 的路径,执行 Visual...
All rights reserved Powered by
copyright &copyright 。文档资料库内容来自网络，如有侵犯请联系客服。