在VB中输入一个大于等于1的整数,然后分别计算从0到该数之间的奇数之和和偶数之和程序怎么编?
问题描述:
在VB中输入一个大于等于1的整数,然后分别计算从0到该数之间的奇数之和和偶数之和程序怎么编?
答
Private Sub Command1_Click()Dim 奇数和 As LongDim 偶数和 As LongDim 你输入的数 As IntegerDim i As Long你输入的数 = InputBox("请输入一个整数")For i = 2 To 你输入的数 Step 2偶数和 = 偶数和 + iNextFor i ...