snrg.net
当前位置:首页 >> vB中ArrAy函数例题 >>

vB中ArrAy函数例题

呵呵,我来给你个例子吧..比如你现在窗体上想建一个下拉框来实现选择月份..那么你会怎么添加呢?Private Sub Command1_Click() Combo1.AddItem "一月" Combo1.AddItem "二月" Combo1.AddItem "三月" Combo1.AddItem "四月"

Private Sub Command1_Click() Dim a1() a1 = Array("1", "2", "3") For i = 0 To 2 Print a1(i) NextEnd Sub '简单的例子

Private Sub form1_Click() -------------变量自己定义 arr1=lib_array()---------------假定arr1是数组函数传入的数组变量 txt="" j=0 For i=0 to 9 if arr1(i)>=60 then j=j+1 txt=txt&arr1(i)&chr(32) Next print "十位同学的成绩为:" print txt print "及格的人数为:"&j&"人" End Sub

详细的实例代码如下:Private Sub Command1_Click() Combo1.AddItem "一月" Combo1.AddItem "二月" Combo1.AddItem "三月" Combo1.AddItem "四月" Combo1.AddItem "五月" Combo1.AddItem "十二月" End Sub Private

Array函数 返回一个包含数组的 Variant.语法Array(arglist)所需的 arglist 参数是一个用逗号隔开的值表,这些值用于给 Variant 所包含的数组的各元素赋值.如果不提供参数,则创建一个长度为 0 的数组.说明用来表示数组

option base 0 数组下标从0开始 a b c d e f g 0 1 2 3 4 5 6 所以1,3,5位置上的字母是bdf,输出bdf

array是用来给一维动态数组赋值的函数,要注意的是只能给ariant型的数据辅助

在Print函数后,加上几个空格即可解决.例如:用Space(3)表示3个空格.修改后的代码是:Option Base 1Private Sub Form_Click()Dim aaa As Variantmyweek = Array("mon", "tue", "wed", "thu", "fri", "sat", "sun")myday2 =

Private Sub Command1_Click() Dim c() Cls a = Array(3, 4, 2, 1, 5, 7, 8, 11, 13) b = Array(10, 6, 12, 9, 13, 8, 8, 1, 16) ReDim c(UBound(a)) For i = 0 To UBound(a) Print Tab(5 * i); a(i); Next i Print For i = 0 To UBound(b) c(i) = a(i) + b(i) Print Tab(5 * i)

Array 函数(数组函数) 返回一个包含数组的 Variant.语法 Array(arglist) 所需的 arglist 参数是一个用逗号隔开的值表,这些值用于给 Variant 所包含的数组的各元素赋值.如果不提供参数,则创建一个长度为 0 的数组.说明 用来表示数组元素

网站首页 | 网站地图
All rights reserved Powered by www.snrg.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com