单选题窗体上有一个名为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(j):a(j)=a(j+1):a(j+1)=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是 A) 1 2 3 4 5 B) 5 4 3 2 1 C) 0 1 2 3 4 D) 4 3 2 1 0
单选题在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程： Private Sub Command1_Click() Dim i As Integer，n As Integer For i=0 To 50 i=i+3 n=n+l Ifi>10 Then Exit For Next Text1．Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的是( )。
单选题下列程序代码段中，在单击命令按钮调用SelMid函数时，其运行结果为( )。 Private Function SelMid(aSlr AS String)As String Dim temp As String，sLen As Integer temp＝""：sLen＝Len(aStr) i＝1 Do While i＜＝sLcn／2 temp＝temp＋Mid(aStr,i,1)＋Mid(aStr,sLen－i＋1，1) i＝i＋1 Loop SeMid＝temp End Function Private Sub Command1_Click() Dim SirAs String Str＝"abcdef"：Print SelMid(Str) End Sub
单选题窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序：PrivateSubcommand1_Click()DimnIfText1.Text＜＞"123456"Thenn=n+1Print”口令输入错误”&n&“次”EndIfEndSub希望程序运行时得到左图所示的效果，即输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是______。
单选题在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click() Print fun("ABCDEFG") End Sub Function fun(st As String)As string stlen=Len(st) temp=" " For k=1 To stlen/2 temp=temp+Mid(st,k,1)+Mid(st, stlen-k+1 ,1) Next k fun=temp End Function 程序运行时，单击命令按钮，则在窗体上显示的是______。 A) ABCDEFG B) AGBFCED C) AGBFCE D) GAFBEC
单选题在窗体上有两个名称分别为Text1、Text2的文本框，—个名称为Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明： Private Type Person name As String*8 major As String*20 End Type Dim p As Person 设文本框中的数据已正确地赋值给Person类型的变量p，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是______。
单选题设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click() Dim a ks Integer a=10 Call g(Form2, ) End Sub private Sub g(f As Form, x As Integer) Y=Iif(x＞10, 100, -100) f. Show f. Caption=Y End Sub 运行以上程序，正确的结果是______。
单选题下列程序的执行结果是______。 s=0 i=1 Do While i＜=100 s=s+i Loop Print S
单选题以下关于通用对话框概念的说法中，错误的是______。
单选题在软件工程中，白箱测试法可用于测试程序的内部结构。此方法将程序看做是______。
A.路径的集合
B.选择的集合
C.操作的集合
D.目标的集合
单选题在Visual Basic中，所有标准控件都具有的属性是
单选题下列程序运行时输出的结果是( )。 Option Base 1 Const a=10 Private Sub Form_Click0 Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub
单选题数据库系统的核心是
单选题以下关于过程的叙述中，错误的是
单选题下列程序执行后，变量x的值为( )。 Dim a,b,c，d As Single Dim x As Single a=100 b=20 c=1000 If b＞a Then d=a:a=b:b=d End If If b＞c Then x=b Elseif a＞c Then x=c Else x=a End If A) 100 B) 20 C) 1000 D) 0
单选题编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是
单选题在窗体上画一个名为Checkl的复选框，如果在窗体启动事件中编写语句“Checkl．Enabled=False”，则运行后复选框的状态为( )。
单选题以下Visual Basic不支持的循环结构是
单选题层次型、网状型和关系型数据库划分原则是( )。 A) 记录长度 B) 文件的大小 C) 联系的复杂程度 D) 数据之间的联系方式
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim k As Integer Private Sub Form_Load() k=15 End Sub Private Sub Command1_Click() Static b As Integer b=b+k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是( )。