单选题在窗体上画一个名称为CommonDialogl的通用对话框，一个名为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗体的标题为“Save”，默认文件名为“SaveFile”，在“文件类型”栏中显示*. txt，则能够满足上述要求的程序是______。
单选题下列可以打开立即窗口的操作是 ______。
单选题语句：Print Int(Rnd*5+20)的输出不可能是
单选题使用Redim Preserve可以改变数组的 A) 最后一维的大小 B) 第一维的大小 C) 所有维的大小 D) 改变维数和所有维的大小
单选题设在窗体上有一个文本框，然后编写如下的事件过程： PriVate Sub
Text1_KeyDown(KeyCode As Integer, Shift As Integer) Const
Alt=4 Const Key_F2=＆H71 altdown%=(Shift And
Alt)＞0 f2down%=(KevCode=Kev_F2) If altdown%
And f2down% Then Text1.Text="abl" End
If End Sub
程序运行后，清除文本框中原有内容，如果按＜Shift+F2＞组合键，则在文本框中显示的是{{U}} {{/U}}。
A.Alt+F2
B.abl
C.随机出几个数
D.不发生变化
单选题若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的______属性。
单选题关于KeyPress事件，以下叙述中正确的是( )。
单选题设有如下通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String, strL As Integer
tStr=" "
strL=Len(xStr)
i=strL/2
Do While i＜=strL
tStr=tStr & Mid(xStr, i+1, 1)
i=i+1
Loop
Fun=tStr & tStr
End Function
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Click()
Dim S1 As String
S1="ABCDEF"
Text1. Text=LCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，文本框中显示的是______。
单选题已知有下面过程： Private Sub proc1(a As Integer,b As String,Optional x As Boolean) ...... End Sub 正确调用此过程的语句是______。 A) Call procl(5) B) Call procl 5,"abc",False C) procl(12,"abc",True) D) procl 5,"abc/
单选题假定有以下程序： Private Sub Form_Click() a=1：b=a Do Until a>=5 x=a*b Print b；x a=a+b：b=b+a Loop End Sub 程序运行后，单击窗体，输出结果是
单选题源程序中应包含一些内部文档，以帮助阅读和理解程序，源程序的内部文档包括选择合适的标识符、注释和
单选题以下关系表达式中，其值为True的是( )。 A) "XYZ"＞"XYz" B) "VisualBasic"＜＞"visualbasie" C) "the"="there" D) "Integer"＜"Int/
单选题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load0 Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1 Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是( )。
单选题
单选题有如下过程代码： Sub var_dim( ) Static numa As Integer Dim numb As Integer numa=numa+2 numb=numb+1 print numa；numb End Sub 连续3次调用vat_dim过程，第3次调用时的输出是( )。
单选题23 有如下程序段，该程序段循环的次数是______。 Dim i As Integer Dim j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 5 If j ＞ 3 Then k = k + 4: Exit For k=k+1 Print k Next j If i ＞ 8 Then Exit For Next i
单选题设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x = 10： y = 5 f = x * y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x = 2：y = 6 y = f(x) Print x； y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
单选题设a=5，b=4，c=3，d=2，则表达式3＞2*b Or a=c And b＜＞c Or c＞d的值是( )。 A) 1 B) True C) False D)2
单选题当标签的标题内容太长，需要根据标题自动调整标签的大小时，应设置标签的
____
属性为True。
单选题在窗体中添加一个命令按钮(其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 -3
s=s+a(i) (j
j = j ( 10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是