用VB的do...loop循环写语句!1、求1到100中偶数的和 2550；2、求1到1000中是10的倍数的数的和 50500；3、求恰好使s=1+2+3+…+n的值大于1000时n的值.4、定义S=1+1/2+1/3+……+1/n,求当s>=2时的最小的n值.(n=4)当

Question

用VB的do...loop循环写语句!
1、求1到100中偶数的和 2550；
2、求1到1000中是10的倍数的数的和 50500；
3、求恰好使s=1+2+3+…+n的值大于1000时n的值.
4、定义S=1+1/2+1/3+……+1/n,求当s>=2时的最小的n值.(n=4)
当s>=10,最小的n值是多少呢?；当s>=15呢?（n=12367；n=1673859）
5、编写一程序,验证角谷猜想.所谓的角谷猜想是：“对于任意大于1的自然数n,若n为奇数,则将n变为3*n+1,否则将n变为n的一半.经过若干次这样的变换,一定会使n变为1.要求：输入一个数不为1的数n,输出要变换的次数.
注：/ 是除法 ；\ 是整除；mod 是取余；如：13 mod 2=1
6、用do while循环编写程序,用输入框inputbox输入整数,直到输入0就停止,并且判断输入的数里面有几个负整数,有几个正整数,并输出这些整数的和.

Answer 1

给你做到第4题吧：

Private Sub Command1_Click()
    Dim i As Long, x As Long, y As Long, c As Double
'第一题
    For i = 1 To 100
        If i Mod 2 = 0 Then
            x = x + i
        End If
    Next
   ' MsgBox "1到100中偶数的和是：" & x
'第二题
    x = 0
    For i = 1 To 1000
        If i Mod 10 = 0 Then
            x = x + i
        End If
    Next
    'MsgBox "1到1000中10的倍数的和是：" & x
 '第三题
    x = 0
    Do
        y = y + 1
        x = x + y
        If x > 1000 Then Exit Do
    Loop
   ' MsgBox "求恰好使s=1+2+3+…+n的值大于1000时n的值是：" & y
'第四题
   c = 1: y = 1
    Do
        y = y + 1
        c = c + 1 / y
        If c >= 2 Then Exit Do '大于10改成c>=10 ====大于15改成if c>=15
    Loop
    MsgBox "定义S=1+1/2+1/3+……+1/n,求当s>=2时的最小的n值：" & y
     
  
    
End Sub