更多"在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程: "的相关试题:
[单项选择]在窗体上画一个命令按钮,名称为Command1。
Private Sub Command1 Click( )
Dim x As Integer,y As Integer
x=10:y:0
Do
x=x+2:y=y+x
Print "x=", x; "y=",y
If y>20 Then Exit Do
Loop Until x=18
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是 ______。
A. x=12y=12
B. x=12 y=12
C. x=12 y=12
D. x= 12 y=12
[填空题]在窗体上画一个名称为Command1的命令按钮,编写如下事件过程
Private Sub Command1_Click( )
Dim a As String
a= 【11】
For i=1 To 5
Print Space(6-i);Mid $(a,6-i,2*i-1)
Next i
End Sub
程序运行后,单击命令按钮,要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。
[填空题]在窗体上画一个名称为Command1的命令按钮,编写如下事件过程
Private Sub Command1_Click( )
Dim a As String
a=______
For i=1 To 5
Print Space(6-i);Mid$(a,6-i,2*i-1)
Next i
End Sub
程序运行后,单击命令按钮,要求窗体上显示的输出结果如下,请填空。
5
456
34567
2345678
123456789
[填空题]在窗体上画一个名称为Command1的命令按钮,编写如下事件过程
Private Sub Command1_Click( )
Dim a As String
a=______
For i=1 To 5
Print Space(6-i);Mid$(a,6-i,2*i-1)
Next i
End Sub
程序运行后,单击命令按钮,要求窗体上显示的输出结果如下,请填空。
5
456
34567
2345678
123456789
[单项选择]在窗体上画一个名称为Command1的命令按钮,编写如下程序: Private Sub Command1_Click( ) Print p1(3,7) End Sub Public Function p1(x As Single,n As Integer) As Single If n=0 Then p1=1 Else If n Mod 2=1 Then p1=x*x+n Else p1=x*x-n End If End If End Function 程序运行后,单击该命令按钮,屏幕上显示的结果是( )。
A. 2
B. 1
C. 0
D. 16
[单项选择]在窗体上画一个名称为Command1的命令按钮,并编写如下程序:
Private Sub Command1_Click( )
Dim x As Integer
Static y As Integer
x=10
y=5
Call f1(x,y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer,y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是( )。
A. 10 5
B. 12 5
C. 10 7
D. 12 7
[填空题]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Commandl_Click( )
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X, Y
End Sub
程序运行时,3次单击命令按钮Command1后,窗体上显示的结果为 【14】 。
[单项选择]在窗体上画一个名称为Command1命令按钮,然后编写如下事件过程: Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Then k = 1 Else k = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click ( ) Dim m As Integer, x As Integer x = 4 m = fun1 (x) Print m End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
A. 4
B. 6
C. 9
D. 15
[单项选择]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Private Sub Command1_Click( ) Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Nextj Print Next i End Sub 程序运行后,单击命令按钮,窗体上显示的是
A. 1 2 3 24 6 3 6 9
B. 2 3 4 3 4 5 4 5 6
C. 1 4 7 2 5 8 3 6 9
D. 1 2 3 4 5 6 7 8 9
[单项选择]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click( )
Dim i As Integer, j As Integer
Dim a(10,10) As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j);
Next j
Print
Next i
End Sub
程序运行后,单击命令按钮,窗体上显示的是
A. 1 2 3
B. 2 3 4
C. 1 4 7
D. 1 2 3
[填空题]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click( )
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
PrintX,Y
End Sub
程序运行时,3次单击命令按钮Command1后,窗体上显示的结果为 【14】 。
[单项选择]在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) X=0 n=Input Box("") For i=1 To n For j=1 To i K=X+1 Next j Next i Print x End Sub 程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是
A. 3
B. 4
C. 5
D. 6