时间：2023-04-24 07:45:27 / 来源：
互联网 / 点击数：()
(资料图)
1、代码如下。
2、 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Private Sub Form_Load() Do Dim a As Single, b As Single, c As Single, p As Single, s As Single a = Val(InputBox("请输入三角形第1条边长")) If a = -1 Then Exit Do b = Val(InputBox("请输入三角形第2条边长")) If b = -1 Then Exit Do c = Val(InputBox("请输入三角形第3条边长")) If c = -1 Then Exit Do p = (a + b + c) / 2 If a >= p Or b >= p Or c >= p Then MsgBox "不能构成三角形" Else s = Sqr(p * (p - a) * (p - b) * (p - c)) MsgBox "面积为" & s End If Loop End End Sub。
本文到此分享完毕，希望对大家有所帮助。
标签:最近更新
- vb三角形面积计算代码_vb三角形面积代码 每日观察2023-04-24
- 只为点亮一盏属于核聚变的灯 精彩看点2023-04-24
- 生成式AI引发治理新思考-每日视讯2023-04-24
- 今日讯！AI“旋风”席卷，制药业能否借势起航2023-04-24
- AI生成超越自然界的新蛋白质|热推荐2023-04-24
- 世界最资讯丨迄今最重“薛定谔的猫”出现2023-04-24
- SpaceX星舰发射导流槽都没挖！马斯克：大意了2023-04-24
- 全球简讯:拿什么留住你 我的爱人2023-04-24
- 环球精选！蓼茸蒿笋试春盘怎么读_蓼茸蒿笋怎么读2023-04-24
- 全球热文：篮球网游哪个好玩_篮球网游2023-04-24
- 每日快报!2023年4月23日山东省顺酐价格最新行情预测2023-04-24
- 题记是什么意思怎么写_题记是什么意思-全球消息2023-04-24
- 国内首个皮肤互联网医院上线 京东健康拓展互联网医疗服务边界|全球今日报2023-04-24
- 天天资讯：【非农数据解读】数据好坏参半 非农市场定价美联储紧缩预期降温2023-04-24
- 村民收楼，质疑回迁房三房变两房？开发商：是按阳台性质申报 当前时讯2023-04-24
- itmc营销沙盘_itmc2023-04-24
- 工程造价实习内容（工程造价实习内容）_每日聚焦2023-04-24
- 什么是逆时针（什么是逆变器）2023-04-24
- 全球新资讯：电脑如何清理内存_怎样彻底清理电脑内存2023-04-24
- 表示有恒心的成语故事_表示有恒心的成语-世界快播报2023-04-24
- 经济仲裁法律规定的适用范围是什么|天天微头条2023-04-24
- 冷知识：中国电信分家中国移动2023-04-24
- 环球时讯：汉尼拔莱克特维杰_汉尼拔莱克特2023-04-24
- 家居收纳小窍门_家居收纳小窍门介绍2023-04-24
- 热头条丨小米回应500亿印度资产扣押申诉被驳回：正在研究2023-04-24
- 北京朝阳区职教名师车菲：深耕课堂 争做新时代“大先生”2023-04-23
- 安徽驴友爬大别山金刚台失联9天，曾在山上发消息“我快崩了”_全球聚焦2023-04-23
- 广交会第二期开展：展出规模、展位数量、参展企业创新高2023-04-23
- 世界读书日，市民体验读盲文书2023-04-23
- 2023上海车展大奖：精致柔美/粗旷硬派 中国品牌概念车各领风骚2023-04-23