(1)请在窗体上面画两个文本框,其名称分别为Textl和Text2,文本框内容设置为“模拟考试”和“顺利通过”。然后画两个单选按钮,其名称分别为Optionl和Option2,标题分别为“交换”和“连接显示”,编写适当的事件程序。程序运行后,如果选中“交换

admin2010-07-13  18

问题 (1)请在窗体上面画两个文本框,其名称分别为Textl和Text2,文本框内容设置为“模拟考试”和“顺利通过”。然后画两个单选按钮,其名称分别为Optionl和Option2,标题分别为“交换”和“连接显示”,编写适当的事件程序。程序运行后,如果选中“交换”单选按钮,则交换显示Textl和Text2中的内容;如果选中“连接显示”单选按钮,则连接后的内容显示在Textl中,初始状态不选中任何单选按钮。如图12—3所示。存盘时,工程文件名为Sj3.vbp,窗体文件名为sj3.frm。
    注意:在结束程序运行时,必须先选中一个单选按钮,并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮,并将连接显示后的结果输出到考生文件夹下的out.txt文件中,否则可能无成绩。
    (2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,在窗体上有两个命令按钮,名称分别为Commandl与Command2、标题分别为“读取文本”、“保存”。另有一个文本框,文本框的名称为Text1,Text属性为空,可多行显示。要求在运行程序时,单击“读取文本”按钮,可以读入考生文件夹下的in4.txt并显示在文本框中;单击“保存”按钮,可以把文本框中的数据存到考生文件夹下的另一个文件out4.txt中。程序运行时的窗体界面如图12—4所示。

    注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。

选项

答案 (1)根据题意,新建“标准EXE”工程,将两个文本框控件和两个单选按钮控件添加到窗体中,文本框的名称分别为Textl和Text2,Text属性分别为“模拟考试”和“顺利通过”,单选按钮的名称分别为Optionl和Option2,Caption属性分别为“交换”和“连接显示”,设置完成后双击Option进入代码窗口,编写如下代码: Private Sub Optionl Click() Dim str As String str=Textl.Text Textl.Text=Text2.Text Text2.Text=str End Sub Private Sub Option2 Click() Textl.Text=Textl.Text+Text2.Text Open"App.Path&\out.txt"For Output As#1 Print#1,Textl.Text Close#1 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,将一个文本框控件和两个命令按钮添加到窗体中,文本框的名称为Textl,命令按钮的名称为分别为Commandl和Command2,Caption属性分别为“读取文本”和“保存”。双击Commandl进人代码窗口,编写如下代码: Dim rel AS String Private Sub Commandl_Click() Dim str As String str="" rel="" Textl.Text="" ’初始化Textl的文本 Open"App.Path&\in4.txt"For Input As#1 ’打开文件,进行读取 While EOF(1)=False’判断文件是否读取完 Input#1,str’读取文本 Textl.Text=Textl.Text+str’在Textl中显示文本 Wend Close#1 End Sub Private Sub Command2_Click() Open”App.Path&\out4.txt”For Output As#2 Print#2,Textl.Text’将文本保存到sjout.txt文件中 Close#2 End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/sJg0FFFM
0

最新回复(0)