在考生文件夹下有一个工程文件sjt4.vbp,含有Forml和Form2两个窗体,其中Forml为启动窗体,窗体上的控件如图l所示。程序运行后,在Forml窗体的文本框中输入有关信息(如“密码”文本框中显示“*”字符),然后单击“提交”按钮,弹出“确认”对

admin2020-04-08  34

问题  在考生文件夹下有一个工程文件sjt4.vbp,含有Forml和Form2两个窗体,其中Forml为启动窗体,窗体上的控件如图l所示。程序运行后,在Forml窗体的文本框中输入有关信息(如“密码”文本框中显示“*”字符),然后单击“提交”按钮,弹出“确认”对话框(Form2窗体),并在Form2中显示Forml中输入的信息,如图2所示。单击“确认”按钮,程序结束,单击“重输”按钮,Form2消失,回到.Forml窗体。在给出的窗体文件中已经给出了程序,但不完整。
    要求:
    ①将:Forml的标题改为“注册”,将Form2的标题改为“确认”:
    ②设置适当的属性,使Form2标题栏右上角的所有按钮消失(如图2所示);
    ③去掉程序中的注释符,把其中的?改为正确的内容。
注意:不能修改程序中的其他部分,标题等属性的修改只能在属性窗口中进行。最后将修改后的文件按原文件名存盘。

选项

答案【操作步骤】 步骤1:打开本题工程文件,按照题目要求设置属性,如图4.26所示。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容,并在指定位置编写代码。 参考答案(阴影部分是需考生填入的内容) Private Sub C1_Click() Dim k As Integer Form2.Show当单击”提交”按钮时。则显示 Form2 Form2.Print Forml.L1.Caption; Forml.Textl Form2.Print Forml.L2.Caption; Forml.Text2 Form2.Print Forml.L3.Caption; Forml.Text3 Form2.Print Forml.Framel.Caption ;":"; ′取框架Framel的标题名称"性别" For k=0 To 1 If Forml.Opl(k).Value Then ′通过下一条语句确定K Form2.Print Forml.Opl (k).Caption End If Next k End Sub Private Sub Form Load() ′将Password Char属性设为+则密码输入后显示 * Text2.PasswordChar="*" End Sub ′需考生编写的Form2中的代码 Private Sub C1_Click() End End Sub Private Sub C2 C1iCk() Unload Form2 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析 修改窗体标题是通过设置其Caption属性来实现的,ControlBox属性用于设置控制菜单栏是否在窗体标题栏中显示,为在窗体标题栏中只显示标题信息,需将该属性值设置为False。文本框的PasswordChar属性可设置用于屏蔽在文本框中输入内容的字符,例如“*”。
转载请注明原文地址:https://kaotiyun.com/show/7ATp777K
0

最新回复(0)