假定用下面的语句打开文件：Open"Filcl．txt"For Input As#1则不能正确读文件的语句是（　　）。

试卷相关题目

• 1有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24，…要求编写程序输出该数列中所有不超过1000的数。某人编写程序如下：Private Sub Form Click（　　）Dim i As Intender，a As Integer，b As IntegerDim C As Integer，d As Integera=0：b=1：c=1d=a4-b4-ci=5While d<=1C00Print d；a=b：b=c：c=dd=a+b+ci=i+1WendEnd Sub运行上面的程序。发现输出的数列不完整，应进行修改。以下正确的修改是（　　）。

  A.把While d<=1000改为while d>1000

  B.把i=5改为i=4

  C.把i=i+1移到While d<=1000的下面

  D.在i=5的上面增加一个语句：Print a；b；C；

  开始考试点击查看答案
• 2下列关于函数过程的叙述中，正确的是（　）。

  A.函数过程形参的类型与函数返回值的类型没有关系

  B.在函数过程中，过程的返回值可以有多个

  C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递

  D.如果不指明函数过程参数的类型，则该参数没有数据类型

  开始考试点击查看答案
• 3设有如下程序段：Dim a(10)…For Each X In aPrint X；Next x在上面的程序段中，变量X必须是（　　）。

  A.整型变量

  B.变体型变量

  C.动态数组

  D.静态数组

  开始考试点击查看答案
• 4要求生产10个随机整致，存放在数组arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序：Option Base 1Privare Sub Command1 Click（　　）Dim arr(10)As IntegerFor i=1To 10循环1Arr(i)，=Int(Rnd*100)Print arr(i)；Next ix=InputBox("输入1—10的一个整数：")For i=X+1 To 10循环2arr(i-1)=arr(i)Next iFor i=x-1 To 10 循环3Print arr(i)Next iEnd Sub程序运行后发现显示的结果不正确，应该进行的修改是（　　）。

  A.产生随机数时不使用Int函数

  B.循环2的初值应为i= x

  C.数组定义改为Dim a(11)As Integer

  D.循环3的循环终值应改为9

  开始考试点击查看答案
• 5执行语句Dim X，Y As Integer后，（　）。

  A.X和Y均被定义为整型变量

  B.X和Y均被定义为变体类型变量

  C.X被定义为整型变量，Y被定义为变体类型变量

  D.X被定义为变体类型变量，Y被定义为整型变量

  开始考试点击查看答案
• 6设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是（　　）。

  A.Name

  B.Index

  C.Caption

  D.Left

  开始考试点击查看答案
• 7在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Public Enum Sa=4b=3End EnumPrivate Sub Command1 Click（　）Dim x As Integerx=aIf x>=3 Then MsgBox"Pass!"End Sub运行程序，其结果是（　）。

  A.运行错误．因为Enum定义有错

  B.运行错误．因为x=a类型不匹配

  C.运行正常结束，不显示任何信息

  D.运行正常．显示内容为“Pass!”的信息框

  开始考试点击查看答案
• 8层次型、网状型和关系型数据库划分原则是（　　）。

  A.记录长度

  B.文件的大小

  C.联系的复杂程度

  D.数据之间的联系方式

  开始考试点击查看答案
• 9下列关于文件的叙述中，错误的是（　　）。

  A.使用Append方式打开文件时，文件指针被定位于文件尾

  B.当以Input打开文件时，如果文件不存在，则自动建立一个新文件

  C.顺序文件的各个记录的长度可以不同

  D.随机文件打开后，既可以进行读操作，也可以进行写操作

  开始考试点击查看答案
• 10在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：Private Sub Command1 Click（　　）Dim aa=Array(1，2，3，4)i=3：j=1Do While>=0s=s+a i)*ji=i-1j=j*1cLoopPrint SEnd Sub运行上面的程序，单击命令按钮，则输出结果是（　　）。

  A.4321

  B.123

  C.234

  D.1234

  开始考试点击查看答案