在表单中有命令按钮Command1和文本框Text1，将文本框的InputMask属性值设置为$9，999．9，然后在命令按钮的Click事件中输入代码ThisForm．Text1．Value=123456．789，当运行表单时，单击命令按钮，此时文本框中显示的内容为

A．123457

B．$23 456．7

C．123457

D．* * * *．*

[单选题]在表单中有命令按钮Command1和文本框Text1，将文本框的InputMask属性值设置为＄9,999.9，然后在命令按钮的Click事件中输入代码ThisForm.Text1.Value=12 3456.789，当运行表单时，单击命令按钮，此时文本框中显示的内容为A．＄123 456.789B．＄23 456.7C．123 456.7D．****.*

[单选题]在表单中有命令按钮Commandl和文本框Text1，将文本框的InputMask属性值设置为$9,999.9，然后在命令按钮的Click事件中输入代码ThisForm.Text1.Value=123456.789，当运行表单时，单击命令按钮，此时文本框中显示的内容为______。A．$123456.789B．$23456.7C．123456.7D．**，***．*

[单选题]窗体中有命令按钮Command1和文本框Text1，事件过程如下：F．unction result(ByVal x As Integer)As BooleanIf x Mod 2=0 Thenresult=Trueelseresult=FalseE．nd IfE．nd FunctionPrivate Sub Command1_Click()x=Val(InputBox(“请输入一个整数”))If______ ThenTextl=Str(x)&“是偶数．”E．lseTextl=Str(x)

[单选题]窗体有命令按钮Commandl和文本框Text1，对应的事件代码如下：F．or i=1T04X==3F．or i=1t03F．or k=1T02x=x+3Next kNext jNext iText1．Value=Str(x)E．nd Sub运行以上事件过程，文本框中的输出是（ ）。A．6B．12C．18D．21

[单选题]（ 33 ）在窗体中有一个命令按钮 command1 和一个文本框 text1, 编写事件代码如下：Private sub command1_click()F．or i=1 to 4X=3F．or j=1 to 3F．or k=1 to 2X=x+3Next kNext jNext iText1.value=str(x)E．nd sub打开窗体运行后，单击命令按钮，文本框 text1 输出的结果是A． ） 6B． ） 12C． ） 18D． ） 21

[单选题]（24）在窗体上有文本框Text1和命令按钮Command1,并有下列事件过程： Private Sub Command1_Click() Dim i 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

[单选题]在窗体上有文本框Text1和命令按钮Command1，并有下列事件过程：Private Sub Command1_Click()D．im i As Integer,n As IntegerF．or i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)E．nd Sub单击命令按钮，程序运行后，在文本框中显示的值是( )。A．2B．3C．4D．5

[单选题]（ 24 ）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序Private Sub Commandl_Click （）D．im nIf Text1.Text<> " 23456 " Thenn=n ＋ 1Print " 口令输入错误 " & n & " 次 "E．nd IfE．nd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击 “ 确认口令 ” 命令按钮 ， 若输入的口令不是 “ 123456 ” ，则在窗体上

[试题]设窗体上有text1文本框和Command1命令按钮，并有以下程序：Private Sub Command1_Click()Temp$=””F．or k=1 to len(text1)C．h$=mid(text1,k,1)If not found(temp,ch)thenTemp=temp&(13)E．nd IfNext kText1=(14)E．nd SubPrivate function found(str as string,ch as string)as BooleanF．or k

[单选题]在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click() Dim i As Integer，n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 单击命令按钮，程序运行后，在文本框中显示的值是( )。A．2B．3C．4D．5