网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体中有一个标签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．4
B．5
C．10
D．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 ” 相关考题
考题
在窗体中有一个标签 Lb1 和一个命令按钮 Command1 ，事件代码如下：Option Compare DatabaseDim a As String*10Private Sub Command1_Click()a="1234"b=Len(a)Me.Lb1.Caption=bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是A. 4B. 5C. 10D. 40
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。A．VVVB．VisC．sicD．11
考题
在窗体中有一个命令按钮command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是( )。A．15B．20C．25D．35
考题
在窗体中有一个标签Lablel，标题为“测试进行中”，有一个命令按钮Commandl，事件代码如下：Private Sub Commandl Click（ ）Lablel．Caption=”标签”End SubPrivate Sub Form—Load（ ）Form．Caption=”举例”Commandl．Caption=”移动”End Sub打开窗体后，单击命令按钮，屏幕显示（ ）。A.B.C.D.
考题
在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码： Private Sub Command1_Click() m=2.17 n=Len(Str$(m)＋Space(5)) Me!Text1=n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示______。A．5B．8C．9D．10
考题
在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码；PrivateSubCommand1_Click()s="ABBACDDCAB"Fori=6To2Step-2x=Mid(s,i,i)y=LeR(s,i)z=Right(s,i)z=xyzNextiMsgBoxzEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A．AABAABB．ABBABAC．BABBAD．BBABBA
考题
在窗体中有一个标签Labele，标题为“测试进行中”，有一个命令按钮Command1，事件代码如下：Private Sub Command1_Click()Labele.Caption=“标签”End SubPrivate Sub Form_Load( )Form.Caption=“举例”Command1.Caption=“移动”End Sub打开窗体后单击命令按钮，屏幕显示( )。A．B．C．D．
考题
在窗体上画一个名称为CommRnd1的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：Private Sub Command1 Click()s=0For i=1 TO 15x=2*i-1if x Mod 3；0 Then s=s+lNext iLabe11.Caption=sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是上【 】。
考题
在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为（ ）。A. 20是一个奇数B. 20C. 20是一个偶数D. 2
考题
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：Option Compare DatabaseDim a As String * 10Private Sub Command1_Clicka = "1234"b = Len(a)Me.Lb1.Caption = bEnd 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
考题
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：Option Compare DatabaseDim a As String*10Private Sub Command1 Click()a＝"1234"b＝Len(A)Me.Lb1.Caption＝bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是( )。A．4B．5C．10D．40
考题
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下： Option Compare DatabaseDim aAs String*10Private Sub Command 1_Click（ ） a="1234"b=Len（A． Me．Lbl．Caption=bEnd sub打开窗体后单击命令按钮，窗体中显示的内容是（ ）。【考点3 VBA程序设计基础】A.4B.5C.10D.40
考题
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下。 Option Compare DatabaseDim aAs String*10Private Sub Commandl_Click（ ） a="1234"b=Len（A． Me．Lbl．Caption=bEndSub打开窗体后单击命令按钮，窗体中显示的内容是（ ）。A.4B.5C.1OD.40
考题
在窗体中有一个标签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．4B．5C．10D．40
考题
在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1 Click() Dim a a=Array(2， 4， 6， 8) j=1 For i = 4 To 1 Step -3 s=s+a(i) (j j = j ( 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是A．22B．24C．26D．28
考题
在窗体中有一个标签Label0，标题为“显示标签”；并存在一个标题为bOK的命令按钮Command1，其事件代码如下所示：Private Sub Command1_Click( )a=95If a＞50 Thenk=1Elself a＞60 Thenk=2Elself a＞70 Thenk=3Elself a＞80 Thenk=4EndlfLabel0.Caption=kEnd SubPrivate Sub Form_Load( )Form.Caption=A．B．C．D．
考题
在窗体中有一个标签kabel()，标题为“测试进行中”；有一个命令按钮Command1，事件代码如下：Private Sub Conunandl_Click()Label(). Caption=“标签”End SubPrivate Sub Foml_Load()Form.Caption：“举例”Commandl.Caption=“移动”End Sub打开窗体后单击命令按钮，屏幕显示A．B．C．D．
考题
在窗体中有一个标签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
考题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click () Dim a a = Array(1, 2, 3, 4) j = 1 For i = 1 To 4 s = s + a(i) * j j = j * 10 Next i Print s End Sub程序运行后，单击命令按钮，其输出结果是______。A．1234B．12C．34D．4321
考题
在窗体上面画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码： Sub S(X As Integer，y As Integer) Static z As Integer y=x*x+Z z=y End Sub Private Sub Command1 Click（ ） Dim i As Integer．z As Integer m=0 z=0 For i=1 T0 3 S i，Z m=m+z Next i Label1．Caption=Str(m) 程序运行后，单击命令按钮，在标签中显示的内容是（ ）。A.50B.20C.14D.7
考题
在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1 Click() Dim a a=Array(1， 2， 3， 4) j = 1 For i = 4 To 1 Step -1 s = s + a(i)* j i = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果为A．4321B．12C．34D．1234
考题
（ 32 ） 在窗体上添加一个命令按钮 （ 名为 Command1 ） 和一个文本框 （ 名为 Text1 ） ， 并在命令按钮中编写如下事件代码：Private Sub Command1_Click( )m=2.17n=Len(Str$(m)+Space(5))Me!Text1 =nEnd Sub打开窗体运行后，单击命令按钮，在文本框中显示A ） 5B ） 8C ） 9D ） 10
考题
（ 34 ）在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( )s="ABBACDDCBA"For I=6 To 2 Step -2x=Mid(s,I,I)y=Left(s,I)z=Right(s,I)z=x y zNext IMsgBox zEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A ） AABAABB ） ABBABAC ） BABBAD ） BBABBA
考题
单选题窗体上有一个名称为Command1的命令按钮，事件过程如下：运行程序，并单击命令按钮，窗体上显示的内容为（ ）。A
-4B
-3C
3D
3.6
热门标签
最新试卷
