在窗体中有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl Click（ ） Dim S As Integer s=p(1)q+p(2)q+p(3)+p(4) debu9．Print S End Sub Public Function P(N As Integer) Dim Sum As IntegerSum==0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是（ ）。A.
题目
在窗体中有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl Click（ ） Dim S As Integer s=p(1)q+p(2)q+p(3)+p(4) debu9．Print S End Sub Public Function P(N As Integer) Dim Sum As IntegerSum==0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是（ ）。
A.15
B.20
C.25
D.35
相似考题
更多“在窗体中有一个命令按钮Commandl,编写事件代码如下:Private Sub Commandl Click( ) Dim S As In ”相关问题
-
第1题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="VisualBasic" Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是
A．VVV
B．Vis
C．sic
D．11
正确答案：A
解析：本题考查字符串函数。 String返回n个字符。如果为字符串，则返回n个字符串的首字符。据此，本题的正确答案为A，即返回3个“Visual Basic”的首字母“V”。 -
第2题：
在窗体中有一个标签Labele，标题为“测试进行中”：有一个命令按钮Commandl，事件代码如下：
Private Sub Commandl_Click()
Labele.Caption＝“标签”
End Sub
Private Sub Form_Load()
Form.Caption＝“举例”
Commandl.Caption＝“移动”
End Sub
打开窗体后，单击命令按钮，屏幕显示( )。
A．
B．
C．
D．
正确答案：D
解析： 本题考查控件基本属性和事件的知识。在本题中，窗体开始运行时会首先执行Load事件，将窗体的标题设置为“举例”，命令按钮的标题设置为“移动”；单击命令按钮时会将标签的标题设置为“标签”。 -
第3题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click（） Dim（） a=Array（”机床”，”车床”，”钻床”，”轴承”）Printa（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A.机床
B.车床
C.钻床
D.轴承
正确答案：C
暂无解析，请参考用户分享笔记 -
第4题：
在窗体中有一个命令按钮Commandl，编写事件代码如下：
Private Sub Command1_CliCk()
Dim s As Integer
s=P(1)+P(2)+e(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+i
Next i
P=Sum
End Function
打开窗体运行后，单击命令按钮，输出结果是
A．15
B．20
C．25
D．35
正确答案：B
解析：考察循环结构。当N=1时，p(1)=1；当N=2时，p(2)=3；当N=3时，p(3)=6；当N=4时，p(4)：10；所以s：20。 -
第5题：
在窗体中有一个标签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
正确答案：C
暂无解析，请参考用户分享笔记 -
第6题：
在窗体中有一个标签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
正确答案：C
解析： 本题考查VBA中定长字符串的知识。当声明一个变量为String类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为10，故Len(A) ＝10。