vb练习题二(2011-5).doc

VB练习题之二（自我训练，参考答案见附后） 一、选择题（A、B、C、D中4选1） (1)Function过程要由函数名返回一个值。如果不使用As数据类型选项来指定函数的类型，函数类型默认为_____类型。 A)Integer B)Variant C)Long D)String (2)运行程序产生死循环时，按_____键可以终止程序运行。 A)Ctrl+c B)Ctrl+z C)Ctrl+Break D)单击窗体 (3)Function子程序模块用的结束语句是_____。 A）Eixt Sub B)Eixt Function C)End D)End Function (4)窗体中添加一个命令按钮，编写如下程序： Private Sub text(p,m,n) P=p+1:m=m+1:n=n+1 Print”Sub:”;P;M;N End Sub Private Sub Command1_Click() A1=1:b1=2:c1=3 Call text(a1,b1+3,(c1)) Print”Main:”;a1;b1;c1 End Sub 程序运行后，输出结果为_____。 A) Sub：2 6 4 B) Sub：2 6 4 Main：2 6 4 Main：1 6 4 C) Sub：2 6 4 D) Sub：2 6 4 Main：1 2 3 Main：2 2 3 (5)下面对语句 OpenText．DatFor Output As #FreeFile的功能说明中错误的是_____。 A)以顺序文件模式打开文件Text．Dat B)如果文件Text．Dat不存在，则建立一个新文件 C)如果文件Text．Dat已存在，则打开该文件，新写入的数据将增添到该文件中 D)如果文件Text．Dat已存在，则打开该文件，新写入的数据将覆盖原有的数据 (6)要对顺序文件进行写操作，下列打开文件语句中正确的是______。 A)Openfilel.txtFor Output AS #l B)Openfilel.txtFor lnput As #1 C)Openfilel.txtFor Random AS #1 D)Openfilel.txtFor Binary As #1 (7)如果要向WORK.DAT文件中添加数据，那么下面打开该文件的语句中，正确的是____。 A)OpenWORK.DAT FOR OUTPUT As #1 B)OpenWORK.DATFOR APPEND As #1 C)Open WORK.DAT FOR OUTPUT As #1 D)Open WORK.DAT FOR APPEND As #1 （8）以下程序运行时输出的结果是_____。 Private sub Command1_Click() Dim score as integer, k as string Score=Int(10*Rnd+80) Select Case Score Case Is70 k=A Case 70 to 79 k=B Case 80 to 89 k=C Case Else k=D End Select Print k End sub （9）针对语句 If I=1 Then J=1, 下列说法正确的是　　　。 A．I=1和J=1均为赋值语句 B．I=1和J=1均为关系表达式 C．I=1为赋值语句，J=1为关系表达式 D．I=1为关系表达式，J=1为赋值语句 （10）名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是 ??????????? A）Private Sub sort(A(10) As Integer) B）Private Sub sort(A As Integer) C）Private Sub sort(A() As Integer) D）Private Sub sort(A( ，) As Integer) （11）窗体中有二个复选框Check1和Check2，若要显示下图所示的结果，正确的程序代码是_____。 Private sub Form_L