Question

按键精灵 数组

利用按键精灵显示数组
第一组数组 （a，b，c，d，e）
第二组数组（1,2,3,4,5,6）
怎样让其组合后按顺序输出为
a1
b1
c1
d1
e1
a2
b2
c2
d2
.
.
.
.
d6
e6

Answer 1

'例子1--在按键精灵内直接重定义数组
Dim AR(),i
i=10
Redim AR(i)
MessageBox UBound(AR)

'例子2 -- 在按键精灵内错误的写法:
Function 子函数()
Dim AR(),i //删除此行代码可解决
i=9
Redim AR(i)
MessageBox UBound(AR)
End Function

'例子3 -- 在VBS块内执行标准VBS语句
VBSBegin
dim i
i=7
call abc(i)

sub abc(i)
dim a()
redim a(i)
msgbox UBound(a)
end sub
VBSEnd

Answer 2

Dim A(6),B(6),C(6),E(6)
q = 1
For 6
a(q)
b(q)
c(q)
d(q)
e(q)
q =q+1
Next
//因为ABCDE没有赋值，结果是不会显示的，这样写只是例子

Answer 3

代码如下
#include<iostream>
using namespace std;
int main()
{
char a[10];
char b[10];
cout<<"输入第一个数组："<<endl;
char c;
int i=0;
while((c=getchar())!='\n')
{
if(c==' ')continue;
a[i++]=c;
}
cout<<"输入第二个数组："<<endl;
int j=0;
while((c=getchar())!='\n')
{
if(c==' ')continue;
b[j++]=c;
}
for(int k=0;k<i;k++)
{
for(int l=0;l<j;l++)
{
cout<<a[k]<<b[l]<<endl;
}
}
return 0;
}

Answer 4

ATeam = Split("a,b,c,d,e", ",")
BTeam = Split("1,2,3,4,5,6", ",")
For b = 0 To UBound(BTeam)
For a = 0 To UBound(ATeam)
TracePrint ATeam(a) & BTeam(b)
Next
Next