单选题窗体上有1个名称为List1的列表框，1个名称为Text1的文本框。编写如下程序代码： Private Sub Form_Load() List1．Addhem"花卉" List1．Addhem"绿植" List1．Addhem"盆景" Text1．Text="" End Sub Private Sub List1_DblClick() Print List1+Text1．Text End Sub 程序运行时，在文本框中输入“摆放”，然后双击列表框中的“绿植”，输出结果为( )。
单选题在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程： Private Sub Command1_Click() Move 500,500 End Sub 程序执行时，单击命令按钮，实现的功能是( )。
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(By Val m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Commandl_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。
单选题编写如下程序： Private Sub Command1_Click() Dim a(10)As String s="123456"：n=Len(s) For k=1 To n a(k)=Mid(s，k，1) Next k For i=1 To n＼2 t=a(i) a(i)=a(n-i+1)：a(n-i+1)=t Next i For k=l To n Print a(k)； Next k End Sub 程序运行后，单击命令按钮Command1，输出结果为
单选题下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str=“ABCDABCD”，ch=“B”，则函数的返同值为：“ACDACD” Function delchar(str As String,ch As String)As String Dim k As integer,temp As String,ret As String ret="" Fork=1 To Len(str) temp=Mid(str,k,l) If temp=ch Then ret=ret & temp End If Next k delchar=ret End Function 但实际上函数有错误，需要修改。下面的修改方案中正确的是( )。
单选题下面的程序执行完毕后，组合框中数据项的值是( )。Private Sub Form_Click()For i=1To6Combo1．AddItem iNext iFor i=1To3Combo1．RemoveItem iNext iEnd Sub
单选题设窗体上有一个名为List1的列表框，并编写下面的事件过程：
Private Sub List1_Click()
Dim ch As String
ch=List1. List(List1, ListIndex)
List1. RemoveItem List1. ListIndex
List1. AddItem ch
End Sub
程序运行时，单击一个列表项，则产生的结果是______。
单选题窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如下图所示。命令按钮的事件过程如下：PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0CD1.Action=1Case1CD1.ShowSaveCase2CD1.Action=5Case3EndEndSelectEndSub对上述程序，下列叙述中错误的是______。A)单击"打开"按钮，显示打开文件的对话框B)单击"保存"按钮，显示保存文件的对话框C)单击"打印"按钮，能够设置打印选项，并执行打印操作D)单击"退出"按钮，结束程序的运行
单选题以下关于单选按钮和复选框的叙述中，正确的是
单选题在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为ComTestl。设窗体Form1标题为“MyForm1”，双击控件数组中的第3个按钮，打开代码编辑器，编写如下代码： Privae Sub ComTestl_Click(IndexAs Integer) Form1．Caption="MyForm2" End Sub 运行时，单击按钮数组中的第1个按钮，则窗体标题显示为( )。
单选题表达式12／2＼4的值是( )。
单选题文本框的ScrollBars属性设置为非零值，却没有效果，原因是( )。 A) 文本框中没有内容 B) 文本框的MultiLine属性值为False C) 文本框的MultiLine属性值为True D) 文本框的Locked属性值为True
单选题窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Optlon Base 1 Prlvete 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 程序运行后，单击命令按钮，在窗体上显示的内容是______。
单选题要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句( )。 A) Opion Base 0 B) Option Explicit C) Option Base 1 D) Option Compare
单选题为了对多个控件执行操作，必须选择这些控件。下列不能选择多个控件的操作是 A) 按住Alt键，不要松开，然后单击每个要选择的控件 B) 按住Shift键，不要松开，然后单击每个要选择的控件 C) 按住Ctrl键，不要松开，然后单击每个要选择的控件 D) 拖动鼠标画出一个虚线矩形，使所选择的控件位于这个矩形内
单选题有如下事件过程：
Private Sub Commaild1_Click( )
Dim i As Integer
For i =1 To 2
DC
Next i
End Sub
Sub DC( )
Dim x As Integer，m As String
Static y，n
x=x + 1
y=y + 1
m=m&"*"：n=n &"#"
Print x，y，m，n
End Sub
程序运行后，输出的结果是( )。
单选题在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub1:";p;m;n End Sub Private Sub Command1_Click() a1=1:b1=2:c1=3 Call Sub1(a),b1+3,c1) Print "Main:";a1;b1;c1 End Sub 程序运行后，输出结果为( )。 A) Sub: 2 6 4 Main:2 6 4 B) Sub: 2 6 4 Main: 2 6 4 C) Sub: 2 6 4 Main: 1 2 4 D) Sub: 2 6 4 Main: 2 2 4
单选题改变控件的位置不能通过下列( )方法来直接实现。
单选题要使目录列表框(名称为Dir1)中的目录随着驱动器列表框(名称为Drive1)中所选择的当前驱动器的不同而同时发生变化，则应：
单选题编写如下通用过程： Sub Proc(x As Single， y As Single) t = x x = t / y y = t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim a As Single Dim b As Single a = 5 b = 4 Proc a， b Print a， b End Sub 程序运行后，如果单击命令按钮，则输出结果为________。