impossible电动车:在VFP中用dimension命令定义的二维数组怎样转为一维数组?

来源:百度文库 编辑:高考问答 时间:2024/04/29 18:03:09
我记得有一个公式
B(I,J)=B[(I-1)*J+J]
不知道对不对

基本对,注意第一个J是列数, 第二个J是列位置,
我做了个测试程序:
dime KK[2,3] &&2行3列
KK(1,1)=1
KK[1,2]=2
KK[1,3]=3
KK[2,1]=4
KK[2,2]=5
KK[2,3]=6

I = 1
DO WHILE I<7
?KK[I]
I=I+1
ENDDO
?KK[2,1],KK[(2-1)*3+1]&&显示4,4

在决策的错误群组分支里就是第一个是图片图标,名称是提示错误,图片是字符“输入错误”的提示文本,下面一个等待,也是0.5秒,最后一个是擦除,擦除的是提示错误图标和显示字符串图标。这个群组分支也完毕。
然后再回到*大群组的决策下方来,它下面是一个计算,名称为“重新产生新的字符串”,内容是right:=0,这整个*文本输入群组就彻底完了。
我们回到交互中来,在*文本输入群组左侧是最后一个群组,按钮群组,名称为统计,这个统计群组里面共七项,第一项是擦除,名称是“擦除字符串和飞机及提示”,擦除的是“产生字符串和判断”交互,飞机图标和显示字符串图标,第二项是计算,名称为“计算正确率和执行路径”,内容是charnum:=charnum-1
if charnum=0 then
point:=0
else
point:=count/charnum*100
end if
if point>=90 then
path:=1
else
if point>=60&point<90 then
path:=2
else
path:=3
end if
end if
第三项是显示结果图标,显示内容在图片的左上角:字符出现的次数:{charnum}

输入正确的次数:{count}
第四项是绘制正确率的矩形条块计算,内容为:
SetFill(TRUE,RGB(255,0,0))
SetFrame(TRUE,RGB(255,0,0))
Box(1,300,200,325,200-point)
第五项是决策图标,左边有三个群组,第一个名称为是path1,群组里面有两项,第一项是图片,名称为“Untitled”,显示的是字符“你的指法太好了!”然后下面放一个等待,设置为1秒。
第二个名称为path2,第一项也是图片,名称也为“Untitled”,显示的是字符“你的指法刚好合格!!”然后下面放一个等待,设置为1秒。最后一个名称为path3,第一项也是图片,名称也为“Untitled”,显示的是字符"你的指法差了,要继续努力",然后下面也放一个等待,设置为1秒。
这三个群组完毕了,返回到统计群组流程线决策图标的下方来,它的下面是个计算,名称为“是否继续”,内容如下:
a:=MessageBox(WindowHandle, "是否继续", "指法练习", 36) -- 6=Yes, 7=No
if a=6 then GoTo(IconID@"飞机")
else
Quit()
end if
这样所有的就都完了,现在一运行后能够读取文本中的汉字解释部分,然后在下面的文本输入中输入正确的单词就会启动大炮发射激光打掉它,但是有一个问题就是文本读的解释始终是第一行文本,也就是说我的Dict1文本中的第一行是airport:n.飞机场,它就读出
“n.
飞机场”,你输入正确的单词“airport”,大炮就跑到它的下面把“n.飞机场”打掉,但是无论如何也不会读取下一行,不知道是哪里出了错,请高手指教。