Question

关于vb中的一个问题

关于vb中的一个问题
将一个一维数组a(9)中各元素值按行的顺序放入二维数组b(3×3)。

我编写的代码为什么不对

Answer 1

楼上几个哥们输入0的方式用循环太复杂了
用string函数就可以实现了
Private
Sub
Command1_Click()
Text2.Text
=
String(Val(Text1.Text),
"0")
End
Sub

而你另一个提问的问题用replace函数
Private
Sub
Command1_Click()
Text2.Text
=
Replace(Text1.Text,
"
",
"0")
End
Sub

Replace(expression,
find,
replacewith[,
start[,
count[,
compare]]])
Replace函数语法有如下几部分：
部分
描述
expression
必需的。字符串表达式，包含要替换的子字符串。
find
必需的。要搜索到的子字符串。
replacewith
必需的。用来替换的子字符串。
start
可选的。在表达式中子字符串搜索的开始位置。如果忽略，假定从1开始。
count
可选的。子字符串进行替换的次数。如果忽略，缺省值是
-1，它表明进行所有可能的替换。
compare
可选的。数字值，表示判别子字符串时所用的比较方式。关于其值，请参阅“设置值”部分。

Answer 2

'注意数组的上下界，b(3,3)=b(0 to 3,0 to 3)。
'代码修改如下：
dim a(1 to 9)
dim b(1 to 3,1 to 3)
.....
for i=1 to 9
    j=(i-1)\3 +1
    k=((i-1) mod 3)+1
    b(j,k)=a(i)
next i