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

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

admin2018-12-05  33
问题 在窗体上建立三个菜单（名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”），然后画一个文本框（名称为Text1，MultiLine属性设置为True，ScrollBars 属性设置为2）（如图1－262所示）。程序运行后，如果单击“读入数据”按钮，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中小于50的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt 文件中。

    在考生文件夹下有一个工程文件sjt5.vbp，考生可以装入该文件。窗体文件中的ReadData  过程可以把datain1.txt 文件中的100个整数读入Arr数组中；而WriteData 过程可以把指定的整数值写到考生文件夹下指定的文件中（整数值通过计算求得，文件名为dataout.txt）。
    注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。
选项
答案【操作步骤】 步骤1：打开考生文件下的本题工程文件sjt5.vbp，利用菜单设计器，如表2－132中的设置建立菜单项。 [*] 步骤2：在窗体Form1中画一个文本框，其相关属性及值见表2－133。 [*] 步骤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 Arr(i) ＜ 50 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://jikaoti.com/ti/Xdm0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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