2. 计算机
  3. 在窗体Forml上建立3个菜单(名称分别为vbRead、vbCalc和vbSave，标题分别为“读数”“计算”和“存盘”)；然后绘制一个文本框(名称为Textl，MultiLine属性设置为True，ScrollBars属性设置为2)，如图61—5所示。

在窗体Forml上建立3个菜单(名称分别为vbRead、vbCalc和vbSave，标题分别为“读数”“计算”和“存盘”)；然后绘制一个文本框(名称为Textl，MultiLine属性设置为True，ScrollBars属性设置为2)，如图61—5所示。

admin2009-03-26  17
问题  在窗体Forml上建立3个菜单(名称分别为vbRead、vbCalc和vbSave，标题分别为“读数”“计算”和“存盘”)；然后绘制一个文本框(名称为Textl，MultiLine属性设置为True，ScrollBars属性设置为2)，如图61—5所示。

    程序运行后，如果执行“读数”命令，则读人in34．txt文件中的100个整数，放入一个数组中，数组的下界为1；如果执行“计算”命令，则把该数组中可以被3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果执行“存盘”命令，则把所求得的和存人考生文件夹下的out34．txt文件中。
    在考生文件夹下有一个工程文件sj5．vbp，考生可以装入该文件。窗体文件sj5．frm中的ReadData过程可以把in34．txt文件中的100个整数读人Arr数组中；而writeData过程可以把指定的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为out34．txt)。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sj5．vbp，窗体文件名仍为sj5．frm。
选项
答案①打开题目所给工程文件。 ②执行“工具’’菜单中的“菜单编辑器”命令，打开菜单编辑器；在“标题”栏中输入“读数”，在“名称”栏中输人“vbRead”；单击“下一个’’按钮，在“标题’’栏中输入“计算”，在“名称”栏中输入“vbCale”；单击“下一个”按钮，在“标题”栏中输入“存盘”，在“名称”栏中输入“vbSave”。 ③单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置其名称为Textl，Multiline属性设置为True，ScrollBars属性设置为2。 ④打开代码窗口输入如下代码： Private Sub vbCalc_Click() Textl．Text="" Fori=1Tol00 If Arr(i)Mod3=0Then Textl．Text=Textl．Text & Arr(i)&Space(5) temp=temp+Arr(i) End If Nexti Printtemp End Sub Private Sub vbRead_Click() ReadData End Sub Private Sub vbSave_Click() WriteData"out．txt"，temp End Sub ⑤按要求保存文件即完成本题。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/0V1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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