| 网站首页 | 小学教案 | 小学课件 | 小学试卷 | 初中教案 | 初中课件 | 初中试卷 | 高中教案 | 高中课件 | 高中试卷 | 选修课程 | 教师考试 | 心理班会 | 素材 | Map | 
师友资源网: 本站域名www.freezl.net,提供自幼儿园到高中各科各类资源免注册高速免费下载。 设为首页 | 加入收藏 |
您现在的位置: 师友资源网 >> 高中教案 >> 信息技术 >> 教案信息

高中信息技术资源导航
高中信技教案 高中信技课件 高中信技试卷
::高中信息技术最近更新::
 高中信息技术基础VB程序设计实例:积分统计源
 高二信息技术下册VB程序设计第十课选择结构表
 高二信息技术下册VB程序设计第八课函数与赋值
 高二信息技术下册VB程序设计第七课赋值语句表
 高二信息技术下册VB程序设计第五课常量变量函
 高二信息技术下册VB程序设计第三课编写别碰我
 高二信息技术下册VB编程第二课面向对象程序设
 高中信息技术基础Photoshop知识点复习备考整理
 高中信息技术基础4.3Access记录的高级操作优秀
高中信息技术推荐资源
 高中信息技术基础VB程序设计实例:积分统计源代码数
 高二信息技术下册VB程序设计第十课选择结构表格式精
 高二信息技术下册VB程序设计第八课函数与赋值语句表
 高二信息技术下册VB程序设计第七课赋值语句表格式精
 高二信息技术下册VB程序设计第五课常量变量函数表达
 高二信息技术下册VB程序设计第三课编写别碰我程序表
 高二信息技术下册VB编程第二课面向对象程序设计表格
 高中信息技术基础Photoshop知识点复习备考整理DOC免
 高中信息技术基础4.3Access记录的高级操作优秀公开课
 教科版高中信息技术基础必修4.2.1表格数据的处理公开
 最新高中信息技术学业考试Flash专题复习讲义导学案D
 高中信息技术基础《Word2007创意排版》教案设计DOC免
教案搜索 高级搜索
教学资源本地高速下载地址:
高中信息技术基础VB程序设计实例:积分统计源代码数据库打包下载DOC免费下载>>>>>下载地址1  
高中信息技术相关资源
高二信息技术下册VB程序设计第十三课滚动条控件
高二信息技术下册VB程序设计第十课选择结构表格
高二信息技术下册VB程序设计第九课关系表达式与
高二信息技术下册VB程序设计第八课函数与赋值语
高二信息技术下册VB程序设计第七课赋值语句表格
高二信息技术下册VB程序设计第六课常用语句表格
高二信息技术下册VB程序设计第五课常量变量函数
高二信息技术下册VB程序设计第四课顺序结构表格
高二信息技术下册VB程序设计第三课编写别碰我程
高二信息技术下册VB编程第二课面向对象程序设计
高二信息技术下册VB程序设计第一课算法表格式精
高中信息技术基础Photoshop知识点复习备考整理
高中信息技术基础4.3Access记录的高级操作优秀
最新高一历史必修二《战后资本主义的新变化》优
教科版高中信息技术基础必修4.2.1表格数据的处
最新高中信息技术学业考试Photoshop知识点整理
最新高中信息技术学业考试Flash专题复习讲义导
中职职高信息技术《轻松玩转大数据》教师竞赛说
高中信息技术基础《Word2007制作表格》教案设计
高中信息技术基础《Word2007创意排版》教案设计
高中信息技术热门资源
 高中信息技术基础Photoshop知识点复习备考整理
 高中信息技术基础4.3Access记录的高级操作优秀
 教科版高中信息技术基础必修4.2.1表格数据的处
 最新高中信息技术学业考试Photoshop知识点整理
 最新高中信息技术学业考试Flash专题复习讲义导
 高中信息技术基础《Word2007制作表格》教案设计
 高中信息技术基础《Word2007创意排版》教案设计
 高中信息技术基础《Word2007模仿排版》教案设计
 高中信息技术基础《Word2007的认识》教案设计D
 高中信息技术基础《中文输入法》教案设计DOC免
 高中信息技术基础《系统管理设置》教案设计DOC
 高中信息技术基础《文件(夹)的管理》教案设计
 高中信息技术基础《WindowsXP入门》教案设计DO
 高中信息技术基础《计算机的数制与编码》教案设
 高中信息技术基础《计算机的软件》教案设计DOC
 高中信息技术基础《计算机的硬件》教案设计DOC
 高中信息技术基础《计算机的历史》教案设计DOC
 高中信息技术基础《Photoshop:初识图像处理》
 高一信息技术必修3.1信息工具及文字处理最新公
 教科版信息技术基础必修《表格数据的处理》表格
