VB考试题库二级习题含答案.docx

1、VB考试题库二级习题含答案VB考试一1、能够获得一个文本框中被选取文本的内容的属性是_。 A：SelStart B：SelLength C：SelText D：Text参考答案：C2、在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应当使用的语句为：_。 A：Text1.Enabled = False B：Text1.Hide C：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为赋

2、值语句,y=1为关系表达式 D： x=1为关系表达式,y=1 为赋值语句参考答案：D4、以下变量名中,_是不符合Visual Basic的命名规范的。 A：_mnu_Open_234 B：Abc901C：price_D：K参考答案：A5、MsgBox 函数返回值的类型是_。 A：数值或字符串B：字符串 C：变体 D：整型数值参考答案：D6、VB一共有设计、运行和中断三种模式,要使用调试工具应该_。 A：进入中断模式 B：进入运行模式 C：进入设计模式 D：不用进入任何模式参考答案：A7、设a=6,则执行 x=IIF5,-1,0 后,x的值为_。 A：-1B：6 C：0 D：5参考答案：A8、可

3、以同时删除字符前导和尾部空白的函数是_。 A：Mid B：Rtrim C：Trim D：Ltrim参考答案：C9、以下语句的输出结果是_。 Print Format$ A：32,548.5 B：32548.5 C：032,548.50 D：32,548.50参考答案：C10、设有如下声明：Dim X As Integer如果Sgn的值为-1,则X的值是_。 A：等于0的整数 B：大于0的整数 C：整数 D：小于0的整数参考答案：D11、在窗体上画一个命令按钮,然后编写如下事件过程：Private Sub Command1_Click For i = 1 To 4 x = 4 For j = 1

4、 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print xEnd Sub程序运行后,单击命令按钮,输出结果是_。参考答案： 15# 15 #15 #1512、执行下面的程序段后,S的值为_。 s=5 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i参考答案：913、下列表达式有错误,正确的写法应该是_。 +c/80-5参考答案：/80-5/#a+b+c/80-5/d+e14、表示x 是5的倍数或是9的倍数的逻辑表达式为_参考答案：x Mod 5 = 0 Or x Mod 9 = 0#x Mod

5、9 = 0 Or x Mod 5 = 015、以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。Private Sub Form_click Dim x, y As Single Dim z As Integer x = InputBox Do while x=0 y = y + x z = z + 1 x = InputBoxLoop If z = 0 Then z = 1 End If y = _ Print yEnd Sub参考答案：y/zVB考试二1、列表框中的列表项的数目可以通过以下哪个属性的值获得_。 A：ListIndex

6、B：ListCount C：Count D：Index参考答案：B2、在窗体上画一个名称为List1的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是_。 A：Private Sub List1_Click Label1.Caption=List1.Text End Sub B：Private Sub List1_Click Label1.Name=List1.ListIndex End Sub C：Private Sub List1_Click Label1.Name=List1.Tex

7、t End Sub D：Private Sub List1_Click Label1.Caption=List1.ListIndex End Sub参考答案：A3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示_。 A：Listindex B：Index C：List D：Tabindex参考答案：A4、为了清除列表框中的所有内容,应使用的方法是：_。 A：Clear B：Remove C：RemoveItem D：Cls参考答案：A5、在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为_。 A：For i=1 To List1.ListC

8、ount NEXT B：For i=0 To List1.Count-1 NEXT C：For i=0 To List1.ListCount-1 NEXT D：For i=1 To List1.Count NEXT参考答案：C6、设有如下程序：Option Base 0Private Sub Form_Click Dim a Dim i As Integer a = Array For i = 0 To 3 Print a; NextEnd Sub程序运行后,单击窗体,则在窗体上显示的是_。 A： 6 5 4 3 B： 5 4 3 2 C： 4 3 2 1 D： 7 6 5 4参考答案：A7、

