下列设置中,可以使命令按钮Command1成为不可见状态的是()
在表单中加入两个命令按钮Command1和Command2,编写Command1的Click事件代码如下This.Parent.Command2.Enabled=.F.,则单击Command1后,执行命令()。
在窗体上画一个名称为Command1、标题为“计算”的命令按钮;画3个文本框,名称分别为Text1、Text2和Text3;然后画4个标签,名称分别为Label1、Label2、Label3和Label4,标题分别为“操作数1”、“操作数2”、“运算结果”、“=”符;再建立一个含有4个单选按纽的RadioGroup组件,名称为RadioGroup 1,标题分别为“+”、“-”、“*”和“/”。程序运行后,在Text1、Text2中输入两个整数值,选中一个单选按钮后单击命令按钮,相应的计算结果显示在Text3,程序运行情况如图所示。请填入适当的内容,将程序补充完整。 procedure TForm1.Button1Click(Sender: TObject); var x1,x2,y :Integer; begin x1 := StrToInt(Edit1.(①)); x2 := StrToInt(Edit2.(②)); Case (③).ItemIndex of 0: y := x1 + x2 ; 1: y := x1 - x2; 2: y := x1 * x2; 3: y := x1 Div x2; End; Edit3. (④) := IntToStr(⑤); end;
程序运行时,使Command1失效的语句是()。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim c As Integer,n As Integer For c=0 To 50 c=c+3 n=n+1 Ifc>10Then Exit For Next c Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是()
执行以下command1的click事件,在窗体上显示的是()
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1、Label2的标签,然后编写如下的事件过程: Private x As Integer Private Sub Command1_Click( ) x = 5: y = 3 Call Proc(x, y) Label1.Caption = x Label2.Caption = y End Sub Private Sub Proc(ByVal a As Integer, ByVal b As Integer) x = a * a y = b + b End Sub 运行程序后,则两个标签中显示的内容分别是()
在Visual FoxPro中,为了实现单击command1按钮来退出表单(将表单从内存中释放掉),则command1按钮的Click事件代码应为()。
如果需要在MyForm=CreateObject(“form”)所创建的表单对象Myform中添加command1按钮对象,应当使用命令()。
在窗体上有一个命令按钮Command1,编写事件代码如下: 打开窗体运行后,单击命令按钮,依次输入10、37、50、55、64、20、28、19、-19、0,立即窗口上输出的结果是()