在窗体上建立三个菜单项(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars 属性设置为2)(如图1-272所示)。程序运

admin2018-12-05  21

问题 在窗体上建立三个菜单项(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars 属性设置为2)(如图1-272所示)。程序运行后,如果单击“读入数据”按钮,则读入datain1.txt 文件中的100 个整数,放入一个数组中,数组的下界为1;如果单击“计算并输出”命令,则把该数组中可以被3整除的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果单击“存盘”命令,则把所求得的和存入考生文件夹下的dataout.txt 文件中。

    在考生文件夹下有一个工程文件sjt5.vbp,考生可以装入该文件。窗体文件中的ReadData 过程可以把datain1.txt 文件中的100个整数读入Arr 数组中;而WriteData 过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得,文件名为dataout.txt)。
    注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍为sjt5.vbp,窗体文件名仍为 sjt5.frm。

选项

答案【操作步骤】 步骤1:打开考生文件下的本题工程文件sjt5.vbp,利用菜单设计器,如表2-142中的设置建立菜单项。 [*] 步骤2:在窗体Form1中画一个文本框,其相关属性及值如表2-143。 [*] 步骤3:在代码编辑窗口,分别编写三个菜单项的Click事件过程。 参考代码: Dim Sum As Integer Private Sub Read_Click() ReadData End Sub Private Sub Calc_Click() Dim S As String Sum = 0 For i = 1 To 100 If Int(Arr(i) / 3) = Arr(i) / 3 Then Sum = Sum + Arr(i) S = S & Str(Arr(i)) & " " End If Next i Text1.Text = S Print "Sum = "; Sum End Sub Private Sub Save_Click() WriteData "Dataout.txt", Sum End Sub 步骤4:按要求将文件保存至考生文件夹中。

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

最新回复(0)