下列程序运行时输出的结果是 Option Base 1 Private ...

单项选择题

下面程序运行后的输出结果是
Private Sub Command1_Click()
For j=1 To 10
If j Mod 3＜＞0 Then a=a+j\3
Next
Print a
End Sub

A．20
B．10
C．3
D．9

单项选择题

在窗体上面画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(Keyascii as integer)
……
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是

A．单击鼠标
B．双击文本框
C．鼠标滑过文本框
D．按下键盘上的某个键

单项选择题

下列事件过程运行后输出结果是
Private Sub Command1_Click()
Print Formats(123，456，"###，##%")
End Sub

A．123.46%
B．123.45%
C．123.456%
D．12345.6%

单项选择题

为了在列表框中使用Ctrl和Shift键进行多个列表项的选择，应将列表框的Multi-select属性设置为

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

单项选择题

单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=3:b :4:c =5
Print SecProc ( c, b,

A．

单项选择题

如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是

A．Redim a As Integer
B．Static a As Integer
C．Publica As Integer
D．Dim a As Integer

单项选择题

下列数据模型中，具有坚实理论基础的是

A．层次模型
B．网状模型
C．关系模型
D．以上3个都是

单项选择题

下列不属于Visual Basic特点的是

A．对象的链接与嵌入
B．结构化程序设计
C．编写跨平台应用程序
D．事件驱动程序编程机制

单项选择题

算法分析的目的是

A．找出数据结构的合理性
B．找出算法中输入和输出之间的关系
C．分析算法的易懂性和可靠性
D．分析算法的效率以求改进

单项选择题

线性表L=(a1，a2，a3，…ai，…an)，下列说法正确的是

A．每个元素都有一个直接前件和直接后件
B．线性表中至少要有一个元素
C．表中诸元素的排列顺序必须是由小到大或由大到小
D．除第一个元素和最后一个元素外，其余每个元素都有一个且只有一个直接前件和直接后件

单项选择题

分布式数据库系统不具有的特点是

A．数据分布性和逻辑整体性
B．位置透明性和复制透明性
C．分布性
D．数据冗余

单项选择题

定义有5个整数型元素的数组，正确的语句是

A．Dim a(4)As Integer
B．Option Base 1：Dim a(5)
C．Dim a &(5)
D．Dime a(5)As Integer

单项选择题

InputBox函数返回值的类型为

A．数值
B．字符串
C．变体
D．数值或字符串

单项选择题

关系表中的每一横行称为一个

A．元组
B．字段
C．属性
D．码

单项选择题

下列程序执行后，变量a的值为
Dim a，b，C，d as single
a=100：b=20：c=1000
if b＞a Then
d=a:a=b：b=d
End if
if c ＞ a Then
d=b：b=c：c=d
End if

A．0
B．1000
C．20
D．100

单项选择题

执行语句Open"C:\StuData.dat"For Input As #2后，系统

A．将C盘当前文件夹下名为StuData.dat的文件的内容读入内存
B．在C盘当前文件夹下建立名为StuData.dar的顺序文件
C．将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中
D．将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dar的文件中

单项选择题

软件工程的出现是由于

A．程序设计方法学的影响
B．软件产业化的需要
C．软件危机的出现
D．计算机的发展

单项选择题

在数据流图(DFD) 中，带有名字的箭头表示

A．模块之间的调用关系
B．程序的组成成分
C．控制程序的执行顺序
D．数据的流向

单项选择题

设已经在“菜单编辑器”中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是

A．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，
X As Single，Y As Single)
If Button=2 Then PopupMenu Bs，2
End Sub
B．Private Sub Form_Mouse Down(Button As Integer，Shift As Integer，
X As Single，Y As Single)
PopupMenu Bs
End Sub
C．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_
X As Single，Y As Single)
PopupMenu Bs，0
End Sub
D．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_
X As Single，Y As Single)
If(Button=VbLeftBuaon)Or(Button=VbRighButton)Then PopupMenu Bs
End Sub

单项选择题

假设线性表的长度为n，则在最坏情况下，冒泡排序需要的比较次数为

A．log₂n
B．n²
C．On^1.5
D．n(n-1)/2

单项选择题

如果一个变量未经定义就直接使用，则该变量的类型为

A．Integer
B．Byte
C．Boolean
D．Variant

单项选择题

当把框架的什么属性设置为False时，其标题会变灰，框架中所有的对象均被屏蔽

A．Name
B．Enabled
C．Caption
D．Visible

单项选择题

下列程序运行时输出的结果是
Option Base 1
Private Sub Form_Click()
Dim x (10)As Integer，y(5)As Integer
For i=1 to 10
x(i)=10-i+1
Next
For i=1 to 5
y(i)=x(2i-1)+x(2i)
Next
For i=1 to 5
Print y(i)
Next
End Sub

A．3 7 11 45 19
B．19 15 11 7 3
C．1 3 5 7 9
D．不确定的值

单项选择题

