| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 428 人关注过本帖
标题:帮一下忙
取消只看楼主 加入收藏
sketty
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-4-27
收藏
 问题点数:0 回复次数:3 
帮一下忙

在很多比赛上,计分牌是很重要的软件.它的主要功能是
运动员入场,评委亮出他的分数,记分牌上面显示当前已经上场所有运动员的得分,并排序
但它不是普通的排序,格式如下:
9.123
-0.012
-0.024
大家帮帮忙吧!!!以下是别人编写的,但是我写进去却不行,一直提示"listcount"不是"system windows.forms.listbox"的成员
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4035
ClientLeft = 60
ClientTop = 450
ClientWidth = 5370
LinkTopic = "Form1"
ScaleHeight = 4035
ScaleWidth = 5370
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "添加"
Default = -1 'True
Height = 375
Left = 2520
TabIndex = 1
Top = 960
Width = 1335
End
Begin VB.TextBox Text1
Height = 375
Left = 2520
TabIndex = 0
Top = 240
Width = 1335
End
Begin VB.ListBox List1
Height = 2940
ItemData = "Form1.frx":0000
Left = 240
List = "Form1.frx":0002
TabIndex = 2
Top = 240
Width = 1935
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Dim m As Integer
Dim sum As Single
For m = 0 To List1.ListCount - 1
sum = sum + Val(List1.List(m))
Next
List1.AddItem Format(Val(Text1.Text) - sum, "0.000")

End Sub

搜索更多相关主题的帖子: 运动员入场 system color 软件 
2006-04-29 21:20
sketty
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-4-27
收藏
得分:0 

是这样啊,那你知道怎么改吗??帮一下忙好吗??

2006-04-29 22:25
sketty
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-4-27
收藏
得分:0 

运行都运行不了,保存有用吗??

2006-04-29 22:49
sketty
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-4-27
收藏
得分:0 
他的代码原本就是以FRM保存的
2006-04-29 22:58
快速回复:帮一下忙
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.091108 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved