单选题设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load()
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Print"程序设计"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是______。
单选题为了使文本框只具有垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为( )。 A) 0 B) 1 C) 2 D) 3
单选题下列关于MDI子窗体在运行时特性的叙述错误的是( )。
单选题以下关于变量类型说明符的使用正确的是
____
单选题下述程序的功能是______。 x="((a+B) *
单选题以下过程的功能是从数组中寻找最大值： Private Sub FindMax(a() As Integer,ByRef Max As Integer) Dim S As Integer,fAs Integer：Dim i As Integer S=LBound(a):f=UBound(a) Max=a(s) For i=S To f Ifa(i)>Max Then Max=a(i) Next End Sub 以下关于上述过程的叙述中，错误的是
单选题以下程序运行后的窗体如图所示。其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。PrivateSubCommand1_Click()IfNotCheck(Combo1.Text)ThenMsgBox("输入错误")ExitSubEndIfFork=0ToCombo1.ListCount-1IfCombo1.Text:Combo1.List(k)ThenMsgBox("添加项目失败")ExitSubEndIfNextkCombo1.AddltemCombo1.TextMsgBox("添加项目成功")EndSubPrivateFunctionCheck(chAsString)AsBooleann=Len(ch)Fork=1Tonc$=UCase(Mid(ch,k,1))IfC＜"A"OrC＞"Z"ThenCheck=FalseExitFunctionEndIfNextkCheck=TrueEndFunction程序运行时，如果在组合框的编辑区中输入"Java"，则单击命令按钮后产生的结果是______。A)没有任何显示B)显示"输入错误"C)显示"添加项目失败"D)显示"添加项目成功/
单选题如果有一个菜单项，名称为MenuItem，为了运行时使该菜单项失效(变灰)，应使用的语句为______。
单选题在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是
单选题下列描述中正确的是
单选题在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码： Private Sub Commandl_Click() Dim n0 As Integer：Dim a，b As Integer a=InputBox(”Enter the first number”) b=InputBox(”Enter the second number”) ReDim n(a To b) For k=LBound(n) To UBound(n) n(k)=k Print n(k)； Next k End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为
单选题窗体上有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 Base 1 Pfivate Sub Form_Click() Dim arr,Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Nexti print Sum End Sub 程序运行后，单击窗体，输出结果为( )。
单选题为计算a"的值，某人编写了函数power如下： Private Function power(a As
Integer，n As Integer)As Long Dim s As
Long p=a For k=1
To n p=p*a
Next k power=p End
Function 在调试时发现是错误的，例如Print
power(5，4)的输出应该是625，但实际输出是3125。程序需要修改。下面的修改方案中有3个是正确的，错误的一个是______。
A.把For k=1 To n改为For k=2 To n
B.把p=p*a改为p=p^n
C.把For k=1 To n改为For k=1 To n-1
D.把p=a改为p=1
单选题下面的程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click() Dim a(1 To 6)As Integer Dim min1%,i%,j%,n%,t%,k% a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7 n=6 For i=1 To n-1 min 1=i For j=i+1 To n If a(j)＜a(min1)Then min1=j Next j t=a(i):a(i)=a(min1):a(min1)=t Next i For i=1 To n Print a(i) Next i End Sub
单选题关于水平滚动条，如下叙述中错误的是
单选题通过以下 ______ 窗口可以在设计时直观的调整窗体在屏幕上的位置。
单选题有如下程序：
Private Sub Form_Click()
Dim s As Integer, p As Integer
p=1
For i=1 To 4
For j=1 To i
s=s±j
Next j
p=p*s
Next i
Print p
End Sub
程序运行后，单击窗体，则输出结果是
单选题有下列二叉树，对此二叉树中序遍历的结果是()A．BDYEACFXZB．DYBEAFCZXC．ABCDEFXYZD．ABDYECFXZ