用inputbox输入三角形三边长,利用海伦公式计算三角形面积的vb程序代码

PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSingle,zAsSinglea=InputBox("输入a的值","")b=InputBox("输入

第一题答案：OptionExplicitPrivateSubCommand1_Click()DimnAsIntegern=Val(InputBox("请输入一个数"))Ifisprime(n)Then

PrivateSubform_load()DimiAsInteger,zsAsIntegerDimzsumAsSingle,fsumAsSingleDimA(1To10)AsSingleMe.Auto

拜托各位啦,这个题会有这么复杂吗?如下,请楼主体会其中算法：#include#includevoidmain(){floata,b,c,l,s;do{printf("pleaseinputthetri

printval(a)+val(b)+val(c)

/>privatesubcommand1_click()dima(1to10)asdoubledimminasdoublefori=1to10a(i)=val(inputbox("请输入数组元素值："

Inputsthreefigures.Inputtrianglethreelengthsofside该是这样说的

a=Int(InputBox("a="))b=Int(InputBox("b="))c=Round(Rnd()*(a-b)+b,0)MsgBox"a="&a&";b="&b&";c="&c

法一：这个方法的思路很直接,数学味较浓.既然在VB6中没有阶乘的运算,那么我就自己造一个函数用来算一个整数的阶乘.FunctionTimeStep(NumberAsInteger)AsLongTime

PrivateSubForm_Load()Dima,b,cAsSingleDimp,sAsSinglea=Val(InputBox("请输入边长1"))b=Val(InputBox("请输入另一边长"

Dim a As Singlea = Val(InputBox("输入摄氏"))a= a * 9/5

DimaAsIntegera=InputBox("输入一个数")IfaMod2=0ThenMsgBox("偶数")ElseMsgBox("奇数")EndIf

我觉得楼上的是错的!如果不能的话找我!qq776871598那个排序的从第二个和第三个开始吗?第一个怎么办而却循环次数也有歧义!不懂我是不是错的!所以楼主先试验下

可以你把|a-b|c两边之和大于第三边,构成三角形的充要条件再问：那么也就是说，不论用a+b>canda+c>bandb+c>a或者a+b>cand|a-b|

InputBox函数在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的String.语法InputBox(prompt[,title][,default][,xpos][,yp

SubCalcTriangle()DimgetstrAsStringDimarr(1To3)AsDoubleDimpAsDouble,sAsDoubleDimiAsIntegerWhile(True)

分析根据三角形的面积公式S△ABC=√[p(p-a)(p-b)(p-c)]其中p=1/2(a+b+c)#include“stdio.h”main(){floata,b,c,s,mianji;scanf

n=val(inputbox("",,0))首先就是没有提示其次是没有输入框的标题文字第三是默认输入值是0最后,如果输入15那么意思是n就是15.

DimretAsLongipt=InputBox("请输入次数","输入")ret=0Fori=1Toiptret=ret+i*10+iNextmsg=MsgBox("结果:"&ret,vbOKOnl

123123