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

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

admin2019-01-16  37
问题 在名称为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://www.kaotiyun.com/show/SuFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)