【单选题】运行下列程序,单击窗体后输出的结果是( )。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3, 4, 5, 6) s = 1 For i = 5 To 1 Step -2 s = s * a(i) Next i Print s End Sub
【单选题】设在窗体上有个文本框,然后编写如下的事件过程。 Private Sub Text1_KeyDown(KeyCode As Integef,Shift As Integer) Const Alt=4 ConstKey_F2=&H71 altdown%=(Shift And Alt)>0 f2down%=(KeyCode=Key_F2) If altdown% And f2down% Then Tex...
【单选题】设在窗体上有个文本框,然后编写如下的事件过程: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Const Alt=4 Const Key_F2=&H71 altdown%=(Shift And Alt)>0 f2down%=(KeyCode=Key_F2) If altdown% And f2down% Then Te...