在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下： Option Compare Database Dim a As String*10 Pfivae Sub Commandl_Click() a＝“1234” b＝Len(A) Me.Lbl.Caption＝b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是( )。

A．4

B．5

C．10

D．40

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

[单选题]在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： OPtion Compare Databse Dim a As String * 10 Private Sub COmmand1_Click() a="1234" b=Len(a) Me.Lbl.Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是A．4B．5C．10D．40

[单选题]在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： Option Compare Database Dim a AS String*10 Private Sub Command1_Click() a=“1234” b=Len(a) Me.Lb1．Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是( )。A．4B．5C．10D．40

[单选题]在窗体中有一个命令按钮Commandl，编写事件代码如下：Private Sub Command1_CliCk()D．im s As Integers=P(1)+P(2)+e(3)+P(4)debug．Print SE．nd SUbPublic Function P(N AS Integer)D．im Sum As IntegerSum=0F．or i=1 To NSum=Sum+iNext iP=SumE．nd Function打开窗体运行后，单击命令按钮，输出结果是A．15B．20C．25D

[单选题]在窗体中有一个命令按钮Commandl，对应的事件代码如下： Private Sub Commandl_nter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i＝1 To 10 num＝InputBox(“请输入数据：”，“输入”，1)A．&:",b＝"& Str(B．) End Sub 运行以上事件所完成的功能是( )。C．对输入的10个数据求累加和D．对输入的10个

[单选题]在窗体中有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：F．or i=1 T04X=3F．or j=1 T03F．or k=1 T02x=x+3Next kNext jNext iText1．Value=Str(x)E．nd Sub打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是（ ）。A．6B．12C．18D．21

[单选题]在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京"，"上海"，"天津"，"重庆") Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。A．空白B．错误提示C．北京D．上海

[单选题]（ 33 ）在窗体上有一个命令按钮 Commandl ，编写事件代码如下：Private Sub Command1_Click()D．im x As Integer, y As Integerx = 12: y = 32C．all Proc(x, y)D．ebug.Print x; yE．nd SubPublic Sub Proc(n As Integer, ByVal m As Integer)n = n Mod 10m = m Mod 10E．nd Sub打开窗体运行后，单击命令按钮，立即窗

[单选题]34 ）在窗体上有一个命令按钮 Commandl ，编写事件代码如下：Private Sub Commandl_Click()D．im d1 As DateD．im d2 As Datedl = #12/25/2009#d2 = #1/5/2010#MsgBox DateDiff( ” ww ” , d1, d2)E．nd Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是A． ） 1B． ） 2C． ） 10D． ） 11

[单选题]（ 32 ）在窗体上有一个命令按钮 Commandl ，编写事件代码如下：Private Sub Commandl_Click()D．im y As Integery = 0D． oy = InputBox (" y= ")If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y ;Loop Until y = 0E．nd Sub打开窗体运行后，单击命令按钮，依次输入 10 、 37 、 50 、 55 、 64 、 20 、 28 、 19 、