想用VB编个计算程序:Q=Q1*(H+h-d),Q是要求的数,其他未知,谢谢啊,加分啊

[复制链接]
查看11 | 回复1 | 2010-9-30 13:17:28 | 显示全部楼层 |阅读模式
用VB编个计算程序:Q=Q1*(H+h-d),Q是需要求的数,其他未知,请高手帮忙啊

回复

使用道具 举报

千问 | 2010-9-30 13:17:28 | 显示全部楼层
将H改为jPrivate Sub Form_Click()
Dim h, j, d As Single
Dim q, q1 As Single
j = Val(InputBox("j="))
h = Val(InputBox("h="))
d = Val(InputBox("d="))
q1 = Val(InputBox("q1="))
q = q1 * (j + h - d)
Print qEnd Sub 你的意思是不是这样Private S
回复

使用道具 举报

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

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行