对目录列表框来说，当( )属性值改变时，将引发Change事件。
A、Path
B、Drive
C、Caption
D、Text
【答案】：A
程序运行时，驱动器列表框下列（ ）属性能返回磁盘驱动器的名称。
A、Drive
B、DriveName
C、Chgdrive
D、Drives
【答案】：A
Visual Basic中设置断点的按键是F9，逐语句调试的语句是( )。
A、F1
B、F9
C、F8
D、F7
【答案】：C
某计时器控件的interval属性为0时，表示（ ）。
A、计时器关闭计时
B、Timer事件的间隔时间为0秒
C、Timer事件的间隔时间为0毫秒
D、计时器启动计时
【答案】：请联系在线客服,或加微信好友
如果在图片框上使用绘图方法绘制一个圆，则图片框的（ ）属性决定了该圆的颜色。
A、BackColor
B、ForeColor
C、FillColor
D、DrawStyle
【答案】：请联系在线客服,或加微信好友
在Visual Basic中，数组默认的下标下界是( ) 。
A、0
B、1
C、-1
D、不确定
【答案】：请联系在线客服,或加微信好友
在Visual Basic中，一般（ ）属性用来设置字体的颜色。
A、FontColor
B、ForeColor
C、BackColor
D、ShowColor
【答案】：请联系在线客服,或加微信好友
Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。过程级变量就是指在事件过程或通用过程内定义的变量，它的作用域就是( )。
A、整个工程中所有的模块和所有的过程
B、窗体内的所有过程
C、其所在的过程
D、模块内的所有过程
【答案】：请联系在线客服,或加微信好友
在Visual Basic中，参数通过 ( )两种方式传送。
A、按值传递和按空间传递
B、按值传递和按地址传递
C、按类型传递和按地址传递
D、按次序传递和按数量传递
【答案】：请联系在线客服,或加微信好友
在Windows Media Player控件中，决定播放文件是否全屏的属性是（ ）。
A、FullScreen
B、Full
C、Screen
D、stretchToFit
【答案】：请联系在线客服,或加微信好友
在设计菜单时，为了创建分隔栏，要在（ ）中输入字符（-）。
A、名称栏
B、标题栏
C、索引栏
D、显示区
【答案】：请联系在线客服,或加微信好友
Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。模块级变量包括窗体级模块变量和标准模块级变量。窗体模块变量的作用域是( )。
A、整个工程中所有的模块和所有的过程
B、窗体内的所有过程
C、其所在的过程
D、模块内的所有过程
【答案】：请联系在线客服,或加微信好友
执行语句Open “C：Stud.txt” For Input As #2后，系统（ ）。
A、将内存数据存放在C盘当前文件夹下名为Stud.txt的文件中
B、某个磁盘文件的内容写入C盘当前文件夹下名
C、打开C盘当前文件夹下名为Stud.txt的文件，用来读取文件内容
D、在C盘当前文件夹下建立名为Stud. txt的顺序文件
【答案】：请联系在线客服,或加微信好友
数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。如果省略类型说明，数组会被设置为默认的 ( ) 。
A、字符串型
B、字符型
C、变体型
D、整型
【答案】：请联系在线客服,或加微信好友
RGB函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色，为保证输入数值有效，则应设置滚动条的（ ）属性。
A、Max和Min
B、Smallchange和 LargeCh
C、Scroll和Change
D、Value
【答案】：请联系在线客服,或加微信好友
有以下3个数据表：
学生表：student_info(student_id,student_name,student_sex,student_class)，分别表示学号、姓名、性别、班级，各字段数据类型都是文本。
课程表：course_info(course_ID ,course_name ,course_credit)，分别表示课程号、课程名、学分，课程号、课程名为文本类型，学分为数字类型。
成绩表：mark_info(student_ID, course_ID,mark)，分别表示学号、课程号、成绩，其中学号、课程号为文本类型，mark为数字类型。
写出SQL语句：
修改学号为“95020”，课程号为“A001”的成绩为85。
( )
A、Update mark_info set mark=85 where student_ID =’95020′ or course_ID =’A001′
B、Update mark_info set mark=85
C、Update mark_info set mark=85 where student_ID =’95020′ and course_ID =’A001′
D、Update mark_info set mark=85 where student_ID =95020 and course_ID =A001
【答案】：请联系在线客服,或加微信好友
填空如下程序，使用ADO对象中的Connection对象连接SQL Server数据库。
Public ADOcn As Connection
Public Sub Main()
Dim strSqlServer As String
strSqlServer=”Provider=SQLOLEDB;Server=(local);User ID=sa;Password=sa; Database=XS”
If ADOcn Is Nothing Then
Set ADOcn = New Connection
（ ）
End If
End Sub
A、Set ADOcn = New Connection
B、ADOcn.Open strSqlServer
C、ADOcn.Open
D、ADOcn strSqlServer
【答案】：请联系在线客服,或加微信好友
填空如下程序，实现通信录查询功能。设“查找”按钮的名称定义为cmdFindname，查找输入名称和结果文本框的名称分别定义为txtName和txtCount，记录条数标签的名称定义为lblCount。
Type Lxr
intBh As Integer ‘编号
strXm As String * 8 ‘姓名
strDh As String * 11 ‘电话
strDz As String * 30 ‘地址
End Type
Public user As Lxr
Private Sub cmdFindname_Click()
Dim i As Integer, intCount As Integer, intRecordNum As Integer
Dim strComp1 As String, strComp2 As String
txtCount.Text = ” 编号 姓名 电话 地址 ” + vbCrLf
intCount = 0
Open “d:\txl.txt” For Random As #1 Len = Len(user)
（ )
For i = 1 To intRecordNum
Get #1, i, user
strComp1 = Trim(txtName.Text)
strComp2 = Trim(Replace(user.strXm, Chr(0), “”))
‘ 比较输入的姓名和文本中的姓名是否一致
If StrComp(strComp1, strComp2) = 0 Then
intCount = intCount + 1
Get #1, i, user
msg = Str(user.intBh) + ” ” + user.strXm + user.strDh + user.strDz
msg = Replace(msg, Chr(0), ” “)
txtCount.Text = txtCount.Text + msg + Chr(13) + Chr(10)
End If
Next i
Close #1
lblCount.Caption = “一共找到” + Str(intCount) + “条记录”
If intCount = 0 Then
MsgBox “没有该记录”, vbInformation, “提示”
End If
End Sub
A、intRecordNum =Len(user)/ LOF(1)
B、intRecordNum = LOF(1) / Len(user)
C、intRecordNum = LOF(1) / Len(1)
D、intRecordNum = LOF(user) / Len(user)
【答案】：请联系在线客服,或加微信好友
阅读以下程序，写出其功能。
Public Function Avg_mark(MarkArray() As Single) As Single
Dim sngSum As Single, i As Integer , n As Integer
sngSum = 0
n = UBound(MarkArray)
For i = 0 To n
sngSum = sngSum + MarkArray(i)
Next i
Avg_mark = sngSum / n
End Function
A、求数组元素的平均值函数。
B、求数组元素的最大值函数。
C、求数组元素的和函数。
D、求数组元素个数的函数。
【答案】：请联系在线客服,或加微信好友
在Visual Basic中，文件系统控件包括( )、目录列表框和文件列表框。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。
A、文件夹列表框
B、驱动器列表框
C、目录列表框
D、文件列表框
【答案】：请联系在线客服,或加微信好友
有变量定义语句“Dim Str1,Str2 As String *10”，其中Str1变量的类型应为 ( ) 。
A、字符串型
B、字符型
C、变体型
D、整型
【答案】：请联系在线客服,或加微信好友
ADO数据模型中一般可通过Connection对象的（ ）方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。
A、Execute
B、Updata
C、Insert
D、Open
【答案】：请联系在线客服,或加微信好友
Visual Basic程序开发有三种模式，即设计模式、运行模式和( )模式。
A、设计
B、运行
C、中断
D、调试
【答案】：请联系在线客服,或加微信好友
如果要在程序中显示一个弹出菜单，需调用（ ）方法。
A、Print
B、Move
C、Refresh
D、PopupMenu
【答案】：请联系在线客服,或加微信好友
要使标签能透出窗体的背景，应设置标签的（ ）属性。
A、BackStyle
B、BorderStyle
C、Appearance
D、BackColor
【答案】：请联系在线客服,或加微信好友
将1
Next i
Max_Mark = sngMax
End Function
A、求数组元素的平均值函数。
B、求数组元素的最大值函数。
C、求数组元素的和函数。
D、求数组元素个数的函数。
【答案】：请联系在线客服,或加微信好友
在多媒体控件（MMControl）中，DeviceType属性用于设置多媒体设备的类型，如果将要播放的文件是CD歌曲，应将DeviceType属性设置为（ ）。
A、DigitalVideo
B、WaveAudio
C、AVIVideo
D、CDAudio
【答案】：请联系在线客服,或加微信好友
使用ADO模型时，建立Recordset和Connection对象连接的属性是（ ）。
A、Connection
B、ActiveConnection
C、ConnectionString
D、ConnectionTimeout
【答案】：请联系在线客服,或加微信好友
以下语句的输出结果是（ ）。
Print Format (32548.5,“000,000.00”)
A、32548.5
B、32,548.5
C、032,548.50
D、32,548.50
【答案】：请联系在线客服,或加微信好友
数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。数组中各个元素在定义时如果是数值类型就被默认初始化为( ) 。
A、1
B、0
C、空
D、不确定
【答案】：请联系在线客服,或加微信好友
Visual Basic中的程序错误类型主要有编译错误、实时错误和( )错误三种。
A、编译
B、运行
C、实时
D、逻辑
【答案】：请联系在线客服,或加微信好友
执行Form1.Scale（0, 10）-（10, -10）语句后，Form1窗体坐标系x轴和y轴的正方向是（ ）。
A、向右和向上
B、向左和向下
C、向右和向下
D、向左和向上
【答案】：请联系在线客服,或加微信好友
为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为( )。
A、Picture1. Picture = LoadPrcture(“picturefile.jpg”)
B、Picture1. Picture = LoadPrcture(“\picturefile.jpg”)
C、Picture1. Picture = LoadPrcture(“..\picturefile.jpg”)
D、Picture1. Picture = LoadPrcture(picturefile.jpg)
【答案】：请联系在线客服,或加微信好友
有变量定义语句“Dim Str1,Str2 As String *10”，其中Str2变量的类型应为 ( ) 。
A、字符串型
B、字符型
C、变体型
D、整型
【答案】：请联系在线客服,或加微信好友
每创建一个顶级菜单，它的下面最多可以有（ ）级子菜单。
A、1
B、3
C、5
D、6
【答案】：请联系在线客服,或加微信好友
在Visual Basic语言中有三种形式的循环结构。其中，若要求先判断循环进行的条件，可使用While循环或 ( )循环。
A、For
B、Do
C、Next
D、While
【答案】：请联系在线客服,或加微信好友
将数字字符串转换为数值的函数是 ( ) 。
A、Abs(x)
B、Val(x)
C、Str(x)
D、Asc(x)
【答案】：请联系在线客服,或加微信好友
将字符转换为相应的ASCII码的函数是( ) 。
A、Abs(x)
B、Val(x)
C、Str(x)
D、Asc(x)
【答案】：请联系在线客服,或加微信好友
在窗体Form1的Click事件过程中有以下语句：Label1.Caption=”Visual Basic”若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为（ ）。
A、Label和Label
B、Label1和Label1
C、Label1和Visual Basic
D、Label和Caption
【答案】：请联系在线客服,或加微信好友
在Visual Basic中，文件系统控件包括驱动器列表框、( )和文件列表框。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。
A、文件夹列表框
B、驱动器列表框
C、目录列表框
D、文件列表框
【答案】：请联系在线客服,或加微信好友
在Visual Basic中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性，就标题相当于其他控件的Caption属性，而( )就相当于Name属性。
A、索引
B、名称
C、标题
D、外观
【答案】：请联系在线客服,或加微信好友
利用列表框实现姓名的增删。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel和cmdUpdate，列表框和文本框的名称为默认。要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。
Private Sub cmdAdd_Click()
List1.AddItem Text1.Text
Text1.Text = “”
End Sub
Private Sub cmdDel_Click()
List1.RemoveItem List1.ListIndex
Text1.Text = “”
End Sub
Private Sub cmdUpdate_Click()
If cmdUpdate.Caption = “修改” Then
（ )
cmdUpdate.Caption = “确认修改”
Else
List1.List(List1.ListIndex) = Text1.Text
cmdUpdate.Caption = “修改”
Text1.Text = “”
End If
End Sub
A、Text1.Text =List1.List
B、List1.List(List1.ListIndex)=Text1.Text
C、Text1.Text=List1.List(List1.ListIndex)
D、Text1.Text =List1.List(List1.ListIndex)
【答案】：请联系在线客服,或加微信好友
有以下3个数据表：
学生表：student_info(student_id,student_name,student_sex,student_class)，分别表示学号、姓名、性别、班级，各字段数据类型都是文本。
课程表：course_info(course_ID ,course_name ,course_credit)，分别表示课程号、课程名、学分，课程号、课程名为文本类型，学分为数字类型。
成绩表：mark_info(student_ID, course_ID,mark)，分别表示学号、课程号、成绩，其中学号、课程号为文本类型，mark为数字类型。
写出SQL语句：
查询所有学生的基本信息，使用中文作为查询结果的各字段的名称。
( )
A、Select student_id as 学号, student_name as 姓名, student_sex as 性别, student_class as 班级 from student_info
B、Select 学号, 姓名,性别,班级 from student_info
C、Select student_id as 学号, student_name as 姓名, student_sex as 性别, student_class as 班级
D、Select * from student_info
【答案】：请联系在线客服,或加微信好友
填空如下程序。设程序初始界面有“学习目的”、“学习方法”和“退出”3个命令按钮，1个标签控件，其中“学习方法”命令按钮的名称定义为cmdWay，标签控件的名称定义为lblContent。使得单击“学习方法”按钮，标签控件显示“从实际应用程序的开发过程中学习VB”。
Private Sub （ ）()
lblContent.Caption= “从实际应用程序的开发过程中学习VB”
End Sub
A、Command1_Click
B、cmdWay_DblClick
C、cmdWay_Click
D、lblContent_Click
【答案】：请联系在线客服,或加微信好友
阅读以下程序，写出其功能。
Private Sub changecolor()
Dim r As Integer , g As Integer, b As Integer
Dim x As Long
‘ hsbRed、hsbGreen和hsbBlue为水平滚动条
hsbRed.Min=0: hsbGreen.Min=0 : hsbBlue.Min=0
hsbRed.Max=255: hsbGreen.Max=255 : hsbBlue.Max=255
r = hsbRed.Value
g = hsbGreen.Value
b = hsbBlue.Value
x = RGB(r, g, b)
frmMain.BackColor = x
End Sub
A、用红色、绿色、蓝色三个滚动条调节窗体前景色的过程。
B、用红色、绿色、蓝色三个滚动条调节窗体字体颜色的过程。
C、用红色、绿色、蓝色三个滚动条调节窗体底色的过程。
D、用窗体底色调节红色、绿色、蓝色三个滚动条的过程。
【答案】：请联系在线客服,或加微信好友
在VB中断模式下，可用调试窗口监视表达式和变量的值，其中在（ ）窗口中可以直接键入命令以显示命令所请求的信息。
A、立即
B、监视
C、本地
D、中断
【答案】：请联系在线客服,或加微信好友
将图片框PictureBox的AutoSize属性设置成( )时，图片框能自动调整大小，以适应其中的图片。
A、False
B、0
C、Ture
D、1
【答案】：请联系在线客服,或加微信好友
函数Int(Rnd*10)是在（ ）范围内的整数。
A、（0, 10）
B、(0,10]
C、[0, 10）
D、[0, 10]
【答案】：请联系在线客服,或加微信好友
若要把“XXX”添加到列表框List1中的第三项，则可执行语句（ ）。
A、List1.AddItem “XXX”, 3
B、List1.AddItem “XXX”, 2
C、List1.AddItem 3,”XXX”
D、List1.AddItem 2,”XXX”
【答案】：请联系在线客服,或加微信好友
执行指令“Line (200,200) – (500,500)”后，CurrentX＝( )。
A、200
B、500
C、300
D、700
【答案】：请联系在线客服,或加微信好友
可通过（ ）属性判断ListBox列表框控件的项目总数目。
A、ListIndex
B、ListText
C、Listcount
D、随机数
【答案】：请联系在线客服,或加微信好友
已知三个变量
A、B、C，判断A、B、C能否构成三角形的逻辑表达式为（ ）。
A、A > B And B > C And A > C
B、A + C > B And A + B > C And B + C >
C、A + C > B Or A + B > C Or B + C > A
D、A + C > B And A + B > C Or B + C >=A
【答案】：请联系在线客服,或加微信好友
为了使多媒体控件（MMControl）中的录制按钮不显示，应添加代码（ ）。
A、MMControl1.Visible= False
B、MMControl1.Visible= True
C、MMControl1.RecordVisible= False
D、MMControl1.RecordVisible= True
【答案】：请联系在线客服,或加微信好友
在Visual Basic语言中有三种形式的循环结构。其中，若要求先判断循环进行的条件，可使用( )循环或Do循环。
A、For
B、Do
C、Next
D、While
【答案】：请联系在线客服,或加微信好友
Visual Basic中的程序错误类型主要有编译错误、( )错误和逻辑错误三种。
A、编译
B、运行
C、实时
D、逻辑
【答案】：请联系在线客服,或加微信好友
显示和输入文本时，如果仅需要让应用程序在窗体中显示文本信息，可使用（ ）控件。
A、Label
B、Text
C、Command
D、TextBox
【答案】：请联系在线客服,或加微信好友
Visual Basic应用程序即工程文件通常由三类模块组成，即( )模块、标准模块和类模块。
A、窗体
B、标准
C、框架
D、类
【答案】：请联系在线客服,或加微信好友
检测文件是否结束的函数是（ ）。
A、LOF()
B、Len()
C、EOF()
D、Chr()
【答案】：请联系在线客服,或加微信好友
\、/、Mod、*四个算术运算符中，优先级别最低的是（ ）。
A、\
B、/
C、Mod
D、*
【答案】：请联系在线客服,或加微信好友
对驱动器列表框来说，每次重新设置驱动器列表框的( )属性时，都将引发Change事件。
A、Path
B、Drive
C、Caption
D、Text
【答案】：请联系在线客服,或加微信好友
填空如下程序，实现猜数字功能。先产生一个值为1至1000的随机数，由用户来猜这个数，并提示用户猜的数是否太大或太小，设输入文本框的名称定义为TxtAnswer，神秘的数、评价标签控件的名称定义为lblComment和lblNum，“确定”命令按钮的名称定义为cmdOk。
Dim intNum As Integer ‘用于存放“神秘的数”
Dim intCount As Integer ‘用于猜数计数
Private Sub cmdOk_Click()
（ ）
If Val(txtAnswer.Text) = intNum Then ‘猜对
lblComment.Caption = “猜对了！你一共猜了” & intCount & “次”
lblNum.Caption = intNum
ElseIf Val(txtAnswer.Text) > intNum Then
lblComment.Caption = “太大了！”
Else
lblComment.Caption = “太小了！”
End If
End Sub
Private Sub Form_Load()
Randomize
intNum =Int(Rnd * 1000 + 1)
End Sub
A、intCount = intCount + 1
B、intCount =0
C、intCount = 1
D、intCount =intNum
【答案】：请联系在线客服,或加微信好友
填空如下程序，利用列表框实现姓名的增删。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel和cmdUpdate，列表框和文本框的名称为默认。要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。
Private Sub cmdAdd_Click()
（ ）
Text1.Text = “”
End Sub
Private Sub cmdDel_Click()
List1.RemoveItem List1.ListIndex
Text1.Text = “”
End Sub
Private Sub cmdUpdate_Click()
If cmdUpdate.Caption = “修改” Then
Text1.Text = List1.List(List1.ListIndex)
cmdUpdate.Caption = “确认修改”
Else
List1.List(List1.ListIndex) = Text1.Text
cmdUpdate.Caption = “修改”
Text1.Text = “”
End If
End Sub
A、List1.ListIndex=List1.ListIndex+1
B、List1.AddItem List1.ListIndex
C、List1.AddItem
D、List1.AddItem Text1.Text
【答案】：请联系在线客服,或加微信好友
阅读以下程序，写出其功能。
Private Sub cmdWhat_Click()
‘ cmdWat为命令按钮，lblHelloVB为标签，txtHelloVB为文本框
lblHelloVB .Caption = “VB能干什么”
txtHelloVB = ” VB能快速实现用户界面的设计、” _
+ “文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库、” _
+ “网络和图形等多方面的应用程序；可以开发个人使用或小组” _
+ “使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。”
End Sub
A、单击cmdWhat按钮，显示“VB能干什么”具体内容。
B、单击cmdWhat按钮，隐藏“VB能干什么”具体内容。
C、单击窗体，显示“VB能干什么”具体内容。
D、双击击cmdWhat按钮，显示“VB能干什么”具体内容。
【答案】：请联系在线客服,或加微信好友
