单选题关于自定义数据类型，下面叙述中不正确的是{{U}} {{/U}}。
A. 自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明
B. 在窗体模块中定义自定义数据类型时必须使用Private关键字
C. 自定义数据类型只能在窗体模块的通用声明段进行声明
D. 自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型
单选题编写如下程序： Private Sub Commandl_Click() Dim m As Integer,n As Integer m=1：n=0 Do While m<20 n=m+n：in=3*m+1 Loop Print m，n End Sub 程序运行后，单击命令按钮Command1，输出结果为
单选题在窗体上画一个文本框，其名称为Text1，然后编写如下过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As integer) Print Chr(KeyCode+2) End Sub 程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为
单选题使用通用对话框控件时，要在打开的对话框的标题栏上显示“保存文件”，应把这4个汉字赋给的属性变量是
单选题某人设计了如下程序用来计算并输出7!(7的阶乘)
Private Sub Command1_Click()
t=0
For k=7 To 2 Step-1
t=t*k
Nest
Print t
End Sub
执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结果的是______。
单选题以下关于队列的叙述中正确的是______。
A.在队列中只能插入数据
B.在队列中只能删除数据
C.队列是先进后出(FILO)的线性表
D.队列是先进先出(FIFO)的线性表
单选题窗体的MouseUp事件过程如下： Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single，Y As Single) End Sub 关于以上定义，以下叙述中错误的是
单选题有如下函数过程：Function f1(x As Integer)As LongDim s As Long，i As Integers=0For i=1To xs=s+iNext if1=sEnd Function在窗体上添加一个命令按钮，名为Command1，并编写事件过程调用该函数，则输出结果为( )。Private Sub Command1_Click()Dim i As Integer，sum As LongFor i=1To5sum=sum+f1(i)Next iPrint sumEnd Sub
单选题以下不属于单选按钮的属性是
单选题以下叙述中错误的是
单选题设窗体中有一个文本框Text1，若在程序中执行了Text1. SetFocus，则触发( )。 A) Text1的SetFocus事件 B) Text1的GotFocus事件 C) Text1的LostFocus事件 D) 窗体的GotFocus事件
单选题下面控件中，用于将屏幕上的对象分组的是
单选题判断是否到达文件尾和返回文件字节数的函数是______ 。
单选题关系运算中花费时间可能最长的运算是______。
单选题一个工作人员可是使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是______。
单选题在窗体上画一个命令按钮(名称为Command1)，并编写如下代码： Function Fun1 (ByVal a As Integer, b As Integer) As Integer Dim t As Integer t=a-b b=t+a Fun1=t+b End Function Private Sub Command1_Click() Dim x As Integer x=10 Print Fun1 (Fun1 (x, (Fun1 (x, x-1))), x-1) End Sub 程序运行后，单击命令按钮，输出结果是( )。 A) 10 B) 0 C) 11 D) 21
单选题如果窗体模块A中有一个过程：Private Sub Proc( ) ……End Sub则下面叙述中错误的是
单选题下列循环次数为5的程序段是
单选题设有如下通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String,strL As Integer
strL=Len(xStr)
Do While i<=strL／2
tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1)
i=i+1
Loop
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Click()
Dim S1 As String
Textl.Text=UCase(Fun(S1))
程序运行后,单击命令按钮,则Textl中显示的是【 】
单选题下列有关文件的叙述中，正确的是