在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画两个文本框,其名称分别为Textl、Text2,文本框的内容分别设置为”计算机”、”等级考试”。然后画一个标签,其名称为Labl,高度为375,宽度为2000。再画两个单选按钮,名称分别为Opl和O

admin2019-06-11  7

问题 在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画两个文本框,其名称分别为Textl、Text2,文本框的内容分别设置为”计算机”、”等级考试”。然后画一个标签,其名称为Labl,高度为375,宽度为2000。再画两个单选按钮,名称分别为Opl和Op2,标题分别为”交换” 和”连接”,最后再画一个命令按钮,其名称为Cl,标题为”确定”,编写适当的事件程序。程序运行后,如果选中”交换”单选按钮并单击”确定”按钮,则Textl文本框中的内容与’text2文本框中的内容进行交换,并在标签处显示”交换成功”(如图2-128所示);如果选中”连接”单选按钮并单击”确定”按钮后,则把交换后的Textl和Text2的内容连接起来,并在标签处显示连接后的内容。存盘时,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。
注意:不得修改已经给出的程序。在结束程序运行之前,必须选中一个单选按钮,并单击”确定”按钮。退出程序时必须通过单击窗体右上角的关闭按钮,否则无成绩。

选项

答案步骤1:打开考生文件夹下的本题工程文件sjt4.vbp。 步骤2:在窗体Forml中加入两个文本框、一个标签和两个单选按钮,分别设置它们的相关属性,其属性及值如表3-70所示。 步骤3:打开代码编辑窗口输入如下代码: 参考代码: Private Sub C1_Cl ick( ) If Opl Then Lab1.Caption=Text1.Text Text1.Text=Text2.Text Text2.Text=Lab1.Caption Lab1.Caption=“交换成功” ElseIf Op2 Then Labl.Caption=Text1.Text&Text2.Text EndIf End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按<F5>键运行程序,选择一个单选按钮,并单击命令按钮,最后单击窗体右上角的关闭按钮退出程序。 [*]

解析
转载请注明原文地址:https://kaotiyun.com/show/fkUp777K
0

最新回复(0)