永利国际娱乐平台

 | 网站首页 | 小学教案 | 小学课件 | 小学试卷 | 初中教案 | 初中课件 | 初中试卷 | 高中教案 | 高中课件 | 高中试卷 | 选修课程 | 教师考试 | 心理班会 | 素材 | Map | 电子图书 | 
本站域名www.freezl.net,提供自幼儿园到高中各科各类资源免注册高速免费下载。设为首页 | 加入收藏 |
您现在的位置: 永利国际娱乐平台 >> 高中教案 >> 信息技术 >> 教案信息
教案搜索 高级搜索
高中信息技术基础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

 


资源下载地址: 高中信息技术基础VB程序设计实例:积分统计源代码数据库打包下载DOC免费下载>>>>>下载地址1  
本资源 ,点击关键字可以直接在永利国际娱乐平台上搜索出相关资料。
本站的教学教育资源,均从互联网收集整理,如果侵犯了你的版权,请联系删除。感谢!
  推荐资源
 高中信息技术基础VB程序设计实例:幸运抽奖源代码数据库打包下载DOC免费下载
 高中信息技术基础VB程序设计实例:积分统计源代码数据库打包下载DOC免费下载
 高二信息技术下册VB程序设计第十课选择结构表格式精品教案教学设计DOC免费下载
 高二信息技术下册VB程序设计第八课函数与赋值语句表格式精品教案教学设计DOC免费下载
 高二信息技术下册VB程序设计第七课赋值语句表格式精品教案教学设计DOC免费下载
 高二信息技术下册VB程序设计第五课常量变量函数表达式表格式精品教案教学设计DOC免费下载
 高二信息技术下册VB程序设计第三课编写别碰我程序表格式精品教案教学设计DOC免费下载
 高二信息技术下册VB编程第二课面向对象程序设计表格式精品教案教学设计DOC免费下载
 高中信息技术基础Photoshop知识点复习备考整理DOC免费下载
 高中信息技术基础4.3Access记录的高级操作优秀公开课教学设计附学生导学单DOC免费下载
 教科版高中信息技术基础必修4.2.1表格数据的处理公开课教案设计DOC免费下载
 最新高中信息技术学业考试Flash专题复习讲义导学案DOC免费下载
 高中信息技术基础《Word2007创意排版》教案设计DOC免费下载
 高中信息技术基础《Word2007模仿排版》教案设计DOC免费下载
 高中信息技术基础《Word2007的认识》教案设计DOC免费下载
 高中信息技术基础《WindowsXP入门》教案设计DOC免费下载
 高中信息技术基础《计算机的历史》教案设计DOC免费下载
 高中信息技术基础《Photoshop:初识图像处理》公开课导学案DOC免费下载
 高一信息技术必修3.1信息工具及文字处理最新公开课导学案设计DOC免费下载
 教科版信息技术基础必修《表格数据的处理》表格式公开课教案设计DOC免费下载
 中职职高信息技术《ASP动态网站制作:“注册”功能实现——Request对象》优质公开课教案设计DOC免费下载
 教科版信息技术必修《文本信息的结构化和形象化》优质公开课教案教学案例DOC免费下载
 教科版信息技术基础《日新月异的信息技术》精品信息化表格式教案设计DOC免费下载
 粤教版信息技术选修2《多媒体技术应用:声音的加工》精品说课设计DOC免费下载
 沪科版信息技术基础《信息技术及其发展》2课时精品表格式教案附教学评价表及反思DOC免费下载
 2014年广西省普通高中信息技术学科学业水平考试复习资料知识要点重点梳理汇总DOC免费下载
 广西省2013年高一信息技术学业水平考试复习要点知识点整理DOC免费下载
 高中信息技术VB开发环境预习探究训练导学案DOC免费下载
 高中信息技术VB可视化编程预习探究训练导学案DOC免费下载
 高中信息技术VB中数据和常量、变量预习探究训练导学案DOC免费下载
 高中信息技术基础VB程序设计实例:幸运抽奖源代码
 高中信息技术基础VB程序设计实例:积分统计源代码
 高二信息技术下册VB程序设计第十三课滚动条控件表
 高二信息技术下册VB程序设计第十课选择结构表格式
 高二信息技术下册VB程序设计第九课关系表达式与逻
 高二信息技术下册VB程序设计第八课函数与赋值语句
 高二信息技术下册VB程序设计第七课赋值语句表格式
 高二信息技术下册VB程序设计第六课常用语句表格式
 高二信息技术下册VB程序设计第五课常量变量函数表
 高二信息技术下册VB程序设计第四课顺序结构表格式
 高二信息技术下册VB程序设计第三课编写别碰我程序
 高二信息技术下册VB编程第二课面向对象程序设计表
高中信息技术基础VB程序设计实例:幸运抽奖源代码
高二信息技术下册VB程序设计第十三课滚动条控件表
高二信息技术下册VB程序设计第十课选择结构表格式
高二信息技术下册VB程序设计第九课关系表达式与逻
高二信息技术下册VB程序设计第八课函数与赋值语句
高二信息技术下册VB程序设计第七课赋值语句表格式
高二信息技术下册VB程序设计第六课常用语句表格式
高二信息技术下册VB程序设计第五课常量变量函数表
高二信息技术下册VB程序设计第四课顺序结构表格式
高二信息技术下册VB程序设计第三课编写别碰我程序
高二信息技术下册VB编程第二课面向对象程序设计表
高二信息技术下册VB程序设计第一课算法表格式精品
高中信息技术基础Photoshop知识点复习备考整理DO
高中信息技术基础4.3Access记录的高级操作优秀公
最新高一历史必修二《战后资本主义的新变化》优秀
教科版高中信息技术基础必修4.2.1表格数据的处理
最新高中信息技术学业考试Photoshop知识点整理DO
最新高中信息技术学业考试Flash专题复习讲义导学
中职职高信息技术《轻松玩转大数据》教师竞赛说课
高中信息技术基础《Word2007制作表格》教案设计D
 高中信息技术基础VB程序设计实例:幸运抽奖源代码
 高中信息技术基础Photoshop知识点复习备考整理DO
 高中信息技术基础4.3Access记录的高级操作优秀公
 教科版高中信息技术基础必修4.2.1表格数据的处理
 最新高中信息技术学业考试Photoshop知识点整理DO
 最新高中信息技术学业考试Flash专题复习讲义导学
 高中信息技术基础《Word2007制作表格》教案设计D
 高中信息技术基础《Word2007创意排版》教案设计D
 高中信息技术基础《Word2007模仿排版》教案设计D
 高中信息技术基础《Word2007的认识》教案设计DOC
 高中信息技术基础《中文输入法》教案设计DOC免费
 高中信息技术基础《系统管理设置》教案设计DOC免
 高中信息技术基础《文件(夹)的管理》教案设计D
 高中信息技术基础《WindowsXP入门》教案设计DOC免
 高中信息技术基础《计算机的数制与编码》教案设计
 高中信息技术基础《计算机的软件》教案设计DOC免
 高中信息技术基础《计算机的硬件》教案设计DOC免
 高中信息技术基础《计算机的历史》教案设计DOC免
 高中信息技术基础《Photoshop:初识图像处理》公
 高一信息技术必修3.1信息工具及文字处理最新公开
| 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 管理登录 | 
永利国际娱乐平台| | 永利国际娱乐官网|浙ICP备17044199号-1