vb
一、选择题
1.Visual Basic的MSDN帮助窗口最明显的特征是__________。
A.具有Windows风格
B.具有MicrosoftOffice应用程序窗口风格
C.保持了浏览器的特征
D.与Visual Basic编辑窗口相似
2.与传统和程序设计语言相比，Visual Basic最突出的特点是__________。
A.结构化程序设计
B.程序开发环境
C.程序调试技术
D.事件驱动编程机制
3.VB6.0集成开发环境的工作状态有__________。
A.一种
B.两种
C.三种
D.四种
4.在正确安装Visual Basic 6.0后，可以通过多种方式启动Visual Basic。以下方式中不能启动VisualBasic的是__________。
A.通过“开始”菜单中的“程序”命令
B.通过“我的电脑”找到vb6.exe，双击该文件名
C.通过“开始”菜单中的“运行”命令
D.进入DOS方式，执行vb6.exe文件
5.下列不能打开属性窗口的操作是__________。
A.执行“视图”菜单中的“属性窗口”命令
B.单击工具栏上的“属性窗口”按钮
C.按Ctrl+T快捷键
D.按F4键
6.VB6.0集成开发环境不包括__________窗口。
A.DOS界面窗口
B.窗体窗口
C.代码窗口
D.属性窗口
7.Visual Basic集成环境的大部分窗口都可以从主菜单项__________的下拉菜单中找到相应的打开命令。
A.编辑
B.视图
C.格式
D.调式
8.下列可以打开立即窗口的操作是__________。
A.Ctrl+D
B.Ctrl+E
C.Ctrl+F
D.Ctrl+G
9.打开Visual Basic集成环境后，显示的工具栏
是__________。
A.编辑工具栏
B.标准工具栏
C.调试工具栏
D.窗体工具栏
10.用户可通过__________模拟屏幕的小图像
来布置应用程序。
A.窗体设计器
B.快捷菜单
C.立即窗口
D.窗口布局窗口
11.下面关于Visual Basic 6.0工具栏的说法不正
确的是__________
A.工具栏的位置可以任意改变
B.工具栏一定在菜单栏的下方
C.工具栏可以显示或隐藏
D.Visual Basic有多个工具栏
12.在设计应用程序时，通过__________ 窗口
可以查看到应用程序工程中的所有组成部分。
A.代码窗口
B.窗体设计窗口
C.属性窗口
D.工程资源管理器窗口
13.Visual Basic中窗体文件的扩展名是
__________。
A..VBP
B..FRM
C..VBW
D..PDM
14.退出VB6.0的快捷键是__________。
A.Ctrl+Q
B.Alt+Q
C.Alt+A
D.Ctrl+A
15.使用“上下文相关帮助”的操作方法是：选
择一个对象或关键字，然后按下__________。
A.F1
B.F2
C.F3
D.F4
16.VB6.0是一种面向（）的编程环境。
A.机器
B.对象
C.过程
D.应用
17.下面关于对象地描述中，（）是错误的。
A.对象就是自定义结构变量
B.对象代表正在创建的系统中的一个实体
C.对象是一个特征和操作的封装体
D.对象之间的信息传递是通过消息进行的
18.如果在窗体上已经创建了一个文本框对象
Text1，可以通过（）事件获得输入键值地ASC
Ⅱ。
A.Change
B.Keypress
C.Lostfocus
D.gotfocus
19.Visual Basic 是一种面向对象的可视化程序
设计语言，采用了（）的编程机制。
A.事件驱动
B.按过程顺序执行
C.从主程序开始执行
D.按模块顺序执行
20.在Visual Basic中最基本的对象是（），它
是应用程序的基石，是其他控件的容器。
A.文本框
B.命令按钮
C.窗体
D.标签
21.多窗体程序是由多个窗体组成的。在默认情
况下，VB在应用程序执行时，总是把（）制
定为启动窗体。
A.不包含任何控件的窗体
B.设计时的第一个窗体
C.包含控件最多的窗体
D.命令为Form的窗体
22.有程序代码如下：
Text1.Text=”Text1.Text”
则Text1、Text、”Text1.Text”分别代表（）
A.对象、值、属性
B.对象、方法、属性
C.对象、属性、值
D.属性、对象、值
23.对于窗体，（）属性在程序运行时其属性设
置起作用。
A.MaxButton
B.BorderStyle
https://www.wendangku.net/doc/cc5044966.html,
D.Left
24.若要使标签控制显示时不覆盖其背景内容，
要对（）属性进行设置。
A.BlackColor
B.BorderStyle
C.ForeColor
D.BackStyle
25.文本框没有（）属性。
A.Enabled
B.Visible
C.BackColor
D.Caption
26.不论何控件，共同具有的属性是（）
A.Text
https://www.wendangku.net/doc/cc5044966.html,
C.foreColor
D.Caption
27.要使Form1窗体的标题栏显示“欢迎使用
VB”，以下（）语句是正确的。
A.Form1.caption=“欢迎使用VB”
B.Form1.caption=’欢迎使用VB’
C.Form1.caption=欢迎使用VB
D.Form1.caption=" 欢迎使用VB"
28.要使某控件在运行时不可显示，应对（）属
性进行设置。
A.Enabled
B.Visible
C.BackColor
D.Caption
29.要使窗体在运行时不可改变窗体的大小和
没有最大化和最小化按钮，只要对（）属性设
置就有效。
A.MaxButton
B.BorderStyle
C.Width
D.MinButton
30.文本框的Scrollbars属性设置了非零值，却
没有效果，原因是（）
A.文本框中没有内容
B.文本框的MultiLine属性为False
C.文本框的MultiLine属性为Ture
D.文本框的Locked属性为Ture
31.要判断在文本框是否按下Enter键，应在文
本框的（）事件中判断。
A.Change
B.KeyDown
C.Click
D.KeyPress
1
32.在VB集成环境创建VB应用程序时，除了工具窗口、窗体中的窗口、属性窗口外，必不可少的窗口是（）
A.窗体布局窗口
B.立即窗口
C.代码窗口
D.监视窗口
33.保存新建的工程时，默认的路径是（）
A.My Documents
B.VB98
C.\
D.Windows
34.将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe文件后，该可执行文件到其他机器上不能运行的主要原因是（）
A.运行的机器上无VB系统
B.缺少.frm窗体文件
C.该可执行文件有病毒
D.以上原因都不对
35.当需要上下文帮助时，选择要帮助的“难题”，然后按（）键，就可出现MSDN窗口及显示所需“难题”的帮助信息。
A.Help
B.F10
C.Esc
D.F1
36.一下叙述错误的是_____。
A.打开一个工程文件时，系统自动装入与该工程有关的窗体等文件。
B.打开一个窗体文件时，系统自动装入与该窗体有关的工程文件。
C.保存VB应用程序时，应分别保存窗体文件和工程文件
D.事件可以由用户激发，也可以由系统激发
37.在Visual Basic中语句的续行符采用__________。
A.空格与短线
B.短线与空格
C.空格与下划线
D.下划线与空格
38.运行Visual Basic应用程序生成的可执行文件的方法是__________
A.单击Windows”开始”菜单中的“运行”命令
B.单击Visual Basic工具栏的“启动”按钮
C.单击Visual Basic“运行”菜单中的“启动”命令
D.按下F5功能键
39.下列叙述中正确的是__________。
A.Visual Basic与Basic没有什么不同
B.Visual Basic与Basic的编程机制不同
C.Visual Basic是过程设计语言
D.Ⅵsual Basic与Basic两种之间没有什么联系
40.VB6.0是一种面向__________的编程环境。
A.机器
B.对象
C.过程
D.应用
41.下列关于VB编程的说法中，不正确的是
__________。
A.属性是描述对象特征的数据
B.事件是能被对象识别的动作
C.方法指示对象的行为
D.VB程序采用的运行机制是面向对象
42.若要使命令按钮不可操作，要对__________
属性进行设置。
A.Enabled
B.Visible
C.BackColor
D.Caption
43.不论何控件，共同具有的是__________属
性。
A.Text
https://www.wendangku.net/doc/cc5044966.html,
C.ForeColor
D.Caption
44.要使窗体在运行时不可改变窗体的大小和
没有最大化和最小化按钮，只要对__________
属性设置就有效。
A.MaxButton
B.BorderStyle
C.Width
D.MinButton
45.要判断在文本框是否按下Enter键，应在文
本框的__________事件中判断。
A.Change
B.KeyDown
C.Click
D.KeyPress
46.保存新建的工程时，默认的路径是
__________。
A.My Documents
B.VB98
C.\
D.Windows
47.关于Visual Basic“方法”的概念错误的是
__________。
A.方法是对象的一部分
B.方法是预先定义好的操作
C.方法是对事件的响应
D.方法用于完成某些特定的功能
48.下面哪个语句执行后，窗体Form1从内存退
出__________。
A.UnLoad.Form1
B.Load.Form1
C.Forml.Hide
D.Forml.Visiable=False
49.对象可以识别和响应的某些行为称为
__________。
A.属性
B.方法
C.继承
D.事件
50.在Visual Basic中，称对象的数据为
__________。
A.属性
B.方法
C.事件
D.封装
51."对象"是计算机系统运行的__________ 。
A.程序单位
B.逻辑单位
C.物理实体
D.基本实体
52.事件的名称__________。
A.都要由用户定义
B.有的由有用户定，有的由系统定义
C.都是由系统预先定义
D.是不固定的
53.Visual Basic是一种面向对象的程序设计语
言，构成对象的三要素是__________。
A.属性、控件和方法
B.属性、事件和方法
C.窗体、控件和过程
D.控件、过程和模块
54.若要将窗体Forml的标题栏文本改为“欢迎
使用本软件!”，下列语句正确的是__________。
https://www.wendangku.net/doc/cc5044966.html,=”欢迎使用本软件!”
B.Forml Caption=”欢迎使用本软件!”
C.Set Forml.Caption=”欢迎使用本软件!”
D.Forml.Caption="欢迎使用本软件!"
55.任何控件都具有__________属性。
A.Text
B.Caption
https://www.wendangku.net/doc/cc5044966.html,
D.ForeColor
56.如果要将窗体中的某个命令按钮设置成无
效状态，应该设置命令按钮的__________属性。
A.Value
B.Visible
C.Enabled
D.Default
57.我们可以在设计时(属性窗口中)和运行时
(程序代码中)设置属性的属性值，以下关于
属性设置的说法正确的是__________。
A.在属性窗口中可以设置所有属性的属性值
B.在程序代码中可以设置所有属性的属性值
C.属性的名称由VB事先定义，用户不能改变
D.所有对象的属性都是可见的
58.窗体上有一个名为Labell的标签，为了使该
标签透明并且没有边框，正确的属性设置为
__________
https://www.wendangku.net/doc/cc5044966.html,bel1．BackStyle=0
Label1．BorderStyle=0
https://www.wendangku.net/doc/cc5044966.html,bel1．BackStyle=1 Label1．BorderStyle=1
https://www.wendangku.net/doc/cc5044966.html,bel1．BackStyle=true
Label1．BorderStyle=true
https://www.wendangku.net/doc/cc5044966.html,bel1．BackStyle=False
Label1．BorderStyle=False
59.若要设置文本框中所显示的文本颜色，使用
的属性是__________。
A.BackColor
B.FillColor
C.ForeColor
D.BackStyle
https://www.wendangku.net/doc/cc5044966.html,bel控件中内容能垂直方向变化而宽度保
持不变则应设置__________属性
A.Wordwrap
B.Enabled
C.Locked
D.AutoSize
61.要使一个命令按钮成为图形命令按钮，则应
设置的属性是__________。
A.Picture
B.Style
C.LoadPicture
D.DisabledPicture
62.当标签的标题内容太长，需要根据标题自动
调整标签的大小时，应设置标签的__________
2
属性为True。
A.AutoSize
B.WordWrap
C.Enabled
D.Visible
63.下列说法有错误的是__________。
A.默认情况下，属性Visible的值为true
B.如果设置控件的Visible属性为False，则运行时控件会隐藏
C.Visible的值可设为True或者False
D.设置Visible属性同设置Enabled属性的功能是相同的，都是使控件处于失效状态
64.要使菜单项MenuOne在程序运行时失效，使用的语句是__________。
A.MenuOne．Visible=True
B.MenuOne．Visible=False
C.MenuOne．Enabled=True
D.MenuOne．Enabled=False
65.程序启动未执行任何操作前，为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为Ture，这个属性是__________。
A.Value
B.Default
C.Cancel
D.Enabled
66.使标签所在处显示背景，应把BackStyle属性设置为__________
A.0
B.1
C.True
D.False
67.在窗体上画一个名称为text1的文本框和一个名称为label1的标签，要求如下程序运行时，在文本框中输入的内容立即在标签中显示，在下划线上填入的内容是__________。
Private Sub Text1___________
Label1.Caption=Text1.Text
EndSub
A.Focus
B.Click
C.Change
D.LostFocus
68.能够改变窗体边框线类型的属性是__________
A.FontSyle
B.BorderStyle
C.BackStyle
D.Border
69.把窗体设置为不可见的，应该将__________
属性设置为False。
A.Font
B.Caption
C.Enable
D.Visible
70.决定控件上文字的字体、字形、字号、效果
的属性是__________。
A.Text
B.Caption
https://www.wendangku.net/doc/cc5044966.html,
D.Font
71.将文本框的__________属性设置为True时，
文本框可以输入或显示多行文本，且会在输入
的
内容超出文本框的宽度时自动换行。
A.MultiLine
B.ScrollBars
C.Text
D.Enabled
72.通过文本框的__________属性可以获得当
前插入点所在的位置。
A.PositiOn
B.SelStart
C.SelLength
D.Left
73.设置命令按钮的标题文字时，应改变的属性
是__________。
A.text
https://www.wendangku.net/doc/cc5044966.html,
C.Caption
D..(名称)
74.窗体的Caption属性的作用是__________
A.确定窗体的名称
B.确定窗体的标题
C.确定窗体的边界类型
D.确定窗体的字体
75.常用控件的Style属性值是__________。
A.字符常量
B.逻辑常量
C.数值常量
D.日期常量
76.如果要在文本框中输入字符时，只显示某个
字符，如星号(*)，应设置文本框的__________
属性。
A.Caption
B.PasswordChar
C.Text
D.Char
77.能够获得一个文本框中被选取文本的内容
的属性是__________。
A.Text
B.Length
C.Seltext
D.SelStart
78.下面四个选项，不是窗体属性的是
__________。
A.MinButton
B.MaxButton
C.Caption
D.Load
79.假定窗体的名称(Name属性)为Form1，则把
窗体的标题设置为“VBTest”的语句为
__________。
A.Form1=＂VBTest＂
B.Caption=＂VBTest＂
C.Form1.Text=＂VBTest＂
D.Form1．Name=＂VBTest＂
80.若要将某命令按钮设置为默认命令按钮。则
应设置为true的属性是__________
A.Value
B.Cancel
C.Default
D.Enabled
81.要使标签能够显示所需要的文本，则在程序
中应设置__________属性的值。
A.Caption
B.Text
https://www.wendangku.net/doc/cc5044966.html,
D.AutoSize
82.若要使用户不能修改文本框TextBoxl中显
示的内容，应设置__________属性。
A.Locked
B.MultiLine
C.PassWordChar
D.ScrollBar
83.确定一个窗体或控件大小的属性是
__________。
A.Width或Height
B.Width和Height
C.Top或Left
D.Top和Left
84.设置标签边框的属性是__________。
A.BorderStyle
B.BackStyle
C.AutoSize
D.Alignment
85.若要求从文本框中输入密码时在文本框中
只显示*号，则应当在此文本框的属性窗口设置
__________
A.Text属性值为*
B.Caption属性值为*
C.password属性值为空
D.Passwordchar属性值为*
86.当文本框ScrollBars属性设置了非零值，却
没有效果，原因是__________。
A.文本框中没有内容
B.文本框的MultiLine属性为False
C.文本框的MultiLine属性为True
D.文本框的Locked属性为True
87.标签控件能够显示文本信息，文本内容只能
用__________属性来设置。
A.Alignment
B.Caption
C.Visible
D.BorderStyle
88.使图形能自动按控件大小而改变的控件是
__________
A.图片框
B.图象框
C.标签框
D.框架
89.能够将文本框控件隐藏起来的属性是
__________
A.Clear
B.VisibLe
C.Hide
D.New
90.窗体上有一个按钮和一个文本框，程序执行
后，在文本框中输入12345，单击按钮后的输
出结果为__________。
Private Sub Commandl_Click()
Dim A As Integer,B As Integer
Textl.SelStart=2
Textl.SelLength=2
A=Val(Textl.SelText)
B=Len(Textl.Text)
Print A*B
End Sub
A.68
B.115
C.170
D.1170
3
91.运行以下程序，输出结果是__________。For I=1 To 3
cls
Print＂I=＂，I；
Next i
A.123
B.3
C.I=1 I=2 I=3
D.I=3
92.Cls方法可以清除窗体或图片框中的__________内容。
A.在设计阶段使用Picture属性设置的背景位图
B.在设计阶段放置的控件
C.在运行阶段产生的图形和文字
D.其他全部内容
93.对象.cls方法对__________控件有效。
A.窗体、图像框
B.窗体、图片框
C.屏幕、窗体
D.图像框、图片框
94.在窗体上画一个名称为TextA的文本框，然后编写如下的事件过程：
Private Sub TextA_KeyPress(key Ascii As Integer)
…
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是__________。
A.单击鼠标
B.双击文本框
C.鼠标滑过文本框
D.按下键盘上的某个键
95.在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是
__________。
A.Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=len(Text1.Text)
End Sub
B.Private Sub Text1_LostFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
C.Private Sub Text1_Change()
Text1.SelStart=0
Texf1.SelLength=Len(Text1.Text)
End Sub D.Private Sub Texf1_SetFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
96.在文本框中，当用户键入一个字符，能同时
引发的事件是__________。
A.KeyPress和Click
B.KeyPress和LostFocus
C.KeyPress和Change
D.Change和LostFocus
97.在窗体上画一个文本框(其Name属性为
Text1)，然后编写如下事件过程：
Private Sub Form_Load()
Text1.Text=””
Text1．SetFocus
For i=1 To 9
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是__________
A.出错
B.在文本框Text1中输出45
C.在文本框Text1中输出0
D.在文本框Text1中输出不定值
98.在设计阶段，双击窗体Form1的空白处，打
开代码窗口，显示__________事件过程模板。
A.Form_Click
B.Form_Load
C.Form1_Click
D.Form1_Load
99.要判断在文本框是否按了Enter键，应在文
本框的__________事件中判断。
A.Change
B.KeyDown
C.Click
D.KeyPress
100.下列各种窗体事件中，不能由用户触发的
事件是__________。
A.Load事件和Unload事件
B.Click事件和Unload事件
C.Click事件和DblClick事件
D.Load事件和Initialize事件
101.在运行程序时，在文本框中输入新的内容，
或在程序代码中改变Text的属性值，相应会触
发到__________事件。
A.GotFocus
B.Click
C.Change
D.DblClick
102.在窗体上画一个文本框，其名称为Text1，
然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As
Integer)
Dim str As String,n As Integer
Str=UCase(Chr(KeyAscii)
n=Len(str)
Text1=String(n,str)
End Sub
程序运行后，如果在键盘上输入单字母“k”，
则在文本框Text1中显示的内容为__________。
A.kk
B.kK
C.KK
D.Kk
103.在文本框中，当用户键入一个字符时，能
同时引发的事件的是__________
A.KeyPress和Click
B.KeyPress和LostFocus
C.KeyPress和Change
D.Change和LostFocus
104.运行时，当用户向文本框输入新的内容，
或在程序代码中对文本框的Text属性进行赋值
从而改变了文本框的Text属性时，将触发文本
框的__________事件。
A.Click
B.Dbl Click
C.GotFocus
D.Change
105.在DblClick事件发生时，不会同时发生的
事件是__________ 。
A.MouseDown
B.MouseUp
C.Click
D.Change
106.应用程序设计完成后，应将程序保存，保
存的过程是__________。
A.只保存窗体文件即可
B.只保存工程文件即可
C.先保存工程文件，之后还要保存窗体文件
D.先保存窗体文件(或标准模块文件)，之后还
要保存工程文件
107.保存一个工程至少应保存两个文件，这两
个文件分别是__________。
A.文本文件和工程文件
B.窗体文件和工程文件
C.窗体文件和标准模块文件
D.类模块文件和工程文件
108.运行一个尚未存盘的程序，将会
__________。
A.程序不能运行，但不出现错误信息
B.程序不能运行，并且出现错误信息
C.系统自动将程序存盘后运行程序
D.系统弹出保存工程对话框，用户应答后再运
行程序
109.为使Print方法在Form_Load事件中起作
用，可以对以下__________属性进行设置。
A.AutoReDraw
B.BackColor
C.Moveable
D.Caption
110.Visual Basic采用了__________编程机制。
A.面向过程
B.面向对象
C.事件驱动
D.可视化
111.运行以下程序后，输出的结果是
__________
Print "中国"
Font="隶书"
Print "人民"
Font="仿宋"
Print"万岁"
Font="宋体"
A.中国(默认字体)
人民(默认字体)
万岁!(默认字体)
B.中国(默认字体)
人民(仿宋)
万岁!(宋体)
C.中国(默认字体)
人民(隶书)
万岁!(仿宋)
D.中国隶书(默认字体)
人民(仿宋)
万岁!(仿宋)
112.下面是窗体Form1的Click事件过程，实
现运行时每次单击窗体，窗体均向右移动100
的是__________。
Static Intleft As Integer
Intleft=Intleft+100
Form1.Left=intleft
4
A.Form1_Click()
B.Form_Click()
https://www.wendangku.net/doc/cc5044966.html,mand_Click()
https://www.wendangku.net/doc/cc5044966.html,mand1_Click()
113.在设计程序时，应采纳的原则之一是__________。
A.不限制goto语句的使用
B.减少或取消注解行
C.程序越短越好
D.程序结构应有助于读者理解
114.下列叙述中正确的是__________。
A.事件过程都要由用户编写
B.事件过程都不是用户编写的
C.事件过程有的由用户编写，有的由系统确定
D.用户可以确定事件方法过程是否由用户编写115.不能脱离控件(包括客体)而独立存在的过程是__________。
A.事件过程
B.通用过程
C.Sub过程
D.函数过程
116.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是__________。
A.．
B.；
C.、
D.:
117.双击窗体中的对象后，Visual Basic将显示的窗口是__________
A.项目(工程)窗口
B.工具箱
C.代码窗口
D.属性窗口
118.Visual Basic一共有设计、运行和中断三种模式，要使用调试工具应该__________
A.进入设计模式
B.进入运行模式
C.进入中断模式
D.不用进入任何模式
119.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim a(10,10) As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j)；
Next j
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是
__________
A.1 2 3
2 4 6
3 6 9
B.2 3 4
3 4 5
4 5 6
C.1 4 7
2 5 8
3 6 9
D.1 2 3
4 5 6
7 8 9
120.茬窗体上添加一个文本框，名为text1，然
后编写如下的load事件过程，则程序的运行结
果是__________。
Private Sub Form_Load
Text1.Text=““
Text1.SetFocus
For k=1 to 5
t=t*k
Next k
Text1.Text=t
End Sub
A.在文本框中显示120
B.文本框中仍为空
C.在文本框中显示1
D.出错
121.以下__________操作不能打开属性窗口。
A.按下F4键
B.单击工具栏上的“属性窗口”按钮
C.执行“视图”菜单中的“属性窗口”命令
D.双击任何一个对象
122.以下能够触发文本框Change事件的操作
是__________
A.文本框失去焦点
B.文本框获得焦点
C.设置文本框的焦点
D.改变文本框的内容
123.假设变量intVar是一个整型变量，则执行
赋值语句intVar="2"+3之后，变量intVar的值
是__________。
A.2
B.3
C.5
D.23
124.数值型数据包括__________两种。
A.整型和长整型
B.整型和浮点型
C.单精度型和双精度型
D.整型实型和货币型
125.下面__________是不合法的整常数。
A.100
B.&O100
C.&H100
D.%100
126.下面__________是合法的字符常数。
A.ABC$
B."ABC"
C.…ABC?
D.ABC
127.下面__________是合法单精度型变量。
A.num!
B.sum%
C.xinte$
D.mm#
128.下面__________是不合法的单精度常数。
A.100！
B.100.0
C.1E+2
D.100.0D+2
129.若要处理一个值为50000的整数，应采用
哪种VB基本数据类型描述更合法？
__________
A.Integer
B.Long
C.Single
D.String
130.Detetime是Data类型的变量，以下赋值语
句中错误的是__________
A.Datetime=#8／8／99
B.Datetime=#September 1,1997#
C.Datetime=#12：15：00 AM#
D.Datetime=#4／14／97#
131.货币型数据需__________字节内存容量。
A.2
B.4
C.6
D.8
132.在表示长整数时，可作为长整数尾部符号
的是__________。
A.#
B.!
C.＆
D.$
133.定义货币类型数据应该用关键字
__________。
A.Single
B.Double
C.Currency
D.Boolean
134.用户自定义数据类型时，其成员不能是
__________
A.定长字符串和数组
B.变长字符串
C.货币型和日期型
D.变长字符串和货币型
135.如果想在程序中反复使用一个日期型数据
“01／01／2005”，为了避免在编写程序时反复
输入这个数据，也为了一次能够修改程序中所
有用到这个数据的语句，可以采用__________。
A.将这个数据声明为字符串型常量，用一个常
量标识符代表它
B.将这个数据声明为字符串型变量，用一个变
量标识符表示它
C.将这个数据声明为日期型常量，用一个常量
标识符代表它
D.将这个数据声明为日期型变量，用一个变量
标识符表示它
136.下列选项中，为字符串常量的是
__________。
A.6／12／2001
B.＂6／12／2001＂
C.#6，12，2001#
D.6，12，2001#
137.下面__________不是字符串常量。
A.＂你好＂
B.＂＂
C.＂True＂
D.#False#
138.如果一个变量未经定义就直接使用，则该
变量的类型为__________。
A.Integer
B.Byte
C.Boolean
D.Variant
139.InputBox函数返回值的类型为__________.
A.数值
B.字符串
5
C.变体
D.数值或字符串(视输入的数据而定)
140.如果将布尔常量值True赋值给一个整型变量，则整型变量的值为__________ 。
A.0
B.-1
C.True
D.False
141.下列定义语句中不能定义为字符型数据的是__________ 。
A.Defstr C
B.C
C.Static C As String
D.Dim C As Single
142.下面程序运行后，输出结果是__________。
Dim zxs As Integer
zxs％=232
zxs=232.32
Print zxs％;zxs
A.232 232032
B.232 232
C.232.32 2232 .32
D.显示出错信息
143.在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：
Private Sub Command1_Click()
a=Text1.Text + Text2.Text
Print a
End Sub
Private Sub Form_Load()
Text1．Text=““
Text2．Text=““
End Sub
程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入78和87，然后单击命令按钮，则输出结果为__________ 。
A.165
B.8778
C.7788
D.7887
144.数学表达式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 145.下列__________字符串不能作为VB中的
变量名。
A.ABCDEFG
B.P000000
C.89TWDDFF
D.XYZ
146.下面__________是合法的变量名。
A.X_yz
B.123abc
C.integer
D.X-Y
147.下列叙述中不正确的是__________。
A.变量名可以包含小数点或者内嵌的类型声明
字符
B.变量名的长度不超过255个字符
C.变量名的第一字符可以是字母
D.变量名不能使用关键字
148.下列各组变量声明正确的是__________
A.Dim abc as integer,num as single
B.Dim I%，N$ as integer
C.Dim a%，b%，c%，a$
D.public dim n%
149.以下能作为Visual Basic变量名的是
__________
A.E1
B.12-E
C.E-12
D.12．5
150.对变量名说法不正确的是__________。
A.必须是字母或开头，不能是数字或其他字符
B.不能是Visual Basic的保留字
C.可以包含字母、数字、下划线和标点符号
D.不能超过255个字符
151.声明一个变量为局部变量应该用
__________
A.Global
B.Private
C.Static
D.Public
152.下列符号__________是Visual Basic中的合
法变量名。
A.x23
B.8xy
C.END
D.X8[B]
153.要强制显示声明变量，可在窗体模块或标
准模块的声明段中加入语句__________
A.Option Base0
B.Option Explicit
C.Option Basel
D.Option Compare
154.Option Explicit语句不可以放在
__________
A.窗体模块的声明段中
B.标准模块的声明段中
C.类模块的声明段中
D.任何事件过程中
155.如果要在任何新建的模块中自动插入
Option Explicit语句，则应采用下列__________
操作步骤
A.在“工具”菜单中选取“选项”命令，打开
选项对话框，单击“编辑器选项卡”选中“要
求变量声明”选项
B.在“编辑”菜单中执行“插入文件”命令
C.在“工程”菜单中执行“添加文件”命令
D.其他操作均不对
156.下列__________ 符号不能作为VB中的
变量名。
A.ABCabe
B.b1234
C.28wed
D.crud
157.\、/、Mod、* 4个算术运算符中，优先级
别最低的是__________。
A.\
B./
C.Mod
D.*
158.设有如下变量声明Dim timel As Date，为变
量timel正确赋值的表达式是__________。
A.timel=#11：34：04#
B.timel=Format(Time，”yy：mm：dd”)
C.timel= #”11：34：04”#
D.timel=Format(”hh：mm：ss”，Time)
159.表达式2+3*4^5-Sin(x+1)／2中最先进行的
运算__________。
A.4^5
B.3*4
C.x+1
D.Sin()
160.设有如下变量声明：
Dim TestDate As Date
为变量TestDate正确赋值的表达方式是
__________
A.TestDate=#1／2002#
B.TesDate=#”1／1／2002”#
C.TesDate=date(”1／1／2002”)
D.TesDate=Format(”m／d／yy","1／1／2002”)
161.语句Print Sgn(-5.1^2)+Abs(Int(-5.1^2))的输
出结果是__________。
A.52.2
B.25.01
C.26
D.28
162.不能正确表示条件“两个整型变量A和B
之一为0，但不能同时为0”的布尔表达式是
__________。
A.A*B=0 and A+B<>0
B.(A=0 or B=0)and(A<>O or B<>0)
C.not(A=0 And B=0)and(A=O or B=0)
D.A*B=0 and (A=0 or B=0)
163.下面表达式中，__________的运算结果与
其他三个不同。
A.Exp(-3.5)
B.Int(-3.5)+0.5
C.-Abs(-3.5)
D.Sgn(-3.5)-2.5
164.如果X是一个正的实数，将千分位四舍五
入，保留两位小数的表达式是__________。
A.0.01*Int(X+0.05)
B.0.01*Int(100*X+0.005)
C.0.01*Int(100*(X+0.05))
D.0.01*Int(X+0.005)
165.表达式Val(”.123E2”)的值__________
A.123
B.12.3
C.0
D.123e2CD
166.下面四个语句中，输出逻辑为“真”的是
__________。
A.Print Not(3+5<4+6)
B.Print 2>1 And 3<2
C.Print 1>2 0r 2>3
D.Print Not(1>2)
167.表达式2*3^2+2*8／4+3^2的值为：
__________。
A.64
B.31
C.49
D.22
168.表达式16 / 4 - 2 ^ 5 * 8 / 4 MOD 5 \ 2的值
为__________。
A.14
B.4
C.20
6
D.2
169.Int（198.555*100+0.5）/100的值__________。
A.198
B.199.6
C.198.56
D.200
170.已知A$="12345678"，则表达式Val （Left$(A$,4)+Mid$(A$,4,2)）的值为__________。
A.123456
B.123445
C.8
D.6
171.以下关系表达式中，其值为False的是__________。
A."ABC">"AbC"
B."男">"女"
C."BASIC"=UCase("basic")
D."123"<"23"
172.下面正确的赋值语句是__________。
A.x+y=30
B.y=π*r*r
C.y=x+30
D.3y=x
173.赋值语句：a=123 + Mid（"123456",3,2）执行后，a变量中的值是__________。
A."12334"
B.123
C.12334
D.157
174.赋值语句：a=123 & Mid（"123456",3,2）执行后，a变量的值是__________。
A."12334"
B.123
C.12334
D.157
175.设A：”12345678”，则表达式Val(Left(A，
4)+Mid(A，4，2))的值为__________。
A.123456
B.123445
C.8
D.6
176.选拔身高T超过1.7米且体重w小于62.5公斤的人，表示该条件的布尔表达式为__________。
A.T>：1.7 And W<=62．5
B.T<=1.7 Or W>=62.5
C.T>1.7 And w<62．5
D.T=I.7 Or W>62．5
177.表达式12000+“129”＆200的值是
__________。
A.12329
B.“12129200”
C.“12000129200”
D.“12329”
178.下列程序运行时，若输入123，将输出
__________。
Private Sub Command1_Click()
X1=InputBox(”请输入”)
Print X1+123
End Sub
A.123123
B.246
C.123
D.显示出错信息
179.将任意一个正的两位数N的个位数与十位
数对换的表达式为__________。
A.(n-int(n/10)*10)*10+int(n/10
B.N-Int(N)／10*10+Int(N)／10
C.Int(N／10)+(N-Int(N／10))
D.(N-Int(N／10)*10+Int(N／10)
180.产生[10，37]之间的随机整数的Visual
Basic表达式是__________。
A.Int(Rnd*27)+10
B.Int(Rnd*28)+10
C.Int(Rnd*27)+11
D.Int(Rnd*28)+11
181.表达式Str(Len("123"))+Str(77．7)的值为
__________。
A.377．7
B.3 77．7
C.80．7
D.12377.7
182.下列表达式中，__________的值为false。
A.”BCD”<”BCE”
B.”12345”<>”12345”＆”ABC
C.Not 2*5=10
D.4=4 and 5>2+2
183.下列事件过程运行后输出结果是
__________o
Private Sub Command1_Clcik()
Print 25 Mod (1-2^3)
End Sub
A.4
B.-4
C.0
D.-0
184.表达式Int(8*sqr(36)*10^(-2)*10+0.5)／10
的值是__________
A.0.48
B.0.048
C.0.5
D.0.05
185.下列哪个是满足要求的正确表达式：年龄
在20到60(包括年龄20和60在内)或工资少于
500的女职工__________。
A.”20<=年龄<=60 and工资<500 or性别=”
女
B.20<年龄<60 and工资<500 or性别=”女”
C.20<年龄and年龄<60 or工资<500 and性别=”
女”
D.(20<=年龄and年龄<=60 or 工资<500)and性
别=”女”
186.下列能正确输出2，345．67的语句是
__________。
A.Print Format$(2345．668，”00000．00”)
B.Print Format$ (2345．668，”#,###.##”)
C.Print Format$ (2345．668．“0,0000．00 ”)
D.Print Format$ (2345．668，“，#####.##“)
187.满足“当X的值是偶数时为真，奇数时为
假”要求的表达式是__________
A.X Mod 2<>0
B.Not X Mod 2<>0
C.(x＼2*2-x)=O
D.Not (x Mod 2)
188.求一个三位正整数N的十位数的正确方法
是__________。
A.Int(N／10)-Int(N／100)*10
B.Int(N／10)-Int(N／100)
C.N-Int(N／100)*100
D.Int(N-Int(N／100)*100)
189.表达式Int(Rnd+1)+Int(Rnd-1)的值为
__________。
A.1
B.0
C.-1
D.2
190.表达式X+1>X是__________。
A.算术表达式
B.非法表达式
C.字符串表达式
D.关系表达式
191.表达式(7\3+1)*(18/5-1)的值是__________
A.8.67
B.7.8
C.6
D.6.67
192.模拟方形骰子投掷的表达式是
__________。
A.Int(6*Rnd(1))
B.Int(1+6*Rnd(1))
C.Int(6*Rnd(1)-1)
D.Int(7*Rnd(1)-1)
193.产生【10，37】之间的随机整数的Visual
Basic表达式是__________。
A.Int(Rnd(1)*27)+10
B.Int(Rnd(1)*28)+10
C.Int(Rnd(1)*27)+11
D.Int(Rnd(1)*28)+11
194.下列表达式的值为2123的是__________。
A.Val(”123asd”)&2000
B.Val(“123asd”)+2000
C.Str(123)&”742000 ”
D.Str(123)+”2000 ”
195.表达式3^2*2+3 MOD 10＼4的值是
__________。
A.18
B.1
C.19
D.0
196.下列能正确产生[1-30]之间的随机整数的
表达式是__________。
A.1+rnd(30)
B.1+30*rnd()
C.rnd(1+30)
D.int(rnd()*30)+1
197.表达式Abs(-5)+Len(＂ABCDE＂)的值是
__________。
A.5ABCDE
B.-5ABCDE
C.10
D.O
198.将Cos(y)四舍五入保留3位小数的表达式
是__________。
A.Int((Cos(Y)+0.5)*1000)／1000
B.Int(Cos(Y*1000))／1000+0.5
C.Int(Cos(Y)*1000+0.5)／1000
D.Int(Cos(Y*1000)+0.5)／1000
199.在窗体上画一个命令按钮，然后编写如下
事件过程：
Private Sub Command1_Click()
A=＂12＂
B=＂34＂
7
C=＂56＂
Print A+B+C
EndSub
程序运行后，单击命令按钮，输出结果是__________。
A.＂123456＂
B.123456
C.102
D.显示出错信息
200.如果逻辑与(And)运算的结果为“真”，与它所连接的两个条件必须是__________。
A.前一个为“真”，后一个为“假”
B.前一个为“假”，后一个也为“假”
C.前一个为真，后一个也为真
D.前一个为假，后一个为真
201.下列程序段的执行结果为__________。
X=2.4：Z=3：K=5
Print＂A(＂；X+Z*K；＂)＂
A.A(17)
B.A(17.4)
C.A(18)
D.A(2.4+3*5)
202.选拔身高T超于1.7米且体重W小于62.5千克的人，能表示该条件的布尔表达式是__________
A.T>1.7 And W<=62．5
B.T<=1.7 Or W>=62.5
C.T>1.7 And W<62.5
D.T>1.7 Or W<62.5
203.表达式X+1>X是__________。
A.算术表达式
B.非法表达式
C.字符串表达式
D.关系表达式
204.下面程序段的功能是__________
A=10.5
B=Int(A+0.5)
Debug.Print B
A.求平均值
B.将一实数四舍五入取整数
C.求绝对值
D.舍去一实数的小数部分
205.执行以下程序段后，变量C的值为__________。
a=“Visual Basic Programing“
b=”Quick”
c=b＆Ucase(Mid(a,7，6))&Right(a，11)
A.Visual BASIC Programing
B.Quick Basic Programing
C.QUICK Basic Programing
D.Quick BASIC Programing
206.Right(”ABCDEFG”，3)的执行结果是
__________。
A.ABC
B.EFG
C.DEF
D.CDE
207.表达式String(2，”Shanghai”)的值是
__________。
A.Sh
B.Shanghai
C.ShanghaiShanghai
D.SS
208.求一个三位正整数N的十位数的正确方法
是__________。
A.Int(N/10)-Int(N/100)*10
B.Int(N/10)-Int(N/100)
C.N-Int(N/100)*100
D.Int(N-Int(N/100)*100)
209.下列程序的执行结果为__________。
A=”1”
B=”2”
A=Val(A)+Val(B)
B=Val(”12”)
If A<>B Then Print A-B Else Print B-A
A.-9
B.9
C.-12
D.0
210.Rnd函数不可能为下列__________值。
A.0
B.1
C.0.1234
D.0.0005
211.MsgBox函数返回值的类型是__________。
A.整型数值
B.字符串
C.变体
D.数值或字符串
212.InputBox函数返回值的类型是
__________。
A.整型数值
B.字符串
C.变体
D.数值或字符串
213.表达式Len（"123程序设计ABC"）的值为
__________。
A.10
B.14
C.20
D.17
214.语句Print”Sgn(-26)=”；sgn(-26)的输出结
果为__________。
A.Sgn(-26)=26
B.sgn(-26)=-26
C.sgn(-26)=+1
D.sgn(-26)=-1
215.表达式Mid(”SHANGHAI”,6,3)的值是
__________。
A.SHANGH
B.SHA
C.ANGH
D.HAI
216.设s=”中华人民共和国”，表达式Left(s，
1)+Right(S，1)+Mid(S，3，2)的值为__________
A.”中华民国”
B.”中国人民”
C.”中共人民”
D.”人民共和”
217.下面程序执行的结果是__________。
Private Sub Form_Click()
A$=＂123＂：B$=＂456＂
C=Val(A$)+Val(B$)
Print C\100
End Sub
A.123
B.3
C.5
D.579
218.表达式Right(“Beijing”,4)的值是
__________
A.Beij
B.jing
C.eiji
D.ijin
219.用于获得字符串S最左边4个字符的函数
是：__________。
A.Left(S，4)
B.Left(1，4)
C.Leftstr(S)
D.Leftstr(3，4)
220.如果Tab函数的参数小于1，则打印位置在
第__________列。
A.0
B.1
C.2
D.3
221.Mid(”Hello Everyone”，7，3)的执行结果
是__________ 。
A.ong
B.every
C.Eve
D.one
222.在窗体上面有一个文本框，其名称为Textl，
然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As
Integer)
Dim str As String
str = Chr(KeyAscii)
KeyAscii = Asc(UCase(str))
Text1.Text = String(2, KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“b”，则
在文本框Textl中显示的内容为__________。
A.bbb
B.BBB
C.BB
D.bb
223.函数UCase(Mid(”visual basic”8,8))”的
值为__________
A.visual
B.basic
C.VISUAL
D.BASIC
224.下面表达式中，__________ 的运算结果
与其他三个不同。
A.Exp(-3.5)
B.Int(-3.5)+0.5
C.-Abs(-3.5)
D.Sgn(-3.5)-2.5
225.表达式Int(-17.8)+Sgn(17.8)的值是
__________ 。
A.18
B.-17
C.-18
D.-16
226.Int(100*Rnd(1))产生的随机整数的闭区间
是__________
A.[0，99]
B.[1，100]
C.[0，100]
D.[1，99]
227.Visual Basic程序中分隔各语句的字符是
__________。
A.?
8
B.：
C.＼
D._
228.在一行语句内写多条语句时，每个语句之间用__________符号分隔。
A.，
B.：
C.、
D.；
229.一条语句要在下一行继续写，用__________符号作为续行符。
A.+
B.-
C._
D.…
230.为了给x、y、z三个变量赋初值1，下面正确的赋值语句是__________。
A.x=1:y=1:z=1
B.x=1,y=1,z=1
C.x=y=z=1
D.xyz=1
231.在VB中设计程序时，能自动被检查出来的错误是__________。
A.语法错误
B.语法错误和逻辑错误
C.运行错误
D.逻辑错误
232.结构化程序设计主要强调的是__________
A.程序的规模
B.程序的效率
C.程序设计语言的先进性
D.程序易读性
233.下面程序运行后在“立即”窗口输出的结果是__________。
Private Sub Form_Click()
X=”a”：y=”b”
z=l：u=2
Debug．Print x；y：z；u
Debug．Print z；x：y；u
EndSub
A._a_b_1_2_
_1a_b2_
B.ab_1_2_
_1_ab_2_
C._ab12_
_1ab2_
D._ab_12_
_1a_b2_ 234.语句Print ”25+10”；25+10的输出结果是
__________。
A.”25+10”35
B.”25+10”;25+10
C.25+10_35
D.”25+10”_35
235.语句：Print"Sqr(9)=";Sqr（9）的输出结果
是__________。
A.Sqr(9)=Sqr(9)
B.Sqr(9)=3
C."3"=3
D.3=Sqr(9)
236.系统符号常量的定义可以通过__________
获得。
A.对象浏览器
B.代码窗口
C.属性窗口
D.工具箱
237.下面有关注释语句的格式，错误的是
__________。
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)
238.语句X=X+1的正确含义是__________。
A.变量X的值与X+1的值相等
B.将变量x的值存到X+1中去
C.将变量X的值加1后赋值给变量x
D.变量x的值为1
239.设AS="Hello，"下列语句正确的是
__________
https://www.wendangku.net/doc/cc5044966.html,bel1．Hight=Label1．Hight+AS
https://www.wendangku.net/doc/cc5044966.html,bel1．Caption=Label1．Caption+AS
https://www.wendangku.net/doc/cc5044966.html,bel1．Enabled=Laabel1．Enabled+A$
https://www.wendangku.net/doc/cc5044966.html,bel1．Visible=Label1．Visible+AS
240.以下__________程序段可以实施X、Y变
量值的交换。
A.Y=X：X=Y
B.Z=X：Y=Z：X=Y
C.z=X：x=Y:y=z
D.Z=X：w=Y：Y=Z：X=Y
241.下列程序段的执行结果为__________
A = 0: b = 1
A = A + b: b = A + b: Print A; b
A = A + b: b = A + b: Print A; b
A = A + b: b = A + b: Print A; b
A.1 2
3 5
8 13
B.1 1
3 5
8 13
C.1 3
3 4
8 13
D.1 2
3 4
5 6
242.下列各赋值语句，不正确的是__________。
A.x+y=5
B.iNumber=15
https://www.wendangku.net/doc/cc5044966.html,bel1.caption="time"
D.sLength=x+y
243.假设变量boolVar是一个布尔型变量，则下
面正确的赋值语句是__________。
A.boolVar=＂True＂
B.boolVar=.Ture.
C.boolVar=#True#
D.boolVar=3<4
244.下列赋值语句正确的是__________。
A.Text1.Text=Text1.Text+Text2.Text
https://www.wendangku.net/doc/cc5044966.html,=https://www.wendangku.net/doc/cc5044966.html,+https://www.wendangku.net/doc/cc5044966.html,
C.Text1.Caption=Text.Caption+Text2.Caption
D.Text1.Enabled=Text1.Enable+Text2.Enabled
245.下列__________语句可以将变量A、B的
值互换。
A.A=B：B=A
B.A=A+B：B=A-B：A=A-B
C.A=C：C=B：B=A
D.A=(A+B)／2：B=(A-B)／2
246.设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)
247.下列程序段的执行结果为__________。
X=2
Print X+1;X+1
A.3 3
B.X+l X+l
C.3 4
D.2+1 2+1
248.可以用InputBox函数产生"输入对话框"。
执行语句st$=(InputBox("请输入字符串"，
"字符串对话框"，"字符串")时，当用户输
入完毕，按OK按钮后，st$变量的内容
是__________。
A.字符串
B.请输入字符串
C.字符串对话框
D.用户输入的内容
249.执行如下语句：
a = InputBox(Today, Tomorrow, "Day before
yesterday")
将显示一个输入对话框，在对话框的输入区中
显示的信息是__________。
A.Today
B.Tomorrow
C.Day before yesterday
D.Yesterday
250.设有语句：
x=InputBox("输入数据"，"0"，"示例")
程序运行后，如果从键盘上输入数值10，并按
回车键，则下列正确的是__________
A.变量X的值是数值10
B.在InputBox对话框标题栏中显示的是"示例"
C.0是默认值
D.变量X的值是字符串"10"
251.用InputBox函数设计的对话框，其功能是
__________。
A.能接收用户输入的数据，但不会返回任何信
息
B.能接收用户输入的数据，并能返回用户输入
的信息
C.既能用于接收用户输入的信息，又能用于输
出信息
D.专门用于输出信息
252.MsgBox函数用于显示提示信息，关于函数
返回值的说明正确的是__________
A.函数的返回值是提示信息的数据类型
B.函数的返回值是提示信息的数据长度
C.凼数的返回值是整数，指示按下哪个按钮
D.函数的返回值是符号常量，指示按下哪个按
钮
253.如果A为整数且│A│>100。则打印“OK”，
否则打印“Error”，表示这个条件的单行格式
If
语句是__________。
A.If Int(A)=A And Sqr(A)>100 Then
Print”OK”Else Print”Error”
9
B.If Fix(A)=A And Abs(A)>100 Then Print“OK”Else Print”Error”
C.If Int(A)=A And(A>=100，A<=-100)Then Print”OK”Else Print”Error”
D.If Fix(A)=A And A>=100 And A<=-100 Then Print”OK”Else Print”Error”
254.下列程序段的执行结果为__________。
a=75
If a>60 Then I=1
If a>70 Then I=2
If a>80 Then I=3
If a<90 Then I=4
Print”I=”；I
A.I=1
B.I=2
C.I=3
D.I=4
255.下列程序执行后，变量x的值为__________。
Dim a,b，c，d As Single
Dim x As Single
a=100
b=20
c=1000
If b>a Then
d=a：a=b：b=d
End If
If b>c Then
x=b
Elseif a>c Then
x=c
Else
x=a
End If
A.100
B.20
C.1000
D.0
256.关于多行结构条件语句的执行过程，正确的是__________。
A.各个条件所对应的<语句块>中，一定有一个<语句块>被执行
B.找到<条件>为True的第一个入口，便从此开始执行其后的所有<语句块>
C.若有多个<条件>为True，则它们对应的<语句块>都被执行
D.多行选择结构中的<语句块>，有可能任何一个<语句块>都不被执行
257.执行下列语句后整型变量a的值是__________。
If (3-2)>2 Then
a=10
ElseIf (10／2)=6 Then
a=20
Else
a=30
End If
A.10
B.20
C.30
D.不确定
258.下列程序执行后，变量a的值为
__________。
Dim a,b,c,d as single
a=100
b=20
c=1000
if b> a Then
d=a：a=b：b=d
End if
If c>a then
d=a：a=c：c=d
End if
If c>b Then
d=b：b=c：c=d
End if
A.0
B.1000
C.20
D.100
259.下面程序段执行结果为__________。
x=Int(Rnd（）+4)
Select Case X
Case 5
Print”excellent”
Case 4
Print”good”
Case 3
Print”pass”
Case Else
Print”fail”
End Select
A.excellent
B.good
C.pass
D.fail
260.下列程序段的执行结果为__________。
a=95
if a>60 Then I=1
If a>70 Then I=2
If a>80 Then I=3
If a>90 Then I=4
Print "I=";I
A.I=4
B.I=2
C.I=3
D.I=1
261.下列语句正确的是__________。
A.If A≠B Then Print”A不等于B”
B.If A<>B Then Printf”A不等于B”
C.If A<>B Then Print”A不等于B”
D.If A≠B Print”A不等于B”
262.设有下列语句：
x=5
If x>0 Then y=5
y=10
程序运行后，则下列叙述中正确的是
__________。
A.变量Y的值是5
B.变量Y的值是10
C.变量X的值是5，变量Y的值是5
D.变量Y的值不能确定
263.执行下面的程序段后显示的结果是
__________。
Private Sub Form_Click()
Dim i
If i then print i else print i+1
End Sub
A.0
B.1
C.“”
D.False
264.下列程序运行时，单击窗体，则显示一个
输入对话框，在该对话框输入一个整数12后，
窗体上显示的结果是__________。
Private Sub Form_Click()
X=val(Inputbox(”输入x的值”))
Y=1
If X<>0 Then y=2
Print Y
End Sub
A.1
B.不定
C.3
D.2
265.下列程序段的执行结果为__________。
x=5
y=-20
If Not x>0 Then x=y-3 Else y=x+3
Print x-y;y-x
A.-3 3
B.5 8
C.3 -3
D.25 -25
266.以下程序运行后，输出结果是__________
a=1：b=2：c=3
a=a+b：b=b+c：c=b+a
If a<>3 Or b<>3 Then
a=b-a：b=c-a：c=b+a
End If
Print a+b+c
A.16
B.3
C.6
D.8
267.下列程序的执行结果是__________。
Dim s,n as integer
s=0：n=l
Do while n<=10
s=s+n
n=n+1
Loop
Print s
A.100
B.50
C.25
D.55
268.下面程序运行时，单击窗体后，窗体上显
示的结果是__________。
Private Sub Form_Click
Dim I As Integer
Dim sum As Long
Dim t1 As Long
T1=1：sum=0
For I=1 To 3
T1=t1*I
sum=sum+t1
Next I
Print sum
End Sub
A.3
B.9
C.5
D.6
269.下列程序段的执行结果为__________。
a=6
For k=l To 0
a=a+k
10
Next k
Print k；a
A.-1 6
B.-1 16
C.1 6
D.11 21
270.下列程序的执行结果为__________。
n=0
j=1
Do Until n>2
n=n+1
j=j+n*(n+1)
Loop
Print n；j
A.0 1
B.3 7
C.3 21
D.3 13
271.下面的程序运行结果是__________。
Private Sub Form_Click()
I=0
Do Until 0
i=i+1
if i>10 then Exit Do
Loop
print i
EndSub
A.0
B.10
C.11
D.出错
272.在窗体上添加一个按钮，名为Command1，然后编写如下的事件过程，输出结果为__________。
Prinvate Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+5
Next k
Next j
Next i
Print x
End Sub
A.13
B.26
C.30
D.40 273.阅读下面的程序段：
For i=l To 3
For j=1 To i
For k=j To 4
a=a+1
Next k
Next j
Next i
执行上面的三重循环后，a的值为
__________.
A.9
B.14
C.20
D.21
274.下面程序运行后的结果是__________。
Private Sub Form_Click()
Dim s As Integer,k As Integer,i As Integer,n
As Integer
s=1
for i=1 to 3
for j=i to 3
for k=j to i step-1
s=s*k
Next k
Next j
Next i
print s
End Sub
A.6
B.72
C.144
D.432
275.下列程序段的执行结果为__________。
a=0：b=0
For i=-1 To -2 Step -1
For j=1 To 2
b=b+1
Next j
a=a+1
Next i
Print a；b
A.2 4
B.-2 2
C.4 2
D.2 3
276.下列程序段的执行结果为__________
I=4
x=5
Do
I=I+1
x=x+2
Loop Until I>=7
Print ”I=”; I
Print ”x=”; x
A.I=4 x=5
B.I=7 x=15
C.I=6 x=8
D.I=7 x=11
277.执行下列程序段后，输出的结果是
__________。
For k1=0 To 4
y=20
For k2=0 To 3
y=10
For k3=0 To 2
y=y+10
Next k3
Next k2
Next k1
Print y
A.90
B.60
C.40
D.10
278.Do Until…Loop循环命令的功能是
__________ 。
A.先进入循环执行语句段落后，再判断是否再
进入循环
B.先进入循环执行语句段落后，再判断是否不
再进入循环
C.执行前先判断是否不满足条件，若不满足才
进入循环
D.执行前先判断是否不满足条件，若满足才进
入循环
279.下列程序段的执行结果为__________。
a=”ABBACDDCBA”
For I=6 To 2 Step-2
x=Mid(a，I，I)
y=Left(a，I)
z=Right(a，I)
z=X & Y & Z
Next I
Print z
A.ABC
B.AABAAB
C.BBABBA
D.ABBABA
280.下面程序执行时，输出的结果是
__________。
Private Sub Form_Click()
Dim i As Integer,j As Integer
i=10
Do
i=i+j
for j=10 to i step-3
i=i+j
next j
Loop While i<50
Print i;j
End Sub
A.50 10
B.50 9
C.57 10
D.59 9
281.下面程序段的运行结果为：
Private sub command1_click()
For i = 1 to 5
n = 0
For j = i to 5
n = n + 1
Next j
Next i
Print n
End sub
A.10
B.5
C.15
D.1
282.10.下面程序执行后输出是__________。
Private Sub Form_Click()
For I=1 to 4
x=4
for j=1 to 3
x=3
for k=1 to 2
x=x+6
next k
next J
next I
print X
End Sub
A.7
B.15
C.157
D.538
283.下列程序运行时输出的结果是
__________。
Option Base 1
Private Sub Form_Click()
Dim x(10)
For I = 1 To 10
11
x(I) = 10 - I + 1
Next I
For I = 10 To 1 Step -2
Print x(I);
Next I
End Sub
A.1 3 5 7 9
B.9 7 5 3 1
C.1 2 3 4 5 6 7 8 9 10
D.10 9 8 7 6 5 4 3 2 1
284.下列程序的运行结果是__________。Private Sub Form_Click()
Dim k As Integer
n=5
m=1
k=1
Do
m=m+2
k=k+1
Loop Until k>n
Print m
End Sub
A.1
B.12
C.1l
D.32
285.下列程序段的执行结果为__________。
Dim A(3, 3)
For m = 1 To 3
For n = I To 3
If n = m Or n = 3 - m + 1 Then
A(m, n) = 1
Else
A(m, n) = 0
End If
Next n
Next m
For m = l To 3
For n = 1 To 3
Print A(m, n);
Next n
Next m
A.1 0 0
0 1 0
0 0 1
B.1 1 1
1 1 1
1 1 1
C.0 0 0
0 0 0
0 0 0
D.1 0 1
0 1 0
1 0 1
286.在窗体上添加一个命令按钮，名为
Command1，一文本框，名为textl，则执行如
下事件过程后，文本框中的输出为__________。
For i = 1 To 3
For j = 1 To 3
For k = 1 To 2
X = X + 3
Next k
Next j
Next i
Text1.Text = Str(X)
A.21
B.42
C.54
D.72
287.下列命令按钮事件过程执行后，输出的结
果是__________
Private Sub Command_Click()
For m=1 to 10 Step 2
a=10
For n=1 to 10 Step 2
a=a+2
Next n
Next m
Print a
End Sub
A.60
B.50
C.30
D.20
288.有如下程序
For i=1 To 3
For j=5 To 1 Step-1
Print i+j
Next j
next i
其循环执行的次数为__________。
A.12
B.13
C.14
D.15
289.下列程序段的执行结果为__________
Dim M(10)，N(10)
i=3
For T=1 T0 5
M(T)=T
N(I)=2*I+T
Next T
Print N(i)；M(I)
A.3 11
B.3 15
C.11 3
D.15 3
290.如下有一段不完整的程序段，如果要求该
程序执行3次循环，则在程序中的空白处要填
入__________。
X=l
Do
x=x+3
Print X
Loop Until__________
A.x>=8
B.x<=8
C.x>=7
D.x<=7
291.下列程序段的执行结果为__________o
a=1
b=1
For I=1 To 3
F=a+b
a=b
b=f
Print f;
Next I
A.2 3 6
B.2 3 5
C.2 3 4
D.2 2 8
292.下列命令按钮事件过程执行后，输出结果
是__________
For m=1 To 1000 Step 2
a=10
For n=1 To 20 Step 2
a=a+2
Next n
Next m
Print a
A.1200
B.10000
C.30
D.20
293.下列程序段的执行结果为__________。
a=0：b=1
Do
a=a+b
b=b+1
Loop While a<10
Print a;b
A.10 5
B.a b
C.0 1
D.10 30
294.下面程序语句Print i执行的次数是
__________。
Private Sub Form_Click()
Dim I As Integer, j As Integer
i=0
Do
i=i+l
forj=10 to 1 step -3
i=i+j
print i
next j
Loop While i<50
End Sub
A.4
B.8
C.12
D.16
295.在窗体上添加一个命令按钮，名为
Commandl，一文本框，名为textl，则执行如下
事件过程后，文本框中的输出为__________。
Private Sub Command1_Click()
For I = l To 4
x = 3
For j = 1 To 3
For k = 1 To 2
x = x + 3
Next k
Next j
Next I
Text1.Text = Str(x)
End Sub
A.6
B.12
C.18
D.21
296.当执行以下过程时，在名为lplResult的标
签框内将显示__________。
Private Sub cmdlt_Click()
Dim i,r
R=0
For i=1 To 5 Step 1
r=r+i
Next i
lplResult．Caption=Str$(r)
End Sub
12
A.字符串15
B.整数15
C.字符串5
D.整数5
297.下面程序运行后，输出的结果是__________。
Dim arr(3,3)
For j=1 To 3
For k=1 To 3
Arr(j,k)=(j-1)*3+k
Next k
Next j
For j=2 To 3
For k=2 To 3
Print arr(k,j);
Next k
Next J
A.2 5
3 6
B.5 8
6 9
C.4 7
5 8
D.5 9
6 8
298.下列程序段的执行结果为__________。
a=1
b=5
DO
a=a+b
b=b+1
Loop While a<10
Print a;b
A.1 5
B.12 7
C.a b
D.10 25
299.有如下程序，输出结果为__________ ( Private Sub Form_Activate()
Dim a
a=Array(1,2,3,4,5)
For i=LBound(a) To UBound(a)
a(i)=I*a(i)
Next i
Print I,LBound(a),UBound(a),a(i)
EndSub
A.4 0 4 25
B.5 0 4 25
C.不确定
D.程序出错
300.执行下列程序后，变量a的值为__________
Dim I As Integer
Dim a As Integer
a=0
For i=1 To 100 Step 2
a=a+1
Next i
A.1
B.10
C.50
D.100
301.在窗体上画两个文本框(其Name属性分别
为Text1和Text2)和一个命令按钮(其Name
属性为Command1)，然后编写以下事件过
程：
Private Sub Command1_Click()
x=0
Do Until x>=50
x=(x+4)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中
显示的值分别为__________。
A.1和0
B.2和240
C.3和50
D.4和168
302.下列程序的运行结果是__________。
s=0：t=0：u=0
For x=1 To 3
For y=1 To x
For z=y To 3
s=s+1
Next z
t=t+1
Next y
u=u+1
Next x
Print s；t；u
A.3 6 14
B.14 6 3
C.14 3 6
D.16 4 3
303.下列程序执行后，变量s的值为
__________。
Dim s As Long，x As Integer
s=0
x=1
Do While x<10
s=s+x
x=x+2
Loop
Print s
A.10
B.25
C.50
D.100
304.以下程序段执行后整型变量n的值为
__________。
n=0
For i=1 to 20 Step 5
n=n+1
Next i
A.50
B.4
C.15
D.210
305.在窗体上画两个名称分别为Text1、Text2
的文本框和一个名称为Command1的命令按
钮，
然后编写如下事件过程：
Prinvate Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框
中显示的值分别是__________。
A.15和1
B.27和3
C.195和3
D.600和4
306.假设有以下程序段：
For I=1 to 3
For j=5 to 1 Step -1
Print I*j
Next j
Next I
则语句Print I*j的执行次数、I、j的值分
别__________。
A.15 4 0
B.16 3 1
C.17 4 0
D.18 3 1
307.下述程序的运行结果是__________
j=0
Do While j<30
j=(j+1)*(j+2)
k=k+1
Loop
Print k；j
A.0 1
B.3 182
C.30 30
D.4 30
308.在窗体上画一个名称为Text1的文本框和
一个名称为Command1的命令按钮，然后编写
如下事件过程：
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For j=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next j
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示
的值是__________。
A.2
B.3
C.4
D.5
309.执行下面的程序段后，X的值为
__________ 。
x=50
For i=1 To 20 Step 2
x=x+1
Next i
A.60
B.67
C.68
D.69
310.30．当变量x=2，y=5时，以下程序的输出
结果为__________。
Do Until y>5
x=x*y
y=y+1
Loop
13
Print x
A.2
B.5
C.10
D.20
311.12．以下语句错误的是__________。
A.Do while(Condition)
Statements Loop
B.Do
Statements
Loop while(condition)
C.Do until(Condition)
Statements
Loop
D.Do until(condition)
Statements
End do
312.以下程序段中Do…Loop循环执行的次数为__________。
n=5
Do
If n Mod 2=0 Then
n=n＼2
Else
n=n*3+1
End If
Loop until n=1
A.4
B.3
C.5
D.2
313.下列程序段执行后，x的值为__________。
x=0
For i=1 To 10
For j=i To 10
x=x+1
Next j
Next i
A.50
B.55
C.100
D.105
314.在窗体上添加一个命令按钮，名为Command1，一文本框，名为text1，则执行如下事件
过程后，文本框中的输出__________。
For i=1 To 4
For j=1 To 3
x=3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Text1.Text=str(x)
A.3
B.6
C.9
D.12
315.下列关于For...Next语句的说法正确的是
__________ 。
A.循环变量、初值、终值和步长都必须为数值
型
B.Step后的步长只为正数
C.初值必须小于终值
D.初值必须大于终值
316.下列程序运行后，输出结果为__________。
b = 1
Do While b < 40
b = b * (b + 1)
Loop
Print b
A.42
B.39
C.6
D.1
317.以下程序输出的结果为__________。
x=1
y=4
Do Until y>4
X=X*Y
y=y+1
Loop
Print X
A.4
B.8
C.12
D.16
318.下面的程序运行后输出的结果是
__________
For i=1 to 2
S=i
For j=0 to i-1
S=S+S*i
Next j
Print s
Next i
A.1 1
B.0 2
C.2
18
D.6
319.由如下程序，该程序将__________
__________
For i=1 to 10 step 0
K=k+2
Next i
A.形成无限循环
B.循环体执行一次后结束循环
C.语法错误
D.循环体不执行即结束循环
320.有如下语句，执行后该段语句的循环次数
是__________
Dim s,i,j as integer
For i=1 to 3
For j=3 to 1 Step -1
s=i*j
Next j
Next i
A.9
B.10
C.3
D.4
321.下列程序执行后，整型变量n的值为
__________ 。
n=0
For i=1 to 100
If I Mod 4 = 0 Then n=n+1
Next i
print n
A.5050
B.25
C.26
D.33
322.关于Exit For的使用说明正确的是
__________
A.Exit For语句可以退出任何类型的循环
B.一个循环中只能有一个这样的语句
C.Exit For表示返回For语句去执行
D.一个For循环中可以有多条Exit For语句
323.For-Next循环的初值、终值与步长
__________。
A.只能是具体的数值
B.只能是表达式
C.可以是数值表达式
D.可以是任何类型的表达式
324.当在文本框中输入"ABCD”4个字符时，
窗体上显示是：
Private sub text1_change()
Print text1;
End Sub
A.ABCD
B.A
B
C
D
C.AABABCABCD
D.A
AB
ABC
ABCD
325.下面程序运行时，单击窗体后，窗体上显
示的结果是__________
Private Sub Form_Click()
Dim I As Integer
Dim sum As Long
sum =0
For I=10 To 16
If I Mod 3=0 Or I Mod 5=0 Then
sum=sum+I
End If
Next I
Print sum
End Sub
A.10
B.12
C.37
D.22
326.下列语句的输出结果为__________。
Print Format$(5689.36,"000,000.000")
A.5．689．36
B.5．689．360
C.5．689．3
D.005，689．360
327.程序的基本控制结构是__________
A.顺序结构、多分支结构和单分支结构
B.For……Next结构、Do……Loop结构和
Select……Case结构
C.顺序结构、选择结构和循环结构
D.单行结构和多行结构
328.下面四个语句中，能打印显示20*30字样
的是__________
A.Print "20*30"
B.Print 20*30
14
C.Print Chr$(20)+"*"+Chr$(30)
D.Print Val("20")*VaL("30")
329.如下数组声明语句，__________正确。
A.dim a[3,4] as integer
B.dim a(3,4) as integer
C.dim a(n,n) as integer
D.dim a(3 4) as integer
330.要分配存放如下矩阵的数据，__________数组声明语句能实现（不能浪费空间）。
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
331.如下数组声明语句，则数组a包含元素的个数有__________。
dim a(3, -2 to 2,5)
A.120
B.75
C.60
D.13
332.下列语句中（假定变量n有值），能正确声明动态数组的是__________。
A.dim a( ) as integer
redim a(n)
B.dim a( ) as integer
redim a(n)as string
C.dim a( ) as integer
redim a(3,4)
redim preserve a(4,4)
D.dim a(10) as integer
redim a(n+10)
333.设有数组定义语句：Dim a(5) As Integer，Listl为列表框控件。下列给数组元素赋值的语句
错误的是__________。
A.a(3)=3
B.a(3)=inputbox("inputdata")
C.a(3)=Listl.Listindex
D.a=Array(1,2,3,4,5,6)
334.下面的数组声明语句中__________是正确的。
A.Dim A[3,4] As Integer
B.Dim A(3,4) As Integer
C.Dim A[3;4] As Integer
D.Dim A[3;4] As Integer
335.要存放如下方阵的数据，在不浪费存储空间的基础上，能实现声明的语句是__________。
1 2 3
2 4 6
3 6 9
A.Dim A(9) As Integer
B.Dim A(3,3) As Integer
C.Dim A(-1 To 1,-3 To -1) As Single
D.Dim A(-3 To -1，1 To 3) As Integer
336.下列程序段错误的是__________。
A.Dim a As Integer
a=array(1,2,3,4)
B.Dim a(),b()
a=array(1,2,3,4)
C.Dim a As Variant
a=array(1,"asd",true)
D.Dim a(5,1 to 4)
337.以下属于Visual Basic合法的数组元素是
__________。
A.x8
B.x[8]
C.s(0)
D.v[8]
338.定义10个单精度实型一维数组正确的语句
是__________。
A.Dim a(9) as Single
B.Option Base 1：Dim a(9)
C.Dim #(9)
D.Dim a(10) As Integer
339.用如下语句所定义的数组的元素个数是
__________个。
Dim b(-2 to 4) as string
A.2
B.4
C.6
D.7
340.设有数组声明语句：
Option Base 1
Dim A(2，-1 To 1)
以上语句所定义的数组A为__________维
数组，共有__________个元素，第一维下标从
__________到__________，第二维下标从
__________到__________.下列选项正确的是
__________。
A.1，2，6，2，-1，1
B.6，2，1，2，-1，1
C.2，6，1，2，-1，1
D.2，1，6，-1，1，2
341.下列定义为abc的过程定义语句中正确的
是__________。
A.Dim Sub abc(x,y)
B.public abc(x,y)
C.Private Sub abc(x,y) As Integer
D.Sub abc(x,Y)
342.下面的数组声明语句中正确的是
__________。
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
343.下面的数组声明语句中正确的是
__________。
A.Dim A[3,4] As Integer
B.Dim A(3,4) As Integer
C.Dim a[3;4] As Integer
D.Dim A(3;4) as Integer
344.以Dim x(6，2 to 5)来声明一个二维数组，
错误的选项是__________ 。
A.Lbound(x,2)的返回值是1
B.Ubound(x,2)的返回值是5
C.Ubound(x,1)的返回值是6
D.Lbound(x,1)的返回值是0
345.设执行以下程序段时依次输入1、3、5，执
行结果为__________
Dim a(4) As Integer
Dim b(4) As Integer
For k = 0 To 2
a(k + 1) = Val(InputBox("请输入数据："))
b(3 - k) = a(k + 1)
Next k
Print b(k)
A.1
B.3
C.5
D.0
346.下列程序运行时输出的结果是
__________。
Option Base 1
Private Sub Form_Click()
Const a=6
Dim x(a) As Integer
For I=1 to a
x(i)=I*2
Next I
Print X(i)
End Sub
A.36
B.25
C.1
D.出错信息
347.下列程序的输出结果是__________。
Dim a
a=Array(1,2,3,4,5,6,7,8)
i=0
For K=100 To 90 Step -2
s=a(i)^2
If a(i)>3 Then Exit For
i=i+1
Next k
Print k;a(i);s
A.88 6 36
B.88 1 2
C.90 2 4
D.94 4 16
348.在窗体上添加一个命令按钮，然后编写如
下的程序
private sub command1_click( )
dim x%(1 to 10)
for k =1 to 5
x(k)=10-k
next k
print x(x(k-3)-3)
end sub
单击命令按钮，则结果是__________。
A.5
B.6
C.7
D.9
349.在窗体上添加一命令按钮，其名为
Command1，然后编写代码如下：
Private Sub Command1_Click()
Dim arr(5) As Integer
Dim arrl(5) As Integer
n=3
For i=1 To 5
arr(i)=I
arrl(n)=2*n+I
Next i
Print arrl(n);arr(n)
End Sub
程序的运行结果为__________
A.11 3
B.3 11
C.13 3
D.3 13
350.下列程序的输出结果为__________
Private Sub Command1_Click()
Dim a(20)
For i=1 To 20 Step 2
a(i)=i
Next i
15
Print a(1)+a(2)+a(3)
End sub
A.4
B.5
C.6
D.7
351.19．在窗体上添加一个命令按钮,名为Command1,其事件过程如下。程序运行后,其输出的
结果为__________。
Private Sub_Command1_Click()
Dim a
a=array(1,2,3,4,5)
For k=1 To 4
s=s+a(k)
Next k
Print s
End Sub
A.10
B.14
C.15
D.120
352.下列程序段的执行结果为__________ 。Dim m(10),n(10)
I=3
For t=1 to 5
M(t)=t
N(I)=2*I+t
Next t
Print n(I);m(I)
A.3 11
B.3 15
C.11 3
D.15 3
353.语句Dim abc(-2 To 4,0 To 4,5)As Long定义的三维数组，其数组元素有__________ 。
A.96个
B.112个
C.140个
D.210个
354.执行以下Command1的Click事件过程，在窗体上显示__________。
Option Base 0
Private Sub Command1_Click()
Dim a
a=Array("a","b","c","d","e","f","g")
Print a(1);a(3);a(5)
End Sub
A.abc
B.bdf
C.ace
D.出错
355.下列关于ReDim的说法中错误的是
__________.
A.可以用Redim语句直接定义数组。
B.Redim语句只能改变元素的个数，但不能改
变数组的维数。
C.Redim语句可以改变数组类型。
D.在一个程序中，可以多次用Redim 语句定义
同一个数组。
356.使用ReDim Preserve可以改变数组
__________
A.最后一维的大小
B.第一维的大小
C.所有维的大小
D.改变维数和所有维的大小
357.引用列表框(Listl)最后一个数据项应使用
__________。
A.Listl.List(Listl.ListCount)
B.List.List(List.ListCount-1)
C.Listl.List(ListCount)
D.Listl.List(ListCount-1)
358.为了在列表框中使用Ctrl和Shift键进行多
个列表项的选择，应将列表框的Multiselect属
性设置为__________。
A.0
B.1
C.2
D.3
359.窗体上有一个按钮和一个列表框(Sorted属
性为True)，执行下列过程后的输出结果
__________
Private Sub Command1_Click()
List1.AddItem "China"
List1.AddItem "Great"
List1.AddItem "Is", 1
List1.AddItem "!", 3
Print List1.List(2)
End Sub
A.Great
B.China
C.Is
D.！
360.组合框控件是将__________组合成一个控
件。
A.列表框控件和文本框控件
B.标签控件和列表框控件
C.标签控件和文本框控件
D.复选框控件和选项按钮控件
361.在列表框中当前被选中的列表项的序号是
由下列__________属性表示的。
A.List
B.Index
C.Listlndex
D.False
362.只有将组合框的Style属性设置为
__________值时，才能触发DblClick事件。
A.0
B.1
C.2
D.3
363.窗体上有一个列表框和一个文本框，编写
如下两个事件过程：
Private Sub Form_Load()
List1.Additem＂Beijing＂
List1.Additem ＂Tianjin＂
List1.Additem＂Shanghai＂
Text1.Text= ＂＂
End Sub
Private Sub List1_DblClick()
x=List1.Text
Print X+Text1.Text
End Sub
程序运行后，在文本框中输入"China",然后
双击列表框中的"Shanghai",则输出结
果为__________。
A.ChinaBeijing
B.ChinaTianjin
C.ChinaShanghai
D.ShanghaiChina
364.给程序的空白行选择适当的语句。程序段
的功能是：依次自动将列表框List2中所有列
表项目移入列表框List1中，并将移入List1中
的项目从List2中删除。
Do While List2.ListCount
__________
List2.RemoveItem 0
Loop
A.List1.AddItem List2.List(0)
B.List1.AddItem List2.Text
C.List2.AddItem List1.List(0)
D.List2.AddItem List1.Text
365.在Visual Basic中，组合框是文本框和
__________特性的组合。
A.复选框
B.标签
C.列表框
D.目录列表框
366.在窗体上画一个列表框和一个文本框，然
后编写如下两个事件过程；
Private Sub Form_Load()
List1.AddITem＂357＂
List1.AddITem＂246＂
List1.AddITem＂123＂
List1.AddITem＂456＂
Text1.Text=＂＂
End Sub
Private Sub List1.DblClickO
M=List1.Text
Print M+Text1.Text
End Sub
程序运行后,在文本框中输入"123",然后双击列
表框中的"456",则输出结果为__________。
A.1245
B.456123
C.123456
D.0
367.引用列表框(List1)最后一个数据项应使用
的表达式是__________。
A.List1.List(List1.ListCount)
B.List1.List(List1.ListCount-1)
C.List1.List(ListCount)
D.List1.List(ListCount-1)
368.为组合框Combol增加一个数据项"计算机
"，下列命令正确的是__________
https://www.wendangku.net/doc/cc5044966.html,bol.Text="计算机"
https://www.wendangku.net/doc/cc5044966.html,bol.ListIndex="计算机"
https://www.wendangku.net/doc/cc5044966.html,bol.Addltem "计算机"
https://www.wendangku.net/doc/cc5044966.html,bol.ListCount="计算机"
369.执行了下面的程序后，组合框中数据项的
值是__________。
Private Sub Form_Click()
For i=1 To 6
Combo1.AddItem i
Next i
For i=1 To 3
Combo1.RemoveItem i
Next i
End Sub
A.1 5 6
B.2 4 6
C.4 5 6
D.1 3 5
370.要清除列表框中所有的列表项时，应使用
__________ 方法。
A.Remove
16
B.Clear
C.Removeltem
D.Move
371.在列表框中当前被选中的列表项的序号是由下列哪个属性表示__________
A.List
B.Index
C.Listindex
D.Tablndex
372.以下程序的输出结果是__________. option Base 1
private sub command1_click( )
dim a,b(3,3)
a=Array(1,2,3,4,5,6,7,8,9)
for i = 1 to 3
for j = 1 to 3
b(i,j)=a(i*j)
if (j>=i) then print tab(j*3); format(b(i,j),"###");
next j
next i
End Sub
A.1 2 3
4 5 6
7 8 9
B.1
4 5
7 8 9
C.1 4 7
2 4 6
3 6 9
D.1 2 3
4 6
9
373.在窗体上画一个名称为command1的命令按钮，然后编写如下程序
option Base1
private sub command1_click( )
dim c%,d%
d=0:c=6
x=Array(2,4,6,8,10,12)
for i = 1 to 6
if x(i)>c then
d=d+x(i)
c=x(i)
else
d=d-c
end if
next i
print d end sub
程序运行后，如果单击命令按钮，则在窗体上
输入的内容是__________.
A.10
B.16
C.12
D.20
374.编写如下的程序则结果是__________。
Option base 1
private sub form_click( )
dim a as variant
a=Array(1,2,3,4)
j=1
for i=4 to 1 step-1
s=s+a(i)*j
j=j*10
next i
print s
end sub
A.4321
B.1234
C.34
D.12
375.以下程序的输出结果是__________。
dim a
a=array(1,2,3,4,5,6,7)
for i=Lbound(a) to Ubound(a)
a(i)=a(i)*a(i)
next i
print a(i)
A.49
B.0
C.不确定
D.程序出错
376.下列语句都是在Form中定义的，
__________是错的。
A.Public Const A1=2u
B.Private Const A2=8
C.Public a3 As Integer
D.Private a4 As Integer
377.阅读下列程序：
Function H(j As Integer)
a=0
Static b
a=a+1
b=b+1
H=a*b+j
End Function
Private Sub Command1_Click()
Dim i As Integer, k As Integer
k = 2
For i = 1 To 3
Print H(k);
Next i
End Sub
程序运行后，单击命令按钮输出结果是
__________。
A.2 3 4
B.3 4 5
C.5 6 7
D.3 5 6
378.有如下函数过程：
Function gys(ByVal X As Integer, ByVal Y As
Integer) As Integer
Do While Y <> 0
reminder = X Mod Y
X = Y
Y = reminder
Loop
gys = X
End Function
以下调用函数的事件过程，该程序的运行
结果是__________。
Private Sub Command7_Click()
Dim a As Integer
Dim b As Integer
a = 100
b = 25
X = gys(a, b)
Print X
End Sub
A.25
B.0
C.50
D.100
379.有如下函数过程：
Function lj(x As Integer) As Long
Dim S As Long
Dim I As Integer
S = 0
For I = l To x
S = S + I
Next I
lj = S
End Function
在窗体上添加一个命令按钮，名为
Commandl，编写事件过程调用该函数，输出结
果为
__________。
Private Sub Command1_Click()
Dim I As Integer
Dim sun As Long
For I = l To 5
Sum = Sum + lj(I)
Next I
Print Sum
End Sub
A.35
B.25
C.45
D.55
380.单击命令按钮时，下列程序的执行结果是
__________。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, C As Integer
a = 3
b = 4
C = 5
Print SecProc(C, b, a)
End Sub
Function FirProc(x As Integer, Y As Integer, z As
Integer)
FirProc = 2 * x + Y + 3 * z
End Function
Function SecProc(x As Integer, Y As Integer, z As
Integer)
SecProc = FirProc(z, x, Y) + x
End Function
A.20
B.22
C.28
D.30
381.已知数组a(1 To 10)As Intege,下面调用
GetValue函数正确的是__________。
Private Function GetValue(a() As Integer)As
Integer
For i=l To 10
GetValue=GetValue+a(i)
Next i
End Function
A.S=GetValue(a(1 TO 10))
B.S=GetValue(a)
C.S=GetValue(a(10))
D.S=GetValue a
382.在窗体上画一个名称为Command1的命令
按钮，编写如下程序
Private Sub Command1_Click()
Print pl(3, 7)
End Sub
Public Function pl(x As Single, n As Integer) As
Single
17
If n = 0 Then
pl = 1
ElseIf n Mod 2 = 1 Then
pl = x * x + n
Else
pl = x * x - n
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的结果是__________。
A.2
B.1
C.0
D.16
383.下面程序的运行结果为__________。
Private Sub Command1_Click()
Dim a As Integer
a = 2
For i = 1 To 3
Print F(a)
Next i
End Sub
Private Function F(a As Integer)
b = 0
Static C
b = b + 1
C = C + 1
F = a + b + C
End Function
A.4 4 4
B.4 5 6
C.4 6 8
D.4 7 9
384.在窗体上画一个命令按钮，然后编写如下程序程序运行后，单击命令按钮，输出结果为__________
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 1
b = 2
Print N(a, b)
End Sub
Function N(x As Integer, Y As Integer) As Integer N = IIf(x > Y, x, Y)
End Function
A.1
B.2
C.5
D.8
385.阅读程序：
Function F(a As Integer)
b=0
Static C
b=b+1
c=c+2
F=a+b+c
End Function
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print F(a)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果
为__________。
A.4 5 6
B.5 7 9
C.4 6 8
D.4 7 9
386.有如下一个函数过程：
Function f(a As Integer)
b=0
Static C
b=b+1
c=c+1
f=a+b+c
End Function
在窗体添加一个命令按钮，事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print f(a);
Next i
End Sub
运行该程度，单击命令按钮，
A.4 4 4
B.4 5 6
C.6 7 8
D.4 7 9
387.3. 要想从子过程调用后返回两个结
果，下面子过程语句说明合法的是__________。
A.Sub f2(ByVal n%,ByVal m%)
B.Sub f1( n%,ByVal m%)
C.Sub f1(n%,m%)
D.Sub f1(ByVal n%,m%)
388.窗体上有Text1、Text2两个文本框及一个
命令按钮Command1，编写下列程序：
Dim y As Integer
Private Sub Command1_Click()
Dim x As Integer
x = 2
Text1.Text = p2(p1(x), y)
Text2.Text = p1(x)
End Sub
Private Function p1(x As Integer) As Integer
x = x + y: y = x + y
p1 = x + y
End Function
Private Function p2(x As Integer, y As
Integer) As Integer
p2 = 2 * x + y
End Function
当单击命令按钮后，文本框Text1和Text2内的
值分别是__________
A.2 4
B.4 8
C.10 10
D.4 4
389.单击按钮时，以下程序运行后的输出结果
是__________。
Private Sub procl(x As Integer, y As Integer, z
As Integer)
x = 3 * z
y = 2 * z
z = x + y
End Sub
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As
Integer
x = 1: y = 2: z = 3
Call procl(x, x, z)
Print x; x; z
Call procl(x, y, y)
Print x; y; y
End Sub
A.6 6 12
6 10 10
B.6 10 10
5 10 10
C.9 6 12
9 10 10
D.9 10 15
5 4 10
390.单击命令按钮时，下列程序段的执行结果
为__________。
Public Sub Procl(n As Integer, ByVal m As
Integer)
n = n Mod 10
m = m \ 10
End Sub
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 12
y = 34
Call Procl(x, y)
Print x; y
End Sub
A.12 34
B.2 34
C.2 3
D.12 3
391.单击命令按钮时，下列程序的执行结果为
__________。
Private Sub Command1_Click()
Dim x As Integer, Y As Integer
x = 12: Y = 32
Call PCS(x, Y)
Print x; Y
End Sub
Public Sub PCS(ByVal n As Integer, ByVal m As
Integer)
n = n Mod 10
m = m Mod 10
End Sub
A.12 32
B.232
C.23
D.123
392.单击命令按钮时，下列程序的执行结果为
__________。
Private Sub Command1_Click()
Dim x As Integer, Y As Integer
x = 50
Y = 78
Call PPP(x, Y)
Print x; Y
End Sub
Public Sub PPP(ByVal n As Integer, ByVal
m As Integer)
n = n \ 10
m = m \ 10
End Sub
A.08
B.50 78
C.450
D.78 50
393.下面程序运行后输出结果是__________。
Dim b
Private Sub Form_Click()
a = 1:
b = 1
Print "A="; a, "B="; b
18
Call mult(a)
Print "A="; a, "B="; b
End Sub
Private Sub mult(x)
x = 2 * x
b = 3 * b
End Sub
A.A=1，B=1
A=1，B=l
B.A=1，B=l
A=2，B=3
C.A=1，B=1
A=1，B=3
D.A=1，B=1
A=2，B=l
394.下面程序的运行结果是__________。Private Sub Command1_Click()
a = 1.5
b = 1.5
Call fun(a, b)
Print a, b
End Sub
Private Sub fun(x, ByVal Y)
x = Y * Y
Y = Y + x
End Sub
A.2.25 1.5
B.1.5 2.25
C.1.5 0.75
D.0.75 1.5
395.单击命令按钮时，下列程序的执行结果为__________。
Private Sub Command1_click()
Dim X As Integer,Y As Integer
x=12:y=32
Call Proc(x,Y)
Print x;Y
End Sub
Public Sub Proc(n As Integer,ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End sub
A.12 32
B.2 3
C.2 32
D.12 3
396.下面程序运行后，单击按钮Command1，输出结果是__________。
Public Sub S(x As Single,Y As Single)
t=x：x=t/y：y=t Mod Y
End Sub
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5：b=4
S a,b
print a,b
End Sub
A.5 4
B.1 1
C.1.25 4
D.1.25 1
397.编写如下事件过程：
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 10:
b = 20
Call pl(a, b)
Print "a="; a; "b="; b
End Sub
Private Sub pl(ByVal x As Integer, y As Integer)
x = 5
y = x + y
End Sub
程序运行时，单击窗体后，窗体上显示的值是
__________。
A.a=10 b=20
B.a=10 b=25
C.a=5 b=25
D.a=5 b=20
398.5. 下面过程运行后显示的结果是
__________。
Public Sub F1(n%,ByVal m%)
n=n Mod 10
m=m\10
End Sub
Private sub command1_click()
Dim x%,y%
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
399.6. 如下程序，运行的结果是
__________.
Public Sub p1(x%, y%)
Dim c%
x = 2 * x: y = y + 2: c = x + y
End Sub
Public Sub p2(x%, ByVal y%)
Dim c%
x = 2 * x: y = y + 2: c = x + y
End Sub
Private Sub Command1_Click()
Dim a%, b%
a = 2:
b = 4:
c = 6
Call p1(a, b)
Print "a="; a; "b="; b; "c="; c
Call p2(a, b)
Print "a="; a; "b="; b; "c="; c
End Sub
A.a=2 b=4 c=6
a=4 b=6 c=10
B.a=4 b=6 c=10
a=8 b=8 c=16
C.a=4 b=6 c=6
a=8 b=6 c=6
D.a=4 b=6 c=14
a=8 b=8 c=6
400.7. 如下程序的运行结果是
__________。
Public Sub Proc(a%())
Static I%
Do
a(i)=a(i)+a(i+1)
i=i+1
Loop While i<2
End Sub
Private Sub Command1_Click()
Dim m%,i%,x%(10)
For i=0 to 4:x(i)=I+1:Next i
For i=1 to 2:Call Proc(x):Next i
For i=0 to 4:Print x(i);:Next i
End Sub
A.3 4 7 5 6
B.3 5 7 4 5
C.2 3 4 4 5
D.4 5 6 7 8
401.设有如下过程：
Sub ff(x，y，z，)
x=y+z
EndSub
以下所有参数的虚实结合都是传址方式的调
用语句是__________。
A.Call ff(5，7，z)
B.Call ff(x，y，z)
C.Call ff(3+x，5+y，z)
D.Call ff(x+y，x-y，z)
402.下列关于过程叙述不正确的是
__________。
A.过程的传值调用是将实参的具体值传递给形
参
B.过程的传址调用是将实参在内存的地址传递
给形参
C.过程的传值调用参数是单向传递的，过程的
传址调用参数是双向传递的
D.无论过程传值调用还是过程传址调用，参数
传递都是双向的
403.在窗体模块的通用声明段中声明变量时，
不能使用__________关键字。
A.Dim
B.Public
C.Private
D.Static
404.根据变量的作用域，可以将变量分为3类，
分别为__________。
A.局部变量、模块变量和全局变量
B.局部变量、模块变量和标准变量
C.局部变量、模块变量和窗体变量
D.局部变量、标准变量和全局变量
405.4. 在过程中定义的变量，若希望在离
开该过程后，还能保存过程中局部变量的值，
则应使用__________关键字在过程中定义局部
变量。
A.Dim
B.Private
C.Public
D.Static
406.下列程序运行时，两次单击窗体后，显示
的结果是__________。
Private Sub Form_Click()
Dim b As Integer
Static C As Integer
b=b+2
c=c+2
Print”b=”;b;”c=”;c
End Sub
A.b=2 c=2
b=2 c=2
B.b=2 c=2
b=2 c=2
C.b=2 c=2
b=2 c=4
D.b=2 c=2
b=4 c=2
19
407.单击一次命令按钮后，下列程序的执行结果是__________。
Private Sub Command1_Click()
s=P(1)+P(2)+P(3)+P(4)
Print s
End Sub
Public Function P(N As Integer)
Static Sum
For i=I To N
Sum=Sum+i
Next i
P=Sum
End Function
A.15
B.25
C.35
D.45
408.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X,Y
End Sub
程序运行时，3次单击命令按钮Commandl 后，窗体上显示的结果为__________。
A.15 16
B.15 6
C.15 15
D.5 6
409.在窗体上画一个名称为Command1的命令按钮，编写下列程序：
Private Sub Command1_Click()
Dim a As Integer
Static b As Integer
a=a+b
b=b+4
Print a,b
End Sub
程序运行后，单击该命令按钮三次，屏幕上显示的值是__________。
A.4 12
B.0 4
C.4 8
D.8 12
410.定义过程的格式中，Static关键字的作用是指定过程中的局部变量在内存中的存储方式。
若使用了Static关键字，则__________。
A.每次调用此过程，该过程中的局部变量都会
被重新初始化
B.在本过程中使用到的，在其他过程中定义的
变量也为Static型
C.每次调用此过程时，该过程中的局部变量的
值保持在上一次调用后的值
D.定义了该过程中定义的局部变量为“自动”
变量
411.在窗体上画一个名称为Command1的命令
按钮然后编写如下程序：
Private Sub Command1_Click()
Dim X As Integer
Static Y As Integer
Cls
x=x+5
y=y+3
Print X，Y
End Sub
程序运行时，两次单击命令按钮Command1
后，窗体显示的结果是__________。
A.10 6
B.5 6
C.5 3
D.10 3
412.如果在程序中要将c定义为静态变量，且
为整型数，则应使用的语句是__________。
A.Redim a As Integer
B.Static a As Integer
C.Public a As Integer
D.Dim a As Integer
413.复选框的Value属性为1时，表示
__________。
A.复选框未被选中
B.复选框被选中
C.复选框内有灰色的勾
D.复选框操作有误
414.以下关于复选框的说法，正确的是
__________。
A.复选框的Enabled属性用于决定该复选框是
否被选中
B.复选框的Value属性用于决定该复选框是否
被选中
C.复选框的Checked属性用于决定该复选框是
否被选中
D.复选框的Visible属性用于决定该复选框是
否被选中
415.确定复选框是否选中，可访问的属性是
__________。
A.Value
B.Checked
C.Selected
D.Caption
416.在窗体上画一个名称为Check1的复选框，
在程序运行过程中，若选中复选框，则
Check1.Value的值是__________。
A.True
B.2
C.0
D.1
417.通常情况下，垂直滚动条的值是
__________。
A.由下往上递增
B.由上往下递增
C.由左到右递增
D.由右到左递增
418.能触发滚动条Scorll事件的操作是
__________。
A.拖动滚动条中滑块
B.单击滚动条中滑块
C.单击滚动条两端箭头
D.单击箭头与滑块之间的滚动条
419.要使文本框只具有垂直滚动条则就
__________。
A.将其Multiline设置为True，同时将Scrollbars
属性设置为0
B.将其Multiline设置为True，同时将Scrollbars
属性设置为1
C.将其Multiline设置为True，同时将Scrollbars
属性设置为2
D.将其Multiline设置为True，同时将Scrollbars
属性设置为3
420.单击滚动条的滚动箭头时，产生的事件是
__________。
A.Click
B.Scroll
C.Change
D.Move
421.不能触发滚动条Change事件的操作是
__________
A.拖动滚动块
B.单击两端箭头
C.单击滚动块
D.单击箭头与滚动块之间的滚动条
422.当滚动条位于最左端或最上端时，Value属
性被设置为__________。
A.Min
B.Max
C.Max和Min之间
D.Max和Min之外
423.在程序运行期间，当滚运条的滑块被拖动
时，则立即触发的滚动条事件是
__________ 。
A.Click
B.Chang
C.Scroll
D.DblClick
424.若要获得滚动条的当前值，可访问的属性
是__________
A.Text
B.Value
C.Max
D.Min
425.当窗体启动时可通过__________属性控制
窗体位于所有者的中心位置。
A.MDIChild
B.LinkMode
C.WindowState
D.StartUpPosition
426.窗体上有一个图片控件和一个按钮控件，
下列程序执行的结果是__________
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("c：＼1．jpg")
Picture1.Cls
Picture1.Print "Test"
End Sub
A.窗体无显示，图片框显示图片和文字Test
B.窗体上出现Test文本，图片框无显示
C.窗体上出现Test文本，图片框显示图片1．jpg
D.窗体无显示，图片框只显示Test文字
427.关于Image控件和PictureBox控件的说明，
其中错误的是__________。
A.Image控件和PictureBox控件都支持Print方
法
B.Image控件和PictureBox控件都有Picture属
性
C.Image控件和PictureBox控件都可以用
LoadPicture函数把图形文件装入控件中
D.Image控件和PictureBox控件都能在属性窗
口装入图形文件，也都能在运行期间装入
图形文件
20
VB期末考试试题及答案
二、选择题 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、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
九江学院VB期末考试题目及详细答案
九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic?序开发的特点是面向对象的事件驱动。（J 2、Print_Text 是一个不合法的变量名。（为 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（翌 4、设置字体大小应使用Font属性（为 5、Sub过程可以实现嵌套调用（寸 6、IIF函数中的三个参数都不能省略。（寸 7、块结构条件语句以End If结束，而单行结构条件语句没有End旧（明 8、当终值小于初值时，步长为负数。（5 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（寸 10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用（/） 二、单项选择题 1. Print Format （123, ” ###说执行之后的结果为 A）# 123B） 123C） 123# D） # # # # 【答案】B 2. 下面可以表示注释语句开头的为 A）R e B R C Rem。dim 【答案】C 3. 下列选项中窗体载入事件为 A) Load 事件B) Click事件C) DblClick事件D) Unload 事件
【答案】A 4. Timer控件可以使用下列哪种事件 A) Click事件B) Timer 事件C) Dblclick 事件D) Change事件 【答案】B 5. 在InputBox函数中哪一个参数是必须的 A) Prompt B) Buttons C) Title D) Context 【答案】A 6. 以下叙述中错误的是： A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B) Sub过程中不能嵌套定义Sub过程 C) Sub过程可以嵌套调用Sub过程 D) 事件过程可以像通用过程一样由用户定义过程名 【答案】C 乙要填加一个标准模块，可使用“ 单中的添加模块”命令。 A)文件B)视图C)工程D)工具 【答案】C 8 .在块结构条件语句If-Then / Endif中 (A) 必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误
vb期末考试试题
第1题（1.0分）题号:227 表达式1 and 0的值【1】.答案：1). False 第2题（1.0分）题号:222 把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案：1). False 第3题（1.0分）题号:60 a 和b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】. 答案：1). a=1 xor b=1 第5题（1.0分）题号:244 设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】. 答案：1). (x mod 10) * 10 + int(x/10) 第7题（1.0分）题号:226 表达式32\7 MOD 3^2 的值是【1】. 答案：1). 4 第8题（1.0分）题号:288 文件按照存取方式及其组成结构可以分为顺序文件和【1】. 答案1). 随机文件或随机 第9题（1.0分）题号:319 Option Base 1的作用是确定数组的下界为【1】. 答案：1). 1 第1题（1.0分）题号:236 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 答案：N 第2题（1.0分）题号:246 ActiveX控件是扩展名为*.ocx的独立文件,使用时需用 "工程"/"部件"载入或移去. 答案：Y 第3题（1.0分）题号:289 框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案：Y 第4题（1.0分）题号:350 在窗体模块的声明部分中用Private声明的变量的有效范围是其 所在的工程. 答案：N 第5题（1.0分）题号:354 在框架控件上放置的控件可以移动到框架控件的外面. 答案：N 第6题（1.0分）题号:231 可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y 第8题（1.0分）题号:247 Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关.答案：Y 第9题（1.0分）题号:330 有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y 第10题（1.0分）题号:225 Visual Basic程序的运行可以从Main()过程启动,也可以从某 个窗体启动. 答案：Y 第1题（1.0分）题号:319 能够改变窗体边框线类型的属性是(). A:FontStyleB:BorderStyleC:BackStyleD:Bord er 答案：B 第2题（1.0分）题号:822 以下()对象不具有Clear方法. A:列表框B:组合框C:剪贴板D:图片框 答案：D 第3题（1.0分）题号:258 常量-0.00013579的科学计数法是(). A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4 答案：C 第4题（1.0分）题号:230 vb 应用程序是分层管理的,其最高的层次为(). A:工程B:模块C:窗体D:过程 答案：A 第5题（1.0分）题号:837 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:CheckedC:VisibleD:Enabled答案：C 第6题（1.0分）题号:334 若要使标签控件显示时,不覆盖其背景内容,
VB期末考试试题
第一部分：客观题 1、 单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ ） A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（ ）方法来实现。 Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（ ） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是 （ ） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（ ） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（ ） Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（ ） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是 （ ） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0
VB期末考试试题及答案 (1)
第一部分：客观题 一、单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） A、工程资源管理器窗口 B、工具箱窗口 C、属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（）方法来实现。 Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、Value 4、下列不可作为VB变量名的是（） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是（） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（）。
n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、DblClick 9、下列为整型变量的是（） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =1 12、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。 Dim a(3, -2 To 1, 5) As Integer A、60 B、75 C、120 D、13
VB期末考试模拟题1讲解
【HNCE网上考试系统 v9.6】本套软件使用权属于：郑州大学 考试课程: 考试时间:100分钟考场:第一考场考试日期:2013.05.24 考号：姓名：剩余时间：99:42 保存交卷退出帮助 A B C D A B C D A B C D A B C D A B C D A B C D
A B C D A 命令 B 命令 C 命令 D 命令 A B C D A B C D A B C D A B C D A B
C D A B C D A B C D A 模块文件 B 件的属性 C 源文件 D 包含多个工程文件及属于该工程的其他文件 A 该窗体文件并没有被删除 B 窗体文件被删除 C 程仍然包含这个窗体 D A B C D A B C D
A B C D A B C D A可以实现交换两个变量值，而S2不能 B 个变量值，而S1不能 C 现交换两个变量值 D 现交换两个变量值 A B C D A B C D A 过程调用后均不保存值 B 有变量都是Static型的变量 C 所有变量都是Private型的变量 D 所有变量都是非全局Public A 用Dim语句或Static语句声明的变量 B 明它的过程
C Static语句声明的 D 程执行完毕后就被释放了 A B C D A B C D A B C D A B C D 声明段 A B C D A B C D A B
C D A B C D A B C D A B C D A 同 B Sub过程不可以 C 值，而Function过程能通过过程名返回值 D 或直接使用过程名调用，而 A工程中可以有多个窗体，但最多只能有一个窗体作为启动窗体 B 声明Public类型的变量来传递数据 C 大化、最小化或正常（保持设计时大小）等三种状态 D A 菜单 B 过程代码都放在窗体文件中 C 名必须相同 D 是设计阶段时显示的位置
初三_vb期末考试试卷+答案
九年级期末VB 考试试卷 班级：学号：姓名： 123456789101112131415 一、选择题（每题两分，共十五题） 1.下列叙述中正确的是 (c) A. 只有窗体才是VB中的对象 B.只有控件才是VB中的对象 C. 窗体和控件都是VB中的对象 D.窗体和控件不是VB中的对象 2. 下列可以激活属性窗口的操作是(D) A. 用鼠标双击窗体的任何部位 B.执行“工程”菜单中的“工具箱”命令 C. 按 Ctrl+F4 键 D.按F4键 3. 下列不能打开工具箱窗口的操作是(B) A. 执行“视图”菜单中的“工具箱”命令 B.按 Alt+F8键 C. 单击工具栏上的“工具箱”按钮 D.按 Alt+V键，然后按 Alt+X键 4.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先 应执行的操作是 (A) A. 单击窗体上没有控件的地方 B.单击任一个控件 C. 不执行任何操作 D.双击窗体的标题栏 5. 为了把窗体上的某个控件变为活动的，应执行的操作是(C) A. 单击窗体的边框 B.单击该控件的内部 C. 双击该控件 D.双击窗体 6. 确定一个控件在窗体上的位置的属性是(D) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 7. 确定一个窗体或控件的大小的属性是(B) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 8. 为了同时改变一个活动控件的高度和宽度，正确的操作是( B) A. 拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块 C. 只能拖拉位于控件左下角的小方块 D.不能同时改变控件的高度和宽度
大一VB期末考试试卷及答案
大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10)
VB期末试卷(A卷带答案 )
高级语言程序设计（VB）试卷（A卷） 注意事项：1、本试卷共页，满分为100 分，考试时间为110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔， 不得使用红颜色墨水笔。 一、单项选择题（每空1分，共30分） （请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为【1】。 A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件 2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是【2】。 A) 代码窗口B) 窗体设计窗口 C) 属性窗口D) 工程资源管理器窗口 3．设有变量定义语句Dim a%，则变量a的数据类型是【3】。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。 A) "AB"<"abc" B) "ABC" = UCase("abc") C) "ABCD"<"abc" D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【5】。 A) 2 B) 3 C) True D) CDEF 6．下列程序运行后，单击窗体，输出结果是【6】。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 3 b = 5 Print a + b; a & b
End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ?? ?≠≥=<=) (2) c (1 d c b a d b a x 且且 B) ?? ?≠<=<=)(2) c (1 d c b a d b a x 且且 C) ? ? ?≥=<=)(2) c (1b a d b a x 且 D) ? ? ?≠=<=)(2) c (1 d c d b a x 且 9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10．下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k Next k Print m; k; A) 2 2 B) 2 0 C) 2 1 D) 0 0
VB期末考试卷a
7. 设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000， Enabled属性被设置为True，要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（）。 A. Private Sub Timer1_Timer() Label1.Caption = True End Sub C. Private Sub Timer1_Timer() Label1.Interval = 1 End Sub B. Private Sub Timer1_Timer() Label1.Caption = Time$ End Sub D. Private Sub Timer1_Timer() Label1.Text = Time End Sub 8. 若看到程序中有以下事件过程，则可以肯定的是，当程序运行时（）。Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single, _ Y As Single) If Button = 2 Then Print “VB Program” End Sub A. 鼠标右键按下Command1对象，执行此过程 B. 鼠标右键单击Click对象，执行此过程 C. 鼠标左键单击Click对象，执行此过程 D. 鼠标左键按下MouseDown对象，执行此过程 9. 窗体上有名为Option1的单选按钮，则以下语句中与If Option1.Value = True Then不等价的 是（）。A. If Option1.Value Then B. If Option1 = True ThenC. If Value = True Then D. If Option1 Then 10. 文本框Text1的KeyDown事件过程如下： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) End Sub 其中参数KeyCode的值表示的是发生此事件时（）。A. 是否按下了Shift键 B. 按下的是哪个数字键 C. 所按的键盘键的键码（扫描码） D. 所按的键盘 键的Ascii码 11. 窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠 标右键，则弹出快捷菜单。如图所示。以下叙述中错误的是（）。A. 在 设计“粘贴”菜单项时，在菜单编辑器窗口中设置“有效”属性（有“√”） B. 菜单中的横线是在该菜单项的标题输入框中输入了一个“-”（减号） 字符C. 在设计“选中”菜单项时，在菜单编辑器窗口中设置“复选” 属性（有“√”）D. 在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√”
VB期末考试题库及答案
试卷方案：201105 Visual Basic 期末考试方案 一、单项选择_共50题（选：20题*1’=20分） 第1题 以下有关对象属性的说法中，错误的是___________. A. 工具箱中的控件并不是VB 中所有的控件 B. 若将Frame 的Enabled 属性设置为False ，则不能使用放置在Frame 里面的控件 C. 对象的Name 属性在运行时不能改变 D. 对象的所有属性都可以在属性窗口中设置 第2题 数学表达式 ||27sin 3 y x e x +++ 的VB 算术表达式为_______ . A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y) 第3题 下列有关对象的叙述中,正确的是______ A. 对象由属性，事件和方法构成 B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C. 对象的事件一定就是由VB 预先设置好的人工干预的动作 D. 对象的方法是对象响应某个事件后执行的一段程序代码 第4题 表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___. A. 1 B. -1 C. –2 D. –3 第5题 下列关于菜单的说法中,错误的是__________. A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件 B. 菜单项不可以响应DblClick 事件 C. VB6.0允许创建超过四级的子菜单 D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled 属性为False 第6题 以下关于数组的说法中,错误的是__________. A. 使用了Preserve 子句的Redim 语句，只允许改变数组最后一维的上界 B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D. Lbound 函数返回值是指定数组某一维的下界 第7题 设a=3,b=2,c=1,运行print a>b>c 的结果是____________. A. True B. False C. 1 D. 出错 第8题
VB期末复习资料
“Visual Basic编程与应用”期末复习资料 第一章Visual Basic 6.0程序设计概述 重点掌握的内容： 对象与事件驱动 对象：世界上存在的任何具体的事物都可以称之为对象。对象是具体存在的，每个对象都是唯一的，有着自己独特的个性。 类：是具有相同性质的对象的集合。 对象和类的区别在于前者是具体的，而后者则是抽象的。 属性、方法和事件：VB采用一种所谓的事件驱动的编程机制，由用户来掌握程序的运行流向。可以把属性看作一个对象的性质，把方法看作对象的动作，把事件看作对象的响应。对象的属性的设置可以通过两种方法来实现： （1）通过属性窗口直接设置； （2）在程序代码中通过赋值实现，其格式为： 对象.属性=属性值 事件过程: 事件即对象相应的动作，是Visual Basic预先定义好的对象能识别的动作，如Click、DbClick、LostFocus等等。 事件过程是指附在该对象上的程序代码，是事件的处理程序，即用来完成事件发生后所要做的动作 创建 Visual Basic 应用程序有三个主要步骤： 1．创建应用程序界面。 2．设置属性。 3．编写代码。 窗体的属性和方法 窗体属性： 重点掌握：Name，Caption，BorderStyle，MinButton，MaxButton等属性。
Print方法: 在Visual Basic 中，Print方法是用来输出信息的专用过程，Print方法应重点掌握如下： （1）语法结构 [对象].Print [表达式列表] （2）表达式列表中的分隔符： ①若用分号（；）：输出的各表达式的值中间没有空格，数值型前留有一个符号位。例如 Print “1”；“2”；“3” 输出格式为 123 ②若用逗号（，）：输出的各表达式的值将被分配在各个区段内，例如 Print “1”，“2”，“3” 输出格式为 1 2 3 ③Spc(n)函数，用于产生空格，这里n为要插入的空格数，例如Print “1”；Spc(3)；“2” 输出格式为 1 2 ④Tab(n)函数，用于将插入点定位在绝对列号上，这里n为列号。例如Print “1”；Tab(20)；“2” 输出格式为 1 2 自测与练习题 一、判断题 1、为了使一个控件在运行时不可见，应对该控件的Visable属性值设置为False。（） 2、当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate 事件。（） 3、面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。（） 4、将焦点主动设置到指定的控件或窗体上，应采用Setfocus方法。（） 5、方法是VB对象可以响应的用户操作。（）
VB期末考试复习题目
如果要将窗体中的某个命令按钮设置成运行时无法显示，应该设置它的属性。 类是对象的抽象，对象则是类的具体化。在窗体上建立的一个控件称为。 能够获得一个文本框中被选取文本的内容的属性是。 以下属于Visual Basic合法的数组元素是。 设置命令按钮的属性时，只有将属性设置为1，Picture属性才有效，否则无效。 VB有三种工作模式，它们分别是___________模式。 下列函数中，________函数返回的值是数值型的。 类是对象的抽象，对象则是类的具体化。在窗体上建立的一个控件称为。 以下控件中没有Print方法是( ) 以下叙述中错误的是 ( ) A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B）保存Visual Basic程序时，应分别保存窗体文件及工程文件 C）Visual Basic应用程序只能以解释方式执行 D）事件可以由用户引发，也可以由系统引发 下列数组声明语句中的数组a包含了_________个数组元素。( ) Dim a(4,-1 to 1,0 to 3) 复选框的Value属性为0时，表示( ) 复选框的Value属性为2时，表示( ) 主过程通过参数传递将一个参数传递给子过程A，并能够通过参数传递返回一个结果，下列子过程的正确定义 以下不属于Visual Basic系统的文件类型是。 A）.frm B）.bat C）.vbg D）.vbp 按变量名的定义规则，是合法定义的变量名。 结构化程序由三种基本结构组成，下面属于三种基本结构之一的是_______ 执行以下程序段后，变量c$的值为________。 a$="Visual Basic Programming"
大学VB期末考试试题
VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。
南京工业大学VB期末考试模拟题6
安全土木化工化学vb练习题4 满分： 111 分 姓名： ________ 1、单项选择题(本题共计60 分) (1、在过程调用中，参数的传递可以分 为 ) ________________ 和 ________________ 两种方式。 A 、按值传递 B 、按地址传递 C、按参数传递 D、按位置传递 按地址传递 按参数传递 按值传递 按参数传递 2、下面的过程定义语句中合法的是________________________。() A 、 Sub Procl (ByVal n () ) B 、Sub Procl ( n ) As Integer C、 Function Procl (Procl ) D、 Function Procl (ByVal n ) 3、在参数传递过程中，使用关键字________________ 来修饰参数，可以使之按值传递。( ) A 、 ByVal B 、ByRef C、 Value D、 Reference (4、要想在过程调用后返回两个结果，下面的过程定义语句合法的 是 ) ________________ 。 A 、 Sub Procl ( ByVal n , ByVal m) B 、Sub Procl ( n , ByVal m) C、 Sub Procl ( n , m) D、 Sub Procl ( ByVal n , m) 5、通用过程可以通过执行“工具”菜单中的____________ 命令来建立。( ) A、添加过程 B、通用过程 C、添加窗体 D、添加模块 6、可以在窗体模块的通用声明段中声明的是________________ 。( ) A、全局变量 B、全局常量 C、全局数组 D、全局用户自定义类型 7、当运行程序时，系统自动执行启动窗体的____________ 事件过程。( ) A 、 Load B、Click C、 UnLoad D、 GotFocus
VB期末考试试题及答案分析
VB期末考试试题及答案 一、填空题 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、都不对 4、以下选项中，不属于标签的属性是 C 。
VB期末考试题库及答案最新最全面(完整版)
试卷方案： 201105 Visual Basic 期末考试方案 一、单项选择 _ 共 50 题 （选： 20 题 *1 ’=20 分） 第 1 题 以下有关对象属性的说法中，错误的是 . A. 工具箱中的控件并不是 VB 中所有的控件 B. 若将 Frame 的 Enabled 属性设置为 C. 对象的 Name 属性在运行时不能改变 False ，则不能使用放置在 Frame 里面的控件 D. 对象的所有属性都可以在属性窗口中设置 第 2 题 3 x | x e 数学表达式 的 VB 算术表达式为 . sin 27 y | A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y) 第 3 题 下列有关对象的叙述中 , 正确的是 A. 对象由属性，事件和方法构成 B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C. 对象的事件一定就是由 VB 预先设置好的人工干预的动 作 D. 对象的方法是对象响应某个事件后执行的一段程序代码 第 4 题 表达式 A. 1 第 5 题 的运算结果是 CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2 . C. – 2 D. – 3 B. -1 下列关于菜单的说法中 , 错误的是 . A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件 B. 菜单项不可以响应 DblClick 事件 C. VB6.0 允许创建超过四级的子菜单 D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的 第 6 题 属性为 Enabled False 以下关于数组的说法中 A. 使用了 Preserve , 错误的是 . 子句的 Redim 语句，只允许改变数组最后一维的上界 B. 对于动态数组 , Redim 语句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D. Lbound 函数返回值是指定数组某一维的下界 第 7 题 设 运行 print a>b>c 的结果是 . a=3,b=2,c=1, D. 出错 A. True B. False C. 1 第 8 题
VB菜单设计
[教案] （十）菜单设计 授课方式：讲授法 授课学时：2学时 教学目的： 通过本次课的学习，学生应该掌握菜单编辑器的使用，掌握针对菜单命令响应事件的代码。 教学重点和难点： 1．会建立各种菜单并对菜单进行有效性控制 2．能编写代码 教学过程： 菜单设计 一、菜单设计器的使用 1．属性设置 2．编辑区域 3．显示区域 二、下拉菜单的设计 1．设计界面 2．代码编写 三、弹出式菜单的设计 1．设计界面 2．代码编写 [讲稿] （十）菜单设计 菜单的相关概念 1. 菜单的类型 –下拉菜单：常以菜单栏的形式出现在标题栏下面 –弹出菜单(快捷菜单)：独立于菜单栏而显示在窗体上的浮动菜单，其菜单项取决于按下鼠标右键时指针所处的位置。 2. VB中的菜单控件 –菜单和菜单项均看作是菜单控件
–菜单控件两个最重要的属性 名称(Name)：程序代码中用来引用菜单控件 标题(Caption)：出现在控件上的文本 –菜单控件只响应Click事件 10.1 菜单设计器的使用 打开菜单编辑器： –“工具→菜单编辑器” –工具栏“菜单编辑器”按钮 1. 常用属性 –标题：设置Caption属性 字符前加&，该字符成为访问键 只输入一个减号- ，创建分隔条 –名称：设置Name属性 注：对分隔条，也需定义名称 –索引(Index)：用于菜单控件数组 –快捷键、复选(Checked) –有效(Enabled)、可见(Visible)
2. 编辑菜单控件
10.2 下拉菜单的设计 方法：先通过菜单编辑器设计菜单，然后编写各菜单控件的Click事件过程。例：创建简易编辑器 (1) 设计菜单
在VB中添加菜单
在VB中添加菜单 在Windows应用程序中，我们可以方便地通过菜单进行操作。就像我们常用的办公软件WORD： 程序的功能菜单在VB中可以借助菜单编辑器方便地生成菜单，下面随着我一步一步地操作，为自己的应用程序添加一个菜单。 首先新建一个工程，然后将窗体标题修改为“菜单程序示例”，如图： 当然这不是必须的！ 在VB的菜单栏的“工具”菜单中选择“菜单编辑器”或直接点击快捷键CTRL+E打开。打开后的菜单编辑器是这样的： 此时还没有添加任何内容，下面我们为这个应用程序添加菜单内容，假设这个应用程序的菜单结构如下: 文件 ……新建 ……打开 ……保存 ……退出 编辑 ……剪切 ……复制 ……粘贴 帮助 ……关于前面有“……”标记的表示这是子菜单。现在我们就把这个结构用菜单编辑器来实现吧。 在打开的菜单编辑器的标题中输入“文件”，名称是供以后在程序中调用的，所以最好取个好记的与本菜单项相关的有意义的名称，我将它命名为“menu_File”，效果如图： 如果你用过WORD等程序，你会发现很多菜单上提供了一个快捷键，就是在菜单项的后面紧跟一对括号，其中指定一个字母，操作时只要用ALT键加上这个字母就可以打开这个菜单项了，如：文件(F)。这怎么实现呢？很简单，在上面的标题“文件”后输入“(&F)”就行了，试试吧。不要确定保存，我们还没有添加完呢。点击“下一个”按钮，将选择条移动到“文件”的下一行，然后用同样的方法输入“新建”菜单项，如果此时你点击保存，主窗口中将带有刚生成的菜单了，同时你也会发现“新建”菜单项和“文件”菜单项处于同一排，而不是以子菜单的形式生成在“文件”菜单项之内的，那怎么办呢？请仔细看看菜单编辑器中提供的各种功能吧（如图） 我们只要选中准备设置为子菜单的那一项（“新建”菜单项），点击上面的右箭头就行，点一次添加一级，如果点两次则是子子菜单，相应的菜单项前会用“…………”表示。用同样的方法把上面的菜单项添加到菜单编辑器中，效果如图： 在Windows应用程序中，有些菜单项被分隔条隔开，这样的效果怎么实现呢？我们在“文件”菜单中的“退出”菜单项上方添加一分隔条吧，选中“退出”菜单项，然后点击“插