急需vb问题 我还要原因怎样来的
(1) 下列叙述中,不属于数据库系统的是
A) 数据库
B) 数据库管理系统
C) 数据库管理员
D) 数据库应用系统
(1)由两个栈共享一个存储空间的好处是
A)减少存取时间,降低下溢发生的机率
B)节省存储空间,降低上溢发生的机率
C)减少存取时间,降低上溢发生的机率
D)节省存储空间,降低下溢发生的机率
(2)设有两个串p和q,求q在p中首次出现位置的运算称作
A)连接
B)模式匹配
C)求子串
D)求串长
(3)下列4项中,必须进行查询优化的是
A)关系数据库
B)网状数据库
C)层次数据库
D)非关系模型
(4)在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分虽为Label1、Label2,标题分别为空白和"共有文件"的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签Label1中显示当前文件夹中文件的数量。如图所示。
能够正确实现上述功能的程序是
A)Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B)Private Sub Dir1_Change()
File.Path=Dir1.Path
End Sub
PrivateSub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C)Private Sub Dir1_Change()
File1.Path = Dir1.Path
Label1.Caption = File1.ListCount
EndSub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
Label1.Caption = File1.ListCount
End Sub
D)Private SubDir1_Change()
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
End Sub
Private SubDive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
(5)设有声明语句
Option Base 1
Dimb(-1 To 10, 2 To 9, 20)As Integer
则数组b中全部元素的个数
A)2310
B)1920
C)1500
D)1658
(30)有如下事件过程,单击命令按钮扣,输出结果为
Private SubCommand1_Click()
Dim b%(1 To 4), j%, t#
For j=1 To 4
b(j)=j
Next j
t=Tax(b())
Print "t="; t,
End Sub
FunctionTax (a()As Integer)
Dim t#, i%
t=1
For i=2 To UBound(A)
t=t * a(i)
Next i
Tax=t
End Function
A)t=18
B)t=24
C)t=30
D)t=32
(6)设在窗体上有一个文本框,然后编写如下的事件过程:
Private Sub Text1_KeyDown(KeyCode As Integer, ShiftAs Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(ShiftAnd Alt)> 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down%Then
Text1.Text="abl"
End If
EndSub
程序运行后,清除文本框中原有内容,如果按Shift+F2键,则在文本框中显示的是
A)Alt+F2
B)abl
C)随机出几个数
D)不发生变化
(7)线性表的顺序存储结构和线性表的链式存储结构分别是
A)顺序存取的存储结构、顺序存取的存储结构
B)随机存取的存储结构、顺序存取的存储结构
C)随机存取的存储结构、随机存取的存储结构
D)任意存取的存储结构、任意存取的存储结构
答案:(1) 下列叙述中,不属于数据库系统的是
A) 数据库
B) 数据库管理系统
C) 数据库管理员
D) 数据库应用系统【数据库系统是“数据库管理”方面的系统软件和自定义开发,使用VB或者其它开发工具,借助“数据库”开发的平台。以及定义哪些人是要用哪些权限。】
(1)由两个栈共享一个存储空间的好处是
A)减少存取时间,降低下溢发生的机率
B)节省存储空间,降低上溢发生的机率
C)减少存取时间,降低上溢发生的机率
D)节省存储空间,降低下溢发生的机率
【栈的特色在于“后进先出”,如果共享一个空间,那么势必有一个栈的顶就是另一个栈的底。这样即便该栈溢出了,最多到另外一个栈了,还可以取出数据。所以选B】
(2)设有两个串p和q,求q在p中首次出现位置的运算称作
A)连接
B)模式匹配
C)求子串
D)求串长
【“连接”是两个字符串拼接,“模式匹配”是使用正则表达式等手段检测某个字符串在另一个字符串中是否具有,求子串是指定一个开始和结束位置,求出父串中指定位置的字符串,串长是字符串字符的个数】
(3)下列4项中,必须进行查询优化的是
A)关系数据库
B)网状数据库
C)层次数据库
D)非关系模型
【关系数据库通过“外键”可以互相连同,B通过前后指针可以查询全部记录,层次通过父子节点也可以查询所有记录。“非关系模型”,数据之间是离散的、不存在关系问题,必须优化】
(4)在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分虽为Label1、Label2,标题分别为空白和"共有文件"的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签Label1中显示当前文件夹中文件的数量。如图所示。
能够正确实现上述功能的程序是
A)Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B)Private Sub Dir1_Change()
File.Path=Dir1.Path
End Sub
PrivateSub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C)Private Sub Dir1_Change()
File1.Path = Dir1.Path
Label1.Caption = File1.ListCount
EndSub
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.ListCount
End Sub
Private Sub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
【Drive改变后应该显示跟随其变化的Dir数量,所以Drive1的Change事件中必然是设定Dir和label1的信息,而且Drive的属性是Drive不是Path;Dir一改变,选中某个文件夹路径File必然改变,所以Dir的Changed事件是改变File以及Label2内容】
(5)设有声明语句
Option Base 1
Dim b(-1 To 10, 2 To 9, 20)As Integer
则数组b中全部元素的个数
A)2310
B)1920
C)1500
D)1658
【-1~10总共12个元素,2~9共8个元素,然后20=>Dim b(12,8,20)这样的定义,那么是一个三位数组:12*8*20=1920】
(30)有如下事件过程,单击命令按钮扣,输出结果为
Private SubCommand1_Click()
Dim b%(1 To 4), j%, t#
For j=1 To 4
b(j)=j
Next j
t=Tax(b())
Print "t="; t,
End Sub
Function Tax (a()As Integer)
Dim t#, i%
t=1
For i=2 To UBound(A)
t=t * a(i)
Next i
Tax=t
End Function
A)t=18
B)t=24
C)t=30
D)t=32
【首先生成一个1,2,3,4的数组,然后传入函数Tax中;Tax中从第二个元素一直累乘到最后,1*2*3*4=24】
(6)设在窗体上有一个文本框,然后编写如下的事件过程:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt)> 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down%Then
Text1.Text="abl"
End If
EndSub
程序运行后,清除文本框中原有内容,如果按Shift+F2键,则在文本框中显示的是
A)Alt+F2
B)abl
C)随机出几个数
D)不发生变化
【If判断是两个数字不等于0为真。那么注意:按下Shift+F2,Shift和Alt(十六进制的71和十进制的4相与的结果必然大于0,altdown自然是true;因为按下了Shift+F2,F2再最后,所以KeyCode=F2,自然f2down=true;两个true进行if运算肯定是true,执行赋值语句了)】
(7)线性表的顺序存储结构和线性表的链式存储结构分别是
A)顺序存取的存储结构、随机存取的存储结构
B)随机存取的存储结构、顺序存取的存储结构
C)随机存取的存储结构、随机存取的存储结构
D)任意存取的存储结构、任意存取的存储结构
【线性表原型是数组,在内存开辟一系列单元,通过下标直接访问,是顺序访问的;链式存储是前一个节点后一个节点通过指针指向进行定位,然后找到随机分布的位置,进行存储的。】
看样子是没人来回了 这些问题不光是VB的了 有点深 捧个人场
上一个:在vb中如何用二进制访问文件
下一个:VB中的是listItem什么定义变量