在窗体上有一个名为Command1的命令按钮，并有如下事件过程： Priv...

在窗体上有一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是( )。

A．Private Sub Dir1_Change()
File 1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B．Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C．Private Sub Dir1_Change()
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
D．Private Sub Dir1_Change()
File1.Path=Dir1.Path
Label1.Caption=File1.List
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub

单项选择题

下列叙述中有错误的是( )。

A．变量名的第一个字符必须是字母
B．变量名的长度不超过255个字符
C．变量名可以包含小数点或者内嵌的类型声明字符
D．变量名不能使用关键字

单项选择题

在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(见图)。下面能实现此功能的事件过程是( )。

单项选择题

在结构化方法中，用数据流程图(DFD) 作为描述工具的软件开发阶段是( )。

A．逻辑设计
B．需求分析
C．详细设计
D．物理设计

单项选择题

以下描述中，不是线性表顺序存储结构特征的是( )。

A．可随机访问
B．需要连续的存储空间
C．不便于插入和删除
D．逻辑相邻的数据物理位置上不相邻

单项选择题

下列关于线性表的叙述中，不正确的是( )。

A．线性表可以是空表
B．线性表是一种线性结构
C．线性表的所有结点有且仅有一个前件和后件
D．线性表是由n个元素组成的一个有限序列

单项选择题

在窗体上画一个名为Check1的复选框，如果在窗体启动事件中编写语句“Check1.Enabled=False”，则运行后复选框的状态为( )。

A．选中状态
B．未选中状态
C．0
D．灰色

单项选择题

开发大型软件时，产生困难的根本原因是( )。

A．大型系统的复杂性
B．人员知识不足
C．客观世界千变万化
D．时间紧、任务重

单项选择题

在窗体上有一个名为Command1的命令按钮，并有如下事件过程：
Private Sub Command1_Click()
a$="Swallows Mod Genulled"
b$=Right(a$,8):c$=Mid(a$,1,8)
MsgBox a$,b$,c$,1
End Sub
程序执行时，单击命令按钮，则在弹出的消息框的标题栏中显示的是( )。

A．Swallows Mod Genulled
B．Genulled
C．Swallows
D．1

单项选择题

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

A．线性链表是线性表的链式存储结构
B．栈与队列是非线性结构
C．双向链表是非线性结构
D．只有根结点的二叉树是线性结构

单项选择题

对序线性表(23，29，34，55，60，70，78)用二分法查找值为60的元素时，需要比较次数为( )。

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

单项选择题

设有以下函数过程
Private Function Fun(a()As Integer,b As String)As Integer
End Function
若已有变量声明：
Dim x(5)As Integer，n As Integer，ch As String
则下面正确的过程调用语句是( )。

