看到经常有群友抱怨 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
其实这个代码可以优化,,因为只是去重,而不涉及排序,因此,可以在遍历 listbox 的时候直接删除 listbox 而不是清除后重新add