电子商务交易必须具备抗抵赖性，目的在于防止（）。

窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1b Command1_Click（） Next i End Sub 窗体运行后，单击命令按钮Command1，Text1中显示的是______

窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。

Private Sub Command1_Click()

Dim i As Integer,s As String

s="首都经济贸易大学"

For i=1 To b Step 2

Text1=Text1&Mid(s,i,1)

Next i

End Sub

窗体运行后，单击命令按钮Command1，Text1中显示的是______。

窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。

Private Sub Command1_Click()

Dim m As Single，n As Integer

m=2.54

n=Len(Str(m)+Space(5))

Me.Text1=n

End Sub

窗体运行后，单击命令按钮Command1，Text1中显示的是( )。

A．5 B．8 C．9 D．10

窗体中有命令按钮Commandl和文本框Text1，事件过程如下： Function result (By x As Integer)As Boolean If x Mod 2=0 Then result=True else result=False End if End Function PrivateSub Commandl_Click（） x=Val(InputBox(”请输入一个整数”)) If __________Then Text1=Str(x)&”是偶数．” Else Text1=Str(x)&”是奇数．” End If End Sub 运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么以上程序的空白处应填写（）。

A.result(x)=“偶数”

B.result(x)

C.result(x)=“奇数”

D.NOT result(x)

窗体中有命令按钮Commandl和文本框Text1，事件过程如下： Function result (By x As Integer)As Boolean If x Mod 2=0 Then result=True else result=False End if End Function PrivateSub Commandl_Click（） x=Val(InputBox(”请输入一个整数”)) If __________Then Text1=Str(x)&”是偶数．” Else Text1=Str(x)&”是奇数．” End If End Sub 运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么以上程序的空白处应填写（）。

A.result(x)=“偶数”

B.result(x)

C.result(x)=“奇数”

D.NOT result(x)

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：

打开窗体运行后，单击命令按钮，文本框中显示的内容是()。

在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：

Private Sub Command1_Click()

For I=1 To 4

X=3

For j=i To 3

For k=1 To 2

X=x+3

Next k

Next j

Next I

Text]．value=Str(x)

End Sub

打开窗体运行后，单击命令按钮，文本框Text1输出的结果是

A．6

B．12

C．18

D．21

在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：

Private Sub Command1_Click()

For I=1 To 4

X=3

For j=i To 3

For k=1 To 2

X=x+3

Next k

Next j

Next I

Text]．value=Str(x)

End Sub

打开窗体运行后，单击命令按钮，文本框Text1输出的结果是

A．6

B．12

C．18

D．21

在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For j=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub

A．2

B．3

C．4

D．5