省略判断textbox为空或非数字
成都创新互联公司主营濠江网站建设的网络公司,主营网站建设方案,成都App制作,濠江h5微信小程序搭建,濠江网站营销推广欢迎濠江等地区企业咨询
dim z1,z2,a,p,k as float
z1=Float(textboxz1.text)
z2=float(textboxz2.text)
a=float(textboxa.text)
p=float(textboxp.text)
k=float(textboxk.text)
dim Lp as float
Lp=(z1+z2)/2+2*a/p+(k*p)/a
messagebox.show(Lp)
绝对值是“|”，可以直接显示，同理对数可用log(x)代替，根号和其他不支持显示。
如果要显示数学式子，只能画吧。
计算时可用“^”求幂或求根，“/”表示除法和分数线，还有math类。
可以用Rnd函数实现
Rnd 函数返回小于 1 但大于或等于 0 的值。
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
你这里可以先把范围扩大10倍，看成21到34之间的随机数，最后再除以10就行了。
Int((34 - 21 + 1) * Rnd + 21) / 10
1、利用公式求出Y值 第一列设置表头为x，下面依次填入取值， 比如 x 1 2 3 4 ...... 第二例表头设置为y，在下面表格中填入计算公式 如 =2*x+1 然后选中点右下角的十字型标记，拖下去，和前面x数量一致。 2、然后选中数据源（即选中要进行操作的数据区域，这里指XY值所在区域。） 3、执行菜单命令插入——图表——XY散点图 执行命令，打开图表向导对话框选XY散点图－－选平滑线散点图－－完成 最后使用图表向导在横坐标填入x值，纵坐标填入y值，生成图即可 将一次函数的Y列用公式编辑出来，分别填写出当取不同的X值时得到不的函数值，选择函数值所在列，插入——图表按提示操作。执行菜单命令 执行菜单命令
