看到经常有群友抱怨 ai 不好用,其实大多数时候是自己的构词技巧不够,其实只要构词合适,简单的问题一次提问就可以得到满意答案,我经常有复杂的问题都是拆解了多个步骤,多次连续的交互提问,就能满足最终目的。

某次在vb群里有个群友问道 listbox 控件内容如何去重,我用 ai 问了一个代码,我是这样构词的

把ai给的代码复制到 vb的ide里面无需任何修改,直接可使用,这种简单问题,通过ai完全可以解决。

Private Sub Form_Load()
    ' 示例数据
    List1.AddItem "Apple"
    List1.AddItem "Banana"
    List1.AddItem "Apple"
    List1.AddItem "Orange"
    List1.AddItem "Banana"
    List1.AddItem "Grape"
    
    ' 去重
    RemoveDuplicatesFromListBox List1
End Sub

Private Sub RemoveDuplicatesFromListBox(lstBox As ListBox)
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    Dim i As Integer
    For i = 0 To lstBox.ListCount - 1
        ' 如果字典中没有该项,则添加到字典
        If Not dict.Exists(lstBox.List(i)) Then
            dict.Add lstBox.List(i), Nothing
        End If
    Next i
    
    ' 清空 ListBox
    lstBox.Clear
    
    ' 将字典中的项重新添加到 ListBox
    Dim key As Variant
    For Each key In dict.Keys
        lstBox.AddItem key
    Next key
End Sub

Views: 80

Hi, I’m 邓伟

本来无一物,何处惹尘埃

One Comment

发表回复