Question

在窗体上已经建立1个文本框控件txt1,以及2个命令按钮控件cmd1和cmd2。请完善程序，使之完成以下操作：

在窗体上已经建立1个文本框控件txt1,以及2个命令按钮控件cmd1和cmd2。请完善程序，使之完成以下操作：
打开窗体时，文本框上显示“VBA程序设计”，2个命令按钮cmd1和cmd2的标题上分别显示文字“蓝色”和“斜体”；
单击命令按钮cmd1时，文本框用蓝色显示文字；
单击命令按钮cmd2时，文本框用斜体显示文字。
Private Sub Form_Load()
___[1]___ = "VBA程序设计"
cmd1.Caption = "蓝色"
cmd2.Caption = "斜体"
End Sub
Private Sub cmd1_Click()
txt1.___[2]___ = vbBlue
End Sub
Private Sub cmd2_Click()
txt1.FontItalic = ___[3]___
End Sub
[1] A. txt1值 B. txt1.Caption
C. text1.Value D. txt1.Value
[2] A. ForeColor B. BackColor
C. FontSize D. 颜色
[3] A. False B. True
C. Value D. 斜体

Answer 1

单元1单元;

接口

使用
窗口，消息，SysUtils单元，变型，类，图形，控件，表格，
对话框，StdCtrls; BR />

TForm1类（TForm）
EDIT1：TEDIT;
按钮：TButton的;
按钮：TButton的;
程序Button1Click（发件人：TObject的）;
：程序Button2Click（发件人：TObject的）;
私人
{声明}

{公开声明}
结束; / a>
VAR
FORM1：TForm1;

实现

{$ R *。 DFM}

程序TForm1。 Button1Click（发件人：TObject的）;
开始
edit1.Text：='欢迎来到visul基本
结束;

过程TForm1.Button2Click（发件人：TObject的）;

关闭;
结束开始

结束。
这是Delphi的