VB程序设计（高一信息会考） 代码， 计算12+23+34+……+n(n+1)的前50项的

Rem 语言：Visual Basic 6.0

Sub Main()  '开始

  S = 0

For i = 1 To 50

    S = S + i / (i + 1)

  Next

MsgBox S, vbInformation, "输出"

End Sub  '结束

1. for(i=1i<=100i++){if(i%6) == 0) printf("被6整除") }

2.scanf("%d,",&i)if(i%2){printf("奇")}else{printf("偶")}

3.scanf("%s",&a[0])for(i=0i<strlen(a)i++){if(a[i]>0x39 &&a[i]<0x30 &&i!=strlen(a)) {printf("不是整数") exit} }

6.int s=1for(i=1i<=10i++)(s=s*i)

7.unsigned int s=0for(i=1i<=ni++)(if(i%2){s=s+i}else(s=s-i))

中间两个的数学公式不记得了，你自己看下吧

---