单选题为了调整图像框的大小以与其中的图形相适应，必须把它的Stretch属性设置为
单选题假定有下拉两个过程： Private Sub PPP(a As Single,b As Single) a=a+b Print a,b b=a+b Print a,b End Sub Private Sub Form_Activate() x=18 Call PPP((x),(x)) Print x End Sub 则下列说法中不正确的是( )。
单选题下面的过程定义语句中不合法的是（ ）。
单选题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序： Private Sub Command1_Click() Dim x,y,z As Integer x=5 y=7 z=0 Text1.Text=" " Call Fun1(x,y,z) Text1.Text=Str(z) End Sub Sub Fun1(ByVal a As Integer, ByVal b As Integer,c As Integer) c=a+b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是______。 A) 0 B) 12 C) Str(z) D) 没有显示
单选题下列程序的执行结果是( )。 Function P(N As Integer) For i=1 To N Sum=Sum+i Next i P=Sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S; End Sub
单选题下列程序段的结果为______。
A="ABBACDDCBA"
For I=6 T0 2 Step-2
X=Mid(A,I,I)
Y=Left(A,1)
Z=Right(A,1)
Z=X & Y & Z
Next 1
Print 2
A) ABA 8)AABAAB C) BBABBA D) ABBABA
单选题在窗体上画1名为Command1的命令按钮和1名Text1的文本框，再编写如下程序：
Dim ss As String Private Sub Command1_Click()
Private Sub Text1_KeyPress(KeyAscii_ Dim m As String，i As Integer
As Integer) For i=Len(ss)To 1 Step_1
If Chr(KeyAscii)<>""Then m=m+Mid(ss，i，1)
ss=ss+Chr(KeyAscii) Next
End Sub Text1．Text=UCase(m)
End Sub
程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是
单选题算法的空间复杂度是指
单选题设有以下函数过程：
Function fun(a As Integer,b As Integer)
Dim c As Ineger
If a＜b Then
c=a:a=b:b=c
End IF
c=0
Do
c=c+a
Loop Until c Mod b=0
fun=c
End Function
若调用函数fun时的实际参数都是自然数，则函数返回的是______。
单选题有如下程序：
Private Sub Form_Click()
Dim i As Integer,n As Integer
For i=1 To 20
i=i+4
n=n+i
If i＞10 Then Exit For
Next
Print n
End Sub
程序运行后，单击窗体，则输出结果是______。
单选题在窗体上先后画2个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片(见图1)，且将banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中(见图2)。能实现此功能的事件过程是______。图1图2
单选题设a=4，b=5，c=6，执行语句Print a＜b And b＜c后，窗体上显示的是( )。 A) True B) False C) 出错信息 D) 0
单选题设程序中有以下语句： MsgBox"Visual"，"Basic"，"等级考试"，2 执行该语句后，显示一个信息框，以下关于该信息框的叙述中，正确的是
单选题在窗本上放置一个命令按钮Command1, 并编写下列单击事件的程序： Option Base 1 Private Sub Command1_Click() Dim c As Integer, d As Integer d=0 c=6 X=Array(2, 4, 6, 8, 10, 12) For i=1 To 6 If X(i)＞c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub
单选题为了清除列表框中指定的项目，应使用的方法是( )。
单选题当把框架的( )属性设置为False时，其标题会变灰，框架中所有的对象均被屏蔽。 A) Name B) Enabled C) Caption D) Visible
单选题设有如下程序段： x=2 For i=1 To Step 2 x=x+i Next i 运行以上程序后，x的值是
单选题符号%是声明 ______ 类型变量的类型定义符。
A. Integer
B. Variant
C. Single
D. String
单选题下列数据结构中，能用二分法进行查表的是______。
单选题在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text=“” Text1.SetFocus For i=1 To 9 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是( )。 A) 在文本框Text1中输出45 B) 在文本框Text1中输出0 C) 出错 D) 在文本框Text1中输出不定值