填空题

下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。
请填空。
Sub PrintOutO
Dim aAs Integer
a=MsgBox("输出结果"，vblnformation+vbYesNo，"提示：")
If a=______Then
Print "Myresult"
EndIf
EndSub

【参考答案】

vbYes或6

<上一题目录下一题>

热门试题

填空题

在窗体上设计两个复选框，一个显示粗体，另一个显示斜体，通过对复选框的选择，在一个文本框中显示相应效果的文本，请完成下列程序。 Private Sub Form. Load() Check1. Caption= 显示粗体 Check2. Caption= 显示斜体 Text1. Text= May you a happy day! End Sub Private Sub Check1 Click0 If______=1 Then Text1. FontBold=True Else Text1. FontBold=False EndIf End Sub Private Sub Cbeck2_Click() If Check2. value=1 Then Text1. ______ Else Text1. ______ End If End Sub

填空题

下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输f“文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() x=1Val(Text1. Text) If______Then Print x Else ______ Text1.Text= End If End Sub

相关试题