s = InputBox(请输入鸡和兔的总头数)

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

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

PrivateSubcommand1_click()Dimint1AsIntegerint1=InputBox("输入一个整数")Ifint1Mod15=0ThenMsgBox"此数能同时被3和5整除

这个是海伦公式吧,用三角形的三条边直接求出三角形的面积的公式,可以参考海伦公式的百科：

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

PublicSubcommand1_click()dimrasintegerr=val(inputbox("请输入半径"))s=3.1415926*r^2msgbox"圆的面积为:"&sendsu

你这哪里是写程序.你的程序没有写完,在VB中Max,Min,Acos等等都需要自己写代码.完整程序如下：（注意：你的算法我没有改,但我认为有问题,你自己对付吧）Sub已知三边求三角()a=InputB

这是一段VB脚本代码Dims,i,j,arr(1To10),t,sum‘定义变量Fori=1To10一个循环I的值循环10次1-10如果ISNUMERIC（S）然后S=瓦尔（S）如果S＜0或10则我为

主要代码如下：n＝inputbox("请输入数值")fori＝1tons＝i*(i＋1)*(i＋2)nexti望采纳,谢谢!再问：可以完整一点么？再答：dimsasdoubles=0n＝inputbo

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

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

PrivateSubCommand1_Click()a=InputBox("请输入数字","提示")b=InputBox("请输入数字","提示")Print"和："&Val(a)+Val(b)Pri

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

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsIntegerDimsum1AsLong,sum2AsLongn=inputbox("请输入

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

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

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

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

显示6再问：求详细过程，谢谢~再答：输入3则n=3下面就变成了Fori=1To3Forj=1Toix=x+1NextjNexti当i=1时j=1to1循环一次则x=1当i=2时j=1to2循环两次则x

123123