更多"在代码窗口对窗体的BorderStyle、MaxBuaon属性进行了设"的相关试题:
[填空题]在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置,但运行后没有效果的原因是这些属性______。
[填空题]某个窗体已编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为
Private Sub Form_Click( )
a=1
i=1
Do Until i>10
a=a+2
i=i+3
Loop
MsgBox a
End Sub
[填空题]某个窗体己编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为
Private Sub Form_Click( )
a=1
i=1
Do Until i>10
a=a+2
i=i+3
Loop
MsgBox a
End Sub
[填空题]某个窗体己编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 【11】 。
Private Sub Form_Click( )
Dim k as Integer,n as Integer,m as Integer
n=10 : m=1 : k=1
Do While k<=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
[填空题]某个窗体己编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 【11】 。
Private Sub Form_Click( )
Dim k as Integer, n as Integer,m as Integer
n=10 :m=1 : k=1
Do While k<=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
[填空题]某个窗体己编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 【11】 。
Private Sub Form_Click( )
Dim k as Integer, n as Integer,m as Integer
n=10 :m=1 : k=1
Do While k<=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
[填空题]某个窗体己编写下列事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 ______。
Pfivate Sub Form_Click( )
a=1
i=1
Do Until i>10
a=a+2
i=i+3
Loop
MsgBox a
End Sub
[填空题]某个窗体已编写如下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 ______。
Private Sub Form_Click( )
Dim K as Integer,n as Integer,m as Integer
n=10:m=1:k=1
DoWhileK<=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
[填空题]某个窗体己编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 ______。
Private Sub Form_Click( )
a=1
i=l
Do Until i>10
a=a+2
i=i+3
Loop
MsgBox a
End Sub
[填空题]某个窗体己编写下列事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 ______。
Pfivate Sub Form_Click( )
a=1
i=1
Do Until i>10
a=a+2
i=i+3
Loop
MsgBox a
End Sub
[填空题]某个窗体己编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 ______。
Private Sub Form_Click( )
a=1
i=l
Do Until i>10
a=a+2
i=i+3
Loop
MsgBox a
End Sub
[填空题]某个窗体已编写以下事件过程,打开窗体运行后,单击窗体,消息框的输出结果为______。
Private Sub Form_Click( )
Dim k As Integer,n As Integer,m As Integer
n=10:m=1:k=1
Do While k<=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
[填空题]某个窗体已编写如下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 ______。
Private Sub Form_Click( )
Dim K as Integer,n as Integer,m as Integer
n=10:m=1:k=1
DoWhileK<=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
[填空题]某个窗体已编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为_________。
Private Sub Form_Click( )
Dim k As Integer, n As Integer, m As Integer n = 10: m = 1: k = 1
Do While k <= n m = m * 2
k = k + 1
Loop
MsgBox m
End Sub