::资源内容预览::
资源名称:高中信息技术基础VB程序设计实例:积分统计源代码数据库打包下载DOC免费下载


点击下面链接高速下载:
高中信息技术基础VB程序设计实例:积分统计源代码数据库打包下载DOC免费下载>>>>>下载地址1  
文件大小: 45 K
添加时间: 2019/1/29 16:27:16
下载次数: 本日: 总计:
资源简介:

某赛事的团队积分统计规则如下:积分(分)=金牌数*5+银牌数*2+铜牌数*1.各参赛队所获得的各类减排书存放在数据库文件“data.accd b”的“jiangpai”表中,
运行程序时,在列表框list1中显示各参赛队所获得的各类奖牌数信息,单击“积分统计”按钮command1,在列表框list2中显示各参赛队的积分信息。按此要求编写的vb程序如下。划线处应填入的代码为_____程序加框出的代码有错,请改正:_____
‘某赛事的团队积分统计规则如下:
积分(分)=金牌数*5+银牌数*2+铜牌数*1.各参赛队所获得的各类减排书存放在数据库文件“data.accd b”的“jiangpai”表中。
'运行程序时,在列表框list1中显示各参赛队所获得的各类奖牌数信息,单击“积分统计”按钮command1,在列表框list2中显示各参赛队的积分信息。按此要求编写的vb程序如下:
Dim c(1 To 100) As String     '参赛队名称
Dim g(1 To 100) As Integer    '金牌数
Dim s(1 To 100) As Integer    '银牌数
Dim b(1 To 100) As Integer    '铜牌数
Dim sum(1 To 100) As Integer  '数组sum存储积分
Dim i  As Integer    '
Private Sub Command1_Click()
Dim j As Integer
For j = 1 To i
   sum(j) = __________
   List2.AddItem c(j) & "    " & Str(g(j))
   Next j
  
End Sub
Private Sub Form_Load()
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=" & App.Path & "\data.accdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from jiangpai"
i = 0
Do While Not rs.EOF
i = i + 1
     '在vb中读取数据库中的字段给数组变量
rs.MoveNext
List1.AddItem c(i) & " " & Str(g(i)) & "   " & Str(s(i)) &
                                       "    " & Str(b(i))
Loop
rs.Close
conn.Close
End Sub
Private Sub Form_Load()
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=" & App.Path & "\data.accdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from jiangpai"
i = 0
Do While Not rs.EOF
   i = i + 1
    '在vb中读取数据库中的字段给数组变量
   rs.MoveNext
   List1.AddItem c(i) & " " & Str(g(i)) & "   " & Str(s(i)) & "    " & Str(b(i))
Loop
rs.Close
conn.Close
End Sub

 

温馨提示:本资源 ,点击关键字可以直接在师友资源网上搜索出相关资料。
更多
  网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)发表评论

说明: 如果您发现该软件不能下载,请通知管理员或点击【此处报错】,谢谢!
未经本站明确许可,任何网站不得非法盗链及抄袭本站资源;如引用页面,请注明来自本站,谢谢您的支持!
本站提供的教育资源,仅可用于教育教学以及相关研究,不得用于商业用途。如果侵犯了你的版权,请联系删除。
| 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 360网站安全检测平台 | 管理登录 | 
师友资源网| | 免费教学资源高速下载||浙ICP备17044199号-1