考试网 >> IT认证 >> 等级 >> 二级考试 >> 2005年9月计算机等级考试二级VB考前密卷[1]下

发布时间：2006-06-28 00:10     点击：

(32)设有如下程序：

Dim a()As Integer

Private Sub Command1_Click()

n=-5：m=6

ReDim a(n To m)

For i=LBound(a，1)To UBound(a，1)

a(i)=i

Next i

Print a(LBound(a，1))；a(UBound(a，1))

End Sub

程序运行后，单击命令按钮，则输出结果是__________。

A)0 0　　B)-5 0　　C)-5 6　　 DO 6

答案：C

评析:ReDim a(n T0 m)指明动态数组a的下标和上标为一5和6；则LBound(a,1)=-5、UBound(a,1)=6。故Print a(LBound(a，1))；a(UBound(a，1))输出a(-5)、a(6)的值。

(33)假定在窗体(名称为Form1)的代码窗口中定义如下记录类型：

Private Type animal

animalName As String*20

aColor As String*10

End Type

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim rec As animal

Open"c：＼vbTest．Dat"For Random As # l Len=Len(tee)

rec．animalName="cat"

rec．aColor="White"

Put # l，，rec

Close # l

End Sub

则以下叙述中正确的是___________。

A)记录类型animal不能在Form1中定义，必须在标准模块中定义

B)如果文件c：＼vbTest．dat不存在，则Open命令执行失败

C)由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

D)语句"Put # l，，rec"将animal类型的两个数据元素写到文件中

答案：D

评析:记录类型可以在标准模块中定义，也可以在窗体模块中定义如果文件c：＼vbTest．dat不存在，Open命令是可以执行的；随机访问模式中文件的写操作使用Put命令，其形式如下：Put[#]文件号，[记录号]，变量名。其中：记录号是大于1的整数，表示写入的是第几条记录。如果忽略记录号，则表示在当前记录后插入一条记录。

(34)在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的　事件过程：

Private Function f(m As Integer)

If m Mod 2=0 Then

f=m

Else

发表评论： 匿名发表 用户名: 查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任 留言板管理人员有权保留或删除其管辖留言中的任意内容 本站提醒：不要进行人身攻击。谢谢配合。