热门关键词: 官方ag游戏技巧 2010  photo shop 

四中概况 | 资源下载 | 教学视频 | 图片频道 | 教师风采 | 教研课改 | 党政工作 | 校园新闻 | 招生考试 | 工会活动 | 文学社 | 健康人格 |
您当前的位置:首页 > 教研课改

半径周长面积VB 参考代码

时间:2017-10-30 17:07:00  来源:  作者: 背景:

 QQ图片20171030170533.png

2222.png

 

 Private Sub cmdCalcu_Click()

Dim radius As Single
Dim peri As Single
Dim area As Single
 
radius = Val(txtRadius.Text)      '取得半径值 Val函数的功能是将一个数据行变量转换成数字长整型变量
peri = 2 * 3.14 * radius      '计算周长
area = 3.14 * radius * radius   '计算面积
txtPeri.Text = Str(peri)           '输出周长-str函数是VB的一种函数,可以将数字型变量或常量改变成字符型变量或常量。
txtArea.Text = Str(area)            '输出面积
End Sub
 
Private Sub cmdClose_Click()
End
End Sub
 
文章互动
  评论人 评论内容 发表时间  

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表

评论协议:
请遵守国家法律和道德规范。一切评论与本站无关!
娄底四中办公室电话:6529307
网站首页 | 关于我们 | 服务条款 | 广告服务 | 联系我们 | 网站地图 | 免责声明 | WAP
Copyright © 2009 - 2010
Powered by ldsdszx.com 备案:湘ICP备10018474号