首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从数据文件中读取学生的成绩。单击“统计”按钮,统计总人数、平均分(四舍五入取整)、及格人数和不及格人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计出的
在考生文件夹中有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从数据文件中读取学生的成绩。单击“统计”按钮,统计总人数、平均分(四舍五入取整)、及格人数和不及格人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计出的
admin
2020-02-27
40
问题
在考生文件夹中有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从数据文件中读取学生的成绩。单击“统计”按钮,统计总人数、平均分(四舍五入取整)、及格人数和不及格人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计出的结果。
注意:不能修改程序的其他部分和控件属性。程序调试通过后,运行程序,将统计结果显示在文本框中,再单击“保存”按钮保存数据,否则将没有成绩。最后将修改后的文件按原文件名进行存盘。
选项
答案
【操作步骤】 步骤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 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() Dim sum As Long For i = 1 To n If arr(i) >= 60 Then Text4 = Val(Text4) + 1 Else Text3 = Val(Text3) + 1 End If sum = sum + arr(i) Next Text2 = Int(sum / n + 0.5) Text1 = n End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/APTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为"Teacher
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a中(每个数
考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。要求:去
编写如下程序:PrivateSubCommand1_Click()DimxAsIntegerx=10Printfun1(x,12)+xEndSubPrivateFunctionfun1(mAsI
对建立良好的程序设计风格,下面描述正确的是()。
关于MDI窗体下列说法正确的是()。
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个图片框,名称为P1、P2,分别用来表示信号灯和汽车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2,Time
为了使命令按钮的Picture、DownPicture或DisabledPicture属性生效,必须把它的Style属性设置为( )。
在下面语句或函数中,不能描述选择结构的是
下列叙述中正确的是( )。
随机试题
肺癌出现下列哪项症状是手术的绝对禁忌证
患者,男,15岁,寒战、高热3天,伴鼻出血和口腔溃疡,体格检查:全身可见散在出血点,浅表淋巴结不肿大,胸骨无压痛,肝脾未触及;血象检查示Hb:100g/L,WBC:1.0×109/L,中性粒细胞0.15,淋巴细胞0.85,PLT12×109/L,网织红
在企业对产品进行定位的过程中,最重要的是将“差异化的产品”转化为“无差异化的产品”。()
会计人员继续教育中的会计职业道德教育,具体应包括()内容。
下列关于车船税法的规定,表述正确的有()。
关于核红的说法,正确的有()。
我自己觉得,我并不是那样____________的人。我是把我自己的生命看得和自己身上的任何___________一样:只要用在得当的地方,我随时都可以送人。填入画横线部分最恰当的一项是:
终身教育述评。
Hisfirstadventurebook______forchildrencameoutin1998.
HowtoDoBasicFirstAid1.Method1:PerformingthethreeCsCheckthe【T1】【T1】______Callfor【T2】helpimmediately【T2】______Ca
最新回复
(
0
)