设a是整型变量，与函数IIf(a＞0，-a，

在窗体Form1上放一个名为Text1的文本框和一个名为Command1的命令按钮，然后编写一个事件过程。要求程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“VB等级考试二级”。以下能正确实现上述操作的事件过程是( )。

A．Private Sub Text1_Change()
Command1.Caption="VB等级考试二级"
End Sub
B．Private Sub Command1_Click()
Caption="VB等级考试二级"
End Sub
C．Private Sub Form1_Click()
Text1.Caption="VB等级考试二级"
End Sub
D．Private Sub Command1_Click()
Text1.Text="VB等级考试二级"
End Sub

单项选择题

下列程序的执行结果为( )。
n=0
j=1
Do Until n＞2
n=n+1:j=j+n*(n+1)
Loop
Print n;j

A．0 1
B．3 7
C．3 21
D．3 13

单项选择题

下列程序执行后，其输出结果为( )。
Dim a(5)
For i=0 To 4
a(i)=i+1
m=i+1
If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i)
If i=2 Then a(i-1)=a(m-3)
a(4)=i
Print a(i);
Next i

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

单项选择题

设x=4，y=8，z=7，则以下表达式的运算结果是( )。
x＜y And(Not y＞z)Or z＜x

A．1
B．-1
C．True
D．False

单项选择题

对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是( )。

A．冒泡排序为n(n-1)/2
B．简单插入排序为n
C．希尔排序为n
D．快速排序为n/2

单项选择题

下列程序段的执行结果为( )。
x=Int(Rnd+3)
Select Case x
Case 5
Print "A Row"
Case 4
Print "B Row"
Case 3
Print "C Row"
Case Else
Print "D Row"
End Select

A．A ROW
B．B Row
C．C ROW
D．D Row

单项选择题

用Line Input语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到( )分隔符，即认为一行的结束。

A．文件结束符
B．回车符
C．空格
D．Tab字符

单项选择题

设a是整型变量，与函数IIf(a＞0，-a，

A．有相同结果的代数式是( )。A) |a|
B．-|a|
C．a
D．-a

单项选择题

运行下列程序时，输出的结果是( )。
Private Sub Form_Click()
Dim x
x=Array("Software","and","Hardware","System")
For i=LBound(x,1)To UBound(x,1)
If Left(x(i),1)="S" Then Print x(i);
Next i
End Sub

A．Software
B．SoftwareSystem
C．出错信息
D．SoftwareandHardwareSystem

单项选择题

软件调试的目的是( )。

A．发现错误
B．改善软件的性能
C．改正错误
D．验证软件的正确性

单项选择题

关于自定义数据类型，下面叙述中不正确的是( )。

A．自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明
B．在窗体模块中定义自定义数据类型时必须使用Private关键字
C．自定义数据类型只能在窗体模块的通用声明段进行声明
D．自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型

单项选择题

