更多"在窗体上画一个文本框,然后编写如下代码: Option Base 1"的相关试题:
[单项选择]在窗体上画一个文本框,然后编写如下代码:
Option Base 1
Private Sub Form_Click( )
Dim arr
Dim Start As Integer, Finish As Integer
Dim Sum As Integer
arr = 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 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 Command1_Click( )
Dim Arr1(12)As Integer,Arr2(3)As Integer
Dim Smm As Integer
Sum=2
For i=1 To 12
A. 程序运行后,单击命令按钮,在窗体上的输出结果是______。 16
B. 24
C. 32
D. 36
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click( )
Dim a As Variant
a= Array (1,2,3,4)
j=1
for i=a To 1 Step-1
s=s+ a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是______ 。
A. 4321
B. 12
C. 34
D. 1234
[单项选择]在窗体上画一个按钮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 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_ 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 4
B. 237 1
C. 498 5
D. 498 4
[单项选择]对窗体编写如下事件过程:
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
程序运行之后按回车键,输出结果为( )。
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程:
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
运行上面的程序,单击命令按钮,其输出结果是________。
A. 4321
B. 12
C. 34
D. 1234