若窗体中已有一个名为Commandl的命令按钮、一个名为Labell的标签和一个名为Textl的文本框，且文本框的内容光焕发为空，然后编写如下事件代码： Private Function fx As Long． As Boolean If x Mod 2 =0 Then f =True Else f =False End If End Function Privare Sub Commandl_Click． Dim n As Ling n =ValMeltextl． p=Iiffn．,”Even number”,”Odd number’ Me!Labell.Caption=n＆“is” ＆p End Sub 窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为 (12)

[单选题]窗体上有一个名为Commandl的命令按钮和一个名为Timerl的计时器，并有下面的事件过程：Private Sub Commandl_Click()Timerl．Enabled=TrueE．nd SubPrivate Sub Form_Load()Timerl．Interval=10Timerl．Enabled—FalsePrivate Sub Timerl _Timer()C．ommandl．Left=Commandl．Left+10E．nd Sub程序运行时，单击命令按钮，则产生的结果是A

[单选题]在窗体上添加一个命令按钮(名为Commandl) 和一个文本框(名为Text1) ，并在命令按钮中编写如下事件代码： Private Sub Commandl_click() m＝2.17 n＝Len(Str$(m) +Space(5) ) Me!Text1＝n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示( )。A．5B．8C．9D．10

[单选题]设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮，并有以下事件过程：Private Sub Commandl一Click()x!==Val(Textl．Text)Select Case xC．asc Is<-10，Is>=20Print“输入错误”C．ase Is<0Print 20 xC．ase ls<10Print 20C．ase Is=20Print x+10E．nd SelectE．nd Sub程序运行时，如果存文本框中输入一5，则单击命令按

[单选题]在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Labell，然后编写如下事件过程：Private Sub Command1_Click()C．ounter=0F．ori=1 T04F．orj=6 To 1 Step一2C．ounter=Counter+1Next jNextiLabell．Caption=Str(Counter)E．nd Sub程序运行后，单击命令按钮，标签中显示的内容是A．11B．12C．16D．20

[单选题]在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程： Private Sub Commandl_Click() S=0 Fori=1 To 15 x=2*i-1 If x Mod3=0 Thens=S+1 Nexti Labe11.Caption=S End Sub 程序运行后，单击命令按钮，则标签中显示的内容是( )。A．1B．5C．27D．45

[单选题]窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Commandl_Click()D．im a(1 0)，x％a(k)=Int(Rnd*90+10)x=x+a(k)Mod 2Print xE．nd Sub程序运行后．单击命令按钮，输出结果是A．10个数中奇数的个数B．l0个数中偶数的个教C．10个数中奇数的累加和D．10个数中偶数的累加和

[单选题]窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command_Click()D．im a As Integer，b As Integera=8b=12Print Fun(a，b)；a；bE．nd SubPrivate Function Fun(ByVal a As Integer，b As Integer)As Integera=a Mod 5b=b＼5F．un=aE．nd Function程序运行时，单击命令按钮，则输出结果是A．3 3 2B．3 8 2C．

[单选题]窗体上有一个名为Commandl的命令按钮，并有下面的程序：Private Sub Command1_Click()D．im art(5)As IntegerF．or k=1 TO 5arr(k)=kNext kprog art()F．or k=1 To 5Print alT(k)；Next kE．nd subSub prog(a()As Integer)n=UBound(a)F．or i=n To 2 step-1F．or j=1 To n-1if a(j)<a(j+1)Thent=a(

[单选题]窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command 1_Click()D．im a As Integer, b As Integera=8b=12Print Fun(a, b);a; bE．nd SubPrivate Function Fun(ByVal a As Integer, b As Integer)As Integera=a Mod 5b=b、5F．un＝aE．nd Function程序运行时，单击命令按钮，则输出结果是A．）3 3 2B．

[单选题]在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下：打开窗体后单击命令按钮，窗体中显示的内容是（ ）。A． 4B． 5C． 10D． 40