单选题设菜单编辑器中各菜单项的属性设置如下表所示： 针对上述属性设置，以下叙述中错误的是()。
单选题为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是( ) A．CD1.DialogTitle="对话框窗口" B．CD1.Action="对话框窗口" C．CD1.FileName="对话框窗口" D．CD1.Filter="对话框窗口/
单选题设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String，strL As Integer lStr="" strL=Len(xStr) i=strL／2 Do While i＜=strL tStr=tStr&Mid(xStr，i+1，1) i=i+1 Loop Fun=tStr&tStr End Function 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String SI="ABCDEF" Text1．Text=LCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，文本框中显示的是( )。
单选题窗体上有一个名称为CD1的通用对话框，一个名称为Command1命令按钮，相应的事件过程如下：
Private Sub Command1_Click()
CD1. Filter="All File | *.* | Text File |*. txtl Word | *. Doc"
CD1. FilterIndex=2
CD1. FileName= "E:/Test. ppt"
CD1. InitDir= "E:"
CD1. ShowOpen
End Sub
关于上述程序，以下叙述中正确的是______。
单选题若在窗体模块的声明部分声明了如下自定义类型和数组：
Private Type rec
Code As Integer
Caption As String
End Type
Dim arr(5) As rec
则下面的输出语句中正确的是______。
单选题若看到程序中有以下事件过程，则可以肯定的是，当程序运行时( )。 Private Sub Click_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) Print "Visual Basic Program" End Sub
单选题结构化程序设计的基本原则不包括
单选题窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Command1_Click() m=-3．6 IfSgn(m)Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显示的内容为
单选题在窗体上画一个命令按钮，然后编写如下事件过程： Prevate Sub Command1_ Click() x=0 Do Until x=-1 a= InputBox(“请输入A的值”) a= Val (
单选题在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2)，新建一个窗体Form2。然后编写如下程序： Private Sub Command1_ Click() msg$ = "Retry" Title$ = "Error!" If Text1. Text = "a" And Text2. Text = "1" Then Unload Me Form 2. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序，要实现单击Command1命令按钮后卸载当前窗体，再弹出名为Form 2的窗体，则在两个文本框中应分别输入______ 。
单选题在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是______ 。 private sub form_ load text1.text=“” text1.setfocus for k=1 to 5 t=t*k next k text1.text=t end sub
单选题下列描述中，正确的是( )。
单选题设有如下通用过程： Public Function Fun(xStr As String)As String Dim t Str As String，strL As Integer tStF=" " strL=Len(xStr) i=1 Do While i＜=strL/2 tStr=Tstr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1) i=i+l Loop Fun=tStr End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1="abedef" Prim UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是( ) A．ABCDEF B．abcdef C．AFBECD D．DEFABC
单选题窗体的MouseDown事件过程如下： Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) 有4个参数，关于这些参数，正确的描述是 ______。
单选题窗体上有一个文本框，其Name属性为Text1，如图所示，并有如下事件过程：PrivateSubForm_Load()Text1.Text="":Text1.SetFocusFori=1To10Sum=Sum+iNextiText1.Text=SumEndSub上述程序的运行结果是{{U}}{{/U}}。A.在文本框Text1中输出55B.在文本框Text1中输出0C.语法错误D.在文本框Text1中输出不定值
单选题编写如下程序： Option Base 1 Prirate Sub Command1_Click() Dim a a=Array(1，2，3，4)：s=0：j=1 For i=4 To 1 Step-1 s=s+a(i)*j：j=j*10 Next i Print s End Sub 程序运行后，单击命令按钮Command1，输出结果为
单选题下列程序段，在运行时最早输出的内容是（ ）。
a=2
C=1
AAA：
C=C + a
If c＜10 Then
Print c
GoTo AAA
Else
Print"10以内的奇数显示完毕。"
End If
单选题在容量为15的循环队列中，若头指针front=6，尾指针rear=9，则循环队列中的元素个数为
单选题窗体上有1个Timer1计时器，1个Shape1形状控件，还有下面程序代码：Dim flag As Boolean Private Sub Timer1_Timer()Private Sub Form_Load() If flag Thenflag=True Shape1．Height=Shape1．Height*2Timer1．Enabled=True Shape1．Width=Shape1．Width*2Timer1．Interval=1000 ElseEnd Sub Shape1．Height=Shape1．Height*0．5Shape1．Width=Shape1．Width*0．5End Ifflag=Not flagEnd Sub执行程序所产生的效果是
单选题使用__________方法可将新的列表项添加到一个列表框中。