VARTYPE vt = VT_I4; /*数组元素的类型，long*/SAFEARRAYBOUND sab[2]; /*用于定义数组的维数和下标的起始值*/sab[0].cElements = 2;sab[0].lLbound = 0;sab[1].cElements = 2;sab[1].lLbound = 0;
　　/*创建一个2*2的类型为long的二维数组*/SAFEARRAY* psa = SafeArrayCreate(vt, sizeof(sab)/sizeof(SAFEARRAYBOUND), sab);
　　if (NULL == psa){throw;}

　　/*通过指向数组的指针来对二维数组的元素进行间接赋值*/
　　long (*pArray)[2]= NULL;
　　HRESULT hRet = SafeArrayAccessData(psa, (void**)&pArray);
　　if (FAILED(hRet))
　　{
　　　　throw;
　　}
　　memset(pArray, 0,2*2*sizeof(long));
　　/*释放指向数组的指针*/
　　SafeArrayUnaccessData(psa);
　　pArray = NULL;

　　/*对二维数组的元素进行逐个赋值*/
　　long index[2]= {0,0};
　　long lFirstLBound= 0;
　　long lFirstUBound= 0;
　　long lSecondLBound= 0;
　　long lSecondUBound= 0;
　　SafeArrayGetLBound(psa, 1,&lFirstLBound);
　　SafeArrayGetUBound(psa, 1,&lFirstUBound);
　　SafeArrayGetLBound(psa, 2,&lSecondLBound);
　　SafeArrayGetUBound(psa, 2,&lSecondUBound);
　　for (long i= lFirstLBound; i<= lFirstUBound; i++)
　　{
　　　　index[0]= i;
　　　　for (long j= lSecondLBound; j<= lSecondUBound; j++)
　　　　{
　　　　　　index[1]= j;
　　　　　　long lElement= i * sab[1].cElements+ j;
　　　　　　HRESULT hRet = SafeArrayPutElement(psa, index,&lElement);
　　　　　　if (FAILED(hRet))
　　　　　　{
　　　　　　　　　throw;
　　　　　　}
　　　　　}
　　}

　　/*把SAFEARRAY转换为VARIANT*/
　　VARIANT var;
　　var.vt = VT_ARRAY| vt; /*vt必须和psa的数据类型保持一致*/
　　var.parray = psa;
　　SafeArrayDestroy(psa);
　　psa = NULL;

    VARTYPE vt = VT_I4; /*数组元素的类型，long*/SAFEARRAYBOUND sab[2]; /*用于定义数组的维数和下标的起始值*/sab[0].cElements = 2;sab[0].lLbound = 0;sab[1].cElements = 2;sab[1].lLbound = 0;COleSafeArray olesa;olesa.Create(vt, sizeof(sab)/sizeof(SAFEARRAYBOUND), sab);

　　/*通过指向数组的指针来对二维数组的元素进行间接赋值*/
　　long (*pArray)[2]= NULL;
　　olesa.AccessData((void**)&pArray);
　　memset(pArray, 0,2*2*sizeof(long));
　　/*释放指向数组的指针*/
　　olesa.UnaccessData();
　　pArray = NULL;

　　/*对二维数组的元素进行逐个赋值*/
　　long index[2]= {0,0};
　　long lFirstLBound= 0;
　　long lFirstUBound= 0;
　　long lSecondLBound= 0;
　　long lSecondUBound= 0;
　　olesa.GetLBound(1,&lFirstLBound);
　　olesa.GetUBound(1,&lFirstUBound);
　　olesa.GetLBound(2,&lSecondLBound);
　　olesa.GetUBound(2,&lSecondUBound);
　　for (long i= lFirstLBound; i<= lFirstUBound; i++)
　　{
　　　　index[0]= i;
　　　　for (long j= lSecondLBound; j<= lSecondUBound; j++)
　　　　{
　　　　　　index[1]= j;
　　　　　　long lElement= i * sab[1].cElements+ j;
　　　　　　olesa.PutElement(index, &lElement);
　　　　}
　　}

/*把COleSafeArray变量转换为VARIANT*/VARIANT var = (VARIANT)olesa;