单选题有如下的程序：
Private Sub Command1_Click()
Dim k As Integer，m AB Integer
Dim P As Integer
k=4:m=1
P=Fun(k，m) =Print P；
P=Fun(k，m) :Print P
End Sub
Private Function Fun(a As Integer，b As Integer)
Static m As Integer，i As Integer
m=5:i=2
i=i+m+1
m=i+a+b
Fun=m/2
End Function
单击命令按钮后，输出结果为
Ａ) 2 2 Ｂ) 4 4
Ｃ) 5 5 Ｄ) 6 6
单选题下面描述中，不符合结构化程序设计风格的是 ______。
单选题设x为整型变量，以下不能正确表达数学关系式2＜x＜5的Visual Basic表达式为 _______。
单选题设有如下程序：
Sub proc(x()As Integer)
Static i As Integer
Do
x(i)=x(i)+x(i+1)
i=i+1
Loop While i＜2
End Sub
Private Sub Command1_Click()
Dim a(5)As Integer,i As Integer
For i=0 To 4
a(i)=i+1
Next i
Call proc(a)
Call proc(a)
For i=0 To 4
Print a(i);
Next i
End Sub
程序运行后，单击命令按钮Command1，输出结果为
单选题设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是（ ）。
单选题在窗体上有一个名称为CD1的通用对话框和一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“保存”，缺省文件名为“ABC”，在“文件类型”栏中显示*．txt。则能够满足上述要求的程序是( )。
单选题下面有关标准模块的叙述中，错误的是( )。
单选题窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框，窗体的单击事件过程如下：
Private Sub Form_Click()
CD1.DialogTitle="改变颜色":CD1.Color=Form1.BackColor
CD1.Action=3:Text1.BackColor=CD1.Color
End Sub
运行程序时，单击窗体，则以下叙述中错误的是
单选题以下关于过程及过程参数的描述中，错误的是( )。
单选题数据的存储结构包括顺序、______、索引和散列四种基本类型。
单选题执行下列语句后整型变量a的值是 ______。 If(3-2)＞2 Then a=10 Els If(10/2)=6 Then a=20 Else a=30 End If
单选题没有如图所示窗体和以下程序：PrivateSubCommandlClick()Text1．Text="VisualBasic"EndSubPrivateSubText1LostFocus()IfText1．Text"BASIC"ThenText1．Text=""Text1．SetFocusEndIfEndSub程序运行时，在Text1文本框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是()。
单选题窗体上有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)单击"退出"按钮，结束程序的运行