vb编写程序，输出满足1+2+3+..+n<8888的最大正整数n。

Question

如题所述

Answer 1

Dim str As String = "", sum As Integer = 0
        Dim n As Integer = 1
        Do Until sum > 8888
            sum = sum + n
            n = n + 1
        Loop

        TextBox6.Text = n - 2

运行结果：

n=132

Answer 2

月经最后一天是属于安全期，正常情况下是不会怀孕的，当然也不排除出现意外怀孕的可能，在月经期间同房的话是容易导致感染的，建议还是在月经过后2天同房