单选题为了声明一个长度为128个字符的定长字符串变量StrD，以下语句中正确的是
单选题窗体上有一个名称为Command1的命令按钮，其事件过程如下： Private Sub Command1_Click() X="VisualBasicProgramming" a=Right(x，11) b=Mid(x，7，5) e=MsgBox(a，，b) End Sub 运行程序后单击命令按钮。以下叙述中错误的是( )。
单选题为计算a"的值，某人编写了函数power如下：
Private Function power(a As Integer, n As Integer)As Long
Dim s As Long
p=a
For k=1 To n
p=p*a
Next k
power=p
End Function
在调试时发现是错误的，例如Print power(5,4)的输出应该是625，但实际输出是3125。程序需要修改。
下面的修改方案中有3个是正确的，错误的一个是______。
单选题默认情况下，下面声明的数组的元素个数是( )。 Dim a(5，-2 To 2) A) 20 B) 24 C) 25 D) 30
单选题三角形的构成条件是：任意2边之和大于第3边。设变量a、b、c是3条直线的长度，要求判断这3条直线能否构成一个三角形。 下面有3个程序段可以正确判断，另一个不能正确判断的是
单选题在“工程资源管理器”窗口中要打开一个窗体模块，应该查找的文件扩展名是________。
A..vbf
B..vbg
C..frm
D..bas
单选题定义含有10个元素的单精度实型一维数组正确的语句是( )。
单选题设窗体文件中有下面的事件过程：
Private Sub Command1_Click()
Dim s
a%=100
Print a
End Sub
其中变量a和s的数据类型分别是
单选题窗体上有三个水平滚动条，名称分别为HSRed、HSGreen和HSBlue，取值范围均是0～255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。程序代码如下：Dimcolor(3)AsIntegerPrivateSubForm______Load()Callfill(color())EndSubPrivateSubfill(c()AsInteger)Form1.BaekColor=RGB(c(1)，c(2)，c(3))EndSubPrivateSubHSRed_Change()color(1)=HSRed.ValueCallfill(color())EndSubPrivateSubHSGreen_Change()color(2)=HSGreen.ValueCallfill(color())EndSubPrivateSubHSBlue_Change()color(3)=HSBlue.ValueCallfill(color())EndSub关于以上程序，如下叙述中错误的是______。A.color是窗体级整型数组B.改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变C.3个滚动条Change事件过程中只设置了一个color数组元素的值，调用fill过程失败D.fill函数定义中的形式参数是数组型参数
单选题用Close语句可以关闭一个已经用完不再使用的文件，当该语句不带任何参数时，它的功能是
单选题在正确安装Visual Basic 6.0后，可以通过多种方式启动Visual Basic 6.0。以下方式中，不能启动Visual Basic 6.0的是( )。
单选题关于自定义对话框概念的说明，错误的是（ ）。
单选题要使标签能够显示所需要的文本，则在程序中应设置______属性的值。
单选题双精度浮点数的类型说明符为
单选题在窗体上画一个命令按钮，其名称为Commandl，然后编写如下代码： Option Base
1 Private Sub Commandl_Click() Dim a
a=Array(1,2,3,4) j=1 For i=4 To 1
Step-1 s=s+a(i)*j j=j*10 Next
i Print s End Sub
程序运行后，单击命令按钮，其输出结果是______。
A.4321
B.1234
C.34
D.12
单选题已知数组a(1 To 10)As Integer,下面调用GetValue函数正确的是( )。 Private Function GetValue(a()As Integer)As Integer For i=1 To 10 Get Value=GetValue+a(i) Next i End Function
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a(3, 3) As Integer
Dim i As Integer, j As Integer, s As Integer
s = 0
For i = LBound(a, 1) To UBound(a, 1)
For j = LBound(a, 2) To UBound(a, 2)
a(i, j) = (i - 1) * 3 + j
If i >= j Then
s = s + a(i, j)
End If
Next j, i
Print s
End Sub
程序运行时，单击Command1，则在窗体上输出的结果是
单选题在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在下列横线处合适的语句是( )。 Private Sub Form_Click() Open "C: /SDat.txt" For Output As 1 For i==1 To 5 StuNo=InputBox("请输入学号") StuName=InputBox("请输入姓名") StuEng=Val(InputBox("请输入英语成绩")) Nexti Close#1 EndSub
单选题现有如下语句：x=IIf(a＞50, Int(a/3), a Mod 2)当a=52时，x的值是
单选题阅读程序： Function F(a As Integer) b=0 Static c b=b+1 c=c+1 f=a+ b+ c End Function Private Sub Command1_Click() Dim S As Integer a=2 For i=1 To 3 Print P(