某人编写了下列程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)>max Then max=a(k) End If Next k Print max End Sub 运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10

题目

某人编写了下列程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)>max Then max=a(k) End If Next k Print max End Sub 运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。

A.把Ifa(k)>max Then 改为 If a(k)<max Then

B.把max=a(k)改为a(k)=max

C.把第2个循环语句For k=1 To 10改为For k=2 To 10

D.把max=O改为max=a(10)


相似考题
更多“某人编写了下列程序,用来求10个整数(整数从键盘输入)中的最大值:Private Sub Command1_Click() D ”相关问题
  • 第1题:

    1、请用数组编程求5个整数中的最大值。


  • 第2题:

    2、求任给n个整数中的最大值和最小值,其中n由键盘输入。


    #includeusing namespace std;int main(){ int n,a,i,sum=0,min=0,max=0; cin>>n; for(i=1;i { cin>>a; sum+=a; if(i==1) { max=a,min=a; }else { if (a>max) { max=a; } if (a { min=a; } } } cout return 0;}

  • 第3题:

    有如下程序,用来求4个整数(从键盘输入)中的最小值。若程序运行后,依次输入56,88,23,14,则在Label1显示的是__________。 Private Sub Command1_Click() Dim min%, k%, a% For k = 1 To 4 a = Val(InputBox("输入一个整数")) If a < min Then min = a End If Next Label1.Caption = min End Sub

    A.14

    B.23

    C.56

    D.88

    E.0


    0

  • 第4题:

    编一个程序,从键盘输入数据n,求从1至n的自然数的和。


    程序代码如下:SET TALK OFFCLEARINPUT 'N=' TO NS=0FOR I=1 TO N INPUT 'A=' TO A S=S+AENDFOR? 'S='SSET TALK ON 程序代码如下:SET TALK OFFCLEARINPUT 'N=' TO NS=0FOR I=1 TO N INPUT 'A=' TO A S=S+AENDFOR? 'S=',SSET TALK ON

  • 第5题:

    从键盘输入10个整数,求其中最大值。 请编程实现。


    #include <stdio.h> int fun(int aa[]) { int m,i; m=aa[0]; for(i=1;i<10;i++) if(aa[i]>m) m=aa[i]; return m; } void main() { int num[10],i; printf(“请从键盘输入10个整数:\n”); for(i=0;i<10;i++) scanf(“%d”,&num[i]); printf(“\n最大的数是:%d\n”,fun(num)); }