选择题
1 在运行程序时，在文本框中输入新的内容，或在程序代码中改变Text的属性值，相应会触发到的事件是
A) GotFocus B) Change C) Click D) DblClick
2 下列关于属性设置的叙述正确的是（）
A）所有的对象都有同样的属性 B）控件的属性只能在设计时修改，运行时无法改变
C）控件的属性都有同样的默认值D）引用对象属性的格式为：对象名称 . 属性
3只有将组合框的Style属性设置为何值时，才能触发DblClick事件？
A) 0 B) 1 C) 2 D) 3
4在Visual Basic中，要使标签的标题栏居中显示，则将其Alignment属性设置为
A.0
B.2
C.1
D.3
5 设有声明语句
Option Base 1
Dim b(-1 To 10, 2 To 9, 20) As Integer
则数组b中全部元素的个数
A) 2310 B) 2016 C) 1500 D) 1658
6以下属于Visual Basic中合法的数组元素的是
A) K8 B) k［8］ C) k(0) D) k［8］
7 Int(100*Rnd)产生的随机整数的闭区间是。
Ａ．［0，99］Ｂ．［0, 100］Ｃ．［1, 100］ D．［1, 99］
8 下列说法不正确的是
A.FOR语句中可省略STEP及步长值,默认步长值为1
B.循环变量只能用数值简单变量
C.步长值可正可负
D.初值、终值、步长值可以是数值表达式
9 以下关于 Visual Basic 数据类型的说法，错误的是____。
A．Visual Basic 6.0 提供的数据类型主要有字符串型和数值型，此外还有字节、货币、对象、日期、布尔和变体数据类型等
B．目前 Decimal 数据类型只能在变体类型中使用
C．用户不能定义自己的数据类型
D．布尔型数据只能取两种值，用两个字节存储
10 三种逻辑运算符号优先次序为
A.AND、NOT、OR
B.NOT、OR、AND
C.OR、NOT、AND
D.NOT、AND、OR
11 下列关系运算结果为“true”的是
A.“1”+2=“12”
B.“1”+“2”=“3”
C.“1”＆ 2=“12”
D.“1”＆“2”=“3”
12 下述选项中，正确的逻辑表达式是____________。
A．M＞N＞D B．M＞N And N＞D C．M＞N .And. N＞D D．M＞N And ＞D
14 在Visual Basic中，要强制用户对所用的变量进行显式声明，这可以在哪里设置?
A."属性"对话框
B."程序代码"窗口
C."选项"对话框
D.对象浏览器
15 下列可以将变量 A、B 互换的语句是____________。
A．A=B：B=C：C=A B．A=C：C=A
C．A=(A+B)／2：B=(A-B)／2 D．A=A+B：B=A-B：A=A-B
16 Visual Basic 6.0分为3种版本，不属于这3种版本的是
A) 学习版 B) 专业版 C) 企业版 D) 业余版
17 窗体初始化程序应写在什么事件中
A.Load
B.UnLoad
C.Active
D.GotFocus
18 表达式Int(4*Rnd+1)*(Int(4*Rnd-1))值的范围是( )
A.［-1，8］
B.［-4，8］
C.［-3，8］
D.［0，8］
19 标签控件能够显示文本信息，文本内容只能用什么属性来设置？
A.Alignment
B.Caption
C.Visible
D.BorderStyle
20 Visual Basic中的控件分为两类，一类是ActiveX控件，另一类是
A) 文本控件B) 标准控件 C) 基本控件 D) 图形控件
21 下面的数组声明语句中正确的是
A. Dim gg［1,5］ As String
B. Dim gg［1 To 5,1 To 5］ As String
C. Dim gg(1 To 5) As String
D. Dim gg［1 :5,1: 5］ As String
22 如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（）
For I=a to b
Print I
Next I
A．0 B．1 C．2 D．3
23 数学关系 3≤x＜10 表示成正确的 VB 表达式为_________。
A、3＜=x＜10
B、3＜=x AND x＜10
C、x＞=3 OR x＜10
D、3＜=x AND ＜10
24 inputbox函数返回值的类型是
A.数值
B.字符
C.变体
D.数值或字符型
25 下列说法错误的是
A.窗体文件的扩展名为.frm
B.一个窗体对应一个窗体文件
C.Visual Basic中的一个工程只包含一个窗体
D.Visual Basic中一个工程最多可以包含255个窗体
26 下列关于变体数据类型的叙述中正确的是_________。
A.变体是一种没有类型的数据
B.给变体变量赋某一种类型数值后，就不能再赋给另一种类型数值
C.一个变量没有定义就赋值，该变量即为变体类型
D.变体的空值就表示该变体值为 0
27 变量L的值为－8，则－L^2的值为
A) 64 B) －64 C) 16 D) －16
28 下列说法不正确的是
A.1＜XY＜4是关系表达式
B.关系表达式的判断结果只能是"True"或"False"
C.＜、＞、＜=、＞=、=、＜＞是关系运算符
D.逻辑运算符有NOT、AND、OR
29 布尔型数据的值有
A.有无数多个
B.只有1和-1两种
C.只有True和False两种
D.以上都不对
30 下列说法正确的是
A) 对象的可见性可设为True或False B) 标题的属性值不可设为任何文本
C) 属性窗口中属性只能按字母顺序排列
D) 某些属性的值可以跳过不设置，自动设为空值
31 语句A=B+C代表的意思是
A.变量A等于B+C的值
B.变量A等于B的值，然后再加上C的表达式
C.将变量A存入变量存入B中，然后再加上C的表达式
D.将变量A存入变量B+C中
32 如果一个变量未经定义就直接使用，则该变量的类型为
A.Integer
B.Byte
C.Boolean
D.Variant
33 下列关于CommandButton 控件的叙述正确的是
https://www.doczj.com/doc/183080848.html,mandButton 控件的Caption 属性决定按钮上显示的内容
B.单击VB应用程序中的按钮,则系统激活按钮控件对应的Change 事件
https://www.doczj.com/doc/183080848.html,mandButton 控件的name 属性决定按钮上显示的内容
D.以上都不对
34 使"Microsoft"在当前窗体上输出的语句是
A) Picture.Print "Microsoft" B) Print "Microsoft"
C) Printer. Print "Microsoft" D) Debug.Print "Microsoft"
35 以下关于图片框控件的说法中，错误的是
A)可以通过Print方法在图片框中输出文本
B)清空图片框控件中图形的方法之一是加载一个空图形
C)图片框控件可以作为容器使用
D)用Stretch属性可以自动调整图片框中图形的大小
36 以下叙述正确的是（）
A．组合框包含了列表框的功能 B．列表框包含了组合框的功能
C．组合框和列表框的功能完全不同 D．组合框和列表框的功能完全相同
37 表达式InStr(“中华人民共和国”，＂人民＂)的值是
A．３Ｂ．４Ｃ．５Ｄ．６
39 逻辑与(And)运算的结果为"真"，与它所连接的两个条件必须是( )
A.前一个为"真"，后一个为"假"
B.前一个为"假"，后一个也为"假"
C.前一个为"真"，后一个也为"真"
D.前一个为"假"，后一个为"真"
40 Visual Basic 的窗体设计器主要是用来____________。
A．建立用户界面 B．添加图形、图像、数据等控件
C．编写程序源代码 D．设计窗体的布局
41 若要求从文本框中输入密码时在文本框中只显示#号，则应当在此文本框的属性窗口中设置
A.Text属性值为“#”
B.Caption属性值为“#”
C.password属性值为空
D.Passwordchar属性值为“#”
42 关于高级语言，下列那一项叙述是正确的
A.以类似英文的句子来表示
B.写成的程序执行速度最快
C.不必编译即可直接执行
D.受电脑机种限制大
43 下列可以启动Visual Basic的方法是
A.打开"我的电脑"，找到存放Visual Basic所在系统文件的硬盘及文件夹，双击"VB6.exe"图标
B.在DOS窗口中，键入Visual Basic的路径，执行Visual Basic可执行文件
C.利用"开始"菜单中的"程序"命令可启动Visual Basic
D.A和C
45以下各项，可以作为 Visual Basic 变量名的是____________。
A．Human B．11_Human C．456.78 D．Human-1
46 以下说法不正确的是____________。
A．Chr$()函数的作用是把自变量表达式的值转换为相应的 ASCII 码
B．Val() 函数用来把自变量字符串转换为数值
C．Log()函数返回以 e 为底的自变量的自然对数
D．Rnd()函数产生一个 0~1 之间的单精度浮点数
47 Integer类型的数据由( )字节组成。
A.1
B.2
C.3
D.4
47在程序运行期间，如果拖动滚动条上的滚动块，则触发的事件是（）
A．Move B．Changer C．Scroll D．GetFocus
48在Visual Basic中，组合框是文本框和什么的特性的组合？
A.复选框
B.标签
C.列表框
D.目录列表框
49菜单控件只包含一个事件，即（），当用鼠标单击或键盘选中后按回车键触发该事件，除分隔条以外的所有菜单控件都能识别该事件
A．GotFocus B．Load C．Click D．KeyDown
50关于复选框和单选钮的比较中正确的是（）
A．复选框和单选钮都只能在多个选择项中选定一项
B．复选框和单选钮的值（value）都是（True/False）
C．单选钮和复选框都响应DblClick事件
D．要使复选框不可用，可设置Enabled属性（False）和value属性(Grayed)
51下列关于文件的叙述正确的是（）
A．二进制文件与随机文件类似，必须限制固定长度，可用喜欢的方式来存取文件
B．按照文件的存取方式及组成结构可以分为两种类型：文本文件和随机文件
C．文件是指存放在内部存储介质上的数据和程序等
D．文件的基本操作指的是文件的删除、拷贝、移动、改名等
52下列叙述中，正确的是
A) 控件数组的每一个成员的Caption属性值都必须相同
B) 控件数组的每一个成员的Index属性值都必须不相同
C) 控件数组的每一个成员都执行不同的事件过程
D) 对已经建立的多个类型相同的控件，这些控件不能组成控件数组
53设a=”Microsoft VisualBasic”, 则以下使变量b的值为”VisualBasic”的语句是
A)b=Left(a,10) B)b=Mid(a,10) C)b=Right(a,10) D)b=Mid(a,11,11)
54以下说法不正确的是。
A． Rnd()函数不是一个字符串函数
B．字符串函数尾部的符号"＄"可以有,也可以省略,其功能相同
C． Ltirm()和Left()函数都是字符串函数
D．字符串函数必须以类型说明符“＄”
55假定窗体上有一个文本框，名为Txt1，为了使该文本框的内容能够换行，并且具有水平的垂直滚动条，正确的属性设置为（）
A．Txt1.MultiLine = True B．Txt1.MultiLine = True
Txt1.ScrollBars = 0 Txt1.ScrollBars = 3
C．Txt1.MultiLine = False D．Txt1.MultiLine = False
Txt1.ScrollBars = 0 Txt1.ScrollBars = 3
56Visual Basic 中的布尔运算符 Xor、Or、Eqv 和 And，级别最高的运算符是____________。A．Xor B．And C．Eqv D．Or
57在Visual Basic中，布尔型变量用来
A.存放需要计算的数字
B.存放日期、时间或同时存储以上两种数据。
C.存储长文本信息，最多可包含1.2GB字符
D.存放性别、婚否等逻辑信息
58在设计阶段，当双击窗体上的某个控件时，打开的窗口是
A) 工程资源管理器窗口 B) 工具箱窗口 C) 代码窗口 D) 布局窗口
59如果要向工具箱中加入控件的部件，可以利用“工程”菜单中的（）命令
A．引用B．部件C．工程属性 D．加窗体
60以下叙述中错误的是
A) 一个工程可以包括多种类型的文件
B) Visual Basic应用程序既能以编译方式执行，也能以解释方式执行
C) 程序运行后，在内存中只能驻留一个窗体
D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
61下面表达式中，()的运算结果与其他三个不同。
A.Exp(-3.5)
B.Int(-3.5)+0.5
C.-Abs(-3.5)
D.Sgn(-3.5)-2.5
62以下关系表达式中，其值为False的是
A) "ABC"＞"AbC" B) "the"＜＞"they"
C) "VISUAL"=UCase("Visual") D) "Integer"＞"Int"
63在 Visual Basic 中，为表示价格而设置的数据类型是____________。
A．字节型 B．布尔型 C．货币型 D．对象型
64以下说法不正确的是___________。
A．Visual Basic 是一种可视化编程工具B．Visual Basic 是面向过程的编程语言C．Visual Basic 是结构化程序设计语言 D．Visual Basic 采用事件驱动编程机制
65如果 x 是一个正实数，对 x 的第 3 位小数四舍五入的表达式是____________。
A．0.01*Int(x+0.005) B．0.01*Int(x+0.05)
C．0.01*Int(100*(x+0.005)) D．0.01*Int(100*(x+0.05))
66下列各控件不包含滚动条的控件是
A) ListBox B) ComboBox C) TextBox D) LabelBox
68下列各组控件具有相同默认事件的是
A.窗体、文本框
B.标签、按钮
C.窗体、标签
D.文本框、按钮
69新建一个列表框，要实现对列表项可以复选，应设置的属性是
A) ScrollBars B) MultiSelect C) DataField D) Stretch
70下面的数组声明中，正确的是
A) Dim pict［3,4］ As Integer B) Dim pict(3,4) As Integer
C) Dim pict［3.4］ As Integer D) Dim pict(3:4) As Integer.
71下面语句正确的是
A) If x＜3 y And x＞y Then y=x^3 B) If x＜3 y And x＞y Then y=3x
C) If x＜3 y:x＞y Then y=x^3 D) If x＜3 y And x＞y Then y=x* *3
72不属于程序的三种基本结构的是
A.顺序结构
B.循环结构
C.直线型结构
D.选择结构
73InputBox函数返回值的类型为( )
A.数值
B.字符串
C.变体
D.数值或字符串(视输入的数据而定)
74 Int(100*Rnd)产生的随机整数的闭区间是。
Ａ．［0，99］Ｂ．［0, 100］Ｃ．［1, 100］ D．［1, 99］
75 下列变量命名正确的是（）
A．myfile B．vb 1 C．page @2 D．cmd.1
76 VB在运行中使用_______来临时存储数据
A.常量
B.变量
C.函数
D.方法
77 假定Picture1 和 Text1 分别为图片框和文本框的名称，下列不正确的语句是____。
A.Print 2.5
B.Picture1.Print 2.5
C.Debug.Print 2.5
D.Text1.Print 2.5
78 下列说法正确的是
A.属性的一般格式为对象名_属性名称，可以在设计阶段赋予初值，也可以在运行阶段通过代码来更改对象的属性
B.对象是有特殊属性和行为方法的实体
C.属性是对象的特性，所有的对象都有相同的属性
D.属性值的设置只可以属性窗口中设置
79 Long类型的数据由( )字节组成.
A.2
B.4
C.8
D.16
80 Visual Basic集成的主窗口中不包括
A) 属性窗口 B) 标题栏 C) 菜单栏 D) 工具栏
81 下列说法正确的是
A) 在活动窗体中只能通过拖拉右上角和左下角的小方块来同时在高度和宽度上缩放控件
B) 若一个控件上有4个黑色的小方块，表明该控件是活动的
C) 窗体中活动控件只能有一个D) 非活动控件在窗体是隐藏的
82用什么语句可以选择指定的表项或取消已选择的表项？
A) 列表框.Selected(索引值) B) 列表框名.Selected(索引值) =True|False
C) 列表框.Selected D) 列表框名.Selected＝True|False
83下列叙述中不正确的是（）
A． VB中的函数功能类似于Sub过程B． Sub过程不可以递归
C．子过程不返回与其特定子过程名相关联的值
D．过程是没有返回值的函数，又常被称为Sub过程，在事件过程或其他子过程中可以按名称调用过程
85设a=”Microsoft VisualBasic”, 则以下使变量b的值为”VisualBasic”的语句是
A)b=Left(a,10) B)b=Mid(a,10) C)b=Right(a,10) D)b=Mid(a,11,11)
86在visual basic中，日期/时间型常量要用哪个符号括起来
A."
B.#
C.*
D.{}
87任何控件都有的属性是
A.BackColor
B.Caption
https://www.doczj.com/doc/183080848.html,
D.BorderStyle
88以下说法不正确的是___________。
A．Visual Basic 是一种可视化编程工具B．Visual Basic 是面向过程的编程语言C．Visual Basic 是结构化程序设计语言 D．Visual Basic 采用事件驱动编程机制
89下面有关注释语句的格式，错误的是
A) Rem 注释内容B) ′注释内容 C) a=3:b=2 ′对a、b赋值
D) Private Sub Command1_MouseDown(button As Integer , shift As Integer , _
Rem 鼠标按下事件的命令调用过程 X As Single ,Y As Single)
91以下关于变量类型说明符的使用正确的是（）
A．Dim a:a%=90000 B．Dim a:a=2000% C．Dim a:a#=”OK” D．Dim a:a＆=True
92下列控件中可用于接受用户输入文本，又可用于显示文本的是
https://www.doczj.com/doc/183080848.html,bel 控件
B.TextBox 控件
C.Timer 控件
https://www.doczj.com/doc/183080848.html,mandButton 控件
94如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的哪一个属性？
A) Value B) Visible C) Enabled D) Default
95能够获得一个文本框中被选取文本的内容的属性是
A) Text B) Length C) Seltext D) SelStart
96 为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是
A.Visible
B.Timer
C.Enabled
D.Interval
98 使用语句Dim A(2) As Integer 声明数组A之后，以下说法正确的是
A) A数组中的所有元素都为0 B) A数组中的所有元素值不确定
C) A数组中所有元素值都为Empty D) 执行Erase A后，A数组中所有元素值都不为0
99 Visual Basic提供的标签控件（Label）可具有功能是
A.输入文本
B.显示文本
C.计时
D.取得时间
100 在Visual Basic中，字符型变量用来
A.存放日期、时间或同时存储以上两种数据
B.存放人名、地址等文字信息。或电话号码、邮政编码等不需要计算的数字信息
C.存储长文本信息，最多可包含1.2GB字符
D.精确表示货币钱款数值
101日期型数据在表示日期时，它的格式是____________。
A．mm/dd/yyyy B．mm-dd-yyyy C．mm＆dd＆yyyy D．A 和 B 都是
102 VB窗体设计器的主要功能是（）
A．建立用户界面 B．编写源程序代码 C．添加图 D．显示文字
103以下能判断是否到达文件尾的函数是_________。
A.BOF
B.LOC
C.LOF
D.EOF
104 可以在常量的后面加上类型说明符以显示常量的类型，用来表示字符串常量的是
A) ％ B) ＃ C) ! D) $
105 下列说法错误的是
A) Caption为只读属性，运行时对象的名称不能改变
B) 设置Height或Width的数值单位为twip，是1点的1/20
C) Icon属性用来设置窗体最小化时的图标
D) 用来激活属性窗口的快捷键是F4键
106 在Visual Basic中，下列两个变量名相同的是
A) Japan和Ja_pan B) English和ENGLish C) English和Engl D) China和Chin
107在Visual Basic代码中，将多个语句合并在一行上的并行符是
A.撇号（’）
B.冒号（：）
C.感叹号（！）
D.问号（?）
108在某菜单中，有一菜单项（Caption）内容是”NEW”，名字（Name）是“Create”，则单击该菜单项所产生的事件过程应是（）
A．Private Sub MnuNEW_Click() B．Private Sub Create_Click()
C．Private Sub NEW_Click() D．Sub Mnu_Create_Click()
109为清除PictureBox控件中的图形，下列方法正确的是（）
A． Set Picture.Picture = LoadPicture(“c:\Win1.bmp”, vbLPLarge, vbLPColor)
B． Picture.Picture = LoadPicture(“c:\Win1.bmp”, vbLPLarge, vbLPColor)
C． Set Picture.Picture = LoadPicture
D． Picture.Picture = LoadPicture
在窗体上画一个命令按钮(其Name属性为Command1) ，然后编写如下代码：
112 用InputBox函数设计的对话框，其功能是
A.只能接收用户输入的数据，但不会返回任何信息
B.能接收用户输入的数据，并能返回用户输入的信息
C.既能用于接收用户输入的信息，又能用于输出信息
D.专门用于输出信息
113下列选择项中，_____不是 Visual Basic 可能的状态。
A．运行状态 B．设计状态C．工程状态 D．中断状态
116 下列不能打开属性窗口的操作是______。
A．在菜单栏上选择“视图”|“属性窗口”选项 B．按 F4 键
C．按 Ctrl+T 快捷键 D．单击工具栏上的“属性窗口”按钮
119 在 Visual Basic环境下，当写一个新的 Visual Basic程序时，所做的第一件事是
A.编写代码
B.新建一个工程
C.打开属性窗口
D.设计界面
120 以下说法正确的是_______。
A．事件是对象的一部分 B．属性是对象的一部分
C．方法是对象的一部分D．B、C 都正确
121 Rnd函数不可能产生( )值。
A.0
B.1
C.0.1234
D.0.00005
122与List1.Text属性值相同的是
A) List1.ListCount B) List1.List(ListCount-1)
C) List1.ListIndex D) List1.List(List.ListIndex)
124以下说法不正确的是
A) 使用ReDim语句可以改变数组的维数 B) 使用ReDim语句可以改变数组的类型
C) 使用ReDim语句可以改变数组的每一维的大小
D) 使用ReDim语句可以改变对数组中的所有元素进行初始化
126 Visual Basic程序设计采用的编程机制是
A) 可视化 B) 面向对象C) 事件驱动 D) 过程结构化
127双击窗体中的对象后，Visual Basic将显示的窗口是
A.项目（工程）窗口
B.工具箱
C.代码窗口
D.属性窗口
128下列可作为VB变量名的是
A.A#A
B.4A
C.?xY
D.constA
129为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是
A) Value B) Default C) Cancel D) Enabled
130下列说法错误的是
A) 方法是对象的一部分B) 在调用方法时，对象名是不可缺少的
C) 方法是一种特殊的过程和函数 D) 方法的调用格式和对象属性的使用格式相同
131下列选择项中，___________不是 Visual Basic 可能的状态。
A．运行状态 B．设计状态C．工程状态 D．中断状态
132下列说法正确的是
A) 对象的可见性可设为True或False B) 标题的属性值不可设为任何文本
C) 属性窗口中属性只能按字母顺序排D) 某些属性的值可以跳过不设置，自动设为空值
134为了在CheckBox后面显示文本，需要设置的属性是（）
A．Visible B．Caption C．Enabled D．Value
137在While循环中，判断循环表达式与结束循环的关系是( )
A.先判断循环表达式，当表达式值为假时执行循环体
B.先判断循环表达式，当表达式值为真时执行循环体
C.先执行循环体，后判断循环表达式
D.无论循环体表达式的值真假与否，循环体至少执行一次
138下列语句正确的是( )
A.If X≠Y Then Print "X不等于Y"
B.If X＜＞Y Then Print "X不等于Y"
C.If X＞＜Y Print "X不等于Y"
D.If X≠Y Print "X不等于Y"
139下列说法不正确的是
A) 对象的操作由对象的属性、事件和方法来描述
B) Visual Basic是面向对象的程序设计，Visual Basic中只有窗体和控件两种对象
C) 属性是对象的特征，不同的对象有不同的属性
D) 对象事件在代码窗口中体现过程
140VB表达式Sqr(a+b)^3*2中优先进行运算的是( )
A.Sqr函数
B.+
C.＾
D.*
141在 VB 中，若要强制变量必须先定义才能使用，应该用_________语句说明。
A.Public Const
B.Option Explicit
C.Type 数据类型名
D.DefDbl
142有变量定义语句Dim max, min As String，则可以知道max的类型是
A) 变体类型 B) 单精度型 C) 双精度型 D) 字符串型
143Visual Basic 集成的主窗口中包括____________。
A．菜单栏 B．工具栏 C．标题栏D．以上三者均有
144为了建立一个新的标准模块，应选择菜单__________|“添加模块”命令。
A．“文件” B．“工程” C．“工具” D．“编辑”
判断题
1 定义逻辑数据类型的关键字为bool。( F )
2 静态数组中的数组元素个数一旦定义好以后，在程序运行过程中不再会发生变化；而动态数组的元素个数则是可变的。( T )
3 在For～Next循环程序中，步长不能是负数。( F )
4 在声明数组时，下标必须是常量，不能是变量；而在引用数组元素时下标可以是常数、变量或表达式。( T )
5 若一条语句在一行写不下时，在行末可用冒号连接。( F )
6 循环语句For I= -3 to 20 step 4的循环次数为4次。( F )
7 整型变量占两个字节。( T )
8 0_255是个不合法的变量名。(T)
9 vb6.0中H12是八进制的数值常数。( F )
10 各种控件的所有属性都可以在设计模式下通过属性窗口设置，也都可以在运行模式下通过程序语句进行赋值。( F )
11 实现ASCII码转换成字符的函数是ASC(F) 。( F )
12 对象的三要素是属性、事件、程序。( F )
13 LEN("AB高等教育")=6。( T )
14 RIGHT$("ABCDEF",3)=)"DEF"。( T )
15 mm#是合法的单精度变量。( F )
16 表达式Val(".123e2ab")的值为.123。( F )
17 循环语句For I= -3 to 20 step 4的循环次数为4次。( F )
18 若同时为x，y，z变量赋值5，可以如下操作：x=y=z=5。( F )
19 msgbox函数和inputbox函数都有一个可确定对话框中命令按钮的个数和类型的参数。( F )
20 表达式Val(".123e2ab")的值为.123。( F )
21 书写VB语句时，一行最多允许257个字符。( F)
22 若一条语句在一行写不下时，在行末可用冒号连接。( F )
23 为了使下一个输出语句的输出项不换行输出，则应在本print语句的尾部加“;”，且只能加“;”。( F )
24 VB的三种工作模式是设计模式、运行模式、中断模式。( T )
25 使用声明语句建立一个变量后，VB自动将数值类型的变量初始化为0。( T )
26 单精度型数据长度为四个字节。( T )
填空题
1 Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是组合框
3 事件DblClick由双击鼠标引发
4 在While循环中，判断循环表达式与结束循环的关系是当表达式值为假时结束循环体
5 如果一个变量未经定义就直接使用，则该变量的类型为变体型
6 Visual Basic 集成环境中，代码窗口的主要作用是显示和编辑程序的代码。
7 Dim gg(1 To 5) As String声明的是字符类型的数组
8 如果列表框List1中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是出错
9 若要改变窗体运行时在窗口中的位置，可在窗体布局窗口中设置。
10 组合框是组合了文本框和列表框的特性而组成的一种控件下拉式列表框风格的组合框
不允用户输入列表框中没有的项
11 在vb中，对象属性是用来描述一个对象外部特征的
12 在VB中，字符型常量应使用引号将其括起来
13 在VB中,1234表示整型类型
14 面向对象的模型中，最基本的概念是对象和类
15 浮点数由 3 部分组成，即：符号、指数和尾数。
16 有时候需要暂关闭计时器，这可以通过ENABLED属性来实现。
17 向列表框添加项目的方法是additem
18 定义动态数组需要分两步进行，首先定义一个没有下标的数组，然后再使用 redim语句定义数组的实际元素个数
19 复选框value属性设置为2-Grayed时，变成灰色，禁止用户选择
20 为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是Interval
21 制作菜单的分隔栏时，选用的符号是-。
22 可以用Const 语句来定义符号常量。
23 从列表框中删除某一个选项的方法是removeitem
24 要运行 Visual Basic应用程序，可按F5 键。
25 长整型的类型符是＆
26 复选框value属性设置为2-Grayed时，变成灰色，禁止用户选择
27 可以同时删除字符串前导和尾部空白的函数是Trim
28 引用列表框List1最后一个数据项应使用List1.List(List1.ListCount-1)
29 如果要改变窗体的标题，需要设置窗体的属性是caption
30 a,T,Z,9这四个字符中的ASCII码值最大的是a
31 窗体的初始化代码应写在窗体对象的load事件中
32 在窗体中添加两个命令按钮，其名称分别为Command1和Command2，窗体加载时要求Command1不可用，Command2可用；单击Command2后，Command1可用。请将下列程序补充完整。
Private Sub Command2_Click()
command1.enabled=false
End Sub
Private Sub Form_Load()
command2.enabled=true
End Sub
33 为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是Interval .
34 清除列表框中的所有选项的方法是clear
35 已知x初值为0，语句Print x=3>1执行后，x值为False
36 整形变量M中存放了一个两位数，要将两位数交换位置，例如24变成42，实现的表达式为((M mod 10)*10 + M\10)
37 表示条件“变量 M 为能被 5 整除的偶数”的布尔表达式是M Mod 5=0 And M Mod 2=0。
38 表达式"Turbo"+"c">"True"+"Basic"的值是-1
39 下列程序段中，语句i=i+1执行了 5 次
For i=1 to 5
i=i+1
Next I
40 写出下列函数的值：Fix(3.1415926) 3
41 Round（-4.5）的结果为-4
42 假定当前日期为2003年9月20日，星期六，则执行以下语句：
Print Day(Now)
输出结果是20
43 设有如下表达式：10*x^2+5*x-2*Sin(b)／2 它相当于代数式10x2+5x-Sinb。
44 计算已进入21世纪有多少天的表达式是date( )-#2000-1-1#
45 Dim B(-1 To 10,2 To 9,20) As Integer，则数组B中共有2016个元素
46 默认情况下，对数组定义语句：Dim S (20) As Double,数组S下标下界从0 开始
47 数组声明语句 Dim a(3,2 To 5),所声明的数组a中包含的元素有16 个
48 设已有语句Option Base 1,dim x(10) as integer定义了有10 个整型元素的数组
49 函数InStr("VB程序设计教程"，"程序")的值为3
50 数组声明语句 Dim a(3,2 To 5),所声明的数组a中包含的元素有10个
51 要产生30-50之间的随机整数,表达式是int(rnd*21+30)
52 写出下列函数的值： Int(-3.14159) -4
53 在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value 的值是1
54 默认情况下，对数组定义语句：Dim S (20) As Double,数组S下标下界从0 开始
55 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c = "ABCD"
For n = 1 To 4
Print Right(c,n)
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
D
CD
56 在 Visual Basic 中，取模运算符是Mod 。
程序设计题
1.求1－100之间所有的质数。
Private Sub Command1_Click() Dim n%, i%, flag%, k%
For n = 1 To 100 Step 2
k = Int(Sqr(n))
i = 2
flag = 0
Do While i <= k
If n Mod i = 0 Then
flag = 1
End If
i = i + 1
Loop
If flag = 0 Then
Print n
End If
Next n
End Sub
2.计算1－100之间所有整数的和。Private Sub Command1_Click() Dim a As Integer
n = 0
For a = 1 To 100
n = n + a
Next a
Print n
End Sub
3.计算1－100之间所有奇数的和。Private Sub Command1_Click() Dim i, s1%
s1 = 0
For i = 1 To 100 Step 2
s1 = s1 + i
Next i
Print s1
End Sub
4.计算1－100之间所有偶数的和。Private Sub Command1_Click() Dim i, s1%
s1 = 0
For i = 0 To 100 Step 2
s1 = s1 + i
Next i
Print s1
End Sub
5.利用循环语句编程求25的阶乘。
Function j(n#) As Double
Dim i#
j = 1
For i = 1 To n
j = j * i
Next
End Function
Private Sub Command1_Click()
Dim s#, p#
p = 0
For m = 1 To 25
s = 1
For n = 1 To m
s = s * n
Next
Next
Print s
End Sub
6.编程求两个数m和n的最大公约数。
Private Sub Command1_Click()
Dim m%, n%, a%, b%, r%
m = InputBox("请输入第1个正整数：")
n = InputBox("请输入第2个正整数：")
a = m
b = n
r = 1
Do Until r = 0
r = a Mod b
a = b
b = r
Loop
Print "最大公约数是："; a
End Sub
7.已知坐标点（x，y），判断其落在哪个象限。Private Sub Command1_Click()
Dim m As String, n As String
m = InputBox("请输入X：")
n = InputBox("请输入Y：")
If m > 0 And n > 0 Then
Print "第一象限"
ElseIf m < 0 And n > 0 Then
Print "第二象限"
ElseIf m < 0 And n < 0 Then
Print "第三象限"
ElseIf m > 0 And n < 0 Then
Print "第四象限"
End If
End Sub
8.输入一串字符，统计各字母出现的次数（大小写不区分）。
9.从键盘输入5个整数，输出所有输入的数据和其中的最大数。
Private Sub Command1_Click()
Dim num(5) As Integer
Dim i%, max%
For i = 1 To 5
num(i) = InputBox("请输入第" & i & "个整数")
If max < num(i) Then max = num(i)
Next
Print "输入的5个数是："
For i = 1 To 5
Print num(i):
Next
Print "最大整数是："; max
End Sub
10.利用文本框的常用属性，把Text1中选定的文本复制到Text2中去。
11.编程实现1－200内6或5的倍数。
12.随机产生10个递增的100-400的随机数，存放到数组中，并显示结果。
13.已知x，y，z三个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x＜y ＜
z。
14.已知x，y，z三个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x＞y＞z。
15.假设我国有16亿人口，按人口年增长率r＝0.9％计算，多少年后我国人口超过32亿,利用log
（）函数来计算。
Private Sub Form_Click()
x = 16
n = 0
Do While x < 32
x = x * 1.009
n = n + 1
Loop
Print n & "年后我国人口超过32亿"
Print "此时国家人口为" & x
End Sub
16.假设窗体中有一标签Label1,通过Move方法编程实现该图在窗体中的左右移动，移动幅度
为20单位。
17.编制程序，要求输入两个操作数和一个操作符（＋、－、×、/）,根据操作符进行两个操
作数的简单运算，并显示结果。
Private Sub Command1_Click(Index As Integer)
Dim num1!, num2!, result!
num1 = Val(Text1.Text)
num2 = Val(Text2.Text)
Select Case Index
Case 0: result = num1 + num2: Text3.Text = result
Case 1: result = num1 - num2: Text3.Text = result
Case 2: result = num1 * num2: Text3.Text = result
Case 3:
If num2 = 0 Then
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
Else
Text3.Text = num1 / num2
End If
Case 4:
If num2 = 0 Then
Text2.Text = ""
Text2.SetFocus
Else
Text3.Text = num1 \ num2
End If
End Select
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Command3_Click(Index As Integer)
End Sub
18.已知List1中显示了若干课程名，要求用户用鼠标在该列表框中选择一个或多个选修课时，
单击“显示”按扭可以在list2中显示用户选中的所有课程。
19.已知输入某课程的百分制成绩mark，要求显示对应五级制的评定，评定条件如下：等级优
秀（90-100）、良好（80-90）、中等（70-80）、及格（60-70）和不及格（＜60分）。Private Sub Command1_Click()
Dim value
value = InputBox("请输入成绩:")
If value <> "" Then
Select Case Val(value)
Case 0 To 59
MsgBox "你的成绩不及格"
Case 60 To 69
MsgBox "你的成绩及格"
Case 70 To 79
MsgBox "你的成绩中等"
Case 80 To 89
MsgBox "你的成绩良好"
Case 90 To 100
MsgBox "你的成绩优秀"
Case Else
MsgBox "输入的数值不合法，请重新输入"
End Select
End If
End Sub
20.在购买某物品时，若所花的钱x在下述范围内，所付钱y=x(x＜1000);y=0.9x(1000＜x＜
2000);y=0.8x(2000＜x＜3000);y=0.7x(3000＜x＜4000);按对应折扣支付。编程求y值。Private Sub Form_click()
Dim x As Integer, y As Integer
x = InputBox("请输入所花的钱数:")
If x < 1000 Then
y = x
End If
If x > 1000 And x < 2000 Then
y = 0.9 * x
End If
If x > 2000 And x < 3000 Then
y = 0.8 * x
End If
If x > 3000 And x < 4000 Then
y = 0.7 * x
End If
Print y
End Sub
21.将输入的字符串，以反序显示。例如：输入“ASDFGHJKL”,显示“LKJHGFDSA”。Private Sub Command1_Click()
a = "ASDFGHJKL"
ReDim p(Len(a) - 1)
For i = Len(a) - 1 To 0 Step -1
b = b & Mid(a, i + 1, 1)
Next i
Print b
End Sub
22.已知三角形三条边的边长a，b，c，编程判断该三角形的类型（等腰，等边，直角三角形）。Private Sub Form_click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("请输入第一条边:")
b = InputBox("请输入第二条边:")
c = InputBox("请输入第三条边:")
If a + b > c And a + c > b And b + c > a And a = b Or a = c Or b = c Then
Print "等腰三角形"
End If
If a + b > c And a + c > b And b + c > a And a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Then
Print "直角三角形"
End If
If a + b > c And a + c > b And b + c > a And a = b = c Then
Print "等边三角形"
End If
End Sub
23.试编写一个程序，允许用户输入数字，判断其是否大于或等于60分，如果大于等于60分，
则输出“及格，否则输出“不及格”。要求：（1）用inputbox输入数字（2）用Msgbox输出“及格”或“不及格”的结果。
Private Sub Form_click()
Dim a As Integer
a = InputBox("请输入数字:")
If a >= 60 Then
MsgBox "及格"
End If
If a < 60 Then
MsgBox "不及格"
End If
End Sub
24.随机产生15个不重复的A-Z（包括A，Z）的大写字母，存放在字符数组中。
Private Sub Form_Click()
Dim s(1 To 15) As String, c As String
s(1) = Chr(Int(Rnd * 26 + 65))
For n = 2 To 15
re: c = Chr(Int(Rnd * 26 + 65))
For j = 1 To n - 1
If c = s(j) Then GoTo re
Next j
s(n) = c
Next n
For i = 1 To 15
Print s(i);
Next i
End Sub
25.利用数组编写一个n*m的矩阵，其各元素的值由随机函数生成（范围为50-150）。
26.假设Text1中有一字符串，利用文本框的常用属性，把Text1中第一个字符至第八个字符之
间的内容复制到Text2中去。
Private Sub Form_Click()
Text1.SelStart = 0
Text1.SelLength = 8
Text2.Text = Text1.SelText
End Sub
27.从键盘上输入10整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即
第一个元素与第10个元素互换，第2个元素与第9个元素互换……。输出对换后各元素的值。
28.输入一个数字（1－7），用英文显示对应的星期一至星期日。
Private Sub Form_Click()
a = Val(InputBox("请输入一个数字1-7"))
Select Case Val(a)
Case 1
Print "monday"
Case 2
Print "tuesday"
Case 3
Print "wendsday"
Case 4
Print "thursday"
Case 5
Print "friday"
Case 6
Print "satursay"
Case 7
Print "sunday"
Case Else
Print "必须输入1-7中的一个数字！"
End Select
End Sub
29.编程产生一个12－75范围内的正整数。
Private Sub command1_Click()
Dim s(12 To 75) As Integer
a = Int(Rnd * 64 + 12)
Print a
End Sub
30.建立一个数组，输出1－100之间的所有偶数。
Private Sub Command1_Click()
Dim m(1 to 100) as Integer ,i as Integer
For i =1 to 100
If i mod 2 =0 then
Print i
End if
Next i
End sub
31.假设文本框Text1中有一字符串，要求编程实现对其字号进行放大和缩小，倍数通过随机函
数产生，范围在7－10倍。
Private Sub Command1_Click()
x = Int(4 * Rnd + 7)
Text1.FontSize = x * 36
End Sub
Private Sub Command2_Click()
y = Int(4 * Rnd + 7)
Text1.FontSize = 36 / y
End Sub
Private Sub Form_Load()
Text1.FontSize = 36
Text1.Text = ""
End Sub
32.编写程序，判断给出的3条边能否构成三角形。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("请输入第一条边长："))
b = Val(InputBox("请输入第二条边长："))
c = Val(InputBox("请输入第三条边长："))
If a + b > c And a + c > b And c + b > a And a - b < c And a - c < b And b - c < a Then
Print "该三边能否构成三角形"
Else
Print "该三边能否构成三角形"
End If
End Sub
33.已知List1中显示了若干课程名，要求用户用鼠标在该列表框中选择一个或多个选修课时，
单击“清除”按扭时，清除右列表框中的内容。
34.随机产生10个30-100（包括30，100）的正整数，求最大值，最小值和平均值，并显示整个
数组的值和结果。
Private Sub Form_click()
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) = Int(Rnd * 71 + 30)
Print a(i);
Next i
Max = a(1): Min = a(1): Sum = a(1)
For i = 2 To 10
If a(i) > Max Then Max = a(i)
If a(i) < Min Then Min = a(i)
Sum = Sum + a(i)
Next i
Print "最大值是" & Max
Print "最小值是" & Min
Print "平均值是" & Sum / 10
End Sub
35.输入3个数a，b，c，输出三者之中的最大者。
Private Sub command1_click()
Dim m!, n!, p!, max!
m = Val(InputBox("请输入第一个数:"))
n = Val(InputBox("请输入第一个数:"))
p = Val(InputBox("请输入第一个数:"))
max = m
If n > max Then max = n
If p > max Then max = p
Print m; "、"; n; "与"; p; "之中最大值是:"
Print max
End Sub
36.税务部门征收所得税，规定如下：（1）收入200元以内，免征；（2）收入在200―400元内，
超过200元的部分纳税3%；（3）收入超过400元的部分，纳税4%；（4）当收入等于5000元或超过时，将4%税金改为5%。编程序实现上述操作.
Private Sub Command1_Click()
a = Val(Text1.Text)
If a < 200 Then
b = 0
ElseIf 200 < a < 400 Or a = 400 Then
b = 0.03 * (a - 200)
ElseIf 400 < a < 5000 Then
b = 0.03 * 200 + 0.04 * (a - 400)
ElseIf a > 5000 Or a = 5000 Then
b = 0.03 * 200 + 0.05 * (a - 400)
End If
Print b
End Sub
37.随机产生20个学生的计算机课程的成绩，并显示。统计各分数段人数，即0-59，60-69，70-79，
80-89，90-100，并显示结果。
Private Sub Command1_Click()
Dim a, b, c, d, e As Integer
a = 0
b = 0
c = 0
d = 0
e = 0
For i = 1 To 20
m = Int(Rnd * 101 + 0)
Print m
Select Case Val(m)
Case 0 To 59
a = a + 1
Case 60 To 69
b = b + 1
Case 70 To 79
c = c + 1
Case 80 To 89
d = d + 1
Case 90 To 100
e = e + 1
End Select
Next i
1、一串字符求有多少字母,有多少数字,有多少其她 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim s, c, q, w, r s = TextBox1、Text For i = 1 To Len(s) c = Mid(s, i, 1) If UCase(c) >= "A" And UCase(c) <= "Z" Then q = q + 1 ElseIf c >= "0" And c <= "9" Then w = w + 1 Else r = r + 1 End If Next Label1、Text = "字母有" & q & "个数字有" & w & "个其她有" & r & "个" End Sub 2、一串字符以？结尾,求有多少字母,有多少数字,有多少其她 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim s, a, z, x, c, i s = TextBox1、Text a = Mid(s, 1, 1) i = 1 Do While a <> "?" If UCase(a) >= "A" And UCase(a) <= "Z" Then z = z + 1 ElseIf a >= "0" And a <= "9" Then x = x + 1 Else c = c + 1 End If i = i + 1 a = Mid(s, i, 1) Loop Label1、Text = z & x & c End Sub 3、给定一个数字求它就是几位数字,如(1)、12345 (2)、-12345 (3)、123、45 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim s, c, j s = TextBox1、Text c = Trim(Str(s)) If Int(c) = c Then
VB考试题库 VB编程题 1、求100以内的素数。 2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。 3、计算0~200之间所有能被11或5整除的数之和 4、输入一年份，判断它是否为闰年，并显示有关信息。(判断闰年的条件是:年份能被4整除但不能被100整除，或者能被400整除) 5、已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x 13、从键盘输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。 14、已知数组a()，编程删除a中第5个元素。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。 15、随机生成一个整型的二维数组，范围在[10,20]之间，以上三角形式输出该数组。 16、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出每行中的最大值和下标。 17、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最大值及所对应的下标。 18、输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序。 19、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和 20、输入一系列字符串，将字符串按递减次序排列。请编程实现。 21、随机产生10个[30,100]内的整数，求最大值、最小值和平均值。 22、定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1,20，数组B的范围是100,200，数组C是A和B相乘得到的。请编程生成并输出A,B,C。 23、随机产生15个小写字母，放在字符数组中。提示:c=chr(int(rnd*26+97)) 24、随机产生10个[30,100]内的整数，求最大值及所对应的下标。 25、定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1,20，数组B的范围是100,200，数组C是A和B相加得到的。请编程生成并输出A,B,C。 26、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数，求它的两条对角线上元素之和。 27、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最小值 VB测验选择题真题精选 ————————————————————————————————作者：————————————————————————————————日期： VB考试真题精选，考前必备神器20 开通黄钻 21， a = 1: b = 2: plus S, a, b: Print S:不能使其输出结果为3的plus过程为( b )。（1分） A、Sub plus(sum, a , b ): sum = a + b: End Sub B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub D、 D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: End Sub 22、通过关键字( c )声明的局部变量，在整个程序运行中一直存在。（1分） A、Dim B、Public C、Static D、Private 23、过程的作用域分为( c )。（1分） A、窗体级和局部级 B、模块级和局部级 C、窗体/模块级和全局级 D、窗体/模块级和局部级 24、在窗体的通用段声明变量时，不能使用( d )关键字。（1分） A、Dim B、Public C、Private D、Static 25、能在一个工程的所有程序中使用的变量，称为( b )。（1分） A、局部变量 B、全局变量 C、窗体级变量 D、模块级变量 27、使用Public Const语句声明一个全局的符号常量时，应该将该语句放在( b )。（1分） 大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.doczj.com/doc/183080848.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0 1、下列叙述中，错误的是( A )。（1分） A、一条语句可以分为多行书写，但要在上行末加上VBCrLf B、在同一行上书写多条语句，应在两两语句中加上:号 C、可以用Rem或'注释单行语句 D、VB程序代码不区分字母的大小写 2、下列叙述正确的是( D )。（1分） A、Visual Basic的事件是由用户定义的 B、Visual Basic程序从主窗体开始执行 C、Visual Basic程序是过程驱动的 D、保存一个Visual Basic程序，应分别保存其窗体模块、标准模块和工程文件 3、被对象所识别的动作与对象可执行的动作分别称为对象的( A )。（1分） A、方法、事件 B、事件、方法 C、事件、属性 D、过程、属性 4、下列关于VB编码规则的叙述中，正确的是( C )。（1分） A、一条语句可以分为多行书写 B、多条语句不能书写在同一行上 C、每条语句以分号;结尾 D、应用程序代码字母是区分大小写的 5、( D )不属于面向对象系统的三要素。（1分） A、事件 B、属性 C、方法 D、变量 6、下列叙述中，不正确的叙述是( C )。（1分） A、注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译 B、注释语句能放在整个代码程序的最后 C、注释语句可以放在代码中的任何位置 D、代码中加入注释语句的目的是提高程序的可读性 7、下列叙述错误的是( B )。（1分） A、不允许使用行号与标号 B、单条语句可分行书写 C、同一行上可以书写多条语句 D、VB代码不区分字母的大小写 8、窗体设计器是用来设计( B )。（1分） A、应用程序的代码段 B、应用程序的界面 C、对象的属性 D、对象的事件 9、启动Visual Basic后，系统为用户新建的工程起一个名为( A )的临时名称。（1分） A、工程1 B、窗体1 C、工程 D、窗体 10、在界面设计时，双击窗体中的对象后，Visual Basic将显示的窗口是( C )。（1分） A、立即窗口 B、属性窗口 C、代码窗口 D、工程资源管理器窗口 11、VB应用程序在( A )模式下不能编辑代码和设计界面。（1分） A、运行 B、中断 C、设计 D、以上均不能 12、如果要向工具箱中加入控件的部件，可以利用“工程”菜单中的( B )命令（1分） A、引用 B、部件 C、工程属性 D、加窗体 13、如果Visual Basic环境中缺少某个窗口，一般应该从主菜单的( D )下拉菜单中寻找并打开。（1分） A、编辑 B、文件 C、调试 D、视图 14、标准控件不包括( D )控件。（1分） A、驱动器列表框 B、目录列表框 C、文件列表框 D、通用对话框 15、在设计窗体时，如果窗体上没有显示网格会感到不方便，( c )可以使网格出现。（1分） A、使用“编辑”菜单上的相关命令 B、使用“格式”菜单上的相关命令 C、使用“工具”菜单上的相关命令 D、使用“工程”菜单上的相关命令 16、在Visual Basic中，某一事件对应的程序叫( b )。（1分） 判断题： 1、VB中，每一种对象有着不同的属性设置，每一种对象能识别的事件也不同。（对） 2、Val(“123hello”) 和Val(“hello123”)返回值一样。（错） 3、赋值语句X=123+”123”和X=”123”+123中，X的值一样。（对） 4、赋值语句X=”123”+”123”和X=”123”+123中，X的值一样。（错） 5、执行Print 5*8 和Print “5*8 ”语句运行结果一样。（错） 6、标签框和文本框内容的最大区别就是在程序运行过程中标签框的内容不可编辑，而文本框的内容可编辑。（对） 7、用vb编写程序时，标签控件能代替文本框控件使用. （错） 8、VB程序代码中，Label1.Caption=””的作用是该标签框中得内容清除。（对） 9、变量名的长度最长可达1024个字符。（错）225个 10、sum和int.sum都可以作为VB的变量名。（错） 11、下列程序的运行结果是15 （对） Dim s as Double Dim i as Integer S=0 I=1 Do While i<=5 I=i+2 S=s+i Loop Label1.Caption=s 12、对于熟练的程序员，可以省略程序的调试过程。（错） 13、在VB中，使用if语句就可以根据条件改变程序的执行路径。（对） 14、VB编程的一般步骤应该是：分析问题——设计界面——编写代码——调试与运行程序。（对） 单项选择题 1、小明想用VB设计一个加法器程序，做了如下规划，下列说法错误的是。（D） A、程序运行时标题栏显示加法器 B、前两个标签框显示的内容分别为“+”和“=” C、Command1用来计算出结果 D、使用了三个命令按钮、两个标签框和三个文本框 2、从下面的对象属性可以看出，该对象的标题为（A） vb综合考试试题 1303班9月16日第一次综合考试试题 一、单选（本大题共25小题，每小题2分， 共 50分） 1. 设a=2,b=3,c=4,d=5,表达式NOT a<=c OR 4*c=b^2 AND b<>a+c的值是( )。 A、-1 B、 1 C、True D、False 2、假设A="Good Morning."，B="Afternoon,Boys."，下列表达式中结果是"Good Boys."的是_ __。 A) Left(A,5)+Right(B,5) B) Right(A,5)+Left(B,5) C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5) 3、下列叙中不正确的是（） A、变量名中的第一个字符必须是字母 B、变量名的长度不超过255个字符 C、变量名可以包含小数点或者内嵌的类型声明 字符 D、变量名不能使用关键字 2 4、下列关于变体类型的描述，其中正确的是 _______。 A. 变体是一种没有类型的数据 B. 变体的空值就表示该变体的值为0 C. 一个变量没有定义就赋值，该变量即为变体 类型 D. 变体是赋给变量某一种类型数据后，就不能 再赋给它另一类型的数值 5、执行 PRINT 18/2*3,-3^2 命令后，输出结 果为_____。 A. 3 9 B. 3 -9 C. 27 -9 D. -9 27 6、下面的_______语句可以实现：先在窗体上 输出大写字母A，然后在同一行的第10列输出 小写字母b。 A. Print "A";Tab(9);"b" B. Print "A";Tab(10);"b" C. Print "A";Space(10);"b" D. Print "A";Tab(8);"b" 3 v b判断题 第一套 一、判断题 1：将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。对 2：运行时目录列表框的List属性可以用AddItem和RemoveItem两种方法来改变。错 3：用通用对话框控件显示“字体”对话框前，必须先设置Flags属性，否则将发生“不存在字体”的错误。对 4：屏幕（Screen）对象可作为窗体的容器，但它只能提供缺省的坐标系统，即坐标刻度不能改变。对 5：标签控件可以响应Click事件。对 6：函数过程与Sub过程必须用关键字Private或Public声明。错 7：若行If语句中逻辑表达式值为True，则关键字Then后的若干语句都要执行。对 8：在打开某窗体时，初始化窗体中的各控件，可选用Load事件。对 9：Integer、Long、Single、Double是数值类型数据，但Byte不是。错 10：每当一个窗体成为活动窗口时将触发Show事件。错 第二套 一、判断题 1：当对DrawWidth进行设置后，将影响Line、Circle、Pset方法，但不会影响Line、Shape控件。对 2：运行时目录列表框的List属性可以用AddItem和RemoveItem两种方法来改变。错 3：用通用对话框控件显示“字体”对话框前，必须先设置Flags属性，否则将发生“不存在字体”的错误。对 4：QBcolor函数的参数是一个介于0~255的整数。错 5：单击组合框中的任一表项，该表项的文本就会替换这一组合框控件的Text 属性值。对 6：函数过程必须用关键字Private声明。错 7：在行If语句中，关键字End If是必不可少的。错 8：表达式5>4>3的计算结果是True。错 9：在所有的数据类型中，Byte型占用的内存空间最小，只要用一个字节。 对 10：窗体启动位置可在“窗体布局窗口”中直接设置。对 一、判断题 1：Print #语句的作用是将数据从文件中读出并显示在窗体上。错 2：在设计Windows应用程序时，用户可以使用系统本身提供的某些对话框，这些对话框可以直接从系统调入而不必由用户用“自定义”的方式进行设计。 对 3：执行语句“C=Point(50,100)”，可将窗体坐标(50,100)处点的颜色值存入变量C。对 4：从几十个项目中任选其中一项或多项时可选用列表框或组合框控件来实现。错 1、随机产生三个100－300之间的整数，判断这三个整数是否能构成三角形，如果可以，求三角形的面积。 Dim x As Integer, y As Integer, z As Integer Dim c As Single, s As Single x = Int(Rnd * 201 + 100) y = Int(Rnd * 201 + 100) z = Int(Rnd * 201 + 100) If x + y > z And x + z > y And y + z > x Then c = (x + y + z) / 2 s = Sqr(c * (c - x) * (c - y) * (c - z)) Print "三角形面积是：" & s Else Print "构不成三角形" End If 2、随机产生0－100之间的60名学生的数学分数，分别统计分数在[)10,0、[)20,10、[)30,20、[)40,30、[)50,40、[)60,50、[)70,60、[)80,70、[)90,80、[] 100 90、之间的学生人数。 , Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j% Dim x As Single For m = 1 To 60 '产生60名学生的分数 x = Rnd * 101 '产生0－100的分数 Print x; If x >= 90 Then a = a + 1 ElseIf x >= 80 Then b = b + 1 ElseIf x >= 70 Then c = c + 1 ElseIf x >= 60 Then d = d + 1 ElseIf x >= 50 Then e = e + 1 ElseIf x >= 40 Then f = f + 1 ElseIf x >= 30 Then g = g + 1 ElseIf x >= 20 Then h = h + 1 ElseIf x >= 10 Then i = i + 1 Else 2011-2012学年第一学期算法与程序设计期末考试题 班级：姓名：分数： 一、单项选择题（每题4分） 1.算法是解决问题的( ) A.程序代码 B.方法与步骤 C.计算公式 D.最终结果 2.以下不能作为vb常量的的是( ) A.“Good Luck” B. PI C. 1.5E-3 D. 16.34 3.以下各表达式中, 计算结果为0的是( ) A. INT(12.4)+INT(-12.6) B. CINT(12.4)+CINT(-12.6) C. FIX(13.6)+FIX(-12.6) D. FIX(12.4)+FIX(-12.6) 4.设a=″Visual Basic″，下面使b=″Basic″的语句是( ) A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 5.inputbox() 函数返回值类型为( ) A.数值 B.字符串 C.数值和字符串 D.变体 6.下列关于For…Next语句的说法正确的是( ) A. 循环变量、初值、终值和步长都必须为数值型 B.Step后的步长只能为正数 C. 初值必须小于终值 D.初值必须大于终值 7.下列符号中，只有( )是合法的VB变量名。 A．xy23 B．23xy C．Sub D．xy8[1] 8.数学表达式Sin30°写成VB表达式是( ) A．Sin30 B．Sin(30) C．Sin(30°) D．Sin(30*3.14/180) 9.在VB的运算中，级别最高的是( ) A．= B．And C．Or D．Not 10.判断任意3条线段a、b、c能否构成三角形的表达式为( ) A．a+b>=c Or a+c>=b Or b+c>=a B．Not(a+b 套号题号题目选项A选项B答案0101每当一个窗体成为活动窗口时将触发Show事件。对错B 0102Integer、Long、Single、Double是数值类型数据，但Byte不是。对错B 0103在打开某窗体时，初始化窗体中的各控件，应选用Load事件。对错B 0104若行If语句中逻辑表达式值为True，则关键字Then后的若干语句都要执行。对错A 0105函数过程与Sub过程必须用关键字Private或Public声明。对错B 0106 标签控件可以响应Click事件。对错A 0107屏幕（Screen）对象可作为窗体的容器，但它只能提供缺省的坐标系统，即坐标刻度不能改变。对错A 0108用通用对话框控件显示“字体”对话框前，必须先设置Flags属性，否则将发生“不存在字体” 的错误。 对错A 0109运行时目录列表框的List属性可以用AddItem和RemoveItem两种方法来改变。对错B 0110 将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框 的列表项中选择，也可以由用户输入。 对错A 0201窗体启动位置可在“窗体布局窗口”中直接设置。对错A 0202在所有的数据类型中，Byte型占用的内存空间最小，只要用一个字节。对错A 0203表达式5>4>3的计算结果是True。对错B 0204在行If语句中，关键字End If是必不可少的。对错B 0205用Function过程在过程中必须被赋值。对错A 0206 单击组合框中的任一表项，该表项的文本就会替换这一组合框控件的Text属性值。对错A 0207QBcolor函数的参数是一个介于0~255的整数。对错B 0208用通用对话框控件显示“字体”对话框前，必须先设置Flags属性，否则将发生“不存在字体” 的错误。 对错A 0209运行时目录列表框的List属性可以用AddItem和RemoveItem两种方法来改变。对错B 0210当对DrawWidth进行设置后，将影响Line、Circle、Pset方法，但不会影响Line、Shape控件。对错A 0301在VB中，对象是代码和数据的集合。对错A 0302Boolean类型数据，可以用来保存逻辑值True和False。对错A 0303如果B是一个字节型变量，那么B可以用来保存数值-1。对错B 0304如果在定义过程时，一个形式参数使用地址传递方式说明，则调用过程时与之对应的实参只能 按地址方式传递。 对错A 0305在行If语句中，关键字End If可以缺省。对错B 0306定时器控件只能响应Timer事件。对错A 0307从几十个项目中任选其中一项或多项时可选用列表框或组合框控件来实现。对错B 0308执行语句“C=Point(50,100)”，可将窗体坐标(50,100)处点的颜色值存入变量C。对错A 0309在设计Windows应用程序时，用户可以使用系统本身提供的某些对话框，这些对话框可以直接 从系统调入而不必由用户用“自定义”的方式进行设计。 对错A 0310Print #语句的作用是将数据从文件中读出并显示在窗体上。对错B 0401方法是VB预先定义的、只有用户可直接使用的过程。对错B 0402整型变量A、B,如果A的值是1，B的值是256，那么变量B比变量A需要占用更多内存。对错B 0403用语句Dim Str1 As String声明的变量Str1，可以保存由100万个字符组成的字符串数据。对错A 0404块If结构中的Else子句是不可缺省的。对错A 0405事件过程只能由系统调用，在程序中不能直接调用。对错B 0406单选按钮与复选框对象的Value属性类型不同，单选按钮只能取值0或1。对错B 0407列表框和文本框一样都具有Text属性。对错A 0408执行语句“Form1.BackColor = &HFF&”可以将窗体的背景色设置为蓝色。对错B 0409通过Open语句打开一个文件，操作完成后，必须用Close语句将其关闭。对错A 0410在窗体上绘制CommonDialog控件时，控件的大小、位置可由用户自己加以设定。对错B 0501在“工程资源管理器”，可以实现多窗体的所有操作。对错A 0502由于Single型变量的取值范围比Long型变量大，所以Single型变量开销内存也比Long型多。对错B 0503语句Const A=100是将A声明为一个常量。对错A 0504块If结构中的Else子句可以缺省。对错B 0505定义一个过程时，有几个形参，则在调用该过程时就必须提供几个实参。对错A 0506 列表框控件List1的最后一个表项为List1.List (List1.ListCount)。对错B 0507 移动框架时框架内控件也跟随移动，因此框架内控件的Left和Top属性值也随之改变。对错B 0508通过设置影像框的Picture属性可改变影像框中显示的图片，若要清除图片也是通过设置 Picture属性来实现。 对错A 0509在消息框（MsgBox）中，“Prompt”（消息）是必选项，最大长度为64个字符。对错B 1.一串字符求有多少字母，有多少数字，有多少其他 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, c, q, w, r s = TextBox1.Text For i = 1 To Len(s) c = Mid(s, i, 1) If UCase(c) >= "A" And UCase(c) <= "Z" Then q = q + 1 ElseIf c >= "0" And c <= "9" Then w = w + 1 Else r = r + 1 End If Next Label1.Text = "字母有" & q & "个数字有" & w & "个其他有" & r & "个" End Sub 2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, a, z, x, c, i s = TextBox1.Text a = Mid(s, 1, 1) i = 1 Do While a <> "?" If UCase(a) >= "A" And UCase(a) <= "Z" Then z = z + 1 ElseIf a >= "0" And a <= "9" Then x = x + 1 Else c = c + 1 End If i = i + 1 a = Mid(s, i, 1) Loop Label1.Text = z & x & c End Sub 3.给定一个数字求它是几位数字，如（1）.12345 (2).-12345 (3).123.45 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, c, j s = TextBox1.Text c = Trim(Str(s)) If Int(c) = c Then 一、单选题（每题1分，共76题） 1.以下关于窗体的描述中错误的是（） A. 在VB中每次运行时可以指定不同的启动窗体 B. 要让窗体以最大化方式打开，应设置MaxButton属性值为True C. 窗体第一次显示时也会发生Resize事件 D. 第一次显示时窗体的位置可以不是设计时所指定的位置 2.执行多窗体应用程序时，（） A. 打开一个窗体后，其他窗体都会被关闭 B. 允许同时打开多个窗体 C. 打开一个窗体后，其他窗体都会被隐藏起来 D. 在某一时刻只能打开一个窗体 3.程序中要在文本框文本中插入一段文字，应当使用的属性是（） A. SelText B. Name C. Text D. Caption 4. 在用户的应用程序执行期间发生，比如单击鼠标或按键盘中的键（） A. 方法 B. 属性 C. 事件 D. 工程 5.当一个工程中含有多个窗体时，其中的启动窗体是（） A. 启动VB时建立的窗体 B. 第一个添加的窗体 C. 最后一个添加的窗体 D. 在工程属性窗口中指定的窗体 6.当新建一个工程并启动Visual Basic后，工具箱中的控件是（） A. 内部控件 B. Active X控件 C. 内部控件和Active X控件 D. 内部控件或Active X控件 7.启动Visual Basic后，就意味着要建立一个新的（） A. 窗体 B. 程序 C. 工程 D. 文件 8.下面是字符串数据的类型声明字符（） A. % B. $ C. & D. ! 9.对象是将数据和操作起来的逻辑实体（） A. 封装 B. 串接 C. 连接 D. 伪装 10.下面属性用于显示对象的标题（） A. Text B. Caption C. Name(名称) D. ForeColor 卷1 一、填空题 1、VB程序设计的主要特点是可视化设计和事件 编程。2、在VB中，最主要的两种对象是窗体 （form）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作____。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____选中___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用工程1 作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是34.6 。 13、在VB 中，数值型变量的初值为0 ，Varant型变量的初值 为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句cls 。 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中的*表 示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。 VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D). A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile 1.项目文件的扩展名是（） A．.vb B．.sln C..exe D．.vbproj 2.集成开发环境有两类窗口：浮动和固定，下面的（）窗口不是浮动窗口。 A．工具箱B．属性 C.即时D．窗体 3.要使窗体的标题为“演示实例”，应修改窗体的（）属性。 A．Caption B．Tip C．Item D．Text 4.在https://www.doczj.com/doc/183080848.html,中，下面属于方法的是（）。 A.Focus B.SelectedText C.LostFocus D.Keypress 5.一条语句要在下一行继续写，可用（）符号作为续行符。 A.+ B.- C.空格和_ D.... 6.若要使命令按钮不可操作，要对（）属性进行设置。 A.Enabled B.Visible C.BackColor D.Text 7.在https://www.doczj.com/doc/183080848.html,集成环境中创建https://www.doczj.com/doc/183080848.html,应用程序时，除了工具箱窗口、窗体窗口和属性窗口 外，必不可少的窗口是（） A．窗体布局窗口B．立即窗口 C．代码窗口D．监视窗口 8.当运行程序时，系统自动执行启动窗体的（）事件过程 A．Load B．Click C．Unload D．GotFocus 9.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（） A．文本框没有内容B．文本框的MultiLine属性为False C．文本框的MultiLine属性为True D．文本框的Locked属性为True 10.若要使标签控件显示时不要覆盖窗体的背景图案，要对（）属性进行设置 A．BackColor B．BorderStyle C．ForeColor D．BackStyle 11.数据类型为Long的类型标识符为（）。 A．%B．&C．!D．# 12.下面（）是日期型常量。 A．“5/17/12”B．5/17/12 C．#5/17/12#D．(5/17/12) 13.下面的（）是合法的单精度型变量。 A.num! B.sum% C.char! D.mm# 14.下面的（）是合法变量名。 A.X_yz B.123abc C.Integer D.X-Y 15.Rnd函数不可能为下列的（）值。 A.0 B.1 C.0.1234 D.0.0005 16.图片框控件（PictureBox）是专门用于显示图片的控件，主要属性image用于设置显示 在控件上的图片，使用（）语句可以在程序中消除已装入的图片。 A.PictureBox控件名.image=”” B．PictureBox控件名.image=Nothing C．PictureBox控件名.image=Image.FromFile(“”) D．PictureBox控件名.image=Image.FromFile(Nothing) 17.表达式16/4-2^5*8/4Mod5\2的值为（） A.14 B.4 C.20 D.2 18.表达式Len（“123程序设计ABC”）的值是（） A.10 B.14 C.20 D.17 19.为了给x,y,z三个整型变量赋初值1，正确的赋值语句是（）。 A.x=1:y=1:z=1 B.x=1，y=1，z=1VB测验选择题真题精选
大学VB考试题库
vb真题(选择题)
VB练习题
vb综合考试试题
vb判断题教学提纲
个vb经典例题
vb期末考试试题
VB判断题
VB经典例题13道(附答案)
VB考试题目1
VB考试试题及答案分解
vb经典题目及答案
VB考试题及答案
VB练习题2
相关主题
文本预览