首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从数据文件中读取学生的成绩。单击“统计”按钮,统计总人数、平均分(四舍五入取整)、及格人数和不及格人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计出的
在考生文件夹中有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从数据文件中读取学生的成绩。单击“统计”按钮,统计总人数、平均分(四舍五入取整)、及格人数和不及格人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计出的
admin
2020-02-27
38
问题
在考生文件夹中有一个工程文件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全国计算机二级
相关试题推荐
窗体上有一个名称为CD1的通用对话框,一个名称为Command1的命令按钮,相应的事件过程如下:PrivateSubCommand1_Click() CD1.Filter="AllFile|*.*|TextFile|*.txt|Word|*.
有两个关系R,S如下,由关系R和S通过运算得到关系T,则所使用的操作为
能够将组合框Combo1中最后一个数据项删除的语句为( )。
以下叙述中错误的是( )。
A、各子菜单项组成一个名称为mnu1的控件数组B、不论选中菜单项1、2或3,均执行mnu1_Click事件过程C、Case2分支的语句没有必要,因为该菜单项的"复选"属性已被设置D、程序中的Index是系统自动产生的C菜单项1至菜单项3是名称为m
以下叙述中正确的是( )。
以下关于数组的叙述中,错误的是
下列排序方法中,最坏情况下比较次数最少的是()。
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是()。
某完全二叉树共有256个结点,则该完全二叉树的深度为()。
随机试题
既能镇惊安神,又能活血散淤、利尿通淋的药物是()(2010年第38题)
奥氏体不锈钢与珠光体耐热钢的焊接接头中会产生很大的热应力,这种热应力可以通过高温回火加以消除。()
决定当代中国命运的关键选择是()。
先天性脊柱裂好发于
“教育即生长”是教育哲学家()的观点。
在windows资源管理器”中,当选定硬盘中的一个文件后,_____不能将该文件删除到回收站中。
关于10GbpsEthemet的描述中,错误的是()。
我们在那边坐坐,大家坐着说话更方便。
Whatdoyouthink________himchangehismind?
【B1】【B8】
最新回复
(
0
)