9、设执行以下程序段时依次输入1、3、5,执行结果为_。 Dim a As Integer, b As Integer For K = 0 To 2 a = ValInputBox b = a Next K Print b A： 0 B： 3 C： 5 D： 1参考答案：D8、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序：Private Sub Command1_Click Dim i As Integer,j As Integer Dim a As Integer For i=1 To 3 For j=1 To 3 a=*3+j Print a; Next j Print N

10、ext iEnd Sub程序运行后,单击命令按钮,窗体上显示的是_。 A： 1 2 3 4 5 6 7 8 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 2 4 6 3 6 9参考答案：A9、用下面的语句所定义的数组的元素个数是：_。Dim arrA：24 B：12 C：15 D：20参考答案：C10、下列_语句可以为动态数组分配实际元素个数。 A：static语句 B：Dim语句 C：public语句 D：ReDim语句参考答案：D11、假定程序中有以下语句： answer = MsgBox执行该语句后,将显示一个信息框,此时如果单

11、击确定按钮,则answer的值为：_。 A：String3 B：String2 C：String1 D：1参考答案：D12、设有语句x=InputBox程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述中正确的是_。 A：0是默认值 B：变量X的值是字符串10 C：在InputBox对话框标题栏中显示的是示例 D：变量X的值是数值10参考答案：B13、以下程序段运行的结果是：_。 Dim a As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True

12、 For i = -1 To 5 j = j + 1 If a = False Then a = True Exit For End If If i = 5 Then flag = True End If NextLoop Print j A：20B：7 C：8 D：35参考答案：D14、设a=5,b=6,c=7,d=8,则执行下列语句后,x的值为：_。x= IIFb And c,10,20 A：300 B：20 C：30 D：10参考答案：B15、要将一个组合框设置为简单组合框Simple Combo,则应将其Style属性设置为_。 A：0 B：1 C：3 D：2参考答案：BVB考试三1、

13、设组合框Combo1中有3个项目,则以下能删除最后一项的语句是_。 A：Combo1.RemoveItem Combo1.Listcount B：Combo1.RemoveItem 2 C：Combo1.RemoveItem 3 D：Combo1.RemoveItem Text参考答案：B 题分：62、在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序：Function Func y = x * y If y 0 Then Func = x Else Func = y End IfEnd FunctionPrivate Sub Command1_Click Dim a As I

14、nteger, b As Integer a = 3 b = 4 c = Func Print a=; a Print b=; bPrint c=; cEnd Sub程序运行后,单击命令按钮,其输出结果为：_。 A：a= 3 b= 4 c= 12 B：a= 13 b= 12 c= 12 C：a= 3 b= 4 c= 3 D：a= 3 b= 12 c= 3参考答案：D 题分：63、单击命令按钮时,下列程序代码的执行结果为_。Public Sub Procl n = n Mod 10 m = m / 10End SubPrivate Sub Command1_Click Dim x As Inte

15、ger, y As Integer x = 12: y = 34 Call Procl Print x; yEnd Sub A： 12 3 B： 2 3 C： 12 34 D： 2 34参考答案：D 题分：64、以下关于函数过程的叙述中,正确的是_。 A：在函数过程中,过程的返回值可以有多个 B：函数过程形参的类型与函数返回值的类型没有关系 C：当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递 D：如果不指明函数过程参数的类型,则该参数没有数据类型参考答案：B 题分：65、以下说法错误的是_。 A：函数过程可以带参数 B：子过程没有返回值 C：函数过程没有返回值 D：子过程可

16、以带参数参考答案：C 题分：66、在窗体上画一个命令按钮名称为Command1,然后编写如下事件过程：Private Sub Command1_Click Dim b As Integer b = b + 1End Sub运行程序,三次单击命令按钮后,变量b的值是：_。 A：2 B：1 C：0 D：3参考答案：B 题分：67、假定有以下函数过程：Function Fun As String Dim s1 As String For i = 1 To Len s1=UCaseMid+s1 Next i Fun = s1End Function在窗体上画一个命令按钮,然后编写如下事件过程：Priv

