x=0
for i=1 to 10
if(i mod 2=1) then
x=x+1
else
x=x-1
end if
exit for
next i
print x
请问,这道题的输出结果为什么是1呢?它循环到10不是0吗?
追答如果你没有在next里面加上exit for,那结果应该是0,你自己看看自己的程序,判断为奇数的时候加一,为偶数的时候又减一了!从1到10,
i=1时,x=0+1=1
i=2时,x=1-1=0
……
i=9时,x=1
i=10时,x=0
因为你在next里面加了exit for,所以只循环一次就退出了,你要想得到奇数个数,就去掉exit for,然后去掉else,就可以
关于vb mod的问题,程序代码如下,请问 if (i mod 2=1)是什么意思啊?
就是求奇数啊,x=0 \/初始化x=0 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中,奇数的条件是: i mod 2=1 与 i mod2<>0 两个条件都可以吗?
所以i mod 2=1 与 i mod2<>0 是一样的。我觉得在“ <>0 与 >0 处理要费些时间”这个问题讨论,有点吹毛求疵了,虽然程序设计的效率是必须要考虑的问题。但是在>0和<>0的执行效率完全是一样的(从机器语言上讲,都是一个CPU指令可以完成,无所谓谁的效率高低,何况VB是个解释性的语言...
vb mod是什么意思
vb mod是Visual Basic语言中的运算符之一,它用于求两个数的余数。这个运算符在程序中应用广泛,在计算中也非常常见。在使用vb mod运算符时,需要注意两个操作数都必须是整数类型。如果一个操作数是小数,则会出现类型不匹配的错误。vb mod运算符可以用来判断一个数是否为偶数或奇数。如果一个数mod 2...
VB If i Mod 2 Then这句话什么意思?
可以通过mod函数命令来判断变量的奇偶,然后用if判断语句进行判断操作。Do key = WaitKey()d=i mod 2 If key = 81 and d = 0 Then LeftClick 1 Delay 10 ElseIf key = 81 and d = 1 Then RightClick 1 Delay 10 End If i = i + 1 Loop 按键精灵工程师 14:00 参考工程师的思路,...
VB mod 返回值
truepart 必要参数。如果 expr 为 True,则返回这部分的值或表达式。falsepart 必要参数。如果 expr 为 False,则返回这部分的值或表达式。IIF(表达式,值1,值2) 这个意思就是 如果表达式为true 则返回值1,如果为false则返回值2.是判断表达式的真假来确定返回值的。
VB编程“求1到1000以内所有奇数之和”(do while 结构)
i = i + 1:If i Mod 2 = 1 Then s = s + iEnd IfLoopPrint "计算1至1000之间的奇数之和为:"; sEnd Sub没有学过VB但是楼主的程序确实存在问题,这样改一下应该差不多了,对于楼上说的溢出问题就要看整形数的表示范围了。 本回答由提问者推荐 举报| 答案纠错 | 评论 4 2 夏永烽 采纳率:48%...
VB中if n mod 2<>0是什么意思
mod是取余数的运算 即n除以2取余数 <>是表示不等于。即n除以2余数不等于0 这里是作为一个判断的条件。
有VB大神吗,我这有一段代码想知道程序是怎么运行的,有好心大神请回复...
因为1 Mod 2 = 1,所以执行a=a+2=2+2=4,m=1+2=1+2=3(i值变为3)fun=a+m=4+3=7,即f(i)=7 s=fun((i))+fun(i)=5+7=12(i值下次变为3+3=6)i=6时,fun((i))传入参数m=6 因为6 Mod 2 = 0,所以执行a=a+1=4+1=5(下一次调用a=5),m=m+1=6+1=7(...
请帮忙解释下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...
关于VB的问题!!!新手
示例 Sub PrintChar()Dim maxRow As Integer '行数 Dim strRow As String Dim i, j, k As Integer Cls j = -1 maxRow = 5 '修改这里 For i = 1 To maxRow j = j + 2 strRow = ""For k = 1 To j If k Mod 2 = 1 Then strRow = strRow & "A"Else strRow = str...