- 博客(3)
- 收藏
- 关注
原创 随机生成10个数 并比较大小
代码如下: Private Function max(a() As Integer) As Integer Dim i As Integer Dim maxa As Integer For i = LBound(a) To UBound(a) If a(i) > maxa Then maxa = a(i) max = maxa End If Next i
2012-05-22 22:44:52
764
转载 MP3
首先在窗体的"通用声明"部分声明函数 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"(Byval lpstrCommand As String,ByVal lpstrRetumString As String,ByVal uReturnLength As lon
2012-05-22 22:10:30
187
原创 vb程序
秒表(2012-03-21 11:48:49) Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Label1.Caption = Time End Sub 数据处理(2012-03-21 11:17:39) Option Base 1 Dim a(10
2012-04-18 14:00:24
241
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人