更多"为窗体中的命令按钮设置单击鼠标时发生的动作,应选择设置其属性对话框的("的相关试题:
[填空题]在窗体上添加一个文本框控件Info,画一个命令按钮,当单击命令按钮显示“保存文件”对话框,设置该对话框可用于保存文本文件(默认)和可执行文件(.exe),然后在文本控件中显示保存的文件名。
Private Sub Command1_Click( )
CommonDialog1.Filter= 【13】
CommonDialog1.FilterIndex= 【14】
CommonDialog1.ShowSave
Info.Text= 【15】
End Sub
[填空题]在打开一个自定义对话框时,可以使用______方法来决定对话框窗体的显示模式。
[单项选择]在窗体画一个命令按钮,然后编写如下过程,程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为 ______。 Function Fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k* (num Mod 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click( ) Dim n As Long Dim r As Long n=In put Box("请输入一个数") n=CLng(n) r=Fun(n) Print r End Sub
A. 20
B. 24
C. 9
D. 28
[填空题]在窗体上画一个命令按钮,然后编写如下事件过程。该程序运行后,单击命令按钮,在输入对话框中分别输入321和456,则输出结果为 【6】 。
Private Sub Command1_Click( )
a=InputBox("请输入一个整数")
b=InputBox("请再输入一个整数")
Print a+b
End Sub
[单项选择]在窗体上画一个命令按钮,然后编写如下过程,程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为 ______。
Function fun(ByVal num As Long) As Long
Dim k As Long
k=1
mum=Abs(num)
Do While num
k=k*(num Mod 10)
num=num/10
Loop
fun=k
End Function
Private Sub Command1_Click( )
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
Print r
End Sub
A. 20
B. 24
C. 9
D. 28
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程,程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,输出结果为______。
Private Sub Command1_Click( )
x=0
Do Until x=-1
a=Val(InputBox("请输入A的值"))
b=Val(InputBox("请输入B的值"))
x=Val(InputBox("请输入X的值"))
a=a+b+x
Loop
Print a
End Sub
A. 2
B. 3
C. 14
D. 15
[单项选择]窗体上有1个名称为CD1的通用对话框,1个名称为Commandl的命令按钮。命令按钮的单击事件过程如下:
Private Sub Commandl_Click( )
CD1.FileName=""
CD1.Filter="AllFiles|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CD1.FilterIndex=2
CD1.Action=1
End Sub
关于以上代码,错误的叙述是( )。
A. 执行以上事件过程,通用对话框被设置为“打开”文件对话框
B. 通用对话框的初始路径为当前路径
C. 通用对话框的默认文件类型为*.Txt
D. 以上代码不对文件执行读写操作
[单项选择]在窗体上画一个命令按钮,然后编写如下代码。运行程序后,单击命令按钮,依次在输人对话框中输入2,7,5,3,8,5,12,6,12,在窗体上输出的结果是______。 Private Sub Command1 Click( ) z=5 Do Until z<>5 x=InputBox<“请输入x值”) x=Val(x) y=InputBox(“请输入y值”) y=Val(y) z=InputBox(“请输入z值”) z=Val(z) y=x+y+2 * z Loop Print y End Sub
A. 19
B. 21
C. 42
D. 19