作业帮英语翻译
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/15 12:08:11
英语翻译
英语翻译
英语翻译
这题我昨天不是给你解答了嘛
看错了 原来是另一题 稍后上答案
------------------------------------------------------------------------
Dim n,m,k As Integer
Dim y As Single
Private Sub Form_Load()
m = InputBox("请输入m的值?","输入对话框")
k = InputBox("请输入k的值?","输入对话框")
y = (k - m) / (0.028 * m)
If (y - Int(y) = 0) Then
n = Int(y)
Else
n = Int(y) + 1
End If
MsgBox n,vbOKOnly,""
End Sub