2个回答
展开全部
j=0 '当初始为0
for i=1 to listbox1.count-1
if listBox.items(i)>max then
max = int(listbox1.items(i))
j=i ‘不必加1
end if
next
你不说说出什么问题，别的看不出来了。
for i=1 to listbox1.count-1
if listBox.items(i)>max then
max = int(listbox1.items(i))
j=i ‘不必加1
end if
next
你不说说出什么问题，别的看不出来了。
更多追问追答
追问
我试试看哦。。问题就是按了button以后没有反应。。。还是原来那么多项。
现在还是没有反应。。。不会有减少诶。
追答
不好意思，我的也错误百出。
你这不象是个Button1的事件 。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim max, j, i As Integer
max = ListBox1.Items(0)
j = 0 '当初始为0
For i = 1 To ListBox1.Items.Count - 1
If ListBox1.Items(i) > max Then
max = Int(ListBox1.Items(i))
j = i '不必加1
End If
Next
ListBox1.Items.RemoveAt(j) '删除某个索引项不是remove
End Sub
这就ok了。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
光点科技
2023-08-15 广告
通常情况下，我们会按照结构模型把系统产生的数据分为三种类型：结构化数据、半结构化数据和非结构化数据。结构化数据，即行数据，是存储在数据库里，可以用二维表结构来逻辑表达实现的数据。最常见的就是数字数据和文本数据，它们可以某种标准格式存在于文件...
点击进入详情页
本回答由光点科技提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
