发布时间 : 星期六 文章教材习题及答案更新完毕开始阅读f3615d5e76c66137ee0619e6
Return n End Function End Module ‘—11—
Module Module1 Sub Main()
Dim v As Integer = Console.ReadLine() Dim d As Integer = Console.ReadLine() Dim i As Integer = 1 Dim t As Integer = 0 While (v > 0) v = v - i * d t = t + i
If v > 0 Then t = t + 1 End If i = i + 1 End While
Console.WriteLine(t) End Sub End Module