A．x(0)=Fun(x,"ch")
B．n=Fun(n,ch)
C．Call Fun x,"ch"
D．n=Fun(x(5),c

单项选择题

下列方法中，属于白盒法设计测试用例的方法的是( )。

A．错误推测
B．因果图
C．基本路径测试
D．边界值分析

单项选择题

在三级模式之间引入两层映像，其主要功能之一是( )。

A．使数据与程序具有较高的独立性
B．使系统具有较高的通道能力
C．保持数据与程序的一致性
D．提高存储空间的利用率

单项选择题

下列是Visual Basic中所允许的形式数是( )。

A．±25.74
B．3.457E-100
C．368
D．1.87E+50

单项选择题

设有下列语句：
x=5
If x＞0 Then y=1
y=5
程序运行后，则下列叙述中正确的是( )。

A．变量y的值是1
B．变量y的值是5
C．变量x的值是5，变量y的值是1
D．变量y的值不能确定

单项选择题

下列关于控件焦点的叙述中正确的是( )。

A．标签控件不能接收焦点事件
B．如果将文本框控件中TabStop属性值设为False，则该文本框将不能接收焦点事件
C．窗体控件不能接收焦点事件
D．不能通过程序代码设置焦点属性

单项选择题

为了使名称为Command1的命令按钮右移200，应使用的语句是( )。

A．Command1.Move-200
B．Command1.Move 200
C．Command1.Left=Command1.Left+200
D．Command1.Left=Command1.Left-200

单项选择题

设有如下关系表：

则下列操作正确的是( )。

单项选择题

两个或两个以上的模块之间关联的紧密程度称为( )。

A．耦合度
B．内聚度
C．复杂度
D．连接度

单项选择题

指令“Circle(1500,1200),1000,,,,0.5”将会绘制出的图形为( )。

A．圆
B．正方形
C．椭圆
D．圆弧

单项选择题

关于菜单设计，下列叙述中错误的是( )。

A．弹出式菜单也在菜单编辑器中定义
B．在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键
C．程序运行过程中，可以重新设置菜单的Visible属性
D．在同一窗体的菜单项中，不允许出现标题相同的菜单项

单项选择题

在文本框控件中，将Text的内容全部显示为用户所定义的字符的属性是( )。

A．PasswordChar
B．需要编程来实现
C．Password
D．以上都不是

单项选择题

有如下函数：
Function fun(a As Integer,n AS Integer)As Integer
Dim m As Integer
While a＞=n
a=a-n:m=m+1
Wend
fun=m
End Function
该函数的返回值是( )。

A．a乘以n的乘积
B．a加n的和
C．a减n的差
D．a除以n的商(不含小数部分)

单项选择题

下面的程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form_Click()
Dim a(1 To 6)As Integer
Dim min1%,i%,j%,n%,t%,k%
a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7
n=6
For i=1 To n-1
min 1=i
For j=i+1 To n
If a(j)＜a(min1)Then min1=j
Next j
t=a(i):a(i)=a(min1):a(min1)=t
Next i
For i=1 To n
Print a(i)
Next i
End Sub

A．9 8 7 6 3 2
B．2 3 6 7 8 9
C．9 8 7 6 3
D．2 3 6 7 8

单项选择题

设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“XSLNCER”，所有菜单项都可见：否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Tex 1.Text="XSLNCER"Then
Form2.input.Visible=True
Else
Form2.input.Visible=False
End If
End If
Form1.Hide
Form2.Show
End Sub

菜单结构

标题

名称1

级别

成绩管理

mark

1

成绩查询

Query

2

成绩录入

Input

2

程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是( )。

A．把2个Form2.input.Visible中的“Form2”删去
B．把Form1中Text1文本框及相关程序放到Form2窗体中
C．把If KeyAsii=13 Then改为If KeyAscii="XSLNCER"Then
D．把Form1.Hide、Form2.Show两行移动到2个End If之间

单项选择题

标准模块中有如下程序代码：
Public x As Integer,Y As Integer
Sub TempSub()
x=10:y=20
End Sub
在窗体上有1个命令按钮，并有如下事件过程：
Private Sub Command1 Click()
Dim x As Integer
Call TempSub
x=x+100:y=y+100
Print x;y
End Sub
运行程序后单击命令按钮，窗体上显示的是( )。

A．110 100
B．100 100
C．100 120
D．110 120

单项选择题

下面程序运行后，语句“Print i”执行的次数是( )。
Private Sub Form_Click()
Dim i As Integer,j As Integer
i=0
Do
i=i+1
For j=10 To 1 Step-3
i=i+j
Print i
Next j
Loop While i＜50
End Sub

A．4
B．8
C．12
D．16

单项选择题

单击命令按钮执行以下程序，则输出结果为( )。
Private Sub Command1_Click()
Dim x As Integer,y As Integer
X=14:y=48
Call Proc(x,y)
Print x;y
End Sub
Public Sub Proc(n As Integer,ByVal m As Integer)
n=n Mod 10:m=m Mod 10
End Sub

A．4 8
B．14 8
C．14 48
D．4 48

单项选择题

在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序( )。
Private Type student
StuName As String * 10
StuGrade As String * 10
StuAge As Integer
End Type
Private Sub Form Click()
Dim s As student
Open "c:\student.txt"For Random As#1 Len=Len(s)
For i=1 To 5
s.StuName=InputBox("请输入姓名")
s.StuGrade=InputBox("请输入年级号")
s.StuAge=Val(InputBox("请输入年龄"))
______
Next i
Close #1
End Sub

A．Print #1,s
B．Print #1,i
C．Put #1,,s
D．Put #1,i

单项选择题

在窗体上有一个名称为List1的列表框和一个名称为Command1的命令按钮，并编写有如下事件过程：
Private Sub Form_Load()
List1.AddItem "Item1":List1.AddItem"Item2":List1.AddItem"Item3"
End Sub
Private Sub Command1_Click()
List1.List(List1.ListCount)="New Item"
End Sub
程序执行时，单击命令按钮，其结果为( )。

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

在窗体上有一个名为Command1的命令按钮，并有如下事件过程： Private Sub Command1_Click() a$="Swallows Mod Genulled" b$=Right(a$,8):c$=Mid(a$,1,8) MsgBox a$,b$,c$,1 End Sub 程序执行时，单击命令按钮，则在弹出的消息框的标题栏中显示的是( )。

你可能感兴趣的试题

设窗体上有1个垂直滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是( )。

在表达式2+3*4^5-Sin(x+1)/2中，首先进行的运算是( )。

VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母( )。

为了在运行时能显示窗体左上角的控制框(系统菜单)，可以设置以下哪个属性的值为True( )。

下列叙述中有错误的是( )。

在结构化方法中，用数据流程图(DFD) 作为描述工具的软件开发阶段是( )。

以下描述中，不是线性表顺序存储结构特征的是( )。

下列关于线性表的叙述中，不正确的是( )。

在窗体上画一个名为Check1的复选框，如果在窗体启动事件中编写语句“Check1.Enabled=False”，则运行后复选框的状态为( )。

开发大型软件时，产生困难的根本原因是( )。

在窗体上有一个名为Command1的命令按钮，并有如下事件过程： Private Sub Command1_Click() a$="Swallows Mod Genulled" b$=Right(a$,8):c$=Mid(a$,1,8) MsgBox a$,b$,c$,1 End Sub 程序执行时，单击命令按钮，则在弹出的消息框的标题栏中显示的是( )。

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

对序线性表(23，29，34，55，60，70，78)用二分法查找值为60的元素时，需要比较次数为( )。

设有以下函数过程 Private Function Fun(a()As Integer,b As String)As Integer End Function 若已有变量声明： Dim x(5)As Integer，n As Integer，ch As String 则下面正确的过程调用语句是( )。

下列方法中，属于白盒法设计测试用例的方法的是( )。

在三级模式之间引入两层映像，其主要功能之一是( )。

下列是Visual Basic中所允许的形式数是( )。

设有下列语句： x=5 If x＞0 Then y=1 y=5 程序运行后，则下列叙述中正确的是( )。

下列关于控件焦点的叙述中正确的是( )。

为了使名称为Command1的命令按钮右移200，应使用的语句是( )。

设有如下关系表： 则下列操作正确的是( )。

两个或两个以上的模块之间关联的紧密程度称为( )。

指令“Circle(1500,1200),1000,,,,0.5”将会绘制出的图形为( )。

关于菜单设计，下列叙述中错误的是( )。

在文本框控件中，将Text的内容全部显示为用户所定义的字符的属性是( )。

有如下函数： Function fun(a As Integer,n AS Integer)As Integer Dim m As Integer While a＞=n a=a-n:m=m+1 Wend fun=m End Function 该函数的返回值是( )。

下面程序运行后，语句“Print i”执行的次数是( )。 Private Sub Form_Click() Dim i As Integer,j As Integer i=0 Do i=i+1 For j=10 To 1 Step-3 i=i+j Print i Next j Loop While i＜50 End Sub

单击命令按钮执行以下程序，则输出结果为( )。 Private Sub Command1_Click() Dim x As Integer,y As Integer X=14:y=48 Call Proc(x,y) Print x;y End Sub Public Sub Proc(n As Integer,ByVal m As Integer) n=n Mod 10:m=m Mod 10 End Sub

在窗体上有一个名为Command1的命令按钮，并有如下事件过程：
Private Sub Command1_Click()
a$="Swallows Mod Genulled"
b$=Right(a$,8):c$=Mid(a$,1,8)
MsgBox a$,b$,c$,1
End Sub
程序执行时，单击命令按钮，则在弹出的消息框的标题栏中显示的是( )。

在窗体上有一个名为Command1的命令按钮，并有如下事件过程：
Private Sub Command1_Click()
a$="Swallows Mod Genulled"
b$=Right(a$,8):c$=Mid(a$,1,8)
MsgBox a$,b$,c$,1
End Sub
程序执行时，单击命令按钮，则在弹出的消息框的标题栏中显示的是( )。

设有以下函数过程
Private Function Fun(a()As Integer,b As String)As Integer
End Function
若已有变量声明：
Dim x(5)As Integer，n As Integer，ch As String
则下面正确的过程调用语句是( )。

设有下列语句：
x=5
If x＞0 Then y=1
y=5
程序运行后，则下列叙述中正确的是( )。

设有如下关系表：

则下列操作正确的是( )。

有如下函数：
Function fun(a As Integer,n AS Integer)As Integer
Dim m As Integer
While a＞=n
a=a-n:m=m+1
Wend
fun=m
End Function
该函数的返回值是( )。

下面程序运行后，语句“Print i”执行的次数是( )。
Private Sub Form_Click()
Dim i As Integer,j As Integer
i=0
Do
i=i+1
For j=10 To 1 Step-3
i=i+j
Print i
Next j
Loop While i＜50
End Sub

单击命令按钮执行以下程序，则输出结果为( )。
Private Sub Command1_Click()
Dim x As Integer,y As Integer
X=14:y=48
Call Proc(x,y)
Print x;y
End Sub
Public Sub Proc(n As Integer,ByVal m As Integer)
n=n Mod 10:m=m Mod 10
End Sub