如果一个窗体中的内容较多而无法将数据在一页中显示出来时,要对内容进行分页,应使用的控件是(
A.命令按钮
B.组合框
C.选项卡
D.选项组
A.命令按钮
B.组合框
C.选项卡
D.选项组
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。
【说明】
在一些应用场合中,需要对用户的输入数据进行检查监控。以下VisualBasic程序实现了对新添加到 List列表的内容进行监控,拒绝向List列表添加重复信息。例如,在List列表中存在元素“a01001;a01002”,如果用户输入数据为“a01001”或“a01002”,系统则弹出提示信息,拒绝将新数据加入List列表;如果用户输入的数据不同于List列表中的任何一个元素,则作为新元素加入List中。VisualBasic界面显示如图所示。根据程序功能说明,完成程序代码。
【代码5-1】
Begin VB.Form. Forml
Caption = "List 列表拒绝添加重复信息"
//...窗体描述(略)
Begin VB.CommandButton Command2
Caption = "退出"
//...窗体描述(略)
End
Begin VB.CommandButton Commandl
Caption = "添加"
//...窗体描述(略)
End
Begin VB.TextBox Text1
//...窗体描述(略)
End
Begin VB.ListBox List1
Height = 1860
ItemData = "Form1.fix": 0000
Left = 1020
List = "Form1.fix": 0002
TabIndex = 0
Top = 525
Width = 2580
End
Begin VB.Labe1 Labe11
BackStyle = 0 'Transparent
Caption = "请输入编号"
//...窗体描述(略)
End
End
【代码5-2】
Attribute VB Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB Creatable = False
Attribute VB PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form. Load ()
List1.AddItem "a01001"
List1.AddItem "a01002"
End Sub
Private Sub Cormnand1 Click ()
Dim Myval As Long
For i=0 To (1)
(2)
If (3) Then
MsgBox "系统不允许重复输入,请重新输入"
Exit Sub
End If
(4)
(5)
End Sub
在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Optionl和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为Listl)和一个文本框(名称为Textl),如图l所示。编写窗体的Click事件过程。程序运行后,如果选择“添加项目”单选按钮,然后单击窗体,则从键盘上输入要添加的项目内容(内容任意,不少于三个),并添加到列表框中;如果选择“删除项目”单选按钮,然后单击窗体,则从键盘上输入要删除的项目内容,将其从列表框中删除。程序的运行情况如图2所示。在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),可以实现上述功能。但这个程序不完整,请把它补充完整。
要求:去掉程序中的注释符,把程序中的?改为适当的内容,使其正确运行,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程:记录类型定义如下:下列叙述中正确的是()。
A. 记录类型animal不能在Form1中定义,必须在标准模块中定义
B. 如果文件c:\vbTest.dat不存在,则Open命令执行失败
C. 由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾
D. 语句“Put#1,,rec”将animal类型的两个数据元素写到文件中
(1)将窗体标题改为“学生查询”。
(2)将窗体的边框样式改为“细边框”,取消窗体中水平和垂直滚动条、记录选择器、浏览按钮(导航按钮)和分隔线;将子窗体边框样式改为“点线”,取消子窗体中的记录选择
器、浏览按钮(导航按钮)和分隔线。
(3)在窗体中有两个标签控件,名称分别为“Labell”和“Label2”,将这两个标签上的文字颜色改为白色,背景颜色改为紫蓝色t紫蓝色代码为8388608)。
(4)将窗体主体节中控件的Tab次序改为:
“Chem”_“TxtDetail”→“CmdRefer’’→“CmdList”→
“CmdClear”→“fDtail”→“简单查询”→“Framel 8”。(5)按照以下窗体功能,补充事件代码设计。在窗体中有一个组合框控件和一个文本框控件,名称分
别为“CItem”和“TxtDetail”;有两个标签控件,名称分别为“Label3”和“Ldetail”;还有三个命令按钮,名称分别为“Cm-dList”、“CmdRefer”和“CmdClear‘’。在“Chem”组合框中选择某一项目后,“Ldetail”标签控件将显示出所选项目名加上“内容:”。在“TxtDetail”文本框中输入具体项目值后,单击“CmdRefer”命令按钮,如果“CItem”和“TxtDetail”两个控件中均有值,则在子窗体中显示找出的相应记录,如果两个控件中不全有值,显示消息框,消息框标题为“注意”,提示文字为“查询项目和查询内容不能为空!!!”,消息框中只有一个“确定”按钮;单击“CmdList”命令按钮,在子窗体中显示“ts-tud”表中的全部记录;单击“CmdClear”命令按钮,将“Chem”和“TxtDetail”两个控件中的值清空。
注意:不允许修改窗体对象“fStud”和子窗体对象“fDe-tail”中未涉及的控件、属性和任何VBA代码;不允许修改表对象“tStud”。代码设计只允许补充一条语句、完成设计,不允许增删和修改其他位置已存在的语句。
A.x%4=1 And x%5=2
B.x%4=1 Or x%5=2
C.x Mod 4=1 And x Mod 5=2
D.x Mod 4=1 Orx Mod 5=2
在考生文件夹下有一个工程文件sit3.vbp,窗体上已经有一个标签Labell,请添加一个单选按钮数组,名称为Op1,含三个单选按钮,它们的Index属性分别为0、1、2,标题依次为“飞机”、“火车”、“汽车”,再添加一个名称为Textl的文本框。窗体文件中已经给出了Opl的Click事件过程,但不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容,使得在程序运行时单击“飞机”或“火车”单选按钮时,在Textl中显示“我坐飞机去”或“我坐火车去”,单击“汽车”单选按钮时,在Textl中显示“我开汽车去”,如图所示。
注意:不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
在Access的数据属性中,如果控件来源中包含一个字段名,则下列说法中正确的是()。
A.控件中显示的就是数据表中的字段值
B.对窗体中的数据所进行的修改不会被写入字段中
C.如果设置该属性为空,窗体控件中显示的数据也被写入到数据库表的字段中
D.如果该属性包含一个计算表达式,这个控件不会显示计算结果