首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars 属性设置为2)(如图1-257所示)。程序运行
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars 属性设置为2)(如图1-257所示)。程序运行
admin
2018-12-05
34
问题
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars 属性设置为2)(如图1-257所示)。程序运行后,如果单击“读入数据”按钮,则读入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-127中的设置建立菜单项。 [*] 步骤2:在窗体Form1中画一个文本框,其相关 属性及值如表2-128。 [*] 步骤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://kaotiyun.com/show/EkFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有以下定义语句:PrivateTypepointxAsIntegeryAsIntegerEndTypeDimaAspoint下面语句中正确的是(
窗体上有一个名称为VScroll1的滚动条,当用鼠标拖动滚动条中的滚动块时,触发的事件是( )。
如果把文本框的Enabled属性设置为False并运行程序,则以下叙述中正确的是
设有如下事件过程:PrivateSubForm_Click() Sum=0 Fork=1To3 Ifk
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
程序流程图中带有箭头的线段表示的是( )。
下面不能作为结构化方法软件需求分析工具的是()。
在DoUntil…Loop循环中,判断循环结束的方法是
当执行循环的时间较长时,为了避免被误认为是死机,通常应在循环体中放置一个语句,这个语句是
程序流程图中带有箭头的线段表示的是( )。
随机试题
以下符合年轻人饮茶注意事项的有
群体凝聚力的基础是()
医学模式转变对医师提出的根本性医德要求是
患者,女性,25岁,突起寒战高热,体温39.6℃,伴尿频、尿急、尿痛。体检:膀胱区无压痛,右肾叩痛。尿常规检查提示:尿蛋白(+),红细胞1~3个/HP,白细胞(+++),最可能的诊断是()
在承兑交单情况下,是由代收行对汇票进行承兑后,向进口商交单。()
若我方进口商品单价写为USD100/MTFOBTIANJIN是正确的。
( )应当妥善保存有关期货投资者保障基金的财务凭证、账簿和报表等资料,确保财务记录和档案完整、真实。
阅读材料,回答问题。一位老师在上课过程中遇到突发事件,该老师成功地化解了该事件,确保了教学活动的顺利开展。具体内容如下:在一次公开课上,执教老师对一个胖乎乎的男孩说:“请你把这段课文给大家读一下,好吗?”“老师,现在我不想读。”这名学生不顾有听课老师在
可撤销的民事行为被撤销的效力()。
よろしかったらごいっしょにどうですか。
最新回复
(
0
)