Question

我们有一个整数，我们需要将这个x数分解，然后写入并总结x的奇数和偶数。

如何在Visual Basic中编写？

Answer 1

Dim i As Integer

For i = 1 To x - 1

If x Mod i = 0 Then
Print i
End If

Next

例如，

给出了x的因子（如你所说的那样给出）。如果这是一个考试问题，你真的应该阅读一些关于VB的教程或书籍章节，因为这是你要求的一个非常基本的问题。我以前从未写过一行VB，但仍然可以通过使用谷歌和一些基本的介绍回答你的问题的一部分。而且我不打算用VB写考试; - ）

编辑：好的，这是最终的解决方案

Dim i As Integer
Dim sumEven As Integer
Dim sumOdd As Integer

For i = 1 To x - 1

  If x Mod i = 0 Then

    If x Mod 2 = 0 Then
      sumEven = sumEven + i
    Else
      sumOdd = sumOdd + i
    End If    

  End If

Next

sumEven是偶数等的总和。

Answer 2

x mod 2在数字为奇数时给出1，在数字为偶数时为0，x为你的数字。

此外，

来自http://www.dreamincode.net/code/snippet3655.htm

这会查找数字是否是一个因子

希望您觉得这有用并且有实验。

Dim N, x As Integer

Cls

N = InputBox("Enter Number")
For x = 1 To N - 1

If N Mod x = 0 Then
Print x
End If

Next
Print N

Answer 3

Dim n As Integer

Do
n = InputBox("Enter Value of n") 
if n mod(2)=0 
then
msgbox("your number is even") 
else 
msgbox("your number is odd")
End If

Next

Dim i As Integer
Dim sum As Integer
sum=0
For i = 1 To n 

if x Mod (i) = 0 
then
sum=sum+i
End If

msgbox("Total factorising number of n is "+i)

Visual Basic简介（vb）

3 个答案: