教材习题及答案

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