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

admin2019-05-14  28

问题 考生文件夹下有一个工程文件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://kaotiyun.com/show/LTUp777K
0

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