以下程序代码用来实现如下功能：单击命令按钮弹出对话框，在其中输入正数后单击确定，弹出一个提示信息显示刚才输入的正数，否则提示"error"。请填空。

Private Sub Command1_Click()

D．im a As Integer，b As String

a=InputBox("请输入一个正数")

If a ＞ 0 Then

______

E．lse

b=MsgBox("error"，0)

E．nd If

E．nd Sub

[单选题]单击( )按钮，屏幕弹出“浏览”对话框，在其中可以指定要用来标示文件夹的图片。A．“还原默认图标”B．“用此文件夹类型作为模板”C．“选择图片”D．“文件夹图标”

[单选题]单击（）按钮，屏幕弹出“浏览”对话框，在其中可以指定要用来标示文件夹的图片。A . “还原默认图标”B . “用此文件夹类型作为模板”C . “选择图片”D . “文件夹图标”

[填空题] windows操作系统正常启动后，单击开始-运行弹出对话框，输入：（）单击确定按钮，能进入windows的系统命令行模式。

[单选题]选择“文字－连字”命令后，在弹出的对话框中单击“添加”命令按钮，可以在弹出的对话框中向字典中增加新的单词，如果在新单词的某一位置输入三个波浪号则表示：（）A . 首选连字中断位置B . 强制连字位置C . 没有实际用途D . 最次连字中断位置

[单选题]在窗体上画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入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 L

[单选题]在窗体画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入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 Lo

[单选题]执行下列语句后，显示输入对话框，此时如果单击“确定”按钮，则变量strInput的内容是： ______。 atrInput=InputBox(“请输入字符串”，“字符串对话框”，“字符串”)A．“请输入字符串”B．“字符串对话框”C．“字符串”D．空字符串

[单选题]执行下列语句后，显示输入对话框，此时如果单击“确定”按钮，则变量strInput的内容是______。 atrInput=InputBox(“请输入字符串”，“字符串对话框”，“字符串”)A．“请输入字符串”B．“字符串对话框”C．“字符串”D．空字符串

[单选题]执行下列语句后，显示输入对话框，此时如果单击“确定”按钮，则变量strlnput的内容是______。 atrInput=Input Box("请输入字符串"，"字符串对话框"，"字符串")A．请输入字符串B．字符串对话框C．字符串D．空字符串

[单选题]执行下列语句后，显示输入对话框，此时如果单击“确定”按钮，则变量strInput的内容是 ______。 atrlnput=-InputBox(“请输入字符串”，“字符串对话框”，“字符串”)A．“请输入字符串”B．“字符串对话框”C．“字符串”D．空字符串