[单项选择]窗体上没有任何控件，编写下列程序： 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

更多"窗体上没有任何控件，编写下列程序： Option Base 1"的相关试题:

[单项选择]在窗体上画一个按钮Command1，编写如下代码：
Option Base 1
Private Sub Command1_Click（　）
Dim a
a=Array(1，2；3，4)
j=1
For i=4 To Step-1
s=s+a(i)*j
j=j*10
Next j
Print s
End Sub
运行程序后，最后的输出结果为( )。
A. 1234
B. 12
C. 34
D. 4321

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1 Click（　）
Dim Arr1(12)As Integer， Arr2(3)As Integer
Dim Sum As Integer
Sum = 2
For i=1 To 12
Arrl(i)= i
Next i
For i=1 To 3
Arr2(i)= Arrl(i*i)
Next i
For i = 1 To 3
Sum = Sum + Arr2(i)
Next i
Print Sum
End Sub
程序运行后，单击命令按钮，在窗体上的输出结果为
A. 16
B. 24
C. 32
D. 36

查看答案

[填空题]在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click（　） Dim a a=Array(1，2，3，4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是【15】。

查看答案

[单项选择]在窗体上画一个文本框，然后编写如下程序：
Option Base 1
Private Sub Form_Click（　）
Dim Arr(10)As Integer
For i=6 To 10
Arr(i)=i-3
Next i
Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10)))
End Sub
程序运行后，单击窗体，在文本框中显示的内容是
A. 1
B. 3
C. 6
D. 10

查看答案

[单项选择]在窗体上画一个文本框，然后编写如下代码：
Option Base 1
Private Sub Form_Click( )
Dim arr
Dim Start As Integer, Finish As Integer
Dim Sum As Integer
art=Array(12，4，8，16)
Start=LBound(arr)
Finish=UBound(arr)
Sum=0
For i=Start To Finish
Sum=Sum+arr(i)
Next i
c=Sum/Finish
Text1.Text=c
End Sub
程序运行后，单击窗体．则在文本框中显示的内容是______。
A. 40
B. 10
C. 12
D. 16

查看答案

[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base1
Private Sub Command1_Click（　）
Dim a
s=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print S
End Sub
运行上面的程序，单击命令按钮，其输出结果是【15】。

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1 Click（　）
Dim a
a=Array(1， 2， 3， 4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i)* j
i = j * 10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果为
A. 4321
B. 12
C. 34
D. 1234

查看答案

[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_ Click（　）
Dim a
a=Array(1，2，3，4)
j=1
For i= 4 To 1 Step-1
s=s+ a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是【15】。

查看答案

[单项选择]窗体上命令按钮Command1的事件过程如下：
Option Base 1
Private Sub Command1_Click（　）
Dim a(4,4)As Variant
For i=1 To 4
For j=1 To 4
a(i,j)=(i-1)*3+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print a(i,j)
Next j
Next i
End Sub
该程序执行后，输出结果是( )。
A. 9
B. 7
C. 9
D. 8

查看答案

[单项选择]对窗体编写如下代码：
Option Base 1
Private Sub Form_ KeyPress (KeyAscii As Integer)
a=Array(237，126，87，48，498)
m1=a(1)
m2=1
If KeyAscii=13 Then
For i=2 To 5
If a(i)＞m1 Then
m1=a(I)
m2=i
End If
Next i
End If
Print m1
Print m2
End Sub
程序运行后，按回车键，输出结果为______ 。
A. 48
B. 237
C. 498
D. 498

查看答案

[单项选择]对窗体编写如下事件过程：　　Option Base 1 　　Private Sub Form_KeyPress (KeyAScii AS Integer) 　　arr=Array(12，15，18，20，24) 　　m1=arr(1) 　　m2=1 　　If fKeyAscii=12 Then 　　For i=2 To 5 　　　　If arr(i)＞m1 Then 　　　　　　　　m1=arr(i) 　　　　　　　　m2=i 　　　　End If 　　　Next i 　　End If 　　Print m1 　　Print m2 　　End Sub 　　程序运行之后按回车键，输出结果为( )。

查看答案

我来回答:

提交