Sub arrDemo2()
Dim arr(1, 1) As Variant 'Dim arr(0 To 1, 0 To 1) As Variant
arr(0, 0) = "apple"
arr(0, 1) = "banana"
arr(1, 0) = "pear"
arr(1, 1) = "grape"
For i = 0 To 1
For j = 0 To 1
MsgBox arr(i, j)
End Sub
''''''''''''用array函数创建常量数组
'一维数组
Sub arrayDemo3()
Dim arr As Variant '数组
arr = Array("vba", 100, 3.14)
MsgBox arr(0)
End Sub
'二维数组
Sub arrayDemo4()
Dim arr As Variant '数组
arr = Array(Array("张三", 100),
import java.text.ParseException;
import java.text.SimpleDateFormat;
import java.util.ArrayList;
import java.util.Date;
import java.util.Scanner;
* 根据产品策略某本书可以设置包月到期时间,需要计算指定时间到包月到期时间还有多少分钟,不足60S