代码如2113下: dim a!b!c!s!p!a=inputbox("请输5261入第一条边长4102") b=inputbox("请输入第二条边长") c=inputbox("请输入第三条边长") if a+b print"这样的三角形不存在 else p=(a+b+c)/2 s=sqr(p*(p-a)*(p-b)*(p-c)) print"这个三角形的1653面积是;s end if 扩展资料: 注释方式 在vb中... 20210311
private sub form_click()print s(25, 10)print s(25, 50)'print s(25, 100) 这两行已经超出vb的计算能力了'print s(25, 200) vb只能处理32位的数值end subfunction s(x, n)for k = 1 to n t = 1 for i = 1 to 2 * k - 1 t...
方法一:private sub command1_click() form1.cls dim i1 as integer, i2 as integer, i3 as integer, i4 as integer, i5 as integer dim cl**t as string for i1 = 65 to 70 for i2 = i1 + 1 to 70 ...