更多"通常用户自己编写对话框,窗体最好是大小不变的,应该设置窗体的_____"的相关试题:
[简答题]对话框通常都会三个确认按钮:确定,取消、应用,分别叙述他们的作用和不同点。
[填空题]执行inputbox函数后,会产生一个对话框,对话框上通常有两个按钮,它们是______按钮和取消按钮。
[填空题]通常使用______方法来显示自定义对话框。
[填空题]某个窗体已编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为
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
[单项选择]编写如下窗体事件过程:
Priate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Shift=6 And Button=2 Then
MsgBox"Hello"
End If
End Sub
程序运行后,为了在窗体上消息框中输出“Hello”信息,在窗体上应执行的操作是______。
A. 同时按下Shift键和鼠标左键
B. 同时按下Shift键和鼠标右键
C. 同时按下Ctrl、Alt键和鼠标左键
D. 同时按下Ctrl、Alt键和鼠标右键
[填空题]某个窗体己编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 【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
[填空题]某个窗体己编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 ______。
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
[填空题]为某个窗体编写如下事件,单击窗体,消息框显示的结果为 【13】 。
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
[填空题]为某个窗体编写如下事件,单击窗体,消息框显示的结果为 【13】 。
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