日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問(wèn) 生活随笔!

生活随笔

當(dāng)前位置: 首頁(yè) > 运维知识 > MAC >内容正文

MAC

vb编程小程序(vb小程序代码)

發(fā)布時(shí)間:2023/11/23 MAC 30 博士
生活随笔 收集整理的這篇文章主要介紹了 vb编程小程序(vb小程序代码) 小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.

大家好!今天讓小編來(lái)大家介紹下關(guān)于vb編程小程序(vb小程序代碼)的問(wèn)題,以下是小編對(duì)此問(wèn)題的歸納整理,讓我們一起來(lái)看看吧。

您好,今天芳芳來(lái)為大家解答以上的問(wèn)題。vb編程小程序,vb小程序代碼相信很多小伙伴還不知道,現(xiàn)在讓我們一起來(lái)看看吧!

1、Private Sub mianji() Dim a As Single, b As Single, c As Single a = Val(InputBox("請(qǐng)輸入三角形的邊a:", "輸入")) b = Val(InputBox("請(qǐng)輸入三角形的邊b:", "輸入")) c = Val(InputBox("請(qǐng)輸入三角形的邊c:", "輸入")) If (a + b) <= c Or b + c <=a Or a + c <= b Then MsgBox "三條邊不能構(gòu)成三角形,請(qǐng)重新輸入!", , "注意" Exit Sub End If q = (a + b + c) / 2 s = Sqr(q * (q a) * (q b) * (q c)) Print "三角形的面積是: "; s End Sub 這個(gè)是由鍵盤(pán)輸入3個(gè)數(shù),試編程判斷它們是否可以構(gòu)成一個(gè)三角形。

2、如果能構(gòu)成一個(gè)三角形,請(qǐng)計(jì)算該三角形的面積。

本文就為大家分享到這里,希望小伙伴們會(huì)喜歡。

以上就是小編對(duì)于vb編程小程序(vb小程序代碼)問(wèn)題和相關(guān)問(wèn)題的解答了,vb編程小程序(vb小程序代碼)的問(wèn)題希望對(duì)你有用!

總結(jié)

以上是生活随笔為你收集整理的vb编程小程序(vb小程序代码)的全部?jī)?nèi)容,希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò),歡迎將生活随笔推薦給好友。