【正确答案】根据题意，新建“标准EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为Text1、Text属性为空，命令按钮的名称为Command1、Caption属性为“当前时间／日期切换”。双击Command1进入代码窗口，编写如下代码： 　　Dim i As Integer 　　Private Sub Command1Click() 　　 If i=0 Then 　　 Text1．Text=Date 　　 i=1 ’显示标识，1表示显示的是日期 　　 Else 　　 Text1．Text=Time 　　 i=0 ’0表示显示的是时间 　　 End If 　　End Sub 　　 　　Private Sub Form_Load() 　　 Text1 Text=Time 　　i=0 　　End Sub 　　单击 按钮运行程序，并按要求保存。