简介找一个查询类小程序可以根据自己的需求进行定制开发。小程序的价格也不是很贵的。建筑企业资质查询类小程序有哪些？如果你没有听过-资质社，现在我来告诉你，具有查询企业资质等级，建造师详情等功能。VB编写一个类似查询单词的小程序Option ExplicitDim filename As String, word() As StringPrivate Sub Command1_Click()List1.ClearEnd SubPrivate Sub Form_Load() Dim i As Integer,
找一个查询类小程序
可以根据自己的需求进行定制开发。
小程序的价格也不是很贵的。
建筑企业资质查询类小程序有哪些？
如果你没有听过-资质社，现在我来告诉你，具有查询企业资质等级，建造师详情等功能。
VB编写一个类似查询单词的小程序
Option ExplicitDim filename As String, word() As StringPrivate Sub Command1_Click()List1.ClearEnd SubPrivate Sub Form_Load() Dim i As Integer, temp As String filename = App.Path & "\单词.txt" '地址自己可以改 Open filename For Input As #1 Do While Not EOF(1) Line Input #1, temp i = i + 1 ReDim Preserve word(i) word(i) = temp Debug.Print word(i) DoEvents Loop Close #1End SubPrivate Sub Text1_Change()Dim i As Integer, ret, temp As String List1.Clear temp = Text1 For i = 1 To UBound(word) ret = InStr(word(i), temp) Debug.Print ret If ret 0 Then List1.AddItem word(i) NextLabel1.Caption = List1.ListCount & " Words containing : " & tempEnd SubPrivate Sub Text1_GotFocus()Text1.SelStart = 0Text1.SelLength = Len(Text1)End Sub
