VB选择题汇总

-一1【单选题】Visual Basic的编程机制是 D 。A、可视化 B、面向对象 C、面向图形 D、事件驱动2【单选题】Visual Basic集成环境的大部分窗口都可以从主菜单项 （） 的下拉菜单中找到相应的打开命令。BA、编辑 B、视图 C、格式 D、调试3【单选题】每个窗体对应一个窗体文件，窗体文件的扩展名是 C 。、.bas B、.cls C、.frm D、.vbp4【单选题】工程文件的文件名后缀是什么？_ BA.bmp B.vbp C.frm D.bas 5【单选题】窗体设计器是用来设计 B 。A、应用程序的代码段 B、应用程序的界面 C、对象的属性 D、对象的事件 6【单选题】使用 方法不可以进入代码窗口编写代码。AA、执行“文件”菜单中的打开命令 B、在窗体上单击鼠标右键，在弹出的快捷菜单中选择“查看代码”命令C、双击窗体设计器的任何地方D、执行“视图”菜单中的“代码窗口”命令7【单选题】VB6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是 D 。A.设计状态 B.编写代码状态C.运行状态 D.中断状态8【单选题】VB6.0集成开发环境不包括_窗口。A A.DOS界面窗口 B.窗体窗口 C.代码窗口 D.属性窗口9【单选题】在设计应用程序时，通过_ 窗口可以查看到应用程序工程中的所有组成部分 B A.代码窗口 B.窗体设计窗口 C.属性窗口 D.工程资源管理器窗口10【单选题】VB6.0是一种面向 的编程环境。B A.机器B.对象 C.过程 D.应用11【单选题】在VB集成环境创建VB应用程序时，除了工具箱窗口，窗体中的窗口，属性窗口外，必不可少的窗口是 C。A.窗体布局窗口 B.立即窗口 C.代码窗口 D.监视窗口12【单选题】不能打开属性窗口的操作是 D 。A. 单击工具栏中的“属性窗口”按钮B. 选取“视图”菜单中的“属性窗口”子菜单项C. 在对象上单击右键，从弹出的快捷菜单中选择“属性窗口”选取项D. 选取“工程”菜单中的“属性窗口”子菜单项13【单选题】事件的名称 CA、都要由用户定义 B、有的由用户定义，有的由系统定义C、都是由系统预先定义 D、是不固定的14【单选题】对象的三要素不包括D。A、属性 B、方法C、事件 D、程序二1【单选题】对于窗体，下面 属性在程序运行时其属性设置起作用。C（A）Ma*Button (B) BorderStyle (C) Name (D) Left2【单选题】要使Print 方法在Form_Load事件中起作用，要对窗体的 属性进行设置。C （A）BackColor (B)ForeColor (C) AutoRedraw (D) Caption3【单选题】要使标签控件显示时不覆盖其背景内容，要对 属性进行设置 B（A）BackColor (B)ForeColor (C) BorderStyle (D) BackStyle4【单选题】要使命令按钮不可操作，要对 设置 A（A） Enabled (B)Visible (C) BackColor (D)Caption5【单选题】文本框没有 属性 D（A）Enabled (B)Visible (C) BackColor (D)Caption6【单选题】不论何控件，共同具有的是 属性B（A）Te*t (B)Name (C) ForeColor (D)Caption7【单选题】要使Form1窗体的标题栏显示”欢迎使用VB”，以下 语句正确。A（A） Form1.Caption=”欢迎使用VB”（B）Form1.Caption=欢迎使用VB (C) Form1.Caption=欢迎使用VB (D) Form1.Caption=”欢迎使用VB”8【单选题】要使*控件在运行时不可显示，应对 进行设置 B（A） Enabled (B) Visible (C) BackColor (D) Caption9【单选题】要使窗体在运行时不可以改变窗体的大小和没有最大，最小化按钮，只要对下面 进行设置。B（A）Ma*Button (B) BorderStyle (C) Width (D) MinButton10【单选题】当运行程序时候，系统自动执行启动窗体的 事件过程 A（A）Load (B)Click (C) Unload (D) GotFocus11【单选题】当文本框的ScrollBars 属性设置了非零值，却没有效果，原因为 B 。（A） 文本框中没有内容（B） 文本框的MultiLine属性为False（C） 文本框的MultiLine属性为True（D） 文本框的Locked属性为True12【单选题】要判断在文本框时否按了Enter键，应在文本框的 事件中判断 D（A）Change (B)KeyDown (C)Click (D)KeyPress三1【单选题】在一个语句内写多条语句时，每个语句之间用_符号分隔 B（A）, (B) ： (C) 、 （D） ；2【单选题】一句语句要在下一行继续写，用（ ）符号作为续行符。C（A）+ (B) - (C) _ (D)3【单选题】下面（ ）是合法的变量名。C（A）*_YZ (B)123ABC (C)integer (D)*-Y4【单选题】下面（ ）是不合法的单精度型常数。A（A）100! (B)100.0 (C)1E+2 (D)100.0D+25【单选题】下面（ ）是合法的单精度型变量。A（A）num! (B)sum% (C)*inte$ (D)mm#6【单选题】表达式16/4-25*8/4 MOD 52的值为（ ）。B（A）14 (B)4 (C)20 (D)27【单选题】数学关系3=*10表示成正确的VB表达式为（ ）。B（A）3=*=3 AND *=3 OR *10 (D) 3=* AND =0 AND A+CB+3 OR NOT D的值为（ ）。B（A）True （B）False （C）0 （D）113【单选题】Int(198.555*100+0.5)/100的值为（ ）。C(A) 198 (B) 199.6 (C)198.56 (D)20014【单选题】下列符号常量的声明中，( )是不合法的。D （A）Const a As Single=1.1 （B）Const a As Integer=”12”（C）Const a As Double=Sin(1) （D）Const a=”OK”15【多选题】以下语句的输出第一个结果是( )；第二个结果是( )。BDa=sqr(3)print format(a,”$#.#”)print format(a,”$0000.#”) （A）$1.732 （B）$1.73 （C）$1732 （D）$0001.7316【单选题】函数InStr(VB程序,visual Basic,vb,vb)的值为_。A （A）0 （B）1 （C）18 （D）Vb17【单选题】Private Sub Form_Click() Dim a As Integer Static b As Integer a=b+1 b=a+b Print a, b End Sub当鼠标单击了窗体4次时窗体显示的结果为( )。D （A）1，2 （B）4，5 （C）4，8 （D）8，15四1【单选题】赋值语句的作用是（ ）。C （A）赋值语句用于将表达式的值赋给变量 （B）赋值语句用于将表达式的值赋给属性（C）赋值语句用于将表达式的值赋给变量或属性 （D）赋值语句用于将表达式的值赋给变量和属性2【单选题】语句*=*+1的正确含义是( )。C（A）变量*的值与*+1的值相等 （B）将变量*的值存到*+1中去（C）将变量*的值加1后赋给变量* （D）变量*的值为13【单选题】VB中的注释语句是( )。B （A）执行语句 （B）非执行语句 （C）命令语句 （D）结构化语句4【单选题】在默认情况下InputBo* $ 函数返回值的类型为（ ）B （A）数值 （B）字符串 （C）变体 （D）数值或字符串(视输入的数据而定)5【单选题】MsgBo*函数中有4个参数，其中必须写明的参数是( )。C （A）指定对话框中显示按钮的数目 （B）对话框标题（C）提示信息 （D）所有参数都是可选的6【单选题】运行以下程序中变量Var3的结果是（ ）。BDim Var1,Var2,Var3Var1=”Hello”Var2=”World!”Var3=Var1 & “ “ & Var2Var1=10Var2=20Var3=Var1 + var2（A）”Hello World!” （B）30 （C）1020 （D）出错7【多选题】在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果分别是( )和（ ）D、A（1） Private Sub mand1_click() a=InputBo*(“Enter the first Integer”) b=InputBo*(“Enter the Second Integer”) Print b+a End Sub（2） Private Sub mand1_click() Dim a,b As Integer a=InputBo*(“Enter the first Integer”) b=InputBo*(“Enter the Second Integer”) Print b+a End Sub（A）579 （B）123 （C）456 （D）1234568【多选题】Print方法可以在()对象上输出数据。（多选）ADEG（A）窗体 （B）桌面 （C）标题栏 （D）立即窗口 （E）图片框 （F）状态栏 （G）打印机 （H）代码窗口9【单选题】下列程序段的执行结果为 。A *=2 Print *+1；*+1（A）3 3 （B）*+1 *+1 （C）3 4 （D）2+1 2+110【单选题】下面语句正确的是。CA.If * y Then Print “*不等于y”B.If * y Print “*不等于y”C.If * y Then Print “*不等于y”D.If * y Print “*不等于y”11【单选题】下面语句正确描述：如果*3y且*y，则y=*3是。AA.If *y Then y= *3B.If and(*y) Then y=*3C.If *y Then y=*3D.If *y Then y=*312【单选题】下面程序段能够正确实现目的：如果*Y，则A=15，否则A=-15.CA.If *Y Then A=15 B.If *Y Then A=15:Print A A=-15 A=-15:Print A Print AC.If *Y Then D.If *Y Then A=15 A=15:Print A A=-15 Else Print A A=-15:Print A End If End If13【单选题】在下面程序运行时键入2，则该程序的运行结果是。C Private sub mand1_click()*=inputbo*(“请输入一个整数”)Select case * Case Is3 Print (*+1)/(*-3)End selectEnd subA.2 B.0.6 C.5 D.-314【单选题】下列程序段的执行结果为。A *=5 y=-20 If Not *0 Then *=y-3 Else y=*+3 Print *-y;Y-*A.-3 3 B.5 -8 C.3 -3 D.25 -25五1【单选题】运行下列程序，输出的结果为_。DPrivate Sub Form_Click() s=0 Do s = (s + 1) * (s + 2) Number = Number + 1 Loop Until s=30 Print Number;sEnd Sub(A)0 1 (B)30 30 (C)4 30 (D)3 1822【单选题】运行下列程序，输出的结果为_。DPrivate Sub Form_Click() A$ = 54321: B$ = abcde j = 1 Do While j = 5Print Mid(A$, 6 - j, 1) + Mid(B$, j, 1); j = j + 1Loop PrintEnd Sub(A)a1b2c3d4e5 (B)a5b4c3d2e1 (C)e1d2c3b4a5 (D)1a2b3c4d5e3【单选题】下面程序段的执行结果为_。AI=0For g=10 to 19 Step 3 I=I+1Ne*t gPrint I(A) 4 (B) 5 (C) 3 (D) 64【单选题】运行下列程序，输出的结果为_。CPrivate Sub Form_Click() For j = 1 To 10 a = 20 - (2 * j - 1) If a / 3 = a 3 Or a / 5 = a 5 Then Sum = Sum + a End If Ne*t j Print Sum=; SumEnd Sub(A)Sum= 27 (B)Sum= 15 (C)Sum= 32 (D)325【单选题】运行下列程序，结果为_。CPrivate Sub mand1_Click() a$ = A WORKER IS OVER THERE * = Len(a$) For i = 1 To * - 1 b$ = Mid(a$, i, 2) If b$ = ER Then s = s + 1 Ne*t i Print sEnd Sub(A)1 (B)2 (C)3 (D)46【单选题】在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub mand1_Click() Dim Str1 As String, Str2 As String Str1=InputBo*(请输入一个字符串） For i=1 To Len(Str1) Str2=UCase(Mid(Str1,i,1)+Str2 Ne*t i Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串abcdefg，则单击确定按钮后在窗体上的输出结果为_。D(A) abcdefg (B) ABCDEFG (C) gfedcba (D) GFEDCBA7【单选题】运行下列程序，执行Print i * j的次数为_。BPrivat Sub Form_Click() For i =1 to 3 For j =5 to 1 step 2 Print i * j Ne*t j Ne*t iEnd Sub(A)7 (B)9 (C)12 (D)158【单选题】下面程序段的执行结果为_。Ck=0For j=1 to 2 For i=1 to 3 k=i+1 Ne*t i For i=1 to 7 k=k+1 Ne*t iNe*t jPrint k(A) 10 (B) 6 (C) 11 (D) 16六1【单选题】语句Dim A(-3 to 5)As Integer定义的数组的元素个数是_。D(A)6 (B)7 (C)8 (D)9 2【单选题】语句Option Base 1: Dim a(3,4)定义的数组中，所包含的数组元素的个数是_。A(A)12 (B)7 (C)20 (D)15 3【单选题】语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是_。B(A)12 (B)60 (C)120 (D)345 4【单选题】下面的数组声明语句中_是正确的。B(A)Dim A3,4 As Integer (B)Dim A(3,4) As Integer(C)Dim A3;4 As Integer (D)Dim A(3;4) As Integer5【单选题】当程序运行时，在窗体上单击鼠标时，下面事件过程的执行结果是_。DPrivate Sub Form_Click( ) Dim a(1 to 20) As Integer Dim k As Integer For k=1 To 20 a(k)=k*k Ne*t k Print a(k) End Sub (A) 400 (B) 20 (C)441 (D)出错 6【单选题】下列程序段的执行结果是_。ADim M(10)For I=0 To 10 M(I)=2*INe*t IPrint M(M(3)(A)12 (B)6 (C)0 (D)47【单选题】下列程序段的执行结果是_。BDim A(5)For I=1 to 5 A(I)=I*INe*t IPrint A(I-1)(A)5 (B)25 (C)0 (D)168【单选题】设执行以下程序段时依次输入1、3、5，执行结果为_。A Dim a(4) As Integer,b(4) As Integer For K=0 To 2 a(K+1)=Val(InputBo*(请输入数据:) b(3-K)=a(K+1) Ne*t K Print b(K)(A)1 (B)3 (C)5 (D)09【单选题】下列程序段的执行结果为_。CDim M(10)For K=1 To 10 M(K)=11-KNe*t K*=6Print M(2+M(*)(A)2 (B)3 (C)4 (D)510【单选题】下列程序段的执行结果为_。CDim M(10),N(10)I=3For T=1 To 5 M(T)=T N(I)=2*I+TNe*t TPrint N(I);M(I)(A)3 11 (B)3 15 (C)11 3 (D)15 311【单选题】以下说法不正确的是_。B(A) 使用Redim语句可以改变数组的维数(B) 使用Redim语句可以改变数组的类型(C) 使用Redim语句可以改变数组每一维的大小(D) 使用Redim语句可以对数组中的所有元素进行初始化12【单选题】在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第三个按钮，打开代码编辑器，写下如下代码：Private Sub M1_Click(Inde* As Integer) Form1.Caption=myform2End Sub运行时，单击按钮数组中的第一个按钮，窗体标题为_。D(A)Form1 (B)M1 (C)myform1 (D)myform213【单选题】在窗体上画一个命令按钮mand1,编写其Click事件过程代码如下： Private Sub mand1_Click( ) Dim m(1 to 10) As Integer,k As Integer For k=1 to 10 m(k)=11-k Ne*t k For k=1 to 10 Print m(m(k); Ne*t k End Sub程序运行时，单击命令按钮时，程序的输出结果是_。D(A) 10 9 8 7 6 5 4 3 2 1 (B) 1 3 5 7 9 2 4 6 8 10 (C) 2 4 6 8 10 5 7 9 (D) 1 2 3 4 5 6 7 8 9 10 14【单选题】在窗体上画一个命令按钮mand1,编写其Click事件过程代码如下：Option Base 1 Private Sub mand1_Click() Dim *() As Integer Dim m As Integer, n As Integer, k As Integer m = Val(InputBo*(请输入m的值) n = Val(InputBo*(请输入n的值) ReDim *(m To n) For k = LBound(*, 1) To UBound(*, 1) *(k) = k * k Print *(k) Ne*t k End Sub程序运行时，单击命令按钮，在出现的输入对话框中分别输入5和5，则程序的输出结果是_。B(A) 5 (B) 25 (C)出错 (D)没有输出15【单选题】下列程序段执行后，元素*(3,4)的值为_。CDim *(3,5)As Integer , i As Integer, j As IntegerFor i=1 to 3 For j=1 to 5 *(i,j)=*(i-1,j-1)+i+j Ne*t j Ne*t i (A) 12 (B) 13 (C)14 (D)15 16【单选题】下列程序段的执行结果为_。BDim A(10,10)For I=2 To 4 For J=4 To 5 A(I,J)=I*J Ne*t JNe*t IPrint A(2,5)+A(3,4)+A(4,5)(A)22 (B)42 (C)32 (D)5217【单选题】下列程序段的执行结果为_。CDim M(2)For I=1 To 2 M(I)=0Ne*t IK=2For I=1 To K For J=1 To K M(J)=M(I)+1 Print M(K); Ne*t JNe*t I(A)1 2 2 3 (B)1 2 3 4 (C)0 2 2 3 (D)0 1 2 3 18【单选题】下列程序段的执行结果为_。DDim A(10),B(5)For I=1 To 10 A(I)=INe*t IFor J=1 To 5 B(J)=J*20Ne*t JA(5)=B(2)Print A(5)=;A(5)(A)A(5)=5 (B)A(5)=10 (C)A(5)=20 (D)A(5)=40七。略。八1将图片框的_属性设置为True时，可使图片框根据图片调整大小。(单选题) CA、AutoSizeB、AutoReDrawC、PictureD、Stretch2下面叙述不正确的是_。(单选题) CA、驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框B、驱动器列表框的Drive属性只能在运行时被设置C、从驱动器列表框中选择驱动器能自动地变更系统当前的工作驱动器D、驱动器列表框中的Drive属性一发生改变，一定会触发Change事件3使用目录列表框的_属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符)。(单选题) BA、DriveB、PathC、DirD、ListInde*4文件列表框中用于设置或返回所选文件的路径的属性是_。(单选题)DA、FileB、FilePathC、PathD、FileName5要触发目录列表框的Change事件为以下_操作。(单选题) DA、单击所选目录B、双击所选目录C、在属性窗口设置其Path属性D、以上操作都不对6在目录列表框中，当前被选中的目录的ListInde*属性值为_。(单选题) DA、1B、0C、1D、不确定7编写如下事件过程：Private Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii);Print KeyAsciiEndSub运行程序，按下“a”键输出结果为_。(单选题) AA、A65B、a97C、65AD、97a8将窗体的KeyPreview属性设置为True，然后编写如下事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode);End SubPrivate Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode + 32)End Sub按下“a”键时，输出结果为_。(单选题) AA、AaB、AAC、aaD、aA9编写如下事件过程：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, * As Single, Y As Single) If Shift = 3 And Button = 2 Then Print BBBB End IfEnd Sub运行后，为了在窗体上输出“BBBB”，应执行的操作为_。(单选题) DA、同时按下Shift键和鼠标左键B、同时按下Shift键和鼠标右键C、同时按下Ctrl键，Alt键和鼠标左键D、同时按下Ctrl键，Shift键和鼠标右键10下列关于MouseMove事件的判断，正确的是_。(单选题) AA、当鼠标指针处在窗体边框内时，窗体和控件均能识别MouseMove事件B、当鼠标指针在屏幕上移动时就会发生MouseMove事件C、在鼠标移动时，该事件只发生一次D、当鼠标指针处在控件的边框外时，窗体和控件均能识别MouseMove事件九1【单选题】下面叙述中错误的是_。D(A)Visual Basic函数分为内部函数和外部函数(B)函数过程以Function语句开始，以End Function语句结束(C)函数过程中的函数体中若没有赋值语句=，则函数过程将返回一个默认值(D)Function过程中可以再定义一个Function过程2【单选题】可以使用_语句退出Sub过程。A(A)E*it Sub (B)Go Off (C)End Sub (D)E*it3【单选题】在主调过程中的参数称为_。B(A)形参 (B)实参 (C)主参 (D)辅参4【单选题】在窗体上画一个名称为mand1的命令按钮和一个名称为Te*t1的文本框，然后编写如下程序： Private Sub mand1_Click() Dim * As Integer,y As Integer,z As Integer *=5：y=7：z=0 Te*t1.Te*t= Call p1(*,y,z) Te*t1.Te*t=Str(z) End Sub Sub p1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是_。D(A)0 (B)12 (C)Str(z) (D)没有显示 5【单选题】通用过程可以通过执行“工具”菜单中的_命令来建立。A(A)添加过程 (B)通用过程 (C)添加窗体 (D)添加模块6【单选题】现有如下程序:Private Sub Form_Click() s=0 For i=1 To 5 s=s+f(5+i) Ne*t Print sEnd SubPublic Function f(* As Integer) If *=10 Then t=*+1 Else t=*+2 End If f=tEnd Function运行程序,则窗体上显示的为_。B(A)38 (B)49 (C)61 (D)707【单选题】单击按钮时，以下程序运行后的输出结果是_。APrivate Sub mand1_Click() Dim * As Integer, y As Integer, z As Integer *=1: y=2: z=3 Call God(*, *, z) Print *; *; z Call God(*, y, y) Print *; y; yEnd SubPrivate Sub God(* As Integer, y As Integer, z As Integer) *=3 * z + 1 y=2 * z z=* + yEnd Sub(A) 6 6 12 7 11 11(B) 8 5 10 5 11 11(C) 9 6 12 9 10 15(D) 8 10 10 5 9 108【单选题】下面说法正确的是_。 C(A)形参可以是变量名或数组名，也可以是定长字符串变量(B)在调用过程中，实参和形参的数据类型可以不必一一对应(C)数组作参数是通过传地址方式传送(D)形参前加ByRef关键字表示按值传递十。略。十一1【单选题】数据库有三种基本模型，它们是 D。A、关系、连接、嵌套 B、嵌套、层次、关系 C、网络、层次、嵌套 D、网状、层次、关系2【单选题】以下说法错误的是_。 CA、一个表可以构成一个数据库 B、多个表可以构成数据库 C、一个表中每一条记录中的各项数据具有相同的数据类型 D、同一个字段的数据具有相同的数据类型3【单选题】要利用数据控件返回数据库中记录集，则需要设置 属性。 BA、Connect B、DatabaseName C、RecordSource D、RecordType4【单选题】Seek方法可在_记录集中进行查找。 AA、Table类型 B、SnapShot类型 C、Dynaset类型 D、以上三者 5【单选题】下列 组关键字是Select语句中不可缺少的。 AA、Select From B、Select Where C、From Order By D、Select All 6【单选题】语句“Select * From StuInfo Where stuSe* = 女”中的“*”表示_。CA、所有表 B、指定表中的所有字段C、所有指定条件的记录D、所有记录7【单选题】在使用Delete方法删除当前记录后，记录指针位于 A 。A、被删除记录上 B、被删除记录的上一条 C、被删除记录的下一条 D、记录集的第一条8【单选题】使用ADO数据控件的ConnectionString属性与数据源建立连接相关信息，在属性页可以有_种不同的连接方式。 CA、1 B、2 C、3 D、49【单选题】下列所显示的字符串中，字符串_ 不包含在ADO数据控件的ConnectionString属性。 DA、Microsoft Jet 3.51 OLE DB Provider B、Data Source=C:Mydb.mdbC、Persist Security Info=FalseD、2-adCmdTable10【单选题】要通过ADO控件使用SQL语句，ADO的命令类型(mandType)应设置为_。 CA、8-adcmdUnKnow B、1-adCmdTe*tC、2-adCmdTableD、4-adCmdStoredProc. z.