单选题文本框Text1的KeyDown事件过程如下： Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) End Sub 其中参数KeyCode的值表示的是发生此事件时______。 A) 是否按下了Alt键或Ctrl键 B) 按下的是哪个数字键 C) 所按的键盘键的键码 D) 按下的是哪个鼠标键
单选题下面的语句用Array函数为数组变量a的各元素赋整数值：
a=Array(1,2,3,4,5,6,7,8,9)。
针对a的声明语句应该是______。
单选题一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As
Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是（ ）
单选题设有以下循环结构 Do 循环体 Loop While〈条件〉 则以下叙述中错误的是( )。
单选题设有以下函数过程 Private Function Fun(a()As Integer, b As String)As Integer End Function 若已有变量声明： Dim x(5)as Integer, n As Integer, ch As String 则下面正确的过程调用语句是( )。
单选题工程中有两个窗体，名称分别为Form1、Form2，Fonn1为启动窗体，该窗体上有命令按钮 Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮Click事件过程应该是 ______。
单选题在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；1个复选框(名称为Check1，标题为“粗体”)和1个文本框(名称为Text1，Text属性为“改变文字字体”)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是()。A)Option1.Value=FalseCheek1.Value=TrueB)Option1.Value=TrueCheck1.Value=0C)Option2.Value=FalseCheck1.Value=2D)Option1.Value=TrueCheck1.Value=1
单选题在窗件上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() Move 500, 500End Sub程序运行后，单击命令按钮，执行的操作为______。
单选题在窗体上画一个名称为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/