17、ate Sub Command1_Click Dim Str1 As String,Str2 As String Str1 = InputBox Str2= Fun Print Str2End Sub程序运行后,单击命令按钮,如果在输入对话框中输入字符串abcdefg则单击确定按钮后在窗体上的输出结果为_。A：GFEDCBA B：ABCEDFG C：gfedcba D：abcdefg参考答案：A 题分：68、Sub过程与Function过程最根本的区别是_。 A：两种过程参数的传递方式不同 B：Function过程可以有参数,Sub过程不可以 C：Sub过程可以使用Call语句或直接使用过程名

18、调用,而Function过程不可以 D：Sub过程的过程名不能返回值,而Function过程能通过过程名返回值参考答案：D 题分：69、在代码中定义了一个子过程：Sub P .End Sub下面_调用该过程的格式是正确的。 A：Call P B：Call P 10,20 C：P D：Call P参考答案：D 题分：610、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序：Private Sub Command1_Click Static X As Integer Static Y As Integer Cls Y = 1 Y = Y + 5 X = 5 + X Print X,

19、 YEnd Sub程序运行时,三次单击命令按钮Command1后,窗体上显示的结果为_。 A： 15 15 B： 15 6 C： 15 16 D： 5 6参考答案：B 题分：611、设有以下循环结构Do 循环体Loop While则以下叙述中错误的是_。 A：循环体中可以使用Exit Do语句 B：条件可以是关系表达式、逻辑表达式或常数 C：若条件是一个为0的常数,则一次也不执行循环体 D：如果条件总是为True,则不停地执行循环体参考答案：C 题分：612、在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程：Private Function fun If

20、 m Mod 2 = 0 Then fun = 2 Else fun = 1 End IfEnd FunctionPrivate Sub Command1_Click Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun Next Print sEnd Sub程序运行后,单击命令按钮,在窗体上显示是_。 A：7 B：6 C：8 D：9参考答案：A 题分：6VB考试四1、某人编写了如下程序,用来求10个整数整数从键盘输入中的最大值：Private Sub Command1_Click Dim a As Integer,ma

21、x As Integer For k=1 To 10 a=InputBox Next k max=0 For k=1 To 10 If amax Then max=a End If Next k Print maxEnd Sub运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的,程序需要修改。下面的修改中可以得到正确运行结果的是_。 A：把max=a改为a=max B：把If amax Then改为If amax Then C：把第2个循环语句For k=1 To 10改为For k=2 To 10 D：把max=0改为max=a参考答案：D2、设有语句：Op

22、en d:Test.txt For Output As #1,以下叙述中错误的是_。 A：执行该语句后,就可以通过Print#语句向文件Test.txt中写入信息 B：用该语句建立的文件的文件号为1 C：该语句打开d盘根目录下一个已存在的文件Test.txt,之后就可以从文件中读取信息 D：若d盘根目录下无Test.txt文件,则该语句创建此文件参考答案：C3、工程中有2个窗体,名称分别为Form1、Form2,Form1为启动窗体,该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示Form2,则按钮Click事件过程应该是_。 A：Private Sub Command1

23、_Click Form2.Load End Sub B：Private Sub Command1_Click Form2.Visible End Sub C：Private Sub Command1_Click Load Form2 End Sub D：Private Sub Command1_Click Form2.Show End Sub参考答案：D4、在窗体上画一个名为Command1的命令按钮,然后编写如下代码：Option Base 1Private Sub Command1_Click Dim a a=Array j=1 For i=4 To 1 Step -1 s=s+a*j j=j*10 Next i Print sEnd Sub运行上面的程序,其输出结果是_。 A：12 B：1234 C：34 D：4321参考答案：B5、设在窗体中有一个名称为List1的列表框,其中有若干个项目如图。要求选中某一项后单击Command1按钮,就删除选中的项,则正确的事件过程是_。 A：Private Sub Command1_Click List1.Clear List1.ListIndex End Sub B：Private Sub Command1_Click List1.Clear End Sub