首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
admin
2018-09-19
20
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计结果。
注意:不能修改程序的其他部分和控件属性。程序调试通过后,运行程序,将统计结果显示在文本框中,再按“保存”按钮,否则将没有成绩,最后将修改后的文件按原文件名进行存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private arr(100) As Integer Private n As Integer Private Sub Command2_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text1.Text Print #1, Text2.Text Print #1, Text3.Text Print #1, Text4.Text Print #1, Text5.Text Print #1, Text6.Text Close #1 MsgBox "保存成功!" End Sub Private Sub Form_Load() Open App.Path & "\in5.txt" For Input As #1 n = 0 Do While Not EOF(1) Input #1, x n = n + 1 arr(n) = x Loop Close #1 End Sub Private Sub Command1 Click() ’======以下考生编写程序开始===== ’======"考生编写程序结束"===== End Sub 程序结束 参考答案 Private Sub Command1_Click() For i = 1 To n If arr(i) < 60 Then Text2 = Val(Text2) + 1 ElseIf arr(i) >= 60 And arr(i) < 70 Then Text3 = Val(Text3) + 1 ElseIf arr(i) >= 70 And arr(i) < 80 Then Text4 = Val(Text4) + 1 ElseIf arr(i) >= 80 And arr(i) < 90 Then Text5 = Val(Text5) + 1 ElseIf arr(i) >= 90 And arr(i) <= 100 Then Text6 = Val(Text6) + 1 End If Text1 = Val(Text1) + 1 Next End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/4mFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
考生文件夹下的工程文件sjt5.vbp中有一个初始文本为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮;请添加一个标题为“各行平均数的最大值”的标签Label2,再添加一个初始文本为空的文本框Text2,如图所示。程序功能如下:
假定有以下循环结构:DoUntil条件表达式 循环体Loop则以下正确的描述是( )。
下面属于黑盒测试方法的是
设栈的顺序存储空间为S(0:49),栈底指针bottom=49,栈顶指针top=30(指向栈顶元素)。则栈中的元素个数为
下面关于组合框Cb1的叙述中正确的是
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是( )。
以下不能用Print方法输出数据的对象或窗口是()。
窗体上有一个如右图所示的图形控件,控件中显示了如图所示的文字,可以判断这个图形控件( )。
算法的空间复杂度是指( )。
为了调整图像框的大小以与其中的图形相适应,必须把它的Stretch属性设置为( )。
随机试题
按开发目的可将预探井分为新油气田预探井和油气藏预探井。()
“或有负债”
间歇热与弛张热的主要不同点是
患者,女,30岁。症见人寐困难1个月,多梦,胸闷胁胀,急躁易怒,伴头昏头胀,口干口苦,小便短赤,舌红苔黄,脉弦数。治疗方剂是
A、接触传播B、诊疗手术传播C、水和食物传播D、各种制剂传播E、虫媒传播可引起疾病暴发的是
胃手术后病人可能存在的主要护理诊断/问题不包括
房屋租赁合同存在下列情形时,属于合同无效的有()。
材料一世界新一轮科技革命和产业变革呼啸而来,带来了机遇,也带来了挑战。大量的新科技在行政执法实践中得到广泛运用,在显著提高执法效率的同时,也对执法者的理念和素质、执法的方式方法提出了新的要求。一个“大相机”在空中一照,全市的裸地就尽收眼
我国刑法第六条规定,“凡在中华人民共和国领域内犯罪的,除法律有特别规定的以外,都适用本法。”这里所说的法律有特别规定主要是指()。
J.Martin认为,在一个组织机构以及它的信息资源中,有一种技术提供了实质性改变其管理过程的机会,它是______。
最新回复
(
0
)