英语翻译
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/25 13:45:19
英语翻译英语翻译英语翻译这题我昨天不是给你解答了嘛看错了原来是另一题稍后上答案-------------------------------------------------------------
英语翻译
英语翻译
英语翻译
这题我昨天不是给你解答了嘛
看错了 原来是另一题 稍后上答案
------------------------------------------------------------------------
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