# 提示 Dim aa(92) as integer 出错，请指教

function qqq()
{
Dim aa(92) as integer
Dim cc(92) as integer
n = 2
i = 1
aa(1) = Sheet1.value("u2")
j = 1
Do While aa(j) <> ""
xi = Trim(Str(n))
a1 = "u" + xi
n = n + 1
j = j + 1
aa(j) = Sheet1.value(a1)
loop
p=1
for i =1 to 92
if aa(i)<=6
then cc(i)=100
elseif aa(i)<=19
then cc(i)=97
elseif aa(i)<=38
then cc(i)=94
elseif aa(i)<=63
then cc(i)=91
elseif aa(i)<=95
then cc(i)=88
elseif aa(i)<=132
then cc(i)=85
elseif aa(i)<=19
then cc(i)=82
elseif aa(i)<=19
then cc(i)=79
elseif aa(i)<=19
then cc(i)=76
elseif aa(i)<=19
then cc(i)=73
else
cc(i)=40
next i

n=2
for i =1 to 92
xi = Trim(Str(n))
a1 = "v" + xi
n = n + 1
Sheet1.value(a1)=cc(i)
next i
}

...全文
37 1 打赏 收藏 举报

1 条回复 MapGis 二次开发 常见问题　转 DataGrid控件通用打印类.
Dim PrintingLine As Integer = 0 '当前页面已经打印的记录行数  '用于确定是否换页的标记  Dim strUpData As String = "" '当前数据的前一个数据  Dim strNonce As String = "" '当前数据  While ... office VBA 学习 [VB.NET].net结构体的传递问题,急！！！！！
.net结构体的传递问题,急！！！！！我用vc.net编写了一个dll，使用了一个结构体，其中有个量是数组，结构体采用指针... 哪位大虾对此比较明白，指教 ____________________________________________________________

2167

VBA（Visual Basic for Applications）是Visual Basic的一种宏语言，是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。