搜索资源列表
VB
- 点击command1，label1随机显示1.2.3-Function a() As String Dim b(2) As String b(0) = 1 b(1) = 2 b(2) = 3 Randomize a = b(Rnd* 2) End Function Private Sub Command1_Click() Label1.Caption = a End Sub
本站作为网络服务提供者，仅为网络服务对象提供信息存储空间，仅对用户上载内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。