| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1727 人关注过本帖, 1 人收藏
标题:求问各位大神如何做下面的题目
只看楼主 加入收藏
三竖
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2020-5-15
收藏(1)
 问题点数:0 回复次数:2 
求问各位大神如何做下面的题目
图片附件: 游客没有浏览图片的权限,请 登录注册
2020-05-15 20:28
gbhytg
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2020-6-1
收藏
得分:0 
你可以试试这个,使用vb2012做的
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Focus()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.TextLength > 0 Then
            ListBox1.Items.Add(TextBox1.Text)
            TextBox1.Clear()
            TextBox1.Focus()
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim i As Integer = 0
        If TextBox1.TextLength > 0 Then
            If ListBox1.Items.Count > 0 Then
                For i = 0 To ListBox1.Items.Count - 1
                    ListBox1.SelectedIndex = i
                    ListBox1.Items.Remove(TextBox1.Text)
                    Exit For
                Next
            End If
        End If
    End Sub
End Class
2020-06-02 18:24
moou
Rank: 2
等 级:论坛游民
威 望:1
帖 子:22
专家分:40
注 册:2018-8-15
收藏
得分:0 
程序代码:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i = 0 To 2
            ListBox1.Items.Add(InputBox("添加第" & i + 1 & "个项目"))
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim inputStr As String = InputBox("输入要删除的数据")

        For i = 0 To ListBox1.Items.Count - 1
            If ListBox1.Items(i).ToString = inputStr Then
                ListBox1.Items.RemoveAt(i)
                Exit For
            End If
        Next
    End Sub


我看的描述为啥跟下面的Text1没啥关系啊
2020-09-01 14:02
快速回复:求问各位大神如何做下面的题目
数据加载中...
 
   



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

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