vb2

1.计时器的Interval属性是用来设置一时间间隔，单位是 bA.1秒B.1毫秒C.1/100秒D.1/1000秒2.下列关于属性设置的叙述正确的是（ d）A．所有的对象都有同样的属性B．控件的属性只能在设计时修改，运行时无法改变C．控件的属性都有同样的默认值D．引用对象属性的格式为：对象名称 . 属性3.只有将组合框的Style属性设置为何值时，才能触发DblClick事件？bA) 0 B) 1C) 2 D) 34.．在过程定义中，Private表示（d ）A．此过程要以被其他过程调用B．此过程不可以被任何其他过程调用C．此过程只可以被本工程中的其他过程调用D．此过程只可以被本窗体模块中的其他过程调用5.使用语句Dim A(2) As Integer 声明数组A之后，以下说法正确的是bA) A数组中的所有元素都为0B) A数组中的所有元素值不确定C) A数组中所有元素值都为EmptyD) 执行Erase A后，A数组中所有元素值都不为06.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：aPrivate Sub Command1_Click()Dim array1(10,10) As IntegerDim i As Integer, j As IntegerFor i=1 To 3For j=2 To 4array1(i,j) =i+jNext jNext iText1.Text=array1(2,3) +array1(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A) 15 B) 14 C) 13 D) 127.在窗体上画一个命令按钮(其Name属性为Command1) ，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim as=0a=Array(1,2,3,4) ; j=1For i=4 To 1 Step-1s=s+a(i) *jj=j*10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是dA) 4321 B) 1234C) 34 D) 128.下列程序的运行结果为bDim a(-1 To 6)For i=LBound(a, 1) To UBound(a, 1)a(i) =iNext iPrint a(LBound(a, 1) ) ; a(UBound(a, 1) )A) 0 0B) -5 0C) -1 6D) 0 69.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10,10) As IntegerDim i As Integer, j As IntegerFor i=1 To 3For j=2 To 4array1(i,j) =i+jNext jNext iText1.Text=array1(2,3) +array1(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是cA) 15 B) 14 C) 13 D) 1210.在窗体上画一个命令按钮(其Name属性为Command1) ，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim as=0a=Array(1,2,3,4) ; j=1For i=4 To 1 Step-1s=s+a(i) *jj=j*10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是dA) 4321 B) 1234C) 34 D) 1211.下列程序的运行结果为Dim a(-1 To 6)For i=LBound(a, 1) To UBound(a, 1)a(i) =iNext iPrint a(LBound(a, 1) ) ; a(UBound(a, 1) )A) 0 0B) -5 0C) -1 6D) 0 612.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10,10) As IntegerDim i As Integer, j As IntegerFor i=1 To 3For j=2 To 4array1(i,j) =i+jNext jNext iText1.Text=array1(2,3) +array1(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A) 15 B) 14 C) 13 D) 1213.运行下列程序段后，显示的结果为J1=63:J2=36If J1 ＜ J2 Then Print J2 Else Print J1A) 63 B) 36 C) 55 D) 233214.在IF语句的条件中，M≠6应写成A.M＜6 AND M＞6B.M≠6C.M＜＞6D.NOT M＜＞615.下列程序段的执行结果为a=75If a ＞ 60 Then Score=1If a ＞ 70 Then Score=2If a ＞ 80 Then Score=3If a ＞ 90 Then Score=4Print " Score="; ScoreA) Score＝1 B) Score＝2C) Score＝3 D) Score＝416.下列程序的执行结果为a=10b=20If a ＜＞ b Then a=a + b Else b=b - aPrint a, bA) 2020 B) 3020C) 3040 D) 151517.有如下程序段，该程序段执行完后，执行循环的次数是total=0Counter=1DoPrint Countertotal=total + CounterPrint totalCounter=Counter + 1If total ＞ 10 ThenExit DoEnd IfLoop While Counter ＜=10A) 5 B) 10C) 15 D) 2018.以下说法不正确的是。

A．Ｒnd()函数不是一个字符串函数B．字符串函数尾部的符号"＄"可以有,也可以省略,其功能相同C． Ltirm()和Left()函数都是字符串函数D．字符串函数必须以类型说明符“＄”19.设有下面的循环：i=0While i ＜=1i=i + 3Print iWend则运行后的输出结果是A) 1 B) 2C) 3 D) 420.下列程序段的执行结果为I=4x=5DoI=I + 1x=x^ 2Loop Until I＞=7Print "I="; IPrint "x="; xA) I＝4x＝258694B) I＝7x＝256987C) I＝6x＝365840D) I＝7x＝39062521.在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim k, n, m As Integern = 5m = 1k = 1Do While k ＜= nm = m * 2k = k + 1LoopPrint mEnd Sub程序运行后，单击按钮，输出结果为（）A．12 B．32 C．48 D．9622.执行下面的程序后，输出的结果是x=1For j=1 To 4x=x - 1: y=0For k=1 To 4x=x + 1: y=y + 1Next kNext jPrint x; yA) 1 4 B) 13 4C) 12 8 D) 20 623.为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是A. ControlBoxB.MinButtonC.EnabledD.MaxButton24.MsgBox函数的返回值的类型为A) 数值型 B) 变体类型C) 字符串型 D) 日期型25.在 Visual Basic 中，___________被称为对象。

A．控件B．窗体C．窗体和控件D．窗体、控件、属性26.下列日期型数据正确的是A) @January 10,1979@ B) #January 10,1997#C) "January 10,1997" D) ＆January 10,1997＆27.如果一个变量未经定义就直接使用，则该变量的类型为A.IntegerB.ByteC.BooleanD.Variant28.VB窗体设计器的主要功能是（）A．建立用户界面 B．编写源程序代码 C．添加图 D．显示文字29.下列方法中不能退出Visual Basic的是A.按Alt+Q组合键B.按下Alt+F组合键，然后按Esc键C.打开"文件"菜单，执行"退出"命令D.按F10键，然后按F键，再按X键30.Print方法可以在对象上输出数据，这些对象包括A) 图片框 B) 状态栏C) 标题栏 D) 代码窗口31.下列符号常量的声明中，不合法的是A.Const a As Single=1.1B.Const a="OK"C.Const a As Double=Sin(1)D.Const a As Integer="12"32.设a=20，b="30"，则下列输出结果是"2030"的语句是A.print str(a)B.print "a"+bC.print a+bD.print a＆b33.表达式3 ^ 2 Mod 14 ＼ 2 ^ 3的值是A) 1 B) 0C) 2 D) 334.任何控件都有的属性是A.BackColorB.CaptionD.BorderStyle35.以下关系表达式中，其值为False的是A) "ABC"＞"AbC" B) "the"＜＞"they"C) "VISUAL"=UCase("Visual") D) "Integer"＞"Int"36.下列控件中可用于接受用户输入文本，又可用于显示文本的是bel 控件B.TextBox 控件C.Timer 控件mandButton 控件37.在Visual Basic语言中，表达式 2+3*3-2*3/2的值是A.6B.7C.8D.938.若x为偶数，dim a as booleana= x mod 2print a运行结果为false。