RSS
当前位置 : 电脑维修 > 电脑维修 > VB中如何实现数组的赋值

VB中如何实现数组的赋值

来源:未知 作者:老黑 时间:09-08-17 打印
如:yue(12)={0,31,28,31,30,31,30,31,31,30,31,30,31}
应如何写 答案补充:这个方法只适用于一维数组,多维数组只能一个一个分别赋值,没有简便方法。
============
代码如下。
============
Dim a As Variant
Private Sub Form_Load()
a = Array(1, 5, 2, 43, 222)
End Sub   下面代码双击窗体实现
private sub form_dblclick()
dim a(1 to 40) as integer
dim n as integer
dim f as string
dim i as integer, j as integer
do while n < 40
do
randomize
i = 1 + int(40 * rnd)
j = 1 + int(40 * rnd)
if a(j) = 0 and instr(f, str(i) + ",") = 0 then
a(j) = i
n = n + 1
f = f + str(i) + ","
exit do
end if
loop while (1)
if n = 40 then text1 = chr(13) + f
loop
end sub
效果图如下。( 的要求 满足了,给 分!!!)  
最新评论共有位网友发表了评论
发表评论
评论内容:不能超过250字,需审核,请自觉遵守互联网相关政策法规。
用户名: 密码:
匿名评论