在窗体上加上一个文本框控件TextBox,画一个命令按钮,当单击命令按钮的时候将显示"保存文件"对话框,设置该对话框可用于保存文本文件(默认) 和Word文档,然后在文本框控件中显示保存的文件名,请填空。
Private Sub Command1_Click()
CommonDialog1.Filter= 【13】
CommonDialog1.Filter= 【14】
CommonDialog1.ShowSave
TextBox.Text= 【15】
End Sub
第1题:
在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:
程序运行后,单击命令按钮,在文本框中显示的值是__________。
第2题:
( 14 )窗体中有两个命令按钮: “ 显示 ” (控件名为 cmdDisplay )和 “ 测试 ” (控件名为 cmdTest ) 。 以下事件过程的功能是:单击 “ 测试 ” 按钮时,窗体上弹出一个消息框。如果单击消息框的 “ 确定 ” 按钮 ,隐藏窗体上的 “ 显示 ” 命令按钮;单击 “ 取消 ” 按钮关闭窗体。按照功能要求,将程序补充完整。
Private Sub cmdTest_Click()
Answer= 【 14 】 ( “ 隐藏按钮 ” , vbOKCancel )
If Answer=vbOK Then
cmdDisplay.Visible= 【 15 】
Else
Docmd.Close
End If
End Sub
第3题:
"在窗体上放入一个名称为Button1命令按钮和两个名称分别为TextBox1、TextBox2两个文本框,然后编写如下事件过程: 程序运行后,在文本框TextBox1中输入10,然后单击命令按钮,则在TextBox2中显示的内容是()"
A10
B20
C30
D40
第4题:
在窗体上加上一个富文本控件Rich TextBox,画一个命令按钮,当单击命令按钮的时候,将显示“打开文件”对话框,设置该对话框只用于找开文本文件,然后在富文本控件中显示打开的文件内容。
Private Sub Command1_Click ( )
CommonDialogFilter = 【 】
CommonDialogShowOpen
RichTextBoxFileName = 【 】
End Sub
第5题:
"在窗体上放入一个名称为Button1命令按钮和1个名称为TextBox1文本框,然后编写如下事件过程: 程序运行后,如果单击命令按钮,则在文本框中显示的内容是()
570
略