若将命令按钮的标题“Command1”改为“计算”,应设置按钮控件的()属性。
A.Value
B.Name
C.Caption
D.Fontname此题为单项选择题。
A.Value
B.Name
C.Caption
D.Fontname此题为单项选择题。
在窗体上画—个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer,y As Integer) M=IIf(x>y,x,y) End FUNction Private Sub Command1 Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,B0 End Sub 程序运行后,单击命令按钮,输出结果为【 】。
在窗体上画一个名称为Command1的命令按钮。编写如下事件过程: Private Sub Command1_Click() Dim a As String A=【 】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后,单击命令按钮,要求窗体上显示的输出结果为: 5 456 34567 2345678 123456789 请填空。
在窗体上画一个命令按钮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,输出结果为【 】。
其他功能要求如下: (1)用选项按钮组(OptionGroup1)控件选择商品分类(饮料(Option1)、调味品 (Option2)、酒类(Option3)、小家电(Option4)); (2)单击“确定”(Command2)命令按钮,显示选中分类的商品,要求使用DO CASE语句判断选择的商品分类(如右图所示): (3)在右图所示界面中按Esc键返回左图所示界面: (4)单击“退出”(Command1)命令按钮,关闭并释放表单。 注意: 选项按钮组控件的Value属性必须为数值型。
在考生文件夹中,打开Ecommerce数据库,完成如下综合应用(所有控件的属性必须在表单设计器的属性窗口中设置): 设计一个文件名和表单名均为myform2的表单,表单标题为“客户基本信息”。 要求该表单上有“女客户信息”(Command1)、“输出客户信息”(Command2)、和“退出”(Command4)三个命令按钮。 各命令按钮功能如下: (1)单击“女客户信息”按钮,使用SQL的SELECT命令查询客户表Customer中“女客户”的全部信息。 (2)单击“输出客户信息”按钮,调用考生文件夹中的报表文件myreport在屏幕上预览(PREVIEW)客户信息。 (3)单击“退出”按钮,关闭表单。
编写如下通用过程: Sub proc(By Val num As Long,ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num\ 10 Loop ren=k End Sub 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Dim n As Long, r As Long n=InputBox("请输入一个整数") n = CLng(n) proc n,r Print r End Sub 程序运行后,单击命令按钮,在输入对话框中输入345,输出结果是【 】。