单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Static a AS Integer
Static b As Integer
Cls
b=2
b=b+2
a=3+a
Print a，b
End Sub
程序运行后，三次单击该命令按钮，此时窗体上显示的结果是______。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1＿Click( ) Dim a a＝Array(1，2，3，4，5) For i＝1 To UBound(a) a(i)=a(i)+i-1 Next Printa(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是
单选题下面关于文件的叙述中，错误的是______。
单选题设窗体上有名称为Optionl的单选按钮，且程序中有语句： If Optionl．Value=True Then下面语句中与该语句不等价的是
单选题在窗体上画一个名为Command1的命令按钮，然后编写以下程序： Private Sub Commandl_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x)) End Sub 运行程序，单击命令按钮，在窗体上显示的是
单选题在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键，可以将该菜单项的标题设置为
单选题有如下事件过程，当同时按下转换键Ctrl和功能键F6时，最后输出的信息是( )。
Const ShiftKey=1
Const CtrlKey=2
Const Key_F5=&H74
Const Key_F6=&H75
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
If KeyCode=Key_F5 And Shift=ShiftKey Then
Print"Press Shift+F5"
Elself Key Code=Key_F6 And Shift=CtrlKey Then
Print"Press Ctrl+F6"
End If
End Sub
单选题为了使名称为Command1的命令按钮右移200，应使用的语句是( )。
单选题假定有以下循环结构Do Until条件表达式循环体Loop则以下正确的描述是
单选题图像框中的stretch属性为true时，其作用是( )。
单选题要清除已经在图片框Picturel中打印的字符串而不清除图片框中的图像，应使用语句( )。
单选题以下叙述中错误的是( )。
单选题设有如下一段程序：
Private Sub Command1_Click()
Static a As Variant
a=Array("one", "two", "three", "four", "five")
Print a(3)
End Sub
针对上述事件过程，以下叙述中正确的是
单选题下列叙述中正确的是( )。
单选题( )控件可以使图形根据控件大小而改变大小。
单选题窗体上有1个名称为Command1的命令按钮，在设计模式下，双击Command1，将打开( )。
单选题下面程序的输出结果是( )。 Private Sub Command1_Click() ch$="ABCDEF" proc ch Print ch End Sub Private Sub proc(ch As String) s="" For k=Len(ch)To 1 Step-1 s=s & Mid(ch,k,1) Next k ch=s End Sub A) ABCDEF B) FEDCBA C) A D) F
单选题下列程序代码段中，在单击命令按钮调用SelMid函数时，其运行结果为( )。 Private Function SelMid(aStr As String)As String Dim temp As String Dim sLen As Integer temp="" sLen=Len(aStr) i=1 Do While i＜=sLen/2 temp=temp+Mid(aStr,i,1)+Mid(aStr,sLen-i+1,1) i=i+1 Loop SelMid=temp End Function Private Sub Command1_Click() Dim Str As String Str="abcdef":Print SelMid(Str) End Sub
单选题假定窗体上有一个文本框，名为txt1，为了使该文本框的内容能够换行，并且具有垂直滚动条，没有水平滚动条正确的属性设置为
单选题设有如下函数：
Function DelSpace(ch As String)As Integer
Dim n％，st$，c$
st=””：n=0
For k=1 To Len(ch)
c=Mid(ch，k，1)
If c<>””Then
st=st&c
Else
n=n+1
End If
Next k
ch=st：DelSpace=n
End Function
该函数的功能是