VB测试题选择题.doc
1.下面所列四组数据中，全部是正确的VB常数的是_。2768,1.34D2，"ABCDE"，&O17672.函数Len(Str(Val("123.4")的值为_。63.下面表达式中，_Exp（-3.5） _的运算结果与其他三个不同。4.PictureBox、Frame、OptionButton、ListBox、TextBox、Form、ComboBox这7个对象中，具有Caption属性的有_ 3 _个。5.以下叙述中错误的是_如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见_。6.使用_ AddItem _方法可将新的列表项添加到一个列表框中。7.执行下列程序段，输出结果为 _7 0 _。Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10 a(i) = 2 * i - 1Next iPrint a(4);Erase aPrint a(4)8.以下关于动态数组的语句中，正确的是_ReDim a(k+1)：ReDim preserve a(10)_。9.下列程序段的执行结果为_11 3 _。Dim M(10), N(10)i = 3For j = 1 To 5 M(j) = j N(i) = 2 * i + jNext jPrint N(i); M(i)10.执行下面的程序，输出结果是_18 30_。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1:N=2 Print M+N+F(M,N) M=2:N=1 Print F(M,N)+F(M,N); End Sub Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y End Function11.调用由语句Private Sub Convert(Y As Integer)定义的Sub过程时，以下不是按值传递的是_Convert X_。12.下列说法正确的是_模块级变量可在模块通用声明段中用Private和Dim定义_。13.以下不属于Visual Basic系统的文件类型是_.Bat _。14.在VB中有一行程序代码：Text1.Text="Visual Basic",其中的Text1、Text和"Visual Basic"分别代表_对象、属性、值_。15.以下叙述中错误的是_在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 _。16.VB 中三种文件访问的类型为_顺序、随机、二进制_。17.在使用OPEN语句打开文件时，如果省略"for 子句"，则打开的文件存取方式为_随机存取方式_。18.向已有数据的C:testtest.txt文件添加数据，正确的文件打开命令是_Open "C:testtest.txt" For Append As #511_。19.下面程序段的运行结果为_溢出 _。 Dim s As Integer, i As Integer i = 1: s = 1 Do i = i + s Loop Until s > 10 Print i, s20.执行以下语句后，a的值为_溢出 _。 Dim a As Integer a = 1 Do a = a + 2 Loop Until a = 10021.下面程序段的运行结果为_1 2 12 288_。n = 1For i = 1 To 4 For j = 1 To i n = n * j Next jPrint n;Next i22.若执行定义语句Dim a As Integer，以下给a赋值的语句中，错误的是_a = 2 * 32760 3_。23.执行语句：A = Inputbox("Today", "Tomorrow", "Yesterday")将显示一个输入对话框，在对话框的输入区中显示的信息是_Yesterday _。24.在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有_Text3.Text=val(Text1.Text) +val( Text2.Text)_可使文本框Text3中显示46。25.下列程序段的执行结果是_False _。X = 2 Y = 1If X * Y < 1 Then Y = Y - 1 Else Y = -1Print Y - X > 026.关于语句If x=1 Then y=1，下列说法正确的是_x=1为关系表达式，y=1为赋值语句 _。27.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() N = Text1.Text Select Case N Case 1 To 20 X = 10 Case 2, 4, 6 X = 20 Case Is < 10 X = 30 Case 10 X = 40 End Select Text2.Text = X End Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是_10 _。28.在菜单过程中使用的事件是利用鼠标_单击 _菜单条来实现的。29.如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入 _- _。30.窗体Form1的名称属性是frm，它的Load事件过程名是 _Form_Load _。31.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1.Label2，标题分别为空白和"共有文件"的标签。编写程序，使得驱动器列表框与目录列表框.目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。能够正确实现上述功能的程序是: Private Sub Dir1_Change()File1.Path = Dir1.PathLabel1.Caption = File1.ListCountEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveLabel1.Caption = File1.ListCountEnd Sub假定在窗体上建立了通用对话框，其名称为CommonDialog1 ，用下面的语句可以建立一个对话框:CommonDialog1.Action = 2与该语句等价的语句是_CommonDialog1.showsave _。32.在代码编辑器中,如果一条语句太长,无法在一行内写下(不包括注释),要折行书写,可以在行末使用续行字符_一个空格加一个下划字符（ _） _,表示下一行是当前行的继续。33.以下关于图片框控件的说法中，错误的是_用Stretch属性可以自动调整图片框中图形的大小_。34.Sub过程与Function 函数最根本的区别是_前者无返回值，但后者有_。35.执行以下语句后，a的值为_3 _。 Dim a As Integer a = 1 Do a = a + 2 Loop While a = 10036.如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_选中_状态。37. 以下关于窗体的描述中，错误的是_执行Unload Form1语句后，窗体Form1消失，但仍在内存中_。在程序中分别将变量IntA、Bl、st和D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是 Bl=#True# _。Visual Basic布尔运算符Xor ,Or,Not,And中，级别最高的运算符是_Not _。函数Int(Rnd*6+1)的取值范围是_从1到6共6个整数 _。以下使用方法的代码中，正确的是_Text1.SetFocus _。放置控件到窗体中的最迅速的方法是_双击工具箱中的控件 _。下列程序段的执行结果为 _0 2 2 3 _。Dim M(2)For i=1 To 2 M(i)=0Next iK=2For i=1 To k For j=1 TO k M(j)=M(i)+1 Print M(k); Next jNext i假设通用声明段中有语句Option base 1，过程中定义数组：Dim a(6) as Integer，则以下引用数组元素的语句中正确的是_a(n + 3) = a(n+1) + a(n+2)_。下列程序段的执行结果为_18 _ Dim A(5, 5) As IntegerFor i = 1 To 3 For j = 1 To 4 A(i, j) = i * j Next jNext iPrint A(2, 3) + A(3, 4) + A(4, 5)执行下面的程序，输出结果是_18 30_。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1:N=2 Print M+N+F(M,N) M=2:N=1 Print F(M,N)+F(M,N); End Sub Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y End Function在语句Public Sub Sort(I As Integer)中，I是一个按_地址_传递的参数。设有如下程序 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n = InputBox("输入数据") If n < 10 Then Call GetArray(a, n) End If End Sub Private Sub GetArray(b() As Integer, n As Integer) Dim c(10) As Integer j = 0 For i = 1 To n b(i) = CInt(Rnd() * 100) If b(i) / 2 = b(i) 2 Then j = j + 1 c(j) = b(i) End If Next i Print j End Sub 以下说法中错误的是_GetArray过程的参数n 是按值传送的 _。VB是用于开发_Windows_环境下的应用程序的工具。以下叙述中错误的是_Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性_。为了清除窗体上的一个控件，下列正确的操作是_选择（单击）要清除的控件，然后按Del键_。若磁盘文件C:Data1.dat不存在，下列打开文件语句中，会产生错误的是_Open "C:Data1.dat" For Input As #2_。下面程序段的运行结果为_1 2 6 24 _。 For i=1 To 4 n=1 For j=1 To I n=n*j Next j Print n； Next i在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click() Dim A As Integer A = Inputbox("Enter An Integer") B = Inputbox("Enter An Integer") Text1.Text = B + AEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是_60_。在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click() X = Inputbox("请输入一个整数") Print X + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击"确定"按钮后，在窗体上显示的内容是_。运行下面程序，输出结果是_8 _。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim d As Integer a = 5 b = -3 c = 8 d = IIf(a > b And a > c, a, IIf(b > c, b,c) print d End Sub有如下程序： Private Sub Command1_Click() x = InputBox("input value") Select Case x Case Is > 0 y = x + 1 Case Is = 0 y = x + 2 Case Else y = x + 3 End Select Print x; y End Sub假设运行时从键盘上输入-5，输出结果是_-5 -2 _。若要将水平滚动条的最小值设为0，最大值设为255，应对其_Min 和 Max_属性进行设置。以下能在窗体Form1的标题栏中显示"Visualbasic窗体"的语句是_Form1.Caption="Visualbasic窗体"_。在窗体上画一个名称为CommonDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程: Private Sub Command1_Click() CommonDialog1.FileName = "" CommonDialog1.Filter = "all file|*.*|(*.DoC）|*.Doc|(*.Txt)|*.Txt" CommonDialog1.FilterIndex = 2 CommonDialog1.DialogTitle = "VBTest" CommonDialog1.Action = 1 End Sub 对于这个程序，以下叙述中错误的是_在该对话框中指定的默认文件类型为文本框（*.Txt）_。以下不能作为Visual Basic变量名的是_12-E_。表达式2+3*45-Sin（X+1）/2中最先进行的运算是_X+1 _。图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是_Stretch_。以下关于函数过程的叙述中，正确的是_函数过程形参的类型与函数返回值的类型没有关系 _。在下面的程序段中，循环体将执行_0_次。 For v=10 To 20 Step -2 print v Next v当一个PictureBox控件的AutoSize属性为True时，在该控件中载入一个比控件的高度与宽度都大的图片时，图片的大小与控件的大小相比是_相等 _。程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是_Load _。设窗体上有一个文本框，名称为Text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是_Text1.Enabled=False_。38.
