1.在Visual Basic中，文件系统控件包括( )、目录列表框和文件列表框。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。
A、文件夹列表框B、驱动器列表框C、目录列表框D、文件列表框
【答案】：B
2.有变量定义语句“Dim Str1,Str2 As String *10”，其中Str1变量的类型应为 ( ) 。
A、字符串型B、字符型C、变体型D、整型
【答案】：C
3.ADO数据模型中一般可通过Connection对象的（ ）方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。
A、ExecuteB、UpdataC、InsertD、Open
【答案】：扫二维码加客服微信
4.zuoye580.com为您提供优质服务Visual Basic程序开发有三种模式，即设计模式、运行模式和( )模式。
A、设计B、运行C、中断D、调试
【答案】：扫二维码加客服微信
5.如果要在程序中显示一个弹出菜单，需调用（ ）方法。
A、PrintB、MoveC、RefreshD、PopupMenu
【答案】：扫二维码加客服微信
6.要使标签能透出窗体的背景，应设置标签的（ ）属性。
A、BackStyleB、BorderStyleC、AppearanceD、BackColor
【答案】：扫二维码加客服微信
7.zuoye580.com为您提供优质服务将1
A、求数组元素的平均值函数。B、求数组元素的最大值函数。C、求数组元素的和函数。D、求数组元素个数的函数。
【答案】：扫二维码加客服微信
20.在多媒体控件（MMControl）中，DeviceType属性用于设置多媒体设备的类型，如果将要播放的文件是CD歌曲，应将DeviceType属性设置为（ ）。
A、DigitalVideoB、WaveAudioC、AVIVideoD、CDAudio
【答案】：扫二维码加客服微信
21.使用ADO模型时，建立Recordset和Connection对象连接的属性是（ ）。
A、ConnectionB、ActiveConnectionC、ConnectionStringD、ConnectionTimeout
【答案】：扫二维码加客服微信
22.zuoye580.com为您提供优质服务以下语句的输出结果是（ ）。Print Format (32548.5,“000,000.00”)
A、32548.5B、32,548.5C、032,548.50D、32,548.50
【答案】：扫二维码加客服微信
23.数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。数组中各个元素在定义时如果是数值类型就被默认初始化为( ) 。
A、1B、0C、空D、不确定
【答案】：扫二维码加客服微信
24.Visual Basic中的程序错误类型主要有编译错误、实时错误和( )错误三种。
A、编译B、运行C、实时D、逻辑
【答案】：扫二维码加客服微信
25.zuoye580.com为您提供优质服务执行Form1.Scale（0, 10）-（10, -10）语句后，Form1窗体坐标系x轴和y轴的正方向是（ ）。
A、向右和向上B、向左和向下C、向右和向下D、向左和向上
【答案】：扫二维码加客服微信
26.为了在运行时把当前路径下的图形文件装入图片框Picture1，所使用的语句为( )。
A、Picture1. Picture = LoadPrcture(“”)B、Picture1. Picture = LoadPrcture(“\”)C、Picture1. Picture = LoadPrcture(“..\”)D、Picture1. Picture = LoadPrcture()
【答案】：扫二维码加客服微信
27.有变量定义语句“Dim Str1,Str2 As String *10”，其中Str2变量的类型应为 ( ) 。
A、字符串型B、字符型C、变体型D、整型
【答案】：扫二维码加客服微信
28.zuoye580.com为您提供优质服务每创建一个顶级菜单，它的下面最多可以有（ ）级子菜单。
A、1B、3C、5D、6
【答案】：扫二维码加客服微信
29.在Visual Basic语言中有三种形式的循环结构。其中，若要求先判断循环进行的条件，可使用While循环或 ( )循环。
A、ForB、DoC、NextD、While
【答案】：扫二维码加客服微信
30.将数字字符串转换为数值的函数是 ( ) 。
A、Abs(x)B、Val(x)C、Str(x)D、Asc(x)
【答案】：扫二维码加客服微信
31.zuoye580.com为您提供优质服务将字符转换为相应的ASCII码的函数是( ) 。
A、Abs(x)B、Val(x)C、Str(x)D、Asc(x)
【答案】：扫二维码加客服微信
32.在窗体Form1的Click事件过程中有以下语句：Label1.Caption=”Visual Basic”若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为（ ）。
A、Label和LabelB、Label1和Label1C、Label1和Visual BasicD、Label和Caption
【答案】：扫二维码加客服微信
33.在Visual Basic中，文件系统控件包括驱动器列表框、( )和文件列表框。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。
A、文件夹列表框B、驱动器列表框C、目录列表框D、文件列表框
【答案】：扫二维码加客服微信
34.zuoye580.com为您提供优质服务在Visual Basic中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性，就标题相当于其他控件的Caption属性，而( )就相当于Name属性。
A、索引B、名称C、标题D、外观
【答案】：扫二维码加客服微信
35.利用列表框实现姓名的增删。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel和cmdUpdate，列表框和文本框的名称为默认。要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。Private Sub cmdAdd_Click() List1.AddItem Text1.Text Text1.Text = “”End SubPrivate Sub cmdDel_Click() List1.RemoveItem List1.ListIndex Text1.Text = “”End SubPrivate Sub cmdUpdate_Click() If cmdUpdate.Caption = “修改” Then （ ) cmdUpdate.Caption = “确认修改” Else List1.List(List1.ListIndex) = Text1.Text cmdUpdate.Caption = “修改” Text1.Text = “” End IfEnd Sub
A、Text1.Text =List1.ListB、List1.List(List1.ListIndex)=Text1.TextC、Text1.Text=List1.List(List1.ListIndex)D、Text1.Text =List1.List(List1.ListIndex)
【答案】：扫二维码加客服微信
36.有以下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_infoB、Select 学号, 姓名,性别,班级 from student_infoC、Select student_id as 学号, student_name as 姓名, student_sex as 性别, student_class as 班级D、Select * from student_info
【答案】：扫二维码加客服微信
37.zuoye580.com为您提供优质服务填空如下程序。设程序初始界面有“学习目的”、“学习方法”和“退出”3个命令按钮，1个标签控件，其中“学习方法”命令按钮的名称定义为cmdWay，标签控件的名称定义为lblContent。使得单击“学习方法”按钮，标签控件显示“从实际应用程序的开发过程中学习VB”。Private Sub （ ）() lblContent.Caption= “从实际应用程序的开发过程中学习VB”End Sub
A、Command1_ClickB、cmdWay_DblClickC、cmdWay_ClickD、lblContent_Click
【答案】：扫二维码加客服微信
38.阅读以下程序，写出其功能。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、用窗体底色调节红色、绿色、蓝色三个滚动条的过程。
【答案】：扫二维码加客服微信
39.在VB中断模式下，可用调试窗口监视表达式和变量的值，其中在（ ）窗口中可以直接键入命令以显示命令所请求的信息。
A、立即B、监视C、本地D、中断
【答案】：扫二维码加客服微信
40.zuoye580.com为您提供优质服务将图片框PictureBox的AutoSize属性设置成( )时，图片框能自动调整大小，以适应其中的图片。
A、FalseB、0C、TureD、1
【答案】：扫二维码加客服微信
41.函数Int(Rnd*10)是在（ ）范围内的整数。
A、（0, 10）B、(0,10]C、[0, 10）D、[0, 10]
【答案】：扫二维码加客服微信
42.若要把“XXX”添加到列表框List1中的第三项，则可执行语句（ ）。
A、List1.AddItem “XXX”, 3B、List1.AddItem “XXX”, 2C、List1.AddItem 3,”XXX”D、List1.AddItem 2,”XXX”
【答案】：扫二维码加客服微信
43.zuoye580.com为您提供优质服务执行指令“Line (200,200) – (500,500)”后，CurrentX＝( )。
A、200B、500C、300D、700
【答案】：扫二维码加客服微信
44.可通过（ ）属性判断ListBox列表框控件的项目总数目。
A、ListIndexB、ListTextC、ListcountD、随机数
【答案】：扫二维码加客服微信
45.已知三个变量
A、B、C，判断A、B、C能否构成三角形的逻辑表达式为（ ）。A、A > B And B > C And A > CB、A + C > B And A + B > C And B + C >C、A + C > B Or A + B > C Or B + C > AD、A + C > B And A + B > C Or B + C >=A
【答案】：扫二维码加客服微信
46.zuoye580.com为您提供优质服务为了使多媒体控件（MMControl）中的录制按钮不显示，应添加代码（ ）。
A、MMControl1.Visible= FalseB、MMControl1.Visible= TrueC、MMControl1.RecordVisible= FalseD、MMControl1.RecordVisible= True
【答案】：扫二维码加客服微信
47.在Visual Basic语言中有三种形式的循环结构。其中，若要求先判断循环进行的条件，可使用( )循环或Do循环。
A、ForB、DoC、NextD、While
【答案】：扫二维码加客服微信
48.Visual Basic中的程序错误类型主要有编译错误、( )错误和逻辑错误三种。
A、编译B、运行C、实时D、逻辑
【答案】：扫二维码加客服微信
49.zuoye580.com为您提供优质服务显示和输入文本时，如果仅需要让应用程序在窗体中显示文本信息，可使用（ ）控件。
A、LabelB、TextC、CommandD、TextBox
【答案】：扫二维码加客服微信
50.Visual Basic应用程序即工程文件通常由三类模块组成，即( )模块、标准模块和类模块。
A、窗体B、标准C、框架D、类
【答案】：扫二维码加客服微信
51.检测文件是否结束的函数是（ ）。
A、LOF()B、Len()C、EOF()D、Chr()
【答案】：扫二维码加客服微信
52.zuoye580.com为您提供优质服务\、/、Mod、*四个算术运算符中，优先级别最低的是（ ）。
A、\B、/C、ModD、*
【答案】：扫二维码加客服微信
53.对驱动器列表框来说，每次重新设置驱动器列表框的( )属性时，都将引发Change事件。
A、PathB、DriveC、CaptionD、Text
【答案】：扫二维码加客服微信
54.有以下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=85C、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
【答案】：扫二维码加客服微信
55.zuoye580.com为您提供优质服务填空如下程序，实现猜数字功能。先产生一个值为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 IfEnd SubPrivate Sub Form_Load() Randomize intNum =Int(Rnd * 1000 + 1)End Sub
A、intCount = intCount + 1B、intCount =0C、intCount = 1D、intCount =intNum
【答案】：扫二维码加客服微信
56.填空如下程序，利用列表框实现姓名的增删。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel和cmdUpdate，列表框和文本框的名称为默认。要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。Private Sub cmdAdd_Click() （ ） Text1.Text = “”End SubPrivate Sub cmdDel_Click() List1.RemoveItem List1.ListIndex Text1.Text = “”End SubPrivate 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 IfEnd Sub
A、List1.ListIndex=List1.ListIndex+1B、List1.AddItem List1.ListIndexC、List1.AddItemD、List1.AddItem Text1.Text
【答案】：扫二维码加客服微信
57.阅读以下程序，写出其功能。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能干什么”具体内容。
【答案】：扫二维码加客服微信
58.zuoye580.com为您提供优质服务对目录列表框来说，当( )属性值改变时，将引发Change事件。
A、PathB、DriveC、CaptionD、Text
【答案】：扫二维码加客服微信
59.程序运行时，驱动器列表框下列（ ）属性能返回磁盘驱动器的名称。
A、DriveB、DriveNameC、ChgdriveD、Drives
【答案】：扫二维码加客服微信
60.Visual Basic中设置断点的按键是F9，逐语句调试的语句是( )。
A、F1B、F9C、F8D、F7
【答案】：扫二维码加客服微信
61.zuoye580.com为您提供优质服务某计时器控件的interval属性为0时，表示（ ）。
A、计时器关闭计时B、Timer事件的间隔时间为0秒C、Timer事件的间隔时间为0毫秒D、计时器启动计时
【答案】：扫二维码加客服微信
62.如果在图片框上使用绘图方法绘制一个圆，则图片框的（ ）属性决定了该圆的颜色。
A、BackColorB、ForeColorC、FillColorD、DrawStyle
【答案】：扫二维码加客服微信
63.在Visual Basic中，数组默认的下标下界是( ) 。
A、0B、1C、-1D、不确定
【答案】：扫二维码加客服微信
64.zuoye580.com为您提供优质服务在Visual Basic中，一般（ ）属性用来设置字体的颜色。
A、FontColorB、ForeColorC、BackColorD、ShowColor
【答案】：扫二维码加客服微信
65.Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。过程级变量就是指在事件过程或通用过程内定义的变量，它的作用域就是( )。
A、整个工程中所有的模块和所有的过程B、窗体内的所有过程C、其所在的过程D、模块内的所有过程
【答案】：扫二维码加客服微信
66.在Visual Basic中，参数通过 ( )两种方式传送。
A、按值传递和按空间传递B、按值传递和按地址传递C、按类型传递和按地址传递D、按次序传递和按数量传递
【答案】：扫二维码加客服微信
67.zuoye580.com为您提供优质服务在Windows Media Player控件中，决定播放文件是否全屏的属性是（ ）。
A、FullScreenB、FullC、ScreenD、stretchToFit
【答案】：扫二维码加客服微信
68.在设计菜单时，为了创建分隔栏，要在（ ）中输入字符（-）。
A、名称栏B、标题栏C、索引栏D、显示区
【答案】：扫二维码加客服微信
69.Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。模块级变量包括窗体级模块变量和标准模块级变量。窗体模块变量的作用域是( )。
A、整个工程中所有的模块和所有的过程B、窗体内的所有过程C、其所在的过程D、模块内的所有过程
【答案】：扫二维码加客服微信
70.zuoye580.com为您提供优质服务执行语句Open “C：Stud.txt” For Input As #2后，系统（ ）。
A、将内存数据存放在C盘当前文件夹下名为Stud.txt的文件中B、某个磁盘文件的内容写入C盘当前文件夹下名C、打开C盘当前文件夹下名为Stud.txt的文件，用来读取文件内容D、在C盘当前文件夹下建立名为Stud. txt的顺序文件
【答案】：扫二维码加客服微信
71.数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。如果省略类型说明，数组会被设置为默认的 ( ) 。
A、字符串型B、字符型C、变体型D、整型
【答案】：扫二维码加客服微信
72.RGB函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色，为保证输入数值有效，则应设置滚动条的（ ）属性。
A、Max和MinB、Smallchange和 LargeChC、Scroll和ChangeD、Value
【答案】：扫二维码加客服微信
73.zuoye580.com为您提供优质服务填空如下程序，使用ADO对象中的Connection对象连接SQL Server数据库。Public ADOcn As ConnectionPublic 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 IfEnd Sub
A、Set ADOcn = New ConnectionB、ADOcn.Open strSqlServerC、ADOcn.OpenD、ADOcn strSqlServer
【答案】：扫二维码加客服微信
74.填空如下程序，实现通信录查询功能。设“查找”按钮的名称定义为cmdFindname，查找输入名称和结果文本框的名称分别定义为txtName和txtCount，记录条数标签的名称定义为lblCount。Type Lxr intBh As Integer ‘编号 strXm As String * 8 ‘姓名 strDh As String * 11 ‘电话 strDz As String * 30 ‘地址End TypePublic user As LxrPrivate 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 IfEnd 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)
【答案】：扫二维码加客服微信
75.阅读以下程序，写出其功能。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、求数组元素个数的函数。
【答案】：扫二维码加客服微信
