单选题窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下：
Private Sub Command1_Click()
Dim m As String
m=InputBox("请输入字符串")
Print pick_str(m)
End Sub
Private Function pick_str(s As String) As String
temp="":i=1:sLen=Len(s)
Do While i＜=sLen/2
temp=temp+Mid(s, i, 1)+Mid(s, sLen-i+1, 1)
i=i+1
Loop
pick_str=temp
End Function
运行程序，单击命令按钮，并在输入对话框中输入“basic”，则在窗体上显示的内容为
单选题阅读程序： Option Base1 Sub P(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Form Click() Dim a(4)As Integer For i=1 To 4 a(i)=i+4 Next i P a For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击窗体，输出结果为
单选题窗体上有名称为Command1的命令按钮和名称为Text1的文本框 Private Sub Command1_Click() Text1．Text="程序设计" Text 1．SetFocus End Sub Private Sub Text1_GotFocus() Text1．Text="等级考试" End Sub 运行以上程序，单击命令按钮后( )。
单选题窗体上有1个名为List1的列表框，其中已经输入了若干个项目(如图所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序。PrivateSubCommand1_Click()DimstrAsString，sAsString，kAsIntegers=Text1：str=""Fork=List1．ListCount-1To0Step-1IfInStr(List1．List(k)，s)＞0Thenstr=str&List1．List(k)&""EndIfNextkIfstr=""ThenText2="没有匹配项目"ElseText2=strEndIfEndSub程序运行时，在Text1中输入"京"，单击命令按钮，则在Text2中显示的内容是()。
单选题窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为______。
单选题窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮(如图所示)，就可以把文本框中的内容写至收件Out．txt中，每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是()。
单选题设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda,则另一命令按钮的名称可能是( )。
单选题以下是MDI子窗体在运行时特性的叙述，错误的是{{U}} {{/U}}。
A.子窗体在MDI窗体的内部区域显示
B.子窗体可在MDI窗体的外部区域显示
C.当子窗体最小化时，它的图标在MDI窗体内显示
D.当子窗体最大化时，其标题与MDI窗体标题合并，并显示在MDI窗体的标题栏中
单选题为了使标签控件在显示其内容时不覆盖其背景内容，需进行设置的属性为
单选题在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(2，4，6，8) j=1 For i=4 To 1 Step-2 s＝s+a(i)*j j=j*10 Next i Print 3 End Sub 运行上面的程序，单击命令按钮，其输出结果是 ( )
单选题在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click() Timer1. ______ End Sub Private Sub Timer1_Timer() Text1. Text=Time End Sub 在填空处应填入的内容是______。
单选题编写程序，要求输入一个正整数，计算各位数字之和，并将计算结果显示在窗体上。程序如下：Private Sub Command1_Click() Dim Sum As Integer, k As Long k = Val(InputBox("输入正整数：")) Do While k > 0 Sum = Sum + ( __________ ) k = k / 10 Loop Print Sum End Sub程序不完整，应该在_______ 处填写的内容是
单选题T一面描述中不属于数据库系统特点的是
单选题在窗体上添加一个文本框，名为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
A. 在文本框中显示120
B. 文本框中仍为空
C. 在文本框中显示1
D. 出错
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub sub1(p，m，n) p=p + 1 : m = m + 1 : n =n + 1 Print p;m;n End Sub Private Sub Command1_Click() x=6 : y=4 : z=2 Call sub1(x，y+1，(z)) Print x；y；z End Sub 程序运行后，单击命令按钮，则窗体上第二行显示的内容是
单选题窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Command1_Click()
Dim arr(5)As Integer
For k=1 To 5
arr(k)=k
Next k
prog arr()
For k=1 To 5
Print arr(k);
Next k
End Sub
Sub prog(a()As Integer)
n=UBound(a)
For i=n To 2 step-1
For j=1 To n-1
if a(j)＜a(j+1)Then
t=a(5):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时，单击命令按钮后显示的是______。
单选题在窗体上画一今名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s；a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。
单选题以下语句用于打开一个顺序文件“Open"C:/MyFile.txt"For OutPut”，但是该语句的一个重要错误是没有______。
单选题数据库系统的三级模式不包括______。
A.概念模式
B.内模式
C.外模式
D.数据模式
单选题以下关于VB文件的叙述中，错误的是( )。