使用结构、数组、循环和DataGridView写的分数统计小程序
学习VB的课程中，老师布置了一个小程序，录入学生成绩，然后统计出学生成绩总分数。
界面如下：
代码如下：
Public Class Form1Const sMax As Integer = 100Structure StudentTypeDim strID As StringDim strName As StringDim sngScore As SingleEnd StructureDim udtStudent(sMax) As StudentTypeDim intCount As Integer = 0Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.ClickdgvScore.Rows.Add(txtID.Text, txtName.Text, txtScore.Text)txtID.Focus()udtStudent(intCount).strID = txtID.TextudtStudent(intCount).strName = txtName.TextudtStudent(intCount).sngScore = CSng(txtScore.Text)intCount = intCount + 1txtID.Text = ""txtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSum.ClickDim intPos As IntegerDim intSum As IntegerDim dgvAvg As DoubleintSum = 0For intPos = 0 To intCount - 1intSum = intSum + udtStudent(intPos).sngScoreNextIf intCount > 0 Then dgvAvg = intSum / intCountMsgBox("平均分数：" + dgvAvg.ToString)txtID.Focus()End SubPrivate Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.ClickEndEnd SubPrivate Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.ClickIf Me.dgvScore.SelectedRows.Count > 0 AndAlso _Not Me.dgvScore.SelectedRows(0).Index = _Me.dgvScore.Rows.Count - 1 Then _Me.dgvScore.Rows.RemoveAt(Me.dgvScore.SelectedRows(0).Index)End SubEnd Classps:2017/2/5 更新一下代码格式，系统提示错误信息：少于150字的随笔不允许发布到首页候选区。这个博客是之前写的，现在编辑了，发布至首页候选区这个选项应该作废呀，现在这个功能阻止我重新编辑这边博客。
提示：在删除操作之后再统计时会发生不正确，希望大家能指正。谢谢！
转载于:https://www.cnblogs.com/liminjun88/archive/2009/09/22/1572129.html
使用结构、数组、循环和DataGridView写的分数统计小程序相关推荐
- 初次入坑解析的小程序（决定写代码风格的小程序）
初次入坑解析的小程序(决定写代码风格的小程序) 我是一个大二的学生,在接触小程序之前我是一个学计算机运维的,后来入了坑,在入坑以后开发了两个小程序. 第一个是为学校开发的一个考勤的小程序,样式是别人设 ...
- 分享下自己写的一个微信小程序请求远程数据加载到页面的代码
分享下自己写的一个微信小程序请求远程数据加载到页面的代码 1 思路整理 就是页面加载完毕的时候 请求远程接口,然后把数据赋值给页面的变量 ,然后列表循环 2 js相关代码 我是改的 onload ...
- 闲来无事，用java写了一个魔方小程序。附源码
闲来无事,用java写了一个魔方小程序.附源码 使用三维数组.相对来说还是简单.呵呵. import java.util.ArrayList; import java.util.List; impor ...
- java实现魔方_闲来无事，用java写了一个魔方小程序。附源码 | 学步园
闲来无事,用java写了一个魔方小程序.附源码 使用三维数组.相对来说还是简单.呵呵. import java.util.ArrayList; import java.util.List; impor ...
- python恶搞小程序-知道了这个，你也能写出 Python 趣味小程序
原标题:知道了这个,你也能写出 Python 趣味小程序 前两天在 51CTO 看见某篇推荐博文,大概是一个 豆子比较感兴趣,在知乎和 github 上搜索了相关的源代码,发现原来实现起来非常的简单, ...
- python文件分发_python 写一个文件分发小程序
一.概述 该小程序实现从源端到目标端的文件一键拷贝,源端和目标段都在一台电脑上面,只是目录不同而已 二.参数文件说明 1. settings.txt的说明 a. 通过配置settings.txt,填源 ...
- python有趣小程序-知道了这个，你也能写出 Python 趣味小程序
原标题:知道了这个,你也能写出 Python 趣味小程序 前两天在 51CTO 看见某篇推荐博文,大概是一个 豆子比较感兴趣,在知乎和 github 上搜索了相关的源代码,发现原来实现起来非常的简单, ...
- 用Windows自带的工具写一个一键关机小程序
如何用Windows自带的工具写一个一键关机小程序 工具/原料(打勾勾的可用可不用) 装有Windows系统的电脑 在机子上装个格式工厂(版本随意,最好更新到最新的) 制作环境 windows自带命令 ...
- python趣味程序_知道了这个，你也能写出 Python 趣味小程序
原标题:知道了这个,你也能写出 Python 趣味小程序 前两天在 51CTO 看见某篇推荐博文,大概是一个 豆子比较感兴趣,在知乎和 github 上搜索了相关的源代码,发现原来实现起来非常的简单, ...
最新文章
- DeepLearning 应用概述
- python3 学习使用大纲梳理
- pgAdmin启动时浏览器页面一直转圈圈 无法正常打开页面
- mybatis关联配置（一对多配置）
- hive 日誌怎麼查看_Hive各个日志里都存放了什么信息？
- tomcat lifecyclelistener_大公司程序员带你死磕Tomcat系列(五)——容器
- 下面的3条指令执行后,CPU几次修改IP?
- 腾讯云服务器CentOs7系统发布个人网站
- 莫烦python学习笔记
- 让前端走进微时代， 微微一弄很哇塞！
- 联想电脑无法进入计算机,联想电脑进不去主界面怎么办
- CentOS下LVM的使用
- php yii 微信支付宝,Yii使用easywechat实现微信支付
- Simpson自适应Simpson
- Kodi+Alist v3 挂载阿里云盘他人分享链接打造在线影视库
- permissionerror winerror 5 拒绝访问。
- Python基础--搬家具(面向对象)
- mq5 EA模板及双均线交叉策略EAdemo
- 轮播图插件--swiper
- Codeforces gym 2013-2014 Samara SAU ACM ICPC Quarterfinal Qualification Contest