..VB 3。14

[复制链接]
查看11 | 回复5 | 2009-4-25 11:07:05 | 显示全部楼层 |阅读模式
1
VB制作计算器的时候,要做圆的面积计算公式,
内容这样: 半径 * 半径 *圆周率
圆周率= 3.141592654
中考要求在VB里,圆周率取前2位小数,还是前9位,还是取多少?
2

(上底 + 下底) * 高 / 2
程序设置: Val(text1.text) + Val(text2.text) * Val(text3.text) / 2


可是计算时 :下底先乘以高 ,不去先加上底,再去乘高
难道不是从左往右的顺序吗?
如何修正这个错误。

回复

使用道具 举报

千问 | 2009-4-25 11:07:05 | 显示全部楼层
1、中考一般取小数后2位有效数位。Private Sub Form_Click()Const PI = 3.14159265Dim R As SingleDim S As SingleR = InputBox("输入半径R的值:")S = PI * R ^ 2Print "半径R=" & R & "的圆的面积S=" & Format(S, "##.##")End Sub2、你写法有问题应该这样写:(Val(text1.text) + Val(text2.text)) * Val(text3.text) / 2...
回复

使用道具 举报

千问 | 2009-4-25 11:07:05 | 显示全部楼层
2.缺一个括号吧? 应为 (Val(text1.text) + Val(text2.text)) * Val(text3.text) / 2在vb里,仍为乘法优先。...
回复

使用道具 举报

千问 | 2009-4-25 11:07:05 | 显示全部楼层
复制以下代码即可这个我已经是过了再有什么Q我:603249917
发邮件也可(Val(Text1.Text) + Val(Text2.Text)) * Val(Text3.Text) / 2...
回复

使用道具 举报

千问 | 2009-4-25 11:07:05 | 显示全部楼层
2.加个括号 (Val(text1.text) + Val(text2.text)) * Val(text3.text) / 2...
回复

使用道具 举报

千问 | 2009-4-25 11:07:05 | 显示全部楼层
(Val(text1.text) + Val(text2.text)) * Val(text3.text) / 2...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行