单选题下列程序的执行结果为 Private Sub Command1_Click() Dim FirStr As String FirSt="abcdef" Print Pat(FirStr) End Sub Private Function Pat(xStr As String) As String Dim tempStr As String，strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr，strLen-i+1,1) i=i+1 Loop Pat=tempStr End Function
单选题SCAN...ENDSCAN结构的语句的控制循环，是通过( )
单选题假定有以下程序段
For i=1 To 3
For i=5 To 1 Step-1
Print i*j
Next j
Next i
则语句Printi*j的执行次数是
单选题为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序：
Private Sub Command1_Click()
Open"File1.txt" For Output As # 20
Do While Not EOF(20)
Line Input #20,chPrint ch
Loop
Close #20
End Sub
程序调试时，发现有错误，下面的修改方案中正确的是______。
单选题下面描述中错误的是( )。 A) 系统总体结构图支持软件系统的详细设计 B) 软件设计是将软件需求转换为软件表示的过程 C) 数据结构与数据库设计是软件设计的任务之一 D) PAD图是软件详细设计的表示工具
单选题在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Labell，然后编写如下事件过程： Private Sub Commandl_Click() Counter=0 Fori=1T04 Forj=6 To 1 Step-2 Counter=Counter+1 Nextj Nexti Labell.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是( )。
单选题在长度为n的有序线性表中进行二分查找，最坏情况下需要比较的次数是( )。 A) O(n) B) O(n2) C) O(log2n) D) O(nlog2n)
单选题确定一个窗体或控件的大小的属性是______。
A. Width或Height
B. Width和Height
C. Top或Left
D. Top和Left
单选题函数过程n的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码的是______。
单选题设有如下事件过程：Private Sub Command1_Click() Dim
a a=Array(12,3,8,5,10,3,5,9,2,4) For k=1 To 9 Print fun(a(k－1),
a(k)); " "; Next kEnd SubPrivate Function fun(x,y)As
Integer Do While x＞=y x=x-y Loop fun=xEnd
Function程序运行时的输出结果是______。
A.4 0 1 0 3 0 0 4 0
B.0 3 3 5 1 3 5 1 2
C.9 －5 3 －5 7 －2 －4 7－2
D.9 3 3 5 7 3 5 7
2
单选题执行语句s=Len(Mid("study hard"，1，5))后，s的值是
单选题简单的交换排序方法是
____
。
单选题在文本框中输入字符时，通过( )事件过程可以得到字符的ASCII码值。 A) Change B) GotFocus C) KeyPress D) LostFocus
单选题为了使能在DOS或Windows下运行的可执行程序也可以在Visual Basic中调用，可通过调用函数来实现。
单选题在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1 (下标从0开始，自左至右顺序增大)，然后编者按写如下事件过程： Private Sub Command1_Cliek() For Each TextBox In Text1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4个文本框中显示的内容分别为( )。
单选题设有以下程序代码：
Private Sub Command1_Click()
a=Array(1，2，7，10，6)
b=Array(5，4，7，8，2)
i=0
j=0
Do
If iUBound(a)And j>UBound(b)
End Sub
上面事件过程执行后产生的输出是( )。
单选题要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是
单选题若要将窗体从内存中卸载，其实现的方法或语句是（ ）
单选题以下关于数据库系统的叙述中正确的是______。
A.数据库系统消除了冗余
B.数据库系统减少了数据冗余
C.数据库系统中数据的一致性是指数据类型的一致
D.数据库系统比文件系统管理数据快
单选题由高中数学可知，对于连续函数f(x)，若f(x1)与f(x2)值的符号相反，则在x1和x2之间必存在x0，使得f(x0)=0(该点称为“零点”)。设有VB函数：Private Function f(x As Single)As Single可以返回f(x)的值(函数体没有给出)。下面程序的功能是从键盘输入2个实数x1、x2，判断在x1、x2之间是否存在零点。 Private Sub Command1_Click() Dim x1 As Single，x2 As Single xl=InputBox("请输入一个实数x1") x2=InputBox("请再输入一个实数x2") if(_________)Then Print"在"；x1；"与"；x2；"之间存在零点" Else Print"不能确定在"；x1；"与"；x2；"之间是否存在零点" End If End Sub Private Function f(x As Single)As Single End Function 为使上面程序可以实现该功能，程序代码中横线处应填写的代码是