设有如下程序：
Option Base ()
Private Sub Form_Click()
Dim a
Dim i As Integer
a=Array(1，2，3，4，5，6，7，8，9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是( )。

A．4 3 2 1
B．5 4 3 2
C．6 5 4 3
D．7 6 5 4

单项选择题

在窗体上画一个名称为Text1的文本框，然后画一个名称为Hscroll1的滚动条，其Min和Max属性分别为0和1000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是( )。

A．Private Sub Hscroll1_Change()
Text1.Text=HScroll1.Value
End Sub
B．Private Sub Hscroll1_Click()
Text1.Text=HScroll1.Value
End Sub
C．Private Sub Hscroll1_Change()
Text1.Text=Hscroll1.Caption
End Sub
D．Private Sub Hscroll1_Click()
Text1.Text=-Hscroll1.Caption
End Sub

单项选择题

下列程序在运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click()
Dim x(10)
For i=1 To 10
x(i)=10-i+1
Next i
For i=10 To 1 Step-2
Print x(i)
Next i
End Sub

A．1 3 5 7 9
B．9 7 5 3 1
C．1 2 3 4 5 6 7 8 9 10
D．10 9 8 7 6 5 4 3 2 1

单项选择题

以下对文件分类的划分不正确的是( )。

A．文件分为程序文件和数据文件
B．文件分为有结构文件和无结构文件
C．文件分为ASCII文件和二进制文件
D．文件分为顺序文件和随机文件

单项选择题

以下( )对象不能作为容器。

A．Frame
B．From
C．PictureBox
D．Image

单项选择题

为了使模块尽可能独立，要求( )。

A．内聚程度要尽量高，耦合程度要尽量强
B．内聚程度要尽量高，耦合程度要尽量弱
C．内聚程度要尽量低，耦合程度要尽量弱
D．内聚程度要尽最低，耦合程度要尽量强

单项选择题

编写如下事件过程：
Private Sub Form Activate()
Dim score(1 To 3) As Integer
Dim i As Integer,t As Variant
For i=3 To 1 Step-l
score(i)=2*i
Next i
For Each t In score
Print t;
Next
End Sub
程序运行后窗体上显示( )。

A．6 4 2
B．2 4 6
C．2
D．6

单项选择题

设有如下通用过程：
Public Sub Fun(a() As Integer,x As Integer)
For i=1 To 4
x=x*a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim arr(5)As Integer,n As Integer
n=1
For i=1 To 4
arr(i)=i+i
Next
Fun arr,n
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是( )。

A．30
B．25
C．20
D．15

单项选择题

以下事件过程的功能是：从已存在于磁盘上的顺序文件Num1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件Num2.txt中。则在以下横线处合适的语句是( )。
Private Sub Form_Click()
Dim x As Single,y As Single
Open "Num1.txt" For Input As #1
Open "Num2.txt" For Output As #2
Do While Not EOF(1)
______
Print x
y=x^2
Print y
Loop
Close #1,#2
End Sub

A．Input #1,y Print#2,x,y
B．Input #2,x Print #1,x,y
C．Print #1,x Input#2,x,y
D．Input #1,x Print #2,x,y

单项选择题

在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char=Chr(KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(6,KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为( )。

A．a
B．A
C．aaaaaa
D．AAAAAA

单项选择题

在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：
Private Sub Command1_Click()
Dim rec As animal
Open "c:\vbTest.dat" For Random As #1 Len=Len(ree)
rec.animalName="cat"
rec.aColor="White"
Put #1,,rec
Close #1
End Sub
记录类型定义如下：
Private Type animal
animalName As String20
aColor As String10
End Type
下列叙述中正确的是( )。

A．记录类型animal不能在Form1中定义，必须在标准模块中定义
B．如果文件c:\vbTest.dat不存在，则Open命令执行失败
C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D．语句“Put #1,,rec”将animal类型的两个数据元素写到文件中

单项选择题

在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For i=0 To 50
i=j+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

单项选择题

在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个名为Option1的控件数组，程序运行后，如果单击某个单选按钮，则文本框中的字体根据所选择的单选按钮切换，如图所示。请选择适合空白处的语句( )。

Private Sub Option1_Click(Index As Integer)
Select Case
Case 0:a="宋体"
Case 1:a="黑体"
Case 2:a="楷体 GB2312"
End Select
Text1.=a
End Sub

单项选择题

窗体上命令按钮Command1的事件过程如下：
Option Base 1
Private Sub Command1_Click()
Dim a(4,4)As Variant
For i=1 To 4
For j=1 To 4
a(i,j)=(i-1)*3+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print a(i,j)
Next j
Next i
End Sub
该程序执行后，输出结果是( )。

A．9
10
12
13
B．7
10
12
13
C．9
12
10
13
D．8
11
9
12

设a是整型变量，与函数IIf(a＞0，-a，

你可能感兴趣的试题

下列程序的执行结果为( )。 n=0 j=1 Do Until n＞2 n=n+1:j=j+n*(n+1) Loop Print n;j

下列程序执行后，其输出结果为( )。 Dim a(5) For i=0 To 4 a(i)=i+1 m=i+1 If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i) If i=2 Then a(i-1)=a(m-3) a(4)=i Print a(i); Next i

设x=4，y=8，z=7，则以下表达式的运算结果是( )。 x＜y And(Not y＞z)Or z＜x

对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是( )。

下列程序段的执行结果为( )。 x=Int(Rnd+3) Select Case x Case 5 Print "A Row" Case 4 Print "B Row" Case 3 Print "C Row" Case Else Print "D Row" End Select

用Line Input语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到( )分隔符，即认为一行的结束。

设a是整型变量，与函数IIf(a＞0，-a，

运行下列程序时，输出的结果是( )。 Private Sub Form_Click() Dim x x=Array("Software","and","Hardware","System") For i=LBound(x,1)To UBound(x,1) If Left(x(i),1)="S" Then Print x(i); Next i End Sub

软件调试的目的是( )。

关于自定义数据类型，下面叙述中不正确的是( )。

设有如下程序： Option Base () Private Sub Form_Click() Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是( )。

在窗体上画一个名称为Text1的文本框，然后画一个名称为Hscroll1的滚动条，其Min和Max属性分别为0和1000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是( )。

将文本框的( )属性设置为True时，文本框可以输入或显示多行文本，且会自动 换行。

下列选项中不属于软件生命周期开发阶段任务的是( )。

在学校中，“班级”与“学生”两个实体集之间的联系属于( )关系。

数据独立性是数据库技术的重要特点之。所谓数据独立性是指( )。

下列队列的描述中，正确的是( )。

下列数据结构中，能用二分法进行查找的是( )。

8.6787E+8写成普通的十进制数是( )。

对下列二叉树进行前序遍历的结果为( )。

以下能够正确退出循环的是( )。

下列叙述中，不属于设计准则的是( )。

下列程序在运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Dim x(10) For i=1 To 10 x(i)=10-i+1 Next i For i=10 To 1 Step-2 Print x(i) Next i End Sub

以下对文件分类的划分不正确的是( )。

以下( )对象不能作为容器。

为了使模块尽可能独立，要求( )。

编写如下事件过程： Private Sub Form Activate() Dim score(1 To 3) As Integer Dim i As Integer,t As Variant For i=3 To 1 Step-l score(i)=2*i Next i For Each t In score Print t; Next End Sub 程序运行后窗体上显示( )。

窗体上命令按钮Command1的事件过程如下： Option Base 1 Private Sub Command1_Click() Dim a(4,4)As Variant For i=1 To 4 For j=1 To 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(i,j) Next j Next i End Sub 该程序执行后，输出结果是( )。

下列程序的执行结果为( )。
n=0
j=1
Do Until n＞2
n=n+1:j=j+n*(n+1)
Loop
Print n;j

下列程序执行后，其输出结果为( )。
Dim a(5)
For i=0 To 4
a(i)=i+1
m=i+1
If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i)
If i=2 Then a(i-1)=a(m-3)
a(4)=i
Print a(i);
Next i

设x=4，y=8，z=7，则以下表达式的运算结果是( )。
x＜y And(Not y＞z)Or z＜x

下列程序段的执行结果为( )。
x=Int(Rnd+3)
Select Case x
Case 5
Print "A Row"
Case 4
Print "B Row"
Case 3
Print "C Row"
Case Else
Print "D Row"
End Select

运行下列程序时，输出的结果是( )。
Private Sub Form_Click()
Dim x
x=Array("Software","and","Hardware","System")
For i=LBound(x,1)To UBound(x,1)
If Left(x(i),1)="S" Then Print x(i);
Next i
End Sub

设有如下程序：
Option Base ()
Private Sub Form_Click()
Dim a
Dim i As Integer
a=Array(1，2，3，4，5，6，7，8，9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是( )。

将文本框的( )属性设置为True时，文本框可以输入或显示多行文本，且会自动换行。

下列程序在运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click()
Dim x(10)
For i=1 To 10
x(i)=10-i+1
Next i
For i=10 To 1 Step-2
Print x(i)
Next i
End Sub

编写如下事件过程：
Private Sub Form Activate()
Dim score(1 To 3) As Integer
Dim i As Integer,t As Variant
For i=3 To 1 Step-l
score(i)=2*i
Next i
For Each t In score
Print t;
Next
End Sub
程序运行后窗体上显示( )。

窗体上命令按钮Command1的事件过程如下：
Option Base 1
Private Sub Command1_Click()
Dim a(4,4)As Variant
For i=1 To 4
For j=1 To 4
a(i,j)=(i-1)*3+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print a(i,j)
Next j
Next i
End Sub
该程序执行后，输出结果是( )。