VB 6.0 If x Then Print x Else Print x + 1

相关推荐

• 1道信息科技算法题目 说明理由 1.在一个直角三角形中,三条边a、b、c的长度都是整数,若一条直角边a的长度已知,另一条直角边b的长度不超过给定的整数值maxb,试设计算法,找出满足条件的所有直角三角形.（1）伪代码：Input aInput maxbFor________= _______to _________ x=_____________ ________=sqr(x) If_________________ then print a；b；c Next_______123
• 在VB中,以10为底的x的常用对数表达式是______.(1分) A、Log(X) B、Log10(X)
• 解一道vb函数题,private sub command1 _click(),for i =1to4 ,for j =1to3 ,x=3 ,for k=1to 2,x=x+3,n...
• VB 6.0 If x Then Print x Else Print x + 1
• x=5 y=-20 IFx＜0 THEN x=y-3 ELSE y=y+3 END IF PRINT x-y；y-x END 求结果~~~
• X=5 y=-20 If not x>0 then x=y-3 else y=x+3 print x-y;y-x end if运行结果
• VB中判断奇偶 y=IIf(x mod 2,1,0) If y Then Print "奇数" Else Print "偶数" End If
• VB编程:已知下面的分段函数,要求输入x,计算出y的值,x大于等于0时,y=1+x的平
• Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))
• 一静止在水平地面的物块，质量为m=20kg，现在用一个大小为F=60N的水平推力使物体做匀加速直线运动，当物块移动x=9.0m时，速度达到v=6.0m/s．（1）求物块的加速度大小（2）物块与地面之间的
• A=2:b=1:c=0 if a then if b then if c then Print “1” else Print “2” else Print “3” else Print
• x=5 y=-20 IFx＜0 THEN x=y-3 ELSE y=y+3 END IF PRINT x-y；y-x END 求结果~~~