|
(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 0B)-5 0C)-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
F=l
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s=0
For i=l TO 5
s=s+f(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是__________。
A)llB)10C)9D)8
答案：C
评析：命令按钮事件过程中的For循环的作用是求函数f(i)(i介于l与5之间的整数)的返回值的和。函数f的作用是如果参数m的值是偶数，返回值就是m的值，是奇数，返回值就是1。而1到5之间的整数中共有3个奇数，两个偶数，故s=3*1+2+4=9。
相关资料
| 
