单选题在窗体上画一个通用对话框，其名称为CommonDialog1，则下列与CommonDialog1.ShowOpen方法等效的语句是( )。
单选题在下列关系运算中，不改变关系表中的属性个数但能减少元组个数的是( )。
单选题有如下程序： Option Base 1 Private Sub Command1_Click() Dim arr(10) arr+Array(10, 35, 28, 90, 54, 68, 72,90) For Each a Inarr If a＞50 Then Sum=Sum+a End If Next a End Sub 运行上述程序时出现错误，错误之处是( )。 A) 数组定义语句不对，应改为Dimarr B) 没有指明For循环的终值 C) 应在For语句之前增加Sum=0 D) Next a应改为Next
单选题在Visual Basic中，下列运算符中优先级最高的是______。 A) * B) / C) ＜ D) Not
单选题在Visual FoxPro中进行参照完整性设置时，要想设置成：在删除父表中的记录时，如果子表中有相关的记录，那么自动删除子表中相关的所有记录。应选择删除规则中的( )
单选题软件生存周期中，解决软件“怎么做”的阶段是( )。
单选题编写如下程序： Private Sub Command1_Click() Dim score As Integer score=86 If score>85 Then r=1 Else Ifscore>60 Then r=2 Else r=0 End If Print r End Sub 程序运行后，单击命令按钮Command1，输出结果为
单选题如下关于变体类型变量的叙述中，错误的是
单选题下列有关数据库的叙述，正确的是( ) A．数据处理是将信息转化为数据的过程 B．数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变 C．关系中的每一列称为元组，一个元组就是一个字段 D．如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字。
单选题下列程序段的执行结果为 n=0 For i=1 To 3 For j=5 To 1 Step-1 n=n+1 Next j，i Print n；j；i
单选题在窗体上画一个名为Command1的命令按钮，然后编写如下代码： 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 运行上面的程序，其输出结果是
单选题在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labell)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。
单选题在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt，文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体，打开Alph.txt文件，读取字符串并显示在文本框Text1中，然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2，最后将重新排列的字符串存入AlpO.txt文件中(无双引号界定符)。请选择横线处合适的语句 ( )。 Private Sub Form_Load() Dim StrIn As String, StrOut As String Open "C:/Alph.txt" For Input As #1 ______ Close Text1.Text=StrIn ______ Text2.Text=StrOut Open "C:/AlpO.txt" For Output As #2 ______ Close End Sub Private Function StrSort(s As String) As String Dim sArr() As String *1, i As Integer,j As Integer, n As Integer Dim t As String *1 n=Len(s) ReDim sArr(n) For i=1 To n sAn(i)=Mid(s,i,1) Next i For i=1 To n-1 For j=i+1 To n If sArr(i)＞sArr(j) Then t=sAn(i):sArr(i)=sArr(j):sArr(j)=t End If Next j,i For i=1 To n StrSort=StrSort & sArr(i) Next i End Function
单选题窗体上有名称为Option1的单选按钮，且程序中有语句：
IfOption1.Value=True Then
下面语句中与该语句不等价的是______。
单选题下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，下划线处应填( )。 Sub EnSure() Dim year As Integer year=Val(InputBox("请输入年份:")) If(year Mod 4=0 ______ year Mod 100＜＞0) ______ (year Mod 400=0) Then Print "您输入的是闰年" Else Print "不是闰年，是普通年份" End If End Sub
单选题若在窗体模块的声明部分声明了如下自定义类型和数组： Private Type rec
Code As Integer Caption As String End
Type Dim arr(5)As rec 则下面的输出语句中正确的是______。
A.Print arr.Code(2),arr.Caption(2)
B.Print arr.Code,arr.Caption
C.Print arr(2).Code,arr(2).Caption
D.Print Code(2),Caption(2)
单选题下列关于线性链表叙述中，正确的是________。
单选题下列说明中，不属于随机文件特点的是（ ）。
单选题以下程序段中Do…Loop循环行的次数为( )。 n=5 Do If n Mod 2=0 Then n=n/2 Else n=n*3+1 End If Loop until n=1 A) 4 B) 3 C) 5 D) 2
单选题在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程： Prirate Sub Command1_Click() CommonDialogl. FileName="" CommonDialogl. Filter="All file|*. *|(*. Doc)|*. Doc|(*. Txt)|*. Txt" CommonDialogl. Filterlndex=2 CommonDialogl. DialogTitle="VBTest" CommonDialogl. Action=1 End Sub 对于这个程序，以下叙述中错误的是______。