2. 计算机
  3. 考生文件夹下有一个工程文件sjt5.vbp，请在窗体上建立含有三个菜单项的菜单（菜单项名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”），然后画一个文本框（名称为Text1，MultiLine 属性设置为True，S

考生文件夹下有一个工程文件sjt5.vbp，请在窗体上建立含有三个菜单项的菜单（菜单项名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”），然后画一个文本框（名称为Text1，MultiLine 属性设置为True，S

admin2019-05-14  67
问题 考生文件夹下有一个工程文件sjt5.vbp，请在窗体上建立含有三个菜单项的菜单（菜单项名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”），然后画一个文本框（名称为Text1，MultiLine 属性设置为True，ScrollBars 属性设置为2）（如图1－277所示）。程序运行后，如果单击“读入数据”按钮，则调用ReadData 过程读入datain1.txt 文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中下标为奇数的元素在文本框中显示出来，并求出它们的和，最后把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则调用WriteData 过程把所求得的和存入考生文件夹下的dataout.txt 文件中。ReadData过程和WriteData过程已经给出，请编写Read、Calc和Save菜单项的Click事件过程，实现上述功能。

    注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。
选项
答案【操作步骤】 步骤1：打开考生文件下的本题工程文件sjt5.vbp，利用菜单设计器，如表2－147中的设置建立菜单项。 [*] 步骤2：在窗体Form1中画一个文本框，其相关属性及值如表2－148。 [*] 步骤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 i Mod 2 ＜＞ 0 Then Sum = Sum + Arr(i) S = S & Str(Arr(i)) & " " End If Next i Form1.Text1.Text = S Me.Print "Sum = "; Sum End Sub Private Sub Save_Click() WriteData "Dataout.txt", Sum End Sub 步骤4：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/LTUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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