标题:帮一下忙
只看楼主
sketty
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-4-27
 问题点数:0 回复次数:5 
帮一下忙

在很多比赛上,计分牌是很重要的软件.它的主要功能是
运动员入场,评委亮出他的分数,记分牌上面显示当前已经上场所有运动员的得分,并排序
但它不是普通的排序,格式如下:
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
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
得分:0 

你用的是 vb.net 吧?这个是 vb6 的代码,两种编程软件使用的编程语言有一些不同之处,这个代码当然运行不了

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

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

2006-04-29 22:25
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
得分:0 
以下是引用leon2在2006-4-29 21:57:00的发言:

你用的是 vb.net 吧?这个是 vb6 的代码,两种编程软件使用的编程语言有一些不同之处,这个代码当然运行不了

请将他的代码保存成frm文件……


快上课了……
2006-04-29 22:47
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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-61196-1-1.html




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

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