某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command l_Click() Dim a(1 0)As Integer,max As Integer For

admin2018-10-18  28

问题 某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:
    Private Sub Command l_Click()
          Dim a(1 0)As Integer,max As Integer
          For k=1 To 10
              a(k)=InputBox(”输入一个整数”)
          Next k
          max=0
          For k=1 To 10
              Ifa(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=0改为max=a(10)

答案D

解析 本题考查的考点是有关循环和数组的。本题为了实现求取最大值,首先应该假设数组中的某一个数就是最大值,再依次与数组元素比较,一旦某个元素比当前的最大值大,就把它作为新的最大值。max初值设为0是不可以的,它没有考虑到数组元素都小于0的情况。
转载请注明原文地址:https://kaotiyun.com/show/yWFp777K
0

最新回复(0)