在名称为Forml的窗体上画一个文本框,名称为Textl,允许多行显示;再画三个命令按钮,名称分别为Cl、C2、C3,标题分别为”输入”、”转换”、”存盘”(如图2-104所示)。请编写适当的事件过程,使得在运行时,单击”输入”按钮,则从考生文件夹中读入i

admin2013-10-18  24

问题 在名称为Forml的窗体上画一个文本框,名称为Textl,允许多行显示;再画三个命令按钮,名称分别为Cl、C2、C3,标题分别为”输入”、”转换”、”存盘”(如图2-104所示)。请编写适当的事件过程,使得在运行时,单击”输入”按钮,则从考生文件夹中读入in5.txt文件(文件中只有字母和空格),放入Textl中;单击”转换”按钮,则把Textl中的所有小写字母转换为大写字母;单击”存盘”按钮,则把Textl中的内容存入out5.txt文件中。
注意:考生必须把转换后的内容用”存盘”按钮存入out5.txt文件,否则无成绩。考生的工程文件以文件名sjt5.vbp存盘,窗体文件以文件名sjt5.frm存盘。

选项

答案步骤1:新建一个”标准EXE”工程,如表3-58在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Private Sub C1_Ciick( ) Open”in5.txt”For Input As#1 Input #1,a$ Text1.Text=a$ Close #1 End Sub Private Sub C2_Click( ) a$=Text1.Text b$=““ n=Len(a$) For i=1 To n b$=b$+UCase$(Mid$(a$,i,1)) Next Text1.Text=b$ End Sub Private Sub C3_Click( ) Open”out5.txt”For Output As#1 Print#1,Textl.Text Close#1 End Sub 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键键运行程序,先单击”输入”按钮,接着单击”转换”按钮,然后单击”存盘”按钮保存转换后的数据。

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

最新回复(0)