[填空题] 在Visual Basic工程prjl中包含有两个窗体，窗体form1(主窗体)上有两个命令按钮command1和 command2，一个文本控件text1；窗体dialog是一个对话窗体

[填空题] 在Visual Basic工程prjl中包含有两个窗体，窗体form1(主窗体)上有两个命令按钮command1和 command2，一个文本控件text1；窗体dialog是一个对话窗体，窗体包含两个命令按钮OK和Cancel，一个文本控件text1和一个标签控件labe11。 编写程序要求实现的功能为：窗体form 1上command1的caption属性值为name，程序运行后，当单击 eommand1时，弹出对话窗体dialog，其labe11控件中的提示信息为“please input your name：”，要求用户输入自己的姓名。如果单击OK按钮，保存当前输入的内容并返回form1界面，command1的caption属性值为email。若再次单击command1命令按钮，仍然出现dialog对话窗体，此时dialog的labe11提示用户输入自己的email，当用户输入email后，单击“确定”按钮，保存当前输入的内容并返回form1界面；如果单击Cancel按钮，则输入内容无效并返回form1。 Private Sub Command1_Click() Dialog. Text1. Text = "" Dialog. Show End Sub Private Sub Command2_Click() Text1. Text = "email: "+ Dialog. email +" name: "+ Dialog. fname End Sub Private Sub Form_ Load() Command1. Caption = "name" 【7】 . Caption = "please input your name: Dialog. i = 0 End Sub Option Explicit Public i As Integer Public email As String Public fname As String Private Sub CancelButton_Click() i=0 email = "" fname =

参考答案：

[7]Dialog．Label1 [8]i＝i+1 [9]Form1．Command1 [10]Form1．Command1

问题解析:

先来看空【7】处，需要将某个控件的caption属性值设置为“please input your name：”，依据题目开始的描述，需要设置成该属性值的控件是对话窗体dialog中的标签label1，所以该处填写Dialog．Label1，而且需要注意的是，该处的dialog．是不能省掉的。接下来，在空【8】处，根据其下面的程序可以看出，利用i的值来判断区分当前要求输入的内容是name还是email，而在程序中却发现缺少了使i值递增的语句，即i＝i+l。在空【9】处，如果当前输入的是name，则某个控件caption属性值变为email，如果输入的是email，则该控件的 capUon属性值变为name，根据题目的要求，需要这样改变，caption属性的控件是窗体forml中的commandl命令按钮，因为当前窗体是dialog，因此还需要注明按钮所在的窗体，即form1，所以该处应该填写Form1． Command1。同样地，在空【10】处，也应该填写Form1。Command1。