在vb中，执行下列程序段后，整形变量n的值为( ) N=0 For I=1 to 10 if I Mod2=1 then n=n+1 Next I
A 1 B 5 C 10 D 50
我想知道解析过程谢谢！
For I=1 to 10
if I Mod 2=1 then n=n+1
Next I
这个实际上就是统计1到10之间有多少个奇数，所以结果是B
关于vb mod的问题,程序代码如下,请问 if (i mod 2=1)是什么意思啊?
for i=1 to 10 \/i从1到10进行循环 if(i mod 2=1) then \/如果i是奇数 x=x+1 \/x加一 else \/如果i不是奇数 x=x-1 \/x减一 end if exit for next i print x \/输出x
怎么用VB筛选1~10之间的偶数.在线等.急
Dim i As Integer Dim result As String For i = 1 To 10 If i Mod 2 = 0 Then ' 如果i是偶数 result = result & i & ", " ' 将i添加到结果字符串中 End If Next i MsgBox "1到10之间的偶数有：" & result 上述代码中，我们使用了一个字符串变量result来存储所有偶数的值...
VB编程“求1到1000以内所有奇数之和”(do while 结构)
Dim i As IntegerDim s As Integers = 0: i = 0Do While i <= 1000i = i + 1:If i Mod 2 = 1 Then s = s + iEnd IfLoopPrint "计算1至1000之间的奇数之和为:"; sEnd Sub没有学过VB但是楼主的程序确实存在问题,这样改一下应该差不多了,对于楼上说的溢出问题就要看整形数的表示范围了。
VB编程输入任意一个正整数N如果N为偶数,求N的阶乘如果N为奇数,求1...
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....
VB的for循环该怎么写?
1、首先，我们输入For关键字。2、然后我们定义一个循环变量。3、然后我们写入【1 to 10】。4、然后我峨眉呢输入【Next i】结束。5、然后我们就可以在这里输入每次执行的语句。6、最后运行就可以看到这个结果了。
vb中如何把一个数组中小标为奇数像分离出来形成另一个数组
假定a()数组共有n个元素，则定义一个b数组，下标从1至n\\2+1 那么：j=0 for i=1 to n if i mod 2=1 then j=j+1 b(j)=a(i)end if next 就能产生一个新数组b(),里面的元素的值为b(1)=a(1),b(2)=a(3),b(3)=a(5)......
一套VB题
Dim s As Integer = 0 For i As Integer = 1 To 100 If i Mod 2 = 1 Then s += i End If Next i MsgBox(s)End Sub 第五题： Inputbox 这个 Dim Input Input = InputBox("数据查询")MsgBox("输入：" & Input)六题 Dim n As Integer, x As Integer Dim i As Integer Dim ...
VB程序代码
End If Next i Print Print For i = 1 To num Print b(i),If (i) Mod 10 = 0 Then Print End If Next i End Sub Public Function sushu(ByVal n As Long)sushu = 1 For i = 2 To Sqr(n)If n Mod i = 0 Then sushu = 0 Exit For End If Next i If n = 1 Then sus...
在VB中,变量z的值是2下列程序段执行后,变量z的值是? If z Mod 2=0...
变量z的值是2下列程序段执行后，变量z的值是3 因为z Mod 2=0条件成立。执行z=z+1 而Else子句则不执行。
请帮忙解释下VB的Instr函数和数组问题
for i = 0 to 10 '从0~10循环 if i mod 2 = 1 then 'mod：求余运算 如果n mod 2=1代表n是奇数 o = o & i '把这个数加入到o中 end if next print o '输出有哪些数 4.第一种 三角交换 使用一个临时变量储存其中一个数 然后去交换 dim a as integer,b as integer,n...
