【单选题】某人编写了如下程序,用来求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 ...
【单选题】某人编写了如下程序,用来求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 Ne...
【单选题】某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k = 1 To 10 a(k) = InputBox("输入一个整数") Next max = 0 For k = 1 To 10 If a(k) > max Then max = a(k)...