单选题下面程序段执行结果为 x=Int(Rnd()+4) Select Case x Case 5 Print"excellent" Case4 Print"good" Case 3 Print"pass" Case Else Print"fail" End Select
单选题设在工程文件中有—个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20End Type在窗体上画—个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Petson.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是 ______。
单选题列表框中的项目保存在一个数组中，这个数组的名字是( )。
单选题阅读程序：
Option Base 1
Sub P(b() As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Form_Click()
Dim a(4)As Integer
For i=1 To 4
a(i)=i+4
Next i
P a
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击窗体，输出结果为______。
单选题当Esc键与单击该命令按钮作用相同时，此命令按钮的什么属性被设置为 Tree?
A) Style
D) Default
C) Caption
D) Cancel
单选题工程中有Form1、Form2两个窗体(Forml中有文本框Text1；Form2中有Text1文本框和Command1命令按钮)。Form1是启动窗体。在这些模块中编写下面的程序代码：Form1中的代码如下： Form2中的代码如下：Private Sub Text1_DblClick() Private Sub Command1_Click() Text1="VisualBasic" Textl=Form1．Text1 Form2．Show Form1．ShowEnd Sub End Sub下面关于程序的叙述中错误的是
单选题要使文本框获得输入焦点，则应采用文本框控件的( )。 A) GotFocus方法 B) LostFocus方法 C) KeyPress方法 D) SetFocus方法
单选题在窗体上有一个名称为Label1的标签和一个名称为Timer1的计时器，并编写有如下几个事件过程： Private Sub Form_Load() Timer1.Enabled＝False Timer1.Interval＝ End Sub Private SubForm_Click() Timer1.Enabled＝__________ End Sub Private Sub Timer1_Timer() Labe11.Caption＝__________ End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1s钟变换一次，在横线处应填写( )。
单选题设有如下数组定义语句：Dim a(－1 To 4， 3)As Integer 以下叙述中正确的是( )。
单选题工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是： Public X As Integer Private Y As Integer 窗体文件的程序代码是： Dim a As Integer Private Sub Form_Load() Dim b As Integer a=2：b=3：x=10：y=20 End Sub Private Sub Command1_Click() a=a+5：b=b+5：x：x+5：y=y+5 Print a；b；x；y End Sub 运行程序，单击窗体上的命令按钮，则在窗体上显示的是( )。
单选题假设在窗体Form1上加一个通用对话框控件CommonDialog1，用语句CommonDialog1.ShowOpen建立打开文件对话框，那么从该对话框中单击“确定”按钮退出对话框时，为了得到用户所选择的文件的路径以及文件名，应该使用CommonDialog1的属性是 ______ 。
单选题关于菜单设计，下列叙述中错误的是( )。
单选题以下关于多窗体的叙述中，正确的是
单选题执行下列程序段后，输出的结果是
For k1=0 To 4
y=20
For k2=0 To 3
y=10
For k3=0 To 2
y=y+10
Next k3，k2，k1
Print y
单选题如果Tab函数的参数小于1，则打印位置在第( )列。
单选题设组合框Combo1中有3个项目，则下列语句中能删除最后一项的语句是( )。
单选题窗体上有一个名称为Combol的组合框，一个名称为Command 1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能：
Private Sub Command 1_Click()
strl=Trim(Combol．Text)
flag=0
If strl<>""Then
For i=0 To Combol．ListCount-1
If strl =Combol．List(i)Then
Combol．RemoveItem i：Combol．Text=""
flag=1
End If
Next
Ifflag=1 Then
Combol．AddItem Combol．Text
End If
End Sub
程序中存在问题，以下关于程序问题的叙述中，正确的是
单选题假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是( )。
单选题单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=3:b :4:c =5 Print SecProc ( c, b, a) End Sub Function FirProc(x As Integer, y As Integer, z As Integer) FirProc:2 * x + y + 3 * z+2 End Function Function SecProc( x As Integer, y As Integer, z As Integer) SecProc = FirProc ( z, x, y) + x + 7 End Function
单选题下列叙述中错误的是{{U}} {{/U}}。
A.菜单项的快捷键不可以任意设置
B.除了Click事件之外，菜单项还能响应其他的事件过程(如Db1Click等)
C.每个菜单项都是一个控件，与其他控件一样都有自己的属性和事件
D.在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择