说明: 查找与替换程序(VB6.0源代码编写),替换区分大小写等功能. Private Sub Command1_Click() Dim st, te As String Dim i As Integer te = Text1.Text For i = 1 To Len(Text1.Text) st = Mid(Text1.Text, i, 1) If st = Text2.Text Then Mid(te, i, 1) = Text3.Text Next i Text1.Text = te End <fioedeeee> 上传 | 大小:7kb
说明: foreach和array的应用程序,请输入要查找的数字和查找结果(VB6.0源代码编写) Option Base 1 Dim A As Variant Private Sub cmdGo_Click() s_num = Val(txtInput.Text) For j = 1 To UBound(A) If A(j) = s_num Then num = j Next j If num = 0 Then lblShow.Caption = "没有这个数字-> " & s_num Els <misoline> 上传 | 大小:7kb