VB编程输入任意一个正整数N如果N为偶数,求N的阶乘如果N为奇数,求1到N的累加和

如果您使用Visual Studio进行VB编程，可以通过以下方式实现您的需求：

Imports System

Module MainModule

Sub Main()

Dim N As Integer

Console.WriteLine("请输入一个正整数 N：")

N = Integer.Parse(Console.ReadLine())

If N Mod 2 = 0 Then

' 如果 N 是偶数，计算 N 的阶乘

Dim factorial As Long = 1

For i As Integer = 2 To N Step 2

factorial *= i

Next

Console.WriteLine("N 的阶乘为：" & factorial)

Else

' 如果 N 是奇数，计算 1 到 N 的累加和

Dim sum As Long = 0

For i As Integer = 1 To N

sum += i

Next

Console.WriteLine("1 到 N 的累加和为：" & sum)

End If

Console.ReadLine()

End Sub

End Module

这段代码首先要求用户输入一个正整数 N，然后根据 N 的奇偶性分别计算阶乘或累加和。如果 N 是偶数，则计算 N 的阶乘；如果 N 是奇数，则计算 1 到 N 的累加和。