广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 4512 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
小佛爷
个人头像
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x1
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[Basic][求助] 如何利用VB.NET[阵列]设计求出座标与距离?
请问如何用阵列设计一个:
..

访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容



[ 此文章被小佛爷在2007-05-31 16:08重新编辑 ]


献花 x0 回到顶端 [楼 主] From:台湾中华HiNet | Posted:2007-05-31 14:14 |
overing 手机
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x0 鲜花 x55
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

如果是要求两座标点距离应该是用不到阵列...
难道要把阵列标号拿来算!?

抓上4个TEXTBOX跟一个按键
TEXTBOX分别命名为"X1","X2","Y1","Y2"

复制程式
Sub Command1_Click()
 Dim 距离#
 距离=(Abs(Val(X1)-Val(X2))^2+Abs(Val(Y1)-Val(Y2))^2)^0.5
 MsgBox 距离
End Sub

设 "点1"座标为(X1,Y1)
"点2"座标为(X2,Y2)
将两点座标(四个数字)打上对应的四个TEXTBOX
然后 按下按钮

P.S.这是VB6写法,Net应该差不多@@


[ 此文章被overing在2007-05-31 17:59重新编辑 ]


Zippy G2 600W
Intel C2Q Q9550
Gigabyte GA-X48-DQ6
Gigabyte GV-NX96T512H-B
G-skill pi 1100MHz 2Gx4
ACARD ANS-9010 32GB (Windows7 10sec boot!!)
WD 150GB(WD1500ADFD)/640GB(6400AASK)
献花 x0 回到顶端 [1 楼] From:未知地址 | Posted:2007-05-31 17:49 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.018174 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言