一个命令按钮(Command1)属于表单(Form1),表单又属于表单集(Formset),引用命令按钮(Command1)的正确描述的是______。
A.ThisForm.ThisFormSet.Command1
B.ThisFormSet.ThisForm.Command1
C.ThisForm.Command1.ThisFormSet
D.Command1.ThisFormSet.ThisForm
A.ThisForm.ThisFormSet.Command1
B.ThisFormSet.ThisForm.Command1
C.ThisForm.Command1.ThisFormSet
D.Command1.ThisFormSet.ThisForm
A.This.ThisForm.Text1.Value
B.This.Parent.Parent.Text1.Value
C.Parent.Parent.Text1.Value
D.This.Parent.Text1.Value
A.This.ThisForm.Text1.Value
B.This.Parent.Parent.Text1.Value
C.Parent.Parent.Text1.Value
D.This.Parent.Text1.Value
表单中有一个选项按钮组控件(myOption)、一个表格控件(Grid1)以及两个命令按钮“查询”(Command1)和“退出”(Command2)。其中,选项按钮组控件有两个按钮“现汇”(Option1)、“现钞”(Option2)。运行表单时,在选项组控件中选择“现钞”或“现汇”,单击“查询”命令按钮后,根据选项组控件的选择将“外汇账户”表的“现钞”或“现汇” (根据钞汇标志字段确定)的情况显示在表格控件中。 单击“退出”按钮,关闭并释放表单。 注意: 在表单设计器中将表格控件Grid1的数据源类型设置为“SQL说明”。
Score_manager数据库中含有3个数据库表Student、Score1和Course。
为了对Score_manager数据库数据进行查询,设计一个表单Myform3(控件名为form1,表单文件名为Myform3)。表单标题为“成绩查询”;表单有“查询”(名称为Command1)和“退出”(名称为Command2)两个命令按钮。表单运行时,单击“查询”按钮,查询每门课程的最高分,查询结果中含“课程名”和“最高分”字段,结果按课程名升序保存在表New_table3中。
单击“退出”按钮,关闭表单。
在考生文件夹中,打开Ecommerce数据库,完成如下综合应用(所有控件的属性必须在表单设计器的属性窗口中设置): 设计一个文件名和表单名均为myform2的表单,表单标题为“客户基本信息”。 要求该表单上有“女客户信息”(Command1)、“输出客户信息”(Command2)、和“退出”(Command4)三个命令按钮。 各命令按钮功能如下: (1)单击“女客户信息”按钮,使用SQL的SELECT命令查询客户表Customer中“女客户”的全部信息。 (2)单击“输出客户信息”按钮,调用考生文件夹中的报表文件myreport在屏幕上预览(PREVIEW)客户信息。 (3)单击“退出”按钮,关闭表单。
以下3题使用下图,表单名为Form1,表单中有两个命令按钮(Command1和 Command2)、两个标签、两个文本框(Text1和Taxt2)。 [*]
如果在运行表单时,要使表单的标题显示“登录窗口”,则可以在Form1的Load事件中加入语句 ______。
其他功能要求如下: (1)用选项按钮组(OptionGroup1)控件选择商品分类(饮料(Option1)、调味品 (Option2)、酒类(Option3)、小家电(Option4)); (2)单击“确定”(Command2)命令按钮,显示选中分类的商品,要求使用DO CASE语句判断选择的商品分类(如右图所示): (3)在右图所示界面中按Esc键返回左图所示界面: (4)单击“退出”(Command1)命令按钮,关闭并释放表单。 注意: 选项按钮组控件的Value属性必须为数值型。
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在【 】处填入适当的内容,将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【 】() Command1.Enabled=True End Sub
窗体中有一个命令按钮Command1,其Click事件过程如下。
PriVate Sub Coranland1_Click()
For i=1 To 4
x=3
For j=2 To 3
x=3
For k=1 To 2
x=x+2
Next k
Next j
Next i
MsgBox x
End Sub
窗体运行后,单击命令按钮,消息框输出的结果是______。
在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字:") If Val(x)>4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为【 】。