广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 3143 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
A-诚 手机
数位造型
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x0 鲜花 x19
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[Basic] <求助>程式码的问题 已解决
我是个初学者,这是我在练习时所遇到的问题
这个程式是用来计算正方形表面积和体积的
请问如何使用MsgBox输出Print里的东西呢?[内容要相同]
意思就是,我要把P ..

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



[ 此文章被A-诚在2005-05-18 23:37重新编辑 ]


献花 x0 回到顶端 [楼 主] From:台湾中华电信 | Posted:2005-05-18 00:26 |
panasonic732 手机
个人头像
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x2 鲜花 x30
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

Dim xlen, xarea, xcub As Integer
  xlen = InputBox("请输入边长:", "边长", "")
  xarea = xlen ^ 2 * 6
  xcub = xlen ^ 3
  Print "正方形表面积="; xarea, "正方形体积="; xcub
  button = MsgBox("正方形表面积= " & xarea & " 正方形体积= " & xcub, vbInformation, "讯息")

变数=msgbox (主要内容,讯息方块的样式,抬头列文字)
可省略 msgbox (主要内容)


忧虑不断,心未宁静
绵绵春雨,花失娇艳
凋零磨灭,事情难回
得意失意,不再回想
放弃它吧,唯有如此
献花 x0 回到顶端 [1 楼] From:台湾中华电信 | Posted:2005-05-18 18:41 |

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