1、1VB 考试一1、能够获得一个文本框中被选取文本的内容的属性是_。A：SelStart B：SelLength C：SelText D：Text参考答案：C2、在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：_。A：Text1.Enabled = False B：Text1.HideC：Text1.Clear D：Text1.Visible = False参考答案：D3、对于语句 If x=1 Then y=1, 下列说法正确的是_。A： x=1 和 y=1 均为赋值语句B： x=1 和 y=1 均为关系表达式C： x=1 为赋值语句，y=1 为关系
2、表达式D： x=1 为关系表达式， y=1 为赋值语句参考答案：D4、以下变量名中，_是不符合 Visual Basic 的命名规范的。A：_mnu_Open_234 B：Abc901 C：price_ D：K参考答案：A5、MsgBox 函数返回值的类型是_。A：数值或字符串 B：字符串 C：变体 D：整型数值参考答案：D6、VB 一共有设计、运行和中断三种模式，要使用调试工具应该_。A：进入中断模式 B：进入运行模式C：进入设计模式 D：不用进入任何模式参考答案：A7、设 a=6，则执行x=IIF(a5,-1,0) 后，x 的值为 _。A：-1 B：6 C：0 D：5参考答案：A8、可以同
3、时删除字符前导和尾部空白的函数是_。A：Mid B ： Rtrim C：Trim D：Ltrim参考答案：C9、以下语句的输出结果是_。Print Format$(“32548.5“,“000,000.00“)2A：32,548.5 B：32548.5 C：032,548.50 D：32,548.50参考答案：C10、设有如下声明：Dim X As Integer如果 Sgn(X)的值为-1，则 X 的值是_。A：等于 0 的整数 B：大于 0 的整数 C：整数 D：小于 0 的整数参考答案：D11、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Cli
4、ck()For i = 1 To 4x = 4For j = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是_。参考答案： 15# 15 #15 #1512、执行下面的程序段后，S 的值为_。s=5For i=2.6 To 4.9 Step 0.6s=s+1Next i参考答案：913、下列表达式有错误,正确的写法应该是_。(a+b)+c/80-5(d+e)参考答案：(a+b+c)/80-5/(d+e)#（a+b+c）/80-5/（d+e）14、表示 x 是 5 的倍数或是
5、 9 的倍数的逻辑表达式为_参考答案：x Mod 5 = 0 Or x Mod 9 = 0#x Mod 9 = 0 Or x Mod 5 = 015、以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。3Private Sub Form_click()Dim x, y As SingleDim z As Integerx = InputBox(“Enter a score“)Do while x=0y = y + xz = z + 1x = InputBox(“Enter a score“)LoopIf z = 0 Thenz = 1End
6、 Ify = _Print yEnd Sub参考答案：y/zVB 考试二1、列表框中的列表项的数目可以通过以下哪个属性的值获得_。A：ListIndex B：ListCount C：Count D：Index参考答案：B2、在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是_。A：Private Sub List1_Click()Label1.Caption=List1.TextEnd SubB：Private Sub List1_Click()Lab
7、el1.Name=List1.ListIndexEnd SubC：Private Sub List1_Click()Label1.Name=List1.TextEnd SubD：Private Sub List1_Click()Label1.Caption=List1.ListIndexEnd Sub参考答案：A3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示_。A：Listindex B：Index C： List D：Tabindex参考答案：A44、为了清除列表框中的所有内容，应使用的方法是：_。A：Clear B ： Remove C：RemoveItem D：Cls参考答案
8、：A5、在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为_。A：For i=1 To List1.ListCountNEXTB：For i=0 To List1.Count-1NEXTC：For i=0 To List1.ListCount-1NEXTD：For i=1 To List1.CountNEXT参考答案：C6、设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)For i = 0 T
9、o 3Print a(5 - i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是_。A： 6 5 4 3 B： 5 4 3 2 C： 4 3 2 1 D： 7 6 5 4参考答案：A7、设执行以下程序段时依次输入 1、3、5，执行结果为_。Dim a(4) As Integer, b(4) As IntegerFor K = 0 To 2a(K + 1) = Val(InputBox(“请输入数据“)b(3 - K) = a(K + 1)Next KPrint b(K)A： 0 B： 3 C： 5 D： 1参考答案：D58、在窗体上画一个名称为 Command1 的命令按钮，
10、然后编写如下程序：Private Sub Command1_Click()Dim i As Integer,j As IntegerDim a(10,10) As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是_。A： 1 2 34 5 67 8 9B： 2 3 43 4 54 5 6C： 1 4 72 5 83 6 9D： 1 2 32 4 63 6 9参考答案：A9、用下面的语句所定义的数组的元素个数是：_。Dim arr(3 T
11、o 5,-2 to 2) A：24 B：12 C：15 D：20参考答案：C10、下列_语句可以为动态数组分配实际元素个数。A：static 语句 B：Dim 语句 C ：public 语句 D ：ReDim 语句参考答案：D11、假定程序中有以下语句：answer = MsgBox(“String1“,“String2“,“String3“,2)执行该语句后，将显示一个信息框，此时如果单击“确定“ 按钮，则 answer 的值为：_。A：String3 B：String2 C：String1 D：1 6参考答案：D12、设有语句x=InputBox(“输入数值“,“0“,“示例“)程序运行后
12、，如果从键盘上输入数值 10 并按回车键，则下列叙述中正确的是_。A：0 是默认值B：变量 X 的值是字符串“10“C：在 InputBox 对话框标题栏中显示的是“示例“D：变量 X 的值是数值 10参考答案：B13、以下程序段运行的结果是：_。Dim a(-1 To 5) As BooleanDim flag As Booleanflag = FalseDim i As IntegerDim j As IntegerDo Until flag = TrueFor i = -1 To 5j = j + 1If a(i) = False Thena(i) = TrueExit ForEnd I
13、fIf i = 5 Thenflag = TrueEnd IfNextLoopPrint jA：20 B：7 C：8 D：35 参考答案：D14、设 a=5，b=6，c=7，d=8，则执行下列语句后，x 的值为：_。x= IIF(ab) And (c 0 ThenFunc = xElseFunc = yEnd IfEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, b As Integera = 3b = 4c = Func(a, b)Print “a=“; aPrint “b=“; bPrint “c=“; c End Sub程
14、序运行后，单击命令按钮，其输出结果为：_。A：a= 3b= 4c= 12B：a= 13b= 12c= 12C：a= 3b= 4c= 3D：a= 3b= 12c= 3参考答案：D 题分：63、单击命令按钮时，下列程序代码的执行结果为_。Public Sub Procl(n As Integer, ByVal m As Integer)8n = n Mod 10m = m / 10End SubPrivate Sub Command1_Click()Dim x As Integer, y As Integerx = 12: y = 34Call Procl(x, y)Print x; yEnd S
15、ubA： 12 3 B： 2 3 C： 12 34 D： 2 34 参考答案：D 题分：64、以下关于函数过程的叙述中，正确的是_。A：在函数过程中，过程的返回值可以有多个B：函数过程形参的类型与函数返回值的类型没有关系C：当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D：如果不指明函数过程参数的类型，则该参数没有数据类型参考答案：B 题分：65、以下说法错误的是_。A：函数过程可以带参数 B：子过程没有返回值C：函数过程没有返回值 D：子过程可以带参数 参考答案：C 题分：66、在窗体上画一个命令按钮（名称为 Command1） ，然后编写如下事件过程：Private S
16、ub Command1_Click()Dim b As Integerb = b + 1End Sub运行程序，三次单击命令按钮后，变量 b 的值是：_。A：2 B：1 C：0 D：3参考答案：B 题分：67、假定有以下函数过程：Function Fun(S As String) As StringDim s1 As StringFor i = 1 To Len(S)s1=UCase(Mid(S,i,1)+s1Next iFun = s1End Function在窗体上画一个命令按钮，然后编写如下事件过程：9Private Sub Command1_Click()Dim Str1 As Str
17、ing,Str2 As StringStr1 = InputBox(“请输入一个字符串“)Str2= Fun(Str1)Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg“则单击“确定“按钮后在窗体上的输出结果为_。A：GFEDCBAB：ABCEDFGC：gfedcbaD：abcdefg参考答案：A 题分：68、Sub 过程与 Function 过程最根本的区别是 _。A：两种过程参数的传递方式不同B：Function 过程可以有参数，Sub 过程不可以C：Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程
18、不可以D：Sub 过程的过程名不能返回值，而 Function 过程能通过过程名返回值参考答案：D 题分：69、在代码中定义了一个子过程：Sub P(a,b).End Sub下面_调用该过程的格式是正确的。A：Call PB：Call P 10,20C：P(10,20)D：Call P(10,20)参考答案：D 题分：610、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY = 1Y = Y + 5X = 5 + XPrint X,
19、YEnd Sub程序运行时，三次单击命令按钮 Command1 后，窗体上显示的结果为_。A： 15 1510B： 15 6C： 15 16D： 5 6参考答案：B 题分：611、设有以下循环结构Do循环体Loop While则以下叙述中错误的是_。A：循环体中可以使用 Exit Do 语句B：“条件“可以是关系表达式、逻辑表达式或常数C：若“ 条件“是一个为 0 的常数，则一次也不执行循环体D：如果“条件“ 总是为 True，则不停地执行循环体参考答案：C 题分：612、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Functi
20、on fun(ByVal m As Integer)If m Mod 2 = 0 Thenfun = 2Elsefun = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integer, s As Integers = 0For i = 1 To 5s = s + fun(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示是_。A：7 B：6 C：8 D：9 参考答案：A 题分：6VB 考试四1、某人编写了如下程序，用来求 10 个整数（整数从键盘输入）中的最大值：Private Sub Comman
21、d1_Click()Dim a(10) As Integer,max As IntegerFor k=1 To 10a(k)=InputBox(“输入一个整数“)Next k11max=0For k=1 To 10If a(k)max Thenmax=a(k)End IfNext kPrint maxEnd Sub运行程序时发现，当输入 10 个正数时，可以得到正确结果，但输入 10 个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是_。A：把 max=a(k)改为 a(k)=maxB：把 If a(k)max Then 改为 If a(k) 0 And a 10 And
22、 a 20 And a 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub程序运行后，单击窗体，输出结果为_。A：30 B：12 C：24 D：18 参考答案：B17、以下能从字符串“VisualBasic“中直接取出子字符串“Basic“的函数是_。A：StringB：Mid16C：LeftD：Instr参考答案：B18、设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是_。A：List1.ListIndexB：List1.ListC：List1.TextD：List1.Ind
23、ex参考答案：C19、设 a=5,b=10，则执行 c = Int(b - a) * Rnd + a) + 1 后，c 值的范围为_。A：610B：69C：510D：59参考答案：A20、在窗体上有 1 个名为 Cd1 的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是_。A：Cd1.Action=2B：Cd1.ShowSave=TrueC：Cd1.Action=1D：Cd1.ShowSave=0参考答案：A21、下面可以正确定义 2 个整型变量和 1 个字符串变量的语句是_。A：Dim a As Integer,b,c As StringB：Dim a%,b$,c A
24、s StringC：Dim n,m As Integer,s As StringD：Dim x%,y As Integer,z As String参考答案：D22、在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox(“Enter an integer“)b = InputBox(“Enter an integer“)17Text1.Text = b + aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入
25、8 和 10，则文本框中显示的内容是_。A：出错B：18C：810D：108参考答案：D23、在窗体上画一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1 的命令按钮。然后编写如下事件过程：Private Sub Command1_Click()CommonDialog1.FileName =“CommonDialog1.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=“VBTest“CommonDialog
26、1.Action=1End Sub对于这个程序，以下叙述中错误的是_。A：在该对话框中指定的默认文件类型为文本文件 (*.Txt)B：在该对话框中指定的默认文件名为空C：该对话框的标题为 VBTestD：该对话框被设置为“打开“对话框参考答案：A24、设在窗体 Forml 上有一个列表框 Listl，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是_。A：Private Sub List1_Click()Print Form1.TextEnd SubB：Private Sub Form1_Click()Print List1.TextEnd SubC：Priva
27、te Sub List1_Click()Print List1.TextEnd SubD：Private Sub Form1_Click()List1.Print List1.TextEnd Sub参考答案：C1825、在窗体上从左到右有 Text1、Text2 两个文本框（见图） ，要求运行程序时在 Text1 中输入 1 个分数后按回车键，则判断分数的合法性，若分数为 0100 中的 1 个数，则光标移到Text2 中；否则光标不动，并弹出对话框“分数错“ 。下面程序中正确的是_。A：Private Sub Text1_KeyPress(KeyAscii As Integer)If Key
28、Ascii=13 Then 回车符的 ASCII 码是 13a=Val(Text1)If a100 ThenText2.SetFocusElseText1.SetFocus:MsgBox(“分数错“)End IfEnd IfEnd SubB：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then 回车符的 ASCII 码是 13a=Val(Text1)If a=0 Or a=0 And a=0 And a=10,Is“BASIC“ ThenText1.Text=“Text1.SetFocusEnd IfEnd Sub
29、程序运行时，在 Text1 文本框中输入“Basic“ （如图所示） ，然后单击 Command1 按钮，则产生的结果是_。A：文本框中为“Basic“，焦点在文本框中B：文本框中无内容，焦点在文本框中C：文本框中为“Basic“，焦点在按钮上23D：文本框中为“Visual Basic“，焦点在按钮上参考答案：B39、为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为_。A：UnloadB：LoadC：ShowD：Hide参考答案：D40、某人创建了 1 个工程，其中的窗体名称为 Form1；之后又添加了一个名为 Form2 的窗体，并希望程序执行时先显示 Form2 窗体，那么，他
30、需要做的工作是_。A：把 Form2 的 TabIndex 属性设置为 1，把 Form1 的 TabIndex 属性设置为 2B：在 Form1 的 Load 事件过程中加入语句 Load Form2C：在 Form2 的 Load 事件过程中加入语句 Form2.ShowD：在工程属性对话框中把 “启动对象“设置为 Form2参考答案：D41、CommonDialog 控件可以显示_种对话框。A：4 种B：5 种C：7 种D：6 种参考答案：D42、现有语句：y=IIf(x0,xMod3,0)设 x=10，则 y 的值是_。A：语句错误 B：1 C：3 D：0参考答案：B43、假定有下表所
31、列的菜单结构：标题 名称 层次显示 appear 1（主菜单）大图标 bigicon 2（子菜单）小图标 smallicon 2（子菜单）要求程序运行后，如果单击菜单项“大图标“ ，则在该菜单项前添加一个 “。以下正确的事件过程是_。A：Private Sub bigicon_Click()Me.appear.bigicon.Checked = TrueEnd Sub24B：Private Sub bigicon_Click()bigicon.Checked = FalseEnd SubC：Private Sub bigicon_Click()bigicon.Checked = TrueEnd
32、 SubD：Private Sub bigicon_Click()appear.bigicon.Checked = TrueEnd Sub参考答案：C44、函数过程 F1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。以下能正确实现上述功能的代码的是_。A：Function F1(b As Integer)If b Mod 2 = 0 ThenReturn 0ElseReturn 1End IfEnd FunctionB：Function F1(b As Integer)If b Mod 2 = 0 ThenF1 = 1ElseF1 = 0End IfEnd Functio
33、nC：Function F1(b As Integer)If b Mod 2 = 0 ThenF1 = 0ElseF1 = 1End IfEnd FunctionD：Function F1(b As Integer)If b Mod 2 0 ThenReturn 0ElseReturn 1End IfEnd Function 参考答案：C45、要使一个文本框可以显示多行文本，应设置为 True 的属性是_。25A：MultiLineB：EnabledC：MaxLengthD：Width 参考答案：A46、以下关于图片框控件（PictureBox）的说法中，错误的是_。A：用 Stretch 属
34、性可以自动调整图片框中图形的大小B：清空图片框控件中图形的方法之一是加载一个空图形C：图片框控件可以作为容器使用D：可以通过 Print 方法在图片框中输出文本 参考答案：A47、以下有关数组定义的语句序列中，错误的是_。A：Static arr1(3)arr1(1)=100arr1(2)=“Hello“arr1(3)=123.45B：Option Base 1Private Sub Command3_Click()Dim arr3(3) As IntegerEnd SubC：Dim arr2() As IntegerDim size As IntegerPrivate Sub Command
35、2_Click()size=InputBox(“输入:“)ReDim arr2(size)End SubD：Dim n As IntegerPrivate Sub Command4_Click()Dim arr4(n) As IntegerEnd Sub参考答案：D48、用 Write 和 Print 语句向文件中写入多个数据的差别在于_。A：Print 语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格B：Print 语句自动在数据项之间插入逗号C：Write 语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格26D：Write 语句不会自动在数据项之间插入逗号参考答案：C49、以下语句用于打开一个顺序文件 Open “C:MyFile.txt“ For OutPut 但该语句的一个重要错误是没有_。A：指定打开文件名 B：指定文件号 C：指定打开方式 D：指定文件类型参考答案：B50、设有如下语句：Dim a,b As Integerc=“VisualBasic“d=#7/20/2005#以下关于这段代码的叙述中，错误的是_。A：c 中的数据是字符串B：b 被定义为 Integer 类型变量C：a 被定义为 Integer 类型变量D：d 中的数据是日期类型参考答案：C
