单选题下面叙述中不正确的是______。 A) 自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明 B) 自定义数据类型只能在窗体模块的通用声明段进行声明 C) 在窗体模块中定义自定义数据类型时必须使用Private关键字 D) 自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型
单选题在窗体上画一个名为List1的列表框、一个名为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。
单选题在Viusal Basic中，表达式3*2/5 Mod 3的值是
单选题编写如下事件过程： Option Explicit Private Sub Form_Click() Dim Str As String， I As Integer Open "examp" For Output As 1 For I=1 To 5 Str=Chr(I+64) Print #1，Str； Next I Close 1 Open”examp'，For lnput AS 2 Str=Input(10，#2) Print Str； Close 2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是
单选题对序线性表(23，29，34，55，60，70，78)用二分法查找值为60的元素时，需要比较次数为( )。
单选题使用语句Dim A(1 To 10)As Integer声明数组A后，以下叙述正确的是( )。
单选题编写如下程序：
Private Sub Command1_Click()
Dim a(3, 3) As Integer, s As Integer
For i=1 To 3
For j=1 To 3
a(i, j)=i*j+i
Next j
Next i
s=0
For i=1 To 3
s=s+a(i, 4-i)
Next i
Print s
End Sub
程序运行后，单击命令按钮Command1，输出结果为
单选题下面属性中，用于自动调整图像框中图形内容的大小的是
单选题下列选项属于栈和队列共同点的是______。
A.只允许在端点处插入和删除元素
B.都是先进先出
C.都是先进后出
D.二者没有共同点
单选题在窗体上有一个名称为Label1的标签和一个名称为Timerl的计时器，并编写有如下几个事件过程： Private Sub Form Load)_ Timerl．Enabled=False Timer1．Interval= End Sub Private Sub，Form Click() Timerl．Enabled= End Sub Private Sub Timerl Timer() Label1．Caption= End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1s钟变换一次，在横线处应填写( )。
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写下列代码： Option Base
1 Private Sub Command1_Click() Dim
a a=Array(1,2,3,4) j=1
For i=4 T0 1 Step-1
s=s+a(i)*j j=j*10 Next
i Print s End Sub
程序运行后，单击命令按钮，其输出结果是{{U}} {{/U}}
A.4321
B.1234
C.34
D.12
单选题有一程序段，其功能是：当x＞0时，y=x；当-2=＜x＜=0时，y=-x,当x＜-2时，产生一个“输入错误”信息框。则下列程序空白处应为_______。
Private Sub Form_Click() x % =
InputBox("请输入x的值：") If x＞0 Then
y=x
_______ y=-x
Else MsgBox
"输入错误" End If
Print y End Sub
A.Else x＞=-2 And x＜=0 Then
B.ElseIf x＞=-2 And x＜=0 Then
C.ElseIf x＞=-2 And x＜=0
D.Else If x＞=-2 And x＜=0 Then
单选题设有如下通用过程： 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 程序运行后，单击命令按钮，文本框中显示的是
单选题设：a＝12，b＝5，c＝7，表达式 x＝(a/c＋a Mod b)＋Int(13 / 5)的值是( )。
单选题待排序的关键码序列为(15，20，9，30，67，65，45，90)，要按关键码值递增的顺序排序，采取简单选择排序法，第一趟排序后关键码15被放到第( )个位置。
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 if i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 A) 2 B) 3 C) 4 D) 5
单选题英文缩写OLE的含义是( )。
单选题设A$="北京"，B$="Shanghai"，则表达式LEFTS(A$，2) +STRINGS(3，"-")+LEFTS(B$，8)构成的字符串是
单选题下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Dimx(10)As Integer,y(5) As Integer ForI=1 to 10 x(i)=10-I+1 NextI ForI=1 to 5 y(i)cx(2*-1)+x(2*I) NextI ForI=1 to 5 Printy(i)； NextI End Sub
单选题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 2 x=x+6 Next Next Print x End Sub 程序运行后，单击命令按钮，输出结果是