2. 计算机
  3. 在窗体上画一个名称为Text1的文本框，通过属性窗口把窗体的KeyPreview属性设置为True，然后编写如下程序： Option Base 1 Private Sub Form_Load() Show Text1.SetFocus En

在窗体上画一个名称为Text1的文本框，通过属性窗口把窗体的KeyPreview属性设置为True，然后编写如下程序： Option Base 1 Private Sub Form_Load() Show Text1.SetFocus En

admin2015-06-30  88
问题 在窗体上画一个名称为Text1的文本框，通过属性窗口把窗体的KeyPreview属性设置为True，然后编写如下程序：
Option Base 1
Private Sub Form_Load()
    Show
    Text1.SetFocus
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
    Dim Arr
    Arr = Array(567, 234, 79, 823, 535)
    m1 = Arr(1)
    If KeyAscii = 13 Then
        For i = 2 To 5
            If Arr(i) > m1 Then
                m1 = Arr(i)
                m2 = i
            End If
        Next i
    End If
    Text1.Text = Str(m1) & "   " & Str(m2)
End Sub
运行程序，按回车键，在文本框中显示的是
选项 A、535   5
B、567   1
C、823   4
D、234   2
答案C
解析 Arr是一个数组为[567,234,79,823,535],m1定义为567，当按下回车键时，KeyAscii = 13，执行循环。从i=2到5，如果Arr(i)>m1,则将Arr（i）存储于m1中，相应的i存储于m2中，循环执行，目的在于选取Arr这个数组最大的数，并存储于m1；其最大数的相应下标存储于m2中。故可知当i=2时，Arr（2）m1,执行Then后的语句,m1=Arr(4)=823,m2=i=4; 当i=3时，Arr（5）
转载请注明原文地址:https://jikaoti.com/ti/Uo60FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)