在名称为Form1的窗体上画三个命令按钮(名称分别为Command1、Command2和Command3,标题分别为“显示”、“统计”和“保存”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars 属性设置为2

admin2019-01-16  22

问题 在名称为Form1的窗体上画三个命令按钮(名称分别为Command1、Command2和Command3,标题分别为“显示”、“统计”和“保存”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars 属性设置为2),如 图1-292(a)所示。程序运行后,如果单击“显示”命令按钮,则读入in5.txt 文件中的文本,并在文本框中显示出来,如图1-292(b)所示;如果单击“统计”命令按钮,则统计文本框中ASCII 码大于等于70、小于等于100 的字符的个数,并把结果在文本框中显示出来,如图1-292(c)所示(注意,图中所显示的统计次数是随便写的,不是实际的统计结果);如果单击“保存”命令按钮,则把统计结果存入考生文件夹下的out5.txt 文件中。

    注意:结束程序运行前必须用“保存”命令按钮把统计结果存入考生文件夹下的out5.txt 文件中,否则没有成绩。存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名为sjt5.frm。

选项

答案【操作步骤】 步骤1:新建一个“标准EXE”工程。 步骤2:在窗体Form1中加入一个文本框和三个命令按钮,并分别设置它们的相关属性,属性及值如表2-156所示。 [*] 步骤3:打开代码编辑窗口,编写三个命令按钮的单击事件代码。 参考代码: Private str1 As String Private Sub Command1_Click() Open "in5.txt" For Input As 1 Line Input #1, str1 Close #1 Text1.Text = str1 End Sub Private Sub Command2_Click() Dim i, j As Integer j = 0 For i = 1 To Len(str1) If Asc(Mid(str1, i, 1)) >= 70 And Asc(Mid(str1, i, 1)) <= 100 Then j = j + 1 End If Next Text1.Text = j End Sub Private Sub Command3_Click() Open "out5.txt" For Output As #1 Write #1, Text1.Text Close #1 End Sub 步骤4:按要求将文件保存在考生文件夹中。 步骤5:运行程序,先单击“显示”按钮,然后单击“统计”按钮,最后单击“保存”按钮。

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

最新回复(0)