窗体上没有任何控件,编写下列程序: Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(5, 2,

admin2009-02-13  45

问题 窗体上没有任何控件,编写下列程序:          Option Base 1          Private Sub Form_KeyPress(KeyAscii As Integer)                 a = Array(5, 2,  7,  6,  9)                 x = a(1)                 y = 1                 If KeyAscii = 13 Then                        For i = 2 To 5                               If a(i)>m1 Then                                      x = a (i)                                      y= i                               End If                        Next i                 End If                 Print x; y          End Sub      执行程序后,按下回车键后输出的结果为

选项 A、5 1
B、9 5
C、2 2
D、7 3

答案2

解析 按下回车键后,KeyAscii的值为13。程序的功能是:变量x记录数组中最大的值,变量v记录最大值在数组中的位置。现假定最大值在第一个数组元素中,然后逐个进行比较,如果某个数大于x中的数,就将该数重新赋值给x,同时也将下标值赋值给y,最后输出9和5。
转载请注明原文地址:https://jikaoti.com/ti/STq0FFFM
0

最新回复(0)