单选题编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1, 2, 3, 4):s=0:j=1
For i=4 To 1 Step-1
s=s+a(i)*j:j=j*10
Next i
Print s
End Sub
程序运行后，单击命令按钮Command1，输出结果为
单选题内聚性是对模块功能强度的衡量，下列选项中，内聚性较弱的是( )。
单选题数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。下面图符名标识的图符不属于数据流图合法图符的是
单选题标准模块中有如下程序代码： Public x As Integer，y As Integer Sub var_pub() x=10;y=20 End Sub 在窗体上有1个命令按钮，并有如下事件过程： Private Sub Command1_Click() Dim x As Integer Call var_pub x=x+100 y=y+100 Print x;y End Sub 运行程序后单击命令按钮，窗体上显示的是( ) A．100 100 B．100 120 C．110 100 D．110 120
单选题下面表达式中，( )的运算结果与其他三个不同。
单选题在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text)，并把窗体的KevPreview属性设置为True，然后编写如下代码：Dim SaveAll As String Private Sub Form_KeyPress(KeyAscii_Private SUb Form_Load() As Integer)Text1．Text=""：Text1．SetFocus SaveAll=SaveAll+Chr(KeyAscii)End SUb End SubPrivate Sub Commandl_Click() Text1．Text=LCase(SaveAll)+SavAllEnd Sub程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为
单选题有如下过程代码：
Sub var_dim()
Static numa As Integer
Dim numb As Integer
numa=numa+2:numb=numb+1:print numa; numb
End Sub
连续3次调用var_dim过程，第3次调用时的输出是
单选题下列叙述中正确的是______。 A) 在窗体的Form_Load事件过程中定义的变量是全局变量 B) 局部变量的作用域可以超出所定义的过程 C) 在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程 D) 在调用过程中，所有局部变量被系统初始化为0或空字符串
单选题当一个工程含有多个窗体时，其中的启动窗体是______。
单选题假定在窗体上建立一个通用对话框，其名称为CommonDialog1，用下面的语句可以建立一个对话框： CommonDialog1.Action=4 与该语句等价的语句是( )。
单选题不能触发滚动条(如图所示)Change事件的操作是______。
单选题如果一个变量未经定义就直接使用，则该变量的默认类型为
单选题在窗体上画一个名为Command 1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1, 2, 3, 4, 5) j=1 For i=5 To 1 Step -1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。
单选题下列可作为Visual Basic中所允许的形式的数是
单选题设在窗体中有一个名称为List1的列表框，其中有若干个项目(如图所示)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是()A．PrivateSubCommand1_Click()List1.ClearEndSubB．PrivateSubCommand1_Click()List1.ClearList1.ListIndexEndSubC．PrivateSubCommand1_Click()List1.RemoveltemList1.ListIndexEndSubD．PrivateSubCommand1_Click()List1.RemoveltemEndSub
单选题以下关于Visual Basic的参数传递的描述不正确的是______。
单选题有下列二叉树，对此二叉树前序遍历的结果是______。
单选题线性表常采用的两种存储结构是( )。
单选题下面程序段，运行后的结果是( )。 Private Sub Command1_Click() Dim b%(1 To 4),i%,t# For i=1 To 4 b(i)=i Next t=Tof(b)) Print“t=”：t， End Sub Function Tof(a() As Integer) Dim t%，i% t=1 For i=2 To UBound(a) t=t a(i) Next Tof=t End Function A) t=18 B) t=24 C) t=30 D) t=32
单选题可以同时删除字符前导和尾部空白的函数是 ______。