应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 先求出u，再对u向上取整
南方科技大学公共卫生及应急管理学院2025级博士研究生招生报考通知
31/1返回列表
查看: 451  |  回复: 2
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

求真务实

铜虫 (小有名气)

[求助] 先求出u，再对u向上取整已有1人参与

rivate Sub Command6_Click()
Dim u As Single
u = 3 * Log(Text14.Text / Text16.Text) / 0.301
Function v(u As Single) As Integer
If u > Fix(u) Then
v = Fix(u) + 1
Else
v = u
End If
End Function
Text18.Text = v
End Function

先求出u，再对u向上取整。以上是我的程序，但是运行显示“运行错误，缺少end sub”，请高手指教。
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
会当凌绝顶，一览众山小
1楼2015-04-20 10:52:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与，应助指数 +1
求真务实: 金币+5, ★有帮助 2015-04-22 08:09:33
Private Sub Command1_Click()
Dim u As Single
u = 3 * Log(Text14.Text / Text16.Text) / 0.301
Text18.Text = v(u)
End Sub

Function v(u As Single) As Integer
If u > Fix(u) Then
v = Fix(u) + 1
Else
v = u
End If
End Function

修改后的程序，能执行。
楼主把几个程序过程搅在一起了，分开就没有问题了。
赞一下 回复此楼
2楼2015-04-21 19:52:42
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

求真务实

铜虫 (小有名气)
引用回帖:
2楼: Originally posted by deephill at 2015-04-21 19:52:42
Private Sub Command1_Click()
Dim u As Single
u = 3 * Log(Text14.Text / Text16.Text) / 0.301
Text18.Text = v(u)
End Sub

Function v(u As Single) As Integer
If u > Fix(u) Then
v = Fix(u) + 1 ...

v=fix(u+1)

[ 发自小木虫客户端 ]
回复此楼
会当凌绝顶，一览众山小
3楼2015-04-22 08:09:03
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 求真务实 的主题更新
31/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