单选题在窗体上画一个名称为Command1的命令按钮和一个名称为List1的列表框。如下图所示程序的功能是：单击命令按钮后，程序用“筛选法”求出1～100之间的全部素数。将其素数在列表框中显示出来。根据题意，填空处应该选择______。OptionBase1Dima(100)AsIntegerPrivateSubCommand1_Click()n=100Fori=2ToSqr(n)Forj=i+1TonIfjModi=0Anda(j)＜＞0Thena(j)=0NextjNextiFori=1TonIfa(i)＜＞0#ThenNextiEndSubPrivateSubForm_Load()Fori=1To100a(i)=iNextiEndSub
单选题设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时，单击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标题删除。Private Sub Check1_Click(Index As Integer)For k=0ToList1.ListCount-1If Check1(Index).Caption=List1.List(k)Then Exit ForNext kIf k＜List1.ListCount ThenList1.RemoveItem kElseList1.AddItem______________End IfEnd Sub为使上面程序可以实现该功能，程序代码中横线上应该填入的代码是
单选题设a=2，b=4，c=6，下列表达式的值为真的是( )。
单选题下列操作会执行“Form_MouseUp”过程的是______。
单选题要使某菜单能够通过按住键盘上的＜Alt＞键及＜1＞键打开，应{{U}} {{/U}}。
A.在“名称”栏中“K”字符前加上“&”符号
B.在“标题”栏中“K”字符后加上“&”符号
C.在“标题”栏中“K”字符前加上“&”符号
D.在“名称”栏中“K”字符后加上“&”符号
单选题窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim s As Variant
a=Array(1,2,3,4,5)
Sum=0
For i=1 To 5
Sum=Sum_a(i)
Next i
X=Sum/5
For i=1 To 5
If a(i)＞x Then Print a(i);
Next i
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是______。
单选题设工程中有2个窗体：Form1和Form2，每个窗体上都有一个名称为Text1的文本框。若希望把Form1上文本框中的内容复制到Forrrd上的文本框中，应进行的操作是
单选题一个工程文件中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunction的标准模块。设Form1、Form2和mdlFunction中分别定义了通用过程。
Form1中定义的过程：
Private Sub frmFunction1()
……
End Sub
Form2中定义的过程：
Public Sub frmFunction2()
……
End Sub
mdlFunclion中定义的过程：
Public Sub mdlFunction()
……
End Sub
调用上述定义的过程，如果不指明窗体或模块的名称，则以下叙述中正确的是
单选题窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval 属性值为5000，Enabled属性值是True。Timer1的事件过程如下：
Private Sub Timer1 Timer()
Static flag As Integer
If Flag=0 Then Flag=1
Flag=-flag
If flag=1 Then
Text1．ForeColor=＆HFF＆ ＆HFF＆为红色
Else
Text1．ForeColor=＆HCOO＆ ＆HCOO＆为绿色
End If
End Sub
以下叙述中正确的是( )。
单选题窗体上有一个名称为Command1的命令按钮，其单击事件过程及相关的函数过程如下：
Private Sub Command1_Click() Private Function p(x As Integer)As Boolean
Dim i As Integer If x Mod 7<>0 Then
For i=1 To 500 p=True
Ifp(i)Then s=s+1 Else
Next p=False
Print s End If
End Sub End Function
关于上述程序，以下叙述中正确的是
单选题以下关于图片框控件的说法中，错误的是( )。
单选题下面不是键盘事件的是
单选题若变量a未事先定义而直接使用(例如：a=0)，则变量a的类型是( )。
单选题下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请选择正确的程序段是( )，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Dim i As Integer Dim Ksc As Ang Open ______ Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) Next i Close #2 End Sub
单选题下列关于For...next 语句的说法正确的是______。
单选题使用驱动器列表框的______属性可以返回或设置驱动器列表中当前选中的磁盘驱动器的索引值。
单选题在窗体上画一个名称为Conunandl的命令按钮，然后编写如下程序：PrivateSubCommandl_Click()DimiAsIntege,jAsIntegerDima(10,10)AsIntegerFori=1To3Forj=1To3a(i,j)=(i-1)*3+jPrinta(i,j)；NextjPrintNextiEndSub程序运行后，单击命令按钮，窗体上显示的是()。
单选题设x为一整型变量，且情况语句的开始为：Select Case x，则不符合语法规则的Case子句是( )。
单选题为了通过属性窗口将窗体的controlBox属性设置为True(或False)，下列正确的操作是
单选题有下面程序代码：Private Sub Commandl_Click() a=Array(1，2，3，4，5，6，7，8，9，10) n=UBound(a) For k=0 To UBound(a)／2 Print a(k)*a(n)；：n=n－1 Next kEnd Sub程序运行后，单击命令按钮Commandl，输出结果是