VB模拟试卷

一、选择题1．一只白色的足球被踢进球门，则白色、足球、踢、进球门是________。

A.属性、对象、方法、事件B.属性、对象、事件、方法C.对象、属性、方法、事件D.对象、属性、事件、方法2．有程序代码：Text1.Text="Visual Basic",其中的Text1、Text和"Visual Basic"分别代表___ ___。

A. 对象、值、属性B. 对象、方法、属性C. 对象、属性、值D. 属性、对象、值3.将命令按钮Command1设置为不可使用，应设置该命令按钮的( )属性。

A.VisibleB.ValueC.CaptionD.Enabled4．单选按纽（OptionButton）用于一组互斥的选项中。

若一个应用程序包含多组互斥条件，可在不同的___ ___中安排适当的单选按纽，即可实现。

A. 框架控件（Frame）或图象控件（Image）B. 组合框（ComboBox）或图象控件（Image）C. 组合框（ComboBox）或图片框（PictureBox）D. 框架控件（Frame）或图片框（PictureBox）5．以下有关对象属性的说法中正确的是________。

A. 对象所有的属性都罗列在属性窗口列表中B. 不同对象不可能有同名属性C. 不同对象的同名属性取值一定相同D. 对象的某些属性既可以在实行窗口中设置，也可以通过程序代码设置或改变6.下列哪段代码能删除列表框list1中所有项（）A Private Sub Command1_Click()For i = 0 To List1.ListCount - 1List1.RemoveItem iNext iEnd SubB Private Sub Command1_Click()For i = 0 To List1.ListCountList1.RemoveItem 0Next iEnd SubC Private Sub Command1_Click()For i = 0 To List1.ListCount - 1List1.RemoveItem 1Next iEnd SubD Private Sub Command1_Click()For i = 0 To List1.ListCount - 1List1.RemoveItem 0Next iEnd Sub7．代数表达式x1-׀a׀+ln10+sin(x2+2π)/cos(60 0)对应的Visual Basic表达式是( )。

A.X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)B.X1-Abs(A)+Log(10)+Sin(X2+2*π)/Cos(57*3.14/180)C.X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)D. X1-Abs(A)+Log(10)+Sin(X2+2*π)/Cos(57)8.执行以下程序段后,变量c的值为( )a = "Visual Basic Programing"b = "Quick"c =b & UCase (Mid(a,7,6)) & Right(a,11)A)Visual BASIC ProgramingB)Quick Basic ProgramingC)QUICK Basic ProgramingD)Quick BASIC Programing9.在程序中分别将变量intx,bl,st和d 定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是A)intx=3.7 B)bl=#true#C)St=5 & 12.7 D)#28/06/05#10. 以下各表达式中, 计算结果为0的是( )。

A.INT(15.4)+INT(-15.6)B.CINT(13.5)+CINT(-13.6)C.FIX(13.5)+FIX(-12.6)D. CINT(12.5)+CINT(-12.6)11．下列表达式的值为2123的是( )。

A.Val("123asd") & 2000B.Val("123asd") + 2000C.Str(123) & "2000"D.Str(123)+"2000"12．下列程序段的执行结果为( )。

X=-2Y=2IF X*Y<1 THEN Y=Y-2 ELSE Y=Y+2PRINT Y-X>0A.TrueB.FalseC.-1D.2>013．以下语句的输出结果是（）。

Print Format(12345.6, "###,###.##")A.12,345.6B.012,345.6C.12,345.60D.012,345.6014．针对语句If I=1 then J=1，下列说法正确的是____ (03春)A . I=1 和J=1均为赋值语句B. 均为关系表达式C. I=1为关系表达式，J=1为赋值语句D. I=1为赋值语句，J=1为关系表达式15下面有关数组处理的叙述中，不正确的是_______①在过程中用Redim语句定义的动态数组，其下标的上下界可为赋了值的变量②在过程中，可以使用dim,private和static语句定义数组③用Redim语句重新定义动态数组时，不得改变该数组的数据类型④可用Public语句在窗体模块的通用说明处定义一个全局数组A. ①②③④ B ①③④ c.①②③ d. ②④16在窗体的通用声明处有语句“Dim A() As Single”,以下在事件过程中重定义此数组的一组正确语句是A)Redim A(3,3) B) Redim A(3,3)Redim A(4,4) as integer Redim Preserve A(4,4)B)Redim A(3) D) Redim A(3,3)Redim A(3,3) as integer Redim Preserve A(3,4)17.在应用程序中用“Private Function Fun(X As Integer,Y As Single)”定义了函数Fun。

