早教吧作业答案频道 -->其他-->
VB怎么定义一个三维空间的点的坐标刚会点VB,想表示一个空间点的坐标比如T(i,j,k)其中i,j,k,是变化的i=0to100j=0to200k=0to200怎么样能定义T(i,j,k)是不是用DIM定义,同时结果能在Txt文件输
题目详情
VB 怎么定义一个三维空间的点的坐标
刚会点VB,想表示一个空间点的坐标
比如T(i,j,k)其中i,j,k,是变化的
i=0 to 100
j=0 to 200
k=0 to 200
怎么样能定义T(i,j,k)
是不是用DIM 定义,同时结果能在Txt文件输出T(0,0,0).T(100,200,200)等等
刚会点VB,想表示一个空间点的坐标
比如T(i,j,k)其中i,j,k,是变化的
i=0 to 100
j=0 to 200
k=0 to 200
怎么样能定义T(i,j,k)
是不是用DIM 定义,同时结果能在Txt文件输出T(0,0,0).T(100,200,200)等等
▼优质解答
答案和解析
定义这样的数组,而且 ijk都是变动的,也可以做到,可以这样!
eg:
dim T() [ as valueType]
i=100:j=200:k=200
redim T(i,j,k)
具体的在text文本里输出,还不知道你输出的是T(0,0,0)的值啊,还是文本 T(0,0,0)
这里理解为文本:
dim vi%,vj%,vk%,s$
for vi=0 to i
for vj=0 to j
for vk=0 to k
s=s & "T(" & vi & "," & vj & "," & vk & ")"
next
next
next
Open FilePathAndFileName For Output As #1'FilePathAndFileName 这个是你文本文件的路径和文件名:eg :c:\1.txt
Print #1,s
Close #1
如果不是这样,继续问!
eg:
dim T() [ as valueType]
i=100:j=200:k=200
redim T(i,j,k)
具体的在text文本里输出,还不知道你输出的是T(0,0,0)的值啊,还是文本 T(0,0,0)
这里理解为文本:
dim vi%,vj%,vk%,s$
for vi=0 to i
for vj=0 to j
for vk=0 to k
s=s & "T(" & vi & "," & vj & "," & vk & ")"
next
next
next
Open FilePathAndFileName For Output As #1'FilePathAndFileName 这个是你文本文件的路径和文件名:eg :c:\1.txt
Print #1,s
Close #1
如果不是这样,继续问!
看了VB怎么定义一个三维空间的点的...的网友还看了以下:
当1≦x<2时,∫(上标1,下标0)Xdx+∫(上标x,下标1)(2-x)dx怎么等于-X^2/2 2020-05-13 …
一段代码显示未定义标示符p,q,x,s,怎么修改(已经定义了啊)voidChain::Add(Ch 2020-06-09 …
已知直角坐标系中两点A(K,-2),B(2,T).求下列条件K,T的值,1,点A,B关于X的对称轴 2020-06-12 …
如图所示,真空中有两个点电荷Q1=+4.0×10-8C和Q2=-1×10-8C,分别固定在x坐标轴 2020-06-14 …
求圆弧坐标在已知圆弧的起点和终点和R,求圆弧的圆心在直角坐标内的坐标!用公式写出了适用任何象限!在 2020-06-14 …
如图所示,真空中有两个点电荷Q1=+4.0×10-8C和Q2=-1.0×10-8C,分别固定在x坐 2020-06-14 …
如图所示,真空中有两个点电荷Q1=+4.0×10-8C和Q2=-10-8C,分别固定在x坐标轴的x 2020-06-14 …
如图,真空中有两个点电荷Q1=+0.00000004C和Q2=-0.00000001C,分别固定在 2020-06-14 …
求定积分极限设f(X)具有连续导数且f(0)=0,f’(0)=6求lim(x→0){∫上标为x^2 2020-07-29 …
求证下坐标的问题1楼给出一个点(x,y),现在以原点为中心,原点和这点的距离为半径,旋转一定角度, 2020-08-02 …