填空题

下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填写空白处。
Sub PrintOut()
Dim a As Integer
a=MsgBox("输出结果",vbInformation+vbYesNo,"提示:")
If a=______Then
Print "Myresult"
End If
End Sub

【参考答案】

vbYes(或6)

<上一题目录下一题>

热门试题

填空题

以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中。请将空白处补充完整。 Private Sub Command1_Click() Dim N As String,C As String,D As String N=Text1.Text M=______ For i=M To 1 Step-1 C=Mid(N,i,1) D=D &______ Next i Text2.Text=D End Sub

填空题

下面程序的作用是利用随机函数产生10个100～200之间(包含100、200)的随机数，打印其中是5的倍数的数，并求出它们的总和。请将下列程序补充完整。 Private Sub Command1_Click() For m=1 To 10 x=Int(Rnd *______) If Then Print x; k1=k1+x End If Next m Print k1= ;k1 End Sub

相关试题