在顺序表(3，6，8，10，12，15，16，18，21，25，30)中，用...

单项选择题

在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，依次增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In TeXt1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为 ______。

A．0 1 2 3
B．1 2 3 4
C．0 1 3 2
D．出错信息

单项选择题

以下关于变量作用域的叙述中，正确的是 ______。

A．窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B．全局变量必须在标准模块中声明
C．模块级变量只能用Private关键字声明
D．Static类型变量的作用域是它所在的窗体或模块文件

单项选择题

在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为：

A．For i=0 To List1.ListCount-1 …… Next
B．For i=0 To List1.Count-1 …… Next
C．For i=0 To List1.ListCount …… Next
D．For i=0 To List1.Count …… Next

单项选择题

骰子是一个正六面体，用1～6这六个数分别代表这六面，掷一次骰子出现的数可表示为 ______。

A．INT(RND(6)+1)
B．INT(RND*6)
C．INT(RND*7)
D．INT(RND*6+1)

单项选择题

数据的完整性是指数据的正确性、有效性和 ______。

A．可维护性
B．独立性
C．安全性
D．相容性

单项选择题

以下叙述中错误的是 ______。

A．下拉式菜单和弹出式菜单都用菜单编辑器建立
B．在多窗体程序中，每个窗休都可以建立自己的菜单系统
C．除分隔线外，所有菜单项都能接收Click事件
D．如果把一个菜单项的Enabled属性设置为False，则该菜单项不可用

单项选择题

在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 ______。

