以下程序用来计算由键盘输入的N个数中正数之和,负数之和,正数的个数,负数的个数。其中用C累加负数之和,IC累加负数的个数,D累加正数之和,ID累加正数的个数。Privae Sub Commandl_ClickN=10C=0:IC=0:D=0:ID=0For =1 To NA=Val(1nputBox(“请输入A”))IFA<0 Then C=C+A:IC=IC+1lf A>O Then D=Next KPrint"负数的个数为:",

题目

以下程序用来计算由键盘输入的N个数中正数之和,负数之和,正数的个数,负数的个数。其中用C累加负数之和,IC累加负数的个数,D累加正数之和,ID累加正数的个数。

Privae Sub Commandl_Click

N=10

C=0:IC=0:D=0:ID=0

For =1 To N

A=Val(1nputBox(“请输入A”))

IFA<0 Then C=C+A:IC=IC+1

lf A>O Then D=

Next K

Print"负数的个数为:",


相似考题
更多“以下程序用来计算由键盘输入的N个数中正数之和,负数之和,正数的个数,负数的个数。其中用C累加负数 ”相关问题
  • 第1题:

    知识技能

    (1)一个正数的平方等于361,求这个正数;

    (2)一个负数的平方等于121,求这个负数;

    (3)一个数的平方等于196,求这个数。


    (1)19;    (2)-11;    (3)±14

  • 第2题:

    33、下列关于计算机中数的减法运算说法正确的是 。

    A.一般由减法器而不是由加法器完成

    B.需要转换为正数和负数的原码再相加

    C.需要转换为正数和负数的反码再相加

    D.需要转换为正数和负数的补码再相加


    D

  • 第3题:

    编制M 脚本文件, 要求从键盘逐个输入数值(input), 然后判断输入的数是大于0 还是小于0, 并输出提示(使用disp函数)是正数 还是负数, 同时记录输入的正数, 负数的个数. 当输入 0 时, 中止此 M 文件的运行; 当输入第10个数字时, 显示记录的正负数个数并终止程序.


    起泡法排序n个数 function y=qp(x)%求出向量x的维数 [m,n]=size(x);%起泡法排序过程 for i=1:n for j=1:n-i if(x(j)>x(j+1)) a=x(j); x(j)=x(j+1); x(j+1)=a; end end end y=x;$function max_1(x)%x为任意维矩阵 [c,t]=max(x);%先求出矩阵x每一列的最大值和最大值位于的行数 [y,i]=max(c);%求出矩阵x的最大值和最大值的列下标 t(i);%最大值的行下标 disp(['最大值为:',num2 str(y)]);%显示结果 disp(['位子为',num2 str(t(i)),'行',hum2 str(i),'列']);$function y=JC(n)%求任意一个整数阶乘之和的程序(n为待求整数) y=1;%1的阶乘 for i=1:n %求各个数的阶乘 for j=1:i z=(i-1)*i; end %求每个数阶乘的和 y=y+z; end$%s为n次落地后总共经过的距离,h为第n次落地后反弹的高度,n为次数. function[s,h]=sh(n) z=100; s=z; for i=1:n-1 z=z/2; s=s+2*z: end h=z/2$function y=f(x,y) y=x^2+sin(x*y)+2*y;

  • 第4题:

    循环获取给定值(整数),判断给定值的正数个数和负数个数(键盘输入的数值之间用空格分隔,最后输入的是一个 % 字符,当获取到这个字符时,跳出循环)。


    被控变量的预定值,按工艺要求需保持的数值

  • 第5题:

    输入若干个整数先存放在1个数组中,然后遍历该数组,将正数元素存放在到一个正数数组,负数元素存放到另一个负数数组,0舍弃,最后分别输出正数数组、负数数组。 提示:1.需要定义3个一维数组,3个循环变量 注:如果有编程条件的可以附上运行结果,但请不要抄袭作业,雷同作业将无成绩。


    #include
    void main( )
    {
    int a[10],i,k;
    for (i=0;i<10;i++)
    scanf("%d", &a[i]);
    k=0;
    for (i=1;i<10;i++)
    {
    if (a[k]
    k=i;
    }
    printf("max=%d\n", a[k]);
    }