 |
|
|
|
(21) 与List1.Text属性值相同的是
A．List1.ListCount
B．List1.List(ListCount-1)
C．List1.ListIndex
D．List1.List(List.ListIndex)
正确答案: D
(22) 当把框架的何属性设置为False时，其标题会变灰，框架中所有的对象均被屏蔽？
A．Name
B．Enabled
C．Caption
D．Visible
正确答案: B
(23) 设执行以下程序段时依次输入2，4，6，执行结果为
Dim a(4) As Integer
Dim b(4) As Integer
For k=0 To 2
a(k + 1) =Val(InputBox( "Enter data:") )
b(3 - k) =a(k + 1)
Next k
Print b(k)
A．2
B．4
C．6
D．0
正确答案: A
(24) 编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Shift＝6 And Button＝2 Then
Print "PC"
End If
End Sub
程序运行后，为了在窗体上输出"PC"，应执行的操作为
A．同时按下Shift键和鼠标左键
B．同时按下Ctrl，Alt键和鼠标右键
C．同时按下Shift键和鼠标右键
D．同时按下Ctrl，Alt键和鼠标左键
正确答案: B
(25) 如果在窗体上添加一个通用对话框控件DBT，那么语句"DBT.Action=4"的作用是
A．显示"打开文件" 对话框
B．显示"保存文件"对话框
C．显示"字体"对话框
D．显示"打印"对话框
正确答案: C
(26) 下列说明中，不属于随机文件特点的是
A．可以随意读取随机文件中任一记录的数据
B．随机文件没有只读或只写的操作方式，随机文件只要一打开，就既可读又可写
C．随机文件的操作是以记录为单位进行的
D．随机文件的读、写操作语句与顺序文件的读写操作语句一样
正确答案: D
(27) 执行下面的程序后，输出的结果是
x=1
For j=1 To 4
x=x - 1: y=0
For k=1 To 4
x=x + 1: y=y + 1
Next k
Next j
Print x; y
A．1 4
B．13 4
C．12 8
D．20 6
正确答案: B
(28) 有如下程序段，该程序段执行完后，执行循环的次数是
total=0
Counter=1
Do
Print Counter
total=total + Counter
Print total
Counter=Counter + 1
If total > 10 Then
Exit Do
End If
Loop While Counter <=10
A．5
B．10
C．15
D．20
正确答案: A
(29) 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command _Click()
s=0
Do
s=(s + 1) (s + 2)
Number=Number + 1
Loop Until s >=30
Print Number, s
End Sub
程序运行后，输出的结果是
A．2 3
B．3 182
C．5 12
D．10 20
正确答案: B
(30) 有如下程序：
Private Sub Command1_Click()
a$= "A WORKER IS HERE"
x=Len(a$)
For i=1 To x - 1
b$=Mid$(a$, i, 3)
If b$= "WOR" Then S=S + 1
Next
Print S
End Sub
单击命令按钮，程序运行结果为
A．1
B．2
C．3
D．5
正确答案: A
相关文章 推荐文章
2007-9-17