调用函数Fun的过程中的变量I，J均定义为Integer型，能正确引用函数Fun的是。

①Fun(I,J) ②Call Fun(I,3.65)③Fun(3.14,234) ④Fun(“245”,”231.5”)A．①③B．②③④C．①②③D．①②③④18.向一个顺序文件中写数据时，以下何种是从文件末尾添加的方式打开顺序文件．A) Output B)Input C) Write D) Append19．执行下面的程序段，结果是X=Width/2； Y=Height/2Picture1.Line(X， Y) - （X， Y-2000）Picture1.Line(X， Y+2000) - （X， Y）Picture1.Line - （X-2000， Y）A．在图片框中画形如┑的交叉直线B. 在图片框中画形┿的交叉直线C. 在图片框中画形如┫的交叉直线D. 在图片框中画形如┯的交叉直线20．下面有关文件管理控件的说法，正确的是____________ 。

ＡChDir 语句的作用是指明新的缺省工作目录，同时也改变目录列表框的Path 属性Ｂ．改变文件列表框的FileName 属性值，仅改变列表框中显示的文件名，不会引发其它事件Ｃ．改变驱动器列表框的ListIndex 属性值，会改变Drive 属性值并触发Change 事件Ｄ．单击目录列表框中某一项，会触发Change 事件二填空题1．阅读下面的程序，当Sub过程Value形参表中存在ByVal关键字时，执行本程序，单击窗体，在窗体上显示的第一行内容是（1），第二行内容是（2）；若将形参表中的ByVal关键字删除，再执行本程序，单击窗体后在窗体上显示的第一行内容是（3），第二行内容是（4）。

Private Sub sub1(ByVal x As Integer, ByVal y As Integer)x = x + 5y = y * 3Print "x="; x, "y="; yEnd SubPrivate Sub Form_Click()Dim x As Integer, y As Integerx = 2: y = 10sub1 x, yPrint "x="; x, "y="; yEnd Sub2．执行下面程序段，单击窗体后，第一行输出结果为（5），第二行输出结果为（6）。

Option ExplicitOption Base 1Private Sub Form_Click()Dim ch As String, I As Integer, j As IntegerFor I = 0 To 3ch = Chr(Asc("A") + I)For j = 0 To 2If ch = "E" Then ch = "A"Print ch; Space(2);ch = Chr(Asc(ch) + 2)Next jPrintNext IEnd Sub3．执行下面的程序，单击窗体后，第一行显示（7），第二行显示（8）。

Option ExplicitPrivate Sub Form_Click()Dim i As Integer, j As Single, k As Integerj = -1.51For i = 10 To 6.5 Step jk = i + jPrint k,Next iPrintPrint iEnd Sub4．运行下列程序,单击Command1命令按钮后，A（1，1）的值是（9）A（1，3）的值是（10），A（2，2）的值是（11），A（3，1）的值是（12）。

Option ExplicitOption Base 1Private Sub Command1_Click()Dim i As Integer, j As Integer, a(3.3) As IntegerFor i = 1 To 3For j = 1 To 3a(i, j) = i * 2 + jNext jNext iCall proc(a)For i = 1 To 3For j = 1 To 3Print a(i, j);Next jNext iEnd SubPublic Sub proc(a() As Integer)Dim j As Integer, i As IntegerFor i = 1 To 2For j = 1 To 3a(i, j) = a(i, j) + a(i + 1, j)j = j + 1Next ji = i + 1Next iEnd Sub5．运行下列程序：Private Sub Command1_Click()Dim s As String, i As IntegerDim n As Integers = "A7jhs86j23f0HDs"n = 0For i = 1 To Len(s)If Mid(s, i, 1) < Asc("A") Thenn = n + 1End IfNext iPrint nEnd Sub单击Command1命令按钮后，则在窗体上显示的结果是（13）。