（ 19 ）有下列命令按钮（名称为 Command1 ）事件过程：Private Sub Command1_Click( )x=InputBox(" 输入 :"," 输入整数 ")MsgBox " 输入的数据是 :" ，， " 输入数据 :"+xEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数 10 ，则下列叙述中错误的是（ ）。A ） x 的值是数值 10B ）输入对话框的标题是 “ 输入整数 ”C ）消息框的标题是 “ 输入数据： 10 ”D ）消息框中显示的是 “ 输入的数据是： ”

窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。

Private Sub Command1_Click()

Dim x As Integer

x=Val(InputBox(“输入数据”))

Text1=Str(fun(x)+fun(x)+fun(x))

End Sub

Private Function fun(ByRef n As Integer)

Ifn Mod 3=0 Then

n=n+n

Else

n=n*n

End If

________=n

End Function

当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_______。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click () x=0 n=InputBox ("") For i=1 TO n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。

A．3

B．4

C．5

D．6

窗体中有命令按钮Command1和文本框Text1，事件过程如下：

Function result(ByVal x As Integer)As Boolean

If x Mod 2=0 Then

result=True

else

result=False

End If

End Function

Private Sub Command1_Click()

x=Val(InputBox(“请输入一个整数”))

If______ Then

Textl=Str(x)&“是偶数．”

Else

Textl=Str(x)&“是奇数．”

End If

End Sub

运行程序，单击命令按钮，输入19，在Textl中会显示“19是奇数”。那以在程序的空白处应填写( )。

A．result(x)=“偶数”

B．result(x)

C．result(x)=“奇数”

D．NOT result(x)

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。

A．3

B．4

C．5

D．6