文件名称：foreach和array的应用程序,请输入要查找的数字和查找结果(VB6.0源代码编写)
文件大小：7KB
文件格式：RAR
更新时间：2012-03-03 03:37:36
foreach和array的应用程序,请输入要查找的数字和查找结果(VB6.0源代码编写)
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 Else lblShow.Caption = s_num & "是第 " & num & " 个数。" End If End Sub Private Sub Form_Load() A = Array(5, 3, 1, 2, 9, 4, 8, 7, 6) For Each ad In A i = i + 1 lblBefore.Caption = lblBefore.Caption & "(" & i & ") ----> " & ad & vbNewLine Next End Sub
【文件预览】：
VB090210-foreach和array的应用
----MSSCCPRJ.SCC(196B)
----Option Base.vbp(808B)
----Option Base.vbw(58B)
----Option Base.frm(5KB)
----foreach和array的应用()
--------foreach和array的应用.exe(20KB)
--------新建 文本文档.txt(666B)