更多"在窗体上绘制一个名称为Labell的标签，然后编写如下事件过程： P"的相关试题:
[单项选择]
在窗体上画一个名称为Labell的标签，然后编写如下事件过程：
Private Sub Form_Click（ ）
Dim arr(10,10)As Integer
Dim i As Integer,j As Integer
For i =2 To 4
For j=2 To 4
arr(i,j)=i*j
Next j
Next i
Labell.Caption=Str(arr(2,2)+arr(3,3))
End Sub
程序运行后，单击窗体，在标签中显示的内容是（）
A. 12
B. 13
C. 14
D. 15
[单项选择]在窗体上画一个名称为Labell的标签，然后编写如下事件过程。 Private Sub Form_Click( ) Dim arr(10, I0) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j =2 To 4 arr(i,j) =i*j Next Next Labell. Caption = Str(arr(2,2) + arr(3,3) ) End Sub 程序运行后，单击窗体，在标签中显示的内容是
A. 12
B. 13
C. 14
D. 15
[简答题]在名为Form1的窗体上绘制一个名为Chk1的复选框数组，含3个复选框，它们的标题依次为First、Second和Third，其下标分别为0，1，2。初始状态下，Second和Third为选中状态。运行后的窗体如下图左图所示。
注意：文件必须存放在考生文件夹中，工程文件名为sj1.vbp，窗体文件名为sj1.frm。
[单项选择]设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load（ ） Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_Mouse Up (Button As Integer，Shift As Integer，X As Single，Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print"Visual Basic"； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。
A. Visual Basic
B. 程序设计
C. Visual Basic程序设计
D. a程序设计
[单项选择]在窗体上绘制一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click（ ） Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j =2 To 4 arr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是( )。
A. 12
B. 13
C. 14
D. 15
[填空题]在窗体上绘制一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click（ ）
Text1.Text="VB程序设计"
End Sub
Private Sub Text1_Change（ ）
Picturel.Print"VB Programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是 ______，而在图片框中显示的内容是 ______。
[填空题]在窗体上画一个名为Command1的命令按钮，编写如下程序：
Private Sub Command1_Click（ ）
Dim M(10)As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Print M(2+M(x))
End Sub
程序运行后，单击命令按钮，输出的结果是______。
[单项选择]窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click（ ）
Dim a(10) ,x%
For k=1 To 10
a(K)=Int(Rnd*90+10)
x=x+a(k) Mod 2
Next k
Print x
End Sub
程序运行后，单击命令按钮，输出结果是______。
A. 10个数中偶数的个数
B. 10个数中奇数的个数
C. 10个数中偶数的累加和
D. 10个数中奇数的累加和
[单项选择]窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Command1_Click（ ）
Dim arr(5) As Integer
For k = 1 To 5
arr(k) = k
Next k
prog arr（ ）
For k = 1 To 5
Print arr(k);
Next k
End Sub
Sub prog(a（ ） As Integer)
n = UBound(a)
For i = n To 2 step-1
For j = 1 To n-1
if a(j) ＜ a(j+1) Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时，单击命令按钮后显示的是( )。
A. 1 2 3 4 5
B. 5 4 3 2 1
C. 0 1 2 3 4 D) 4 3 2 1 0
[填空题]在窗体上画一个名为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim i As Integer
Sum=0
n=InputBox("Enter a number")
n=Val(n)
For i=1 To n
Sum= (13)
Next i
Print Sum
End Sub
Function fun(t As Integer) As Long
p=1
For i=1 To t
p=p*i
Next i
(14)
End Function
以上程序的功能是，计算1!+2!+3!+…+n!，其中n从键盘输入，请填空。
