在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 = ""
Forml. Command1. Capt ion = "name"
Dialog. Hide
Form1. Show
End Sub
Private Sub OKButton_ Click()
【8】
Select Case i
Case 1:
email = Text1. Text
Labe11. Caption = "please input your email:"
【9】 . Caption = "email"
Case 2:
fname = Text1. Text
【10】 . Caption = "name"
i=0
End Select
Dialog. Hide
Form1. Show
End Sub
参考答案:[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。