在窗体中有一个命令按钮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个数据求各自的余数,然后再进行累加
第1题:
在窗体中有一个标签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.4
B.5
C.10
D.40
第2题:
在窗体中有一个标签Lbl和一个命令按钮Commandl,事件代码如下。 Option Compare DatabaseDim aAs String*10Private Sub Commandl_Click( ) a="1234"b=Len(A. Me.Lbl.Caption=bEndSub打开窗体后单击命令按钮,窗体中显示的内容是( )。
A.4
B.5
C.1O
D.40
第3题:
在窗体中有一个标签kabel(),标题为“测试进行中”;有一个命令按钮Command1,事件代码如下:
Private Sub Conunandl_Click()
Label(). Caption=“标签”
End Sub
Private Sub Foml_Load()
Form.Caption:“举例”
Commandl.Caption=“移动”
End Sub
打开窗体后单击命令按钮,屏幕显示
A.
B.
C.
D.
第4题:
在窗体中有一个标签Labele,标题为“测试进行中”:有一个命令按钮Commandl,事件代码如下:
Private Sub Commandl_Click()
Labele.Caption=“标签”
End Sub
Private Sub Form_Load()
Form.Caption=“举例”
Commandl.Caption=“移动”
End Sub
打开窗体后,单击命令按钮,屏幕显示( )。
A.
B.
C.
D.
第5题:
在窗体中有一个标签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