有如下一个函数过程：
Function Fun(a As Integer)
Static c
b=0：b=b+1：c=c+1
Fun=a+b+c
End Function
在窗体上添加一个命令按钮，事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print Fun(

A．；
Next
End Sub
运行该程

单项选择题

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程。
Private Sub Form_Load()
List1.AddItem "Item 1"
List1.AddItem "Item 2"
List1.AddItem "Item 3"
End Sub
Private Sub Command1_Click()
List1.List(List1.Listcount)="AAAA"
End Sub
程序运行后，单击命令按钮，其结果为

A．把字符串"AAAA"添加到列表框中，但位置不能确定
B．把字符串"AAAA"添加到列表框的最后(即"Item 3"的后面)
C．把列表框中原有的最后一项改为"AAAA"
D．把字符串"AAAA"插入到列表框的最前面(即"Item 1"的前面)

单项选择题

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Private Sub Command1_Click( )
Dim a(5,5)
For i=1 To 3
For j=1 To 4
a(i,j)=i*j
Next
Next
For n=1 To2
For m = 1 To3
Print a(m,n);
Next
Next
End Sub
程序运行后，单击命令按钮，输出结果是

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

单项选择题

以下用户自定义函数
Function Func(a As Integer, b As Integer) As Integer
Static m As Integer, i As Integer
m=0:i=2
i=i+m+i
m=i+a+b
Func=m
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim k As Integer，m As Integer，p As Integer
k=4：m=1
P=Func(k，m)
Print p
End Sub
程序运行后，单击命令按钮，输出结果为

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

单项选择题

在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如
Private Sub Command1_Click()
CommonDialogl. Flags = vbOFNHideReadOnly
CommonDialogl. Filter =" All Files(.)|. |Text Files(.txt)|. txt
CommonDialogl. FilterIndex = 1
CommonDialogl. ShowOpen
MsgBox CommonDialogl. FileName
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是

A．All Files(*.*)
B．Text Files(*.txt)
C．Batch Files(*.bat)
D．All Files(*. *)|Text Files(*.txt)

下列程序运行时输出的结果是 Option Base 1 Private Sub Form_Click() Dim x (10)As Integer，y(5)As Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub

你可能感兴趣的试题

下面程序运行后的输出结果是 Private Sub Command1_Click() For j=1 To 10 If j Mod 3＜＞0 Then a=a+j\3 Next Print a End Sub

各种运算符间的优先顺序从高到低是

在单链表中，增加头结点的目的是

产生[10，27]之间的随机整数的Visual Basic表达式是

下列各选项说法错误的一项是

若要求从文本框中输入密码时在文本框中只显示“*”号，则应当在此文本框的属性窗口中设置

在窗体模块中用Public定义的变量的作用范围是

软件开发离不开系统环境资源的支持，其中必要的测试数据属于

在窗体上面画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(Keyascii as integer) …… End Sub 若焦点位于文本框中，则能够触发KeyPress事件的操作是

下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Formats(123，456，"###，##%") End Sub

为了在列表框中使用Ctrl和Shift键进行多个列表项的选择，应将列表框的Multi-select属性设置为

单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=3:b :4:c =5 Print SecProc ( c, b,

如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是

下列数据模型中，具有坚实理论基础的是

下列不属于Visual Basic特点的是

算法分析的目的是

线性表L=(a1，a2，a3，…ai，…an)，下列说法正确的是

分布式数据库系统不具有的特点是

定义有5个整数型元素的数组，正确的语句是

InputBox函数返回值的类型为

关系表中的每一横行称为一个

下列程序执行后，变量a的值为 Dim a，b，C，d as single a=100：b=20：c=1000 if b＞a Then d=a:a=b：b=d End if if c ＞ a Then d=b：b=c：c=d End if

执行语句Open"C:\StuData.dat"For Input As #2后，系统

软件工程的出现是由于

在数据流图(DFD) 中，带有名字的箭头表示

设已经在“菜单编辑器”中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是

假设线性表的长度为n，则在最坏情况下，冒泡排序需要的比较次数为

如果一个变量未经定义就直接使用，则该变量的类型为

当把框架的什么属性设置为False时，其标题会变灰，框架中所有的对象均被屏蔽

下列程序运行时输出的结果是 Option Base 1 Private Sub Form_Click() Dim x (10)As Integer，y(5)As Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub

有如下一个函数过程： Function Fun(a As Integer) Static c b=0：b=b+1：c=c+1 Fun=a+b+c End Function 在窗体上添加一个命令按钮，事件过程如下： Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Fun(

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click( ) Dim a(5,5) For i=1 To 3 For j=1 To 4 a(i,j)=i*j Next Next For n=1 To2 For m = 1 To3 Print a(m,n); Next Next End Sub 程序运行后，单击命令按钮，输出结果是

下列程序运行时输出的结果是
Option Base 1
Private Sub Form_Click()
Dim x (10)As Integer，y(5)As Integer
For i=1 to 10
x(i)=10-i+1
Next
For i=1 to 5
y(i)=x(2i-1)+x(2i)
Next
For i=1 to 5
Print y(i)
Next
End Sub

下面程序运行后的输出结果是
Private Sub Command1_Click()
For j=1 To 10
If j Mod 3＜＞0 Then a=a+j\3
Next
Print a
End Sub

在窗体上面画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(Keyascii as integer)
……
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是

下列事件过程运行后输出结果是
Private Sub Command1_Click()
Print Formats(123，456，"###，##%")
End Sub

单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=3:b :4:c =5
Print SecProc ( c, b,

下列程序执行后，变量a的值为
Dim a，b，C，d as single
a=100：b=20：c=1000
if b＞a Then
d=a:a=b：b=d
End if
if c ＞ a Then
d=b：b=c：c=d
End if

下列程序运行时输出的结果是
Option Base 1
Private Sub Form_Click()
Dim x (10)As Integer，y(5)As Integer
For i=1 to 10
x(i)=10-i+1
Next
For i=1 to 5
y(i)=x(2i-1)+x(2i)
Next
For i=1 to 5
Print y(i)
Next
End Sub

有如下一个函数过程：
Function Fun(a As Integer)
Static c
b=0：b=b+1：c=c+1
Fun=a+b+c
End Function
在窗体上添加一个命令按钮，事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print Fun(

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Private Sub Command1_Click( )
Dim a(5,5)
For i=1 To 3
For j=1 To 4
a(i,j)=i*j
Next
Next
For n=1 To2
For m = 1 To3
Print a(m,n);
Next
Next
End Sub
程序运行后，单击命令按钮，输出结果是