A．Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii＜65 Or KeyAscii＞90 Then MsgBox“请输入大写字母” KeyAscii=0 End If End Sub
B．Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Intege If KeyCode＜65 Or KeyCode＞90 Then MsgBox“请输入大写字母” KeyCode=0 End If End Sub
C．Private Sub Text1 MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Singl， If Asc(Text1.Tex＜65 Or Asc(Text1.Tex＞90 Then MsgBox“请输入大写字母” End If End Sub
D．Private Sub Text1_Change() If Asc(Text1.Tex＞64 And Asc(Text1.Tex＜91 Then MsgBox“请输入大写字母” End If End Sub

单项选择题

排序方法中，将整个无序序列分割成若干小的子序列并分别进行插入排序的方法，称为 ______。

A．希尔排序
B．冒泡排序
C．插入排序
D．选择排序

单项选择题

若进栈序列为1，2，3，4，进栈过程中可以出栈，则下列不可能的一个出栈序列是 ______。

A．1，4，3，2
B．2，3，4，1
C．3，1，4，2
D．3，4，2，1

单项选择题

在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。

A．400
B．20
C．441
D．出错信息

单项选择题

编写如下程序： Private Sub Form_Click() a$="54321":b$="abcde" For j=1 To 5 Print Mid$(a$，6-j，1)+Mid$(b$，j，1)； Next j Print End Sub 程序运行后，单击窗体，其输出结果为 ______。

A．a1b2c3d45e
B．a5b4c3d2e1
C．e1d2c3b4a5
D．1a2b3c4d5e

单项选择题

Print方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是 ______。

A．空格
B．逗号
C．冒号
D．分号

单项选择题

编写如下事件过程： Private Sub Form_Click() k=2 Ifk＞=1 Then A=3 Ifk＞=2 Then A=2 Ifk＞=3 Then A=1 Print A End Sub 程序运行后，单击窗体，输出的结果为 ______。

A．1
B．2
C．3
D．出错

单项选择题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() x=-5 If Sgn(x) Then y=Sgn(x^2) Else y=Sgn(x) End If Print y End Sub 程序运行后，单击命令按钮，其输出结果为 ______。

A．-5
B．25
C．-1
D．1

单项选择题

模块本身的内聚是模块独立性的重要性度量因素之一。在7类内聚中，具有最强内聚的一类是 ______。

A．顺序性内聚
B．过程性内聚
C．逻辑性内聚
D．功能性内聚

单项选择题

以下描述中正确的是 ______。

A．标准模块中的任何过程都可以在整个工程范围内被调用
B．在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
C．如果工程中包含Sub Main过程，则程序将首先执行该过程
D．如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体

单项选择题

在顺序表(3，6，8，10，12，15，16，18，21，25，30)中，用二分法查找关键码值 11，所需的关键码比较次数为 ______。

A．2
B．3
C．4
D．5

单项选择题

不能作为容器使用的对象是 ______。

A．窗体
B．框架
C．图片框
D．图像框

单项选择题

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(3，3) For i=1 To 3 For j=1 To 3 If i=j Then a(i，j)=1 If i＜j Then a(i，j)=2 If i＞i Then a(i，j)=3 Next j Next i For i=1 To 3 For j=1 To 3 Print a(i，j)； Next j Print Next i End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。

A．1 3 3
B．1 2 2
C．2 3 3
D．2 1 1 2 1 3 3 1 2 1 2 3 3 2 1 2 2 1 3 3 1 1 1 2 3 3 2

单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10,10)As Integer Dim i As Integer ,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 ______。

A．15
B．14
C．13
D．12

单项选择题

在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() n=Val(Text1.Text) If n\2=n/2 Then f=f1(n) Else f=f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=xx f1=x+x End Function Public Function f2(By Val x) x=xx f2=x+x+x End Function 程序运行后，单击命令按钮，在窗体上显示的是 ______。

A．72 36
B．108 36
C．72 6
D．108 6

单项选择题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i) If i Mod j=0 Then Exit For Next j If j＞Sqr(i) Then Print i Next i End Sub 该事件过程的功能是 ______。

A．输出n以内的奇数
B．输出n以内的偶数
C．输出n以内的素数
D．输出n以内能被j整除的数

单项选择题

设有如下程序： Dim a()As Integer Private Sub Command1_Click() n=-5:m=6 ReDim a(n To m) For i=LBound(a，1)To UBound(a，1) a(i)=i Next i Print a(LBound(a，1))；a(UBound(a，1)) End Sub 程序运行后，单击命令按钮，则输出结果是 ______。

A．0 0
B．-5 0
C．-5 6
D．0 6

单项选择题

假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animal Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim rec As animal Open "c：\vb Test.dat"For Random As # 1 Len=Len(reC) rec.animalName="cat" rec.aColor="White" Put # 1，，rec Close # 1 End Sub 则以下叙述中正确的是 ______。A) 记录类型animal不能在Form1中定义，必须在标准模块中定义D) 如果文件c:\vbTest.dat不存在，则Open命令执行失败C) 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D) 语句"Put # 1，，rec"将animal类型的两个数据元素写到文件中

单项选择题

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() str Text=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，如果在对话框中输入abcdef，则在标签中显示的内容是 ______。

A．空
B．abcdef
C．abc
D．def

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2=0 Then f=m Else f=1 End If End Function Private Sub Command1 Click() Dim i As Integer s=0 For i=1 To 5 s=s+f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是 ______。

A．11
B．10
C．9
D．8

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim arr(5)As String For i=1 To 5 art(i)=Chr(Asc("A")+(i-1)) Next i For Each b1 In arr Print b1； Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。

A．ABCDE
B．abcde
C．出错信息
D．1 2 34 5

在顺序表(3，6，8，10，12，15，16，18，21，25，30)中，用二分法查找关键码值 11，所需的关键码比较次数为 ______。

你可能感兴趣的试题

对于n个结点的单向链表(无表头结点)，需要指针单元的个数至少为 ______。

在软件开发过程中，软件结构设计是描述 ______。

不能触发滚动条Change事件的操作是 ______。

在数据结构中，从逻辑上可以把数据结构分为 ______。

数据存储和数据流都是 ______，仅仅是所处的状态不同。

以下关于图片框控件的说法中，错误的是 ______。

下面的四个VB 6.0表达式语法正确的是 ______。

关系代数运算是以 ______ 为基础的运算。

以下关于变量作用域的叙述中，正确的是 ______。

在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为：

骰子是一个正六面体，用1～6这六个数分别代表这六面，掷一次骰子出现的数可表示为 ______。

数据的完整性是指数据的正确性、有效性和 ______。

以下叙述中错误的是 ______。

在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 ______。

排序方法中，将整个无序序列分割成若干小的子序列并分别进行插入排序的方法，称为 ______。

若进栈序列为1，2，3，4，进栈过程中可以出栈，则下列不可能的一个出栈序列是 ______。

在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。

编写如下程序： Private Sub Form_Click() a$="54321":b$="abcde" For j=1 To 5 Print Mid$(a$，6-j，1)+Mid$(b$，j，1)； Next j Print End Sub 程序运行后，单击窗体，其输出结果为 ______。

Print方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是 ______。

编写如下事件过程： Private Sub Form_Click() k=2 Ifk＞=1 Then A=3 Ifk＞=2 Then A=2 Ifk＞=3 Then A=1 Print A End Sub 程序运行后，单击窗体，输出的结果为 ______。

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() x=-5 If Sgn(x) Then y=Sgn(x^2) Else y=Sgn(x) End If Print y End Sub 程序运行后，单击命令按钮，其输出结果为 ______。

模块本身的内聚是模块独立性的重要性度量因素之一。在7类内聚中，具有最强内聚的一类是 ______。

以下描述中正确的是 ______。

在顺序表(3，6，8，10，12，15，16，18，21，25，30)中，用二分法查找关键码值 11，所需的关键码比较次数为 ______。

不能作为容器使用的对象是 ______。

设有如下程序： Dim a()As Integer Private Sub Command1_Click() n=-5:m=6 ReDim a(n To m) For i=LBound(a，1)To UBound(a，1) a(i)=i Next i Print a(LBound(a，1))；a(UBound(a，1)) End Sub 程序运行后，单击命令按钮，则输出结果是 ______。