在窗体中有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl_Click()Dim s As IntegerS=P(1)+P(2)+P(3)+P(4)debug.Print SEnd SubPublic Function P(N AS Integer)Dim Sum As IntegerSum=0For i=1 To NSum=Sum+iNext iP=SumEnd Function打开窗体运行后，单击命令按钮，输出结果是（    ）。

试卷相关题目

• 1在窗体中有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：Private Sub Commandl_Click()For I=1 To 4x=3For j=1 To 3For k=1 To 2x=x+3Next kNext jNext ITextl.value=Str(x)End Sub打开窗体运行后，单击命令按钮，文本框Textl输出的结果是（    ）

  A.6

  B.12

  C.18

  D.21

  开始考试点击查看答案
• 2在窗体中有一个文本框Textl，编写事件代码如下：Private Sub Form_Click()X=val(Inputbox("输入x的值"))Y=1If X<>0 Then Y=2Textl.Value=YEnd Sub打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是（    ）。

  A.1

  B.2

  C.3

  D.4

  开始考试点击查看答案
• 3下列数组声明语句中，正确的是（    ）。

  A.Dim A[3,4] As Integer

  B.Dim A(3,4) As Integer

  C.Dim A[3;4] As Integer

  D.Dim A(3;4) As Integer

  开始考试点击查看答案
• 4下列数据类型中，不属于VBA的是（    ）。

  A.长整型

  B.布尔型

  C.变体型

  D.指针型

  开始考试点击查看答案
• 5下列叙述中，错误的是（    ）。

  A.宏能够一次完成多个操作

  B.可以将多个宏组成一个宏组

  C.可以用编程的方法来实现宏

  D.宏命令一般由动作名和操作参数组成

  开始考试点击查看答案
• 6下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录（即窗体记录源）个数。Sub GetRecNum()Dim rs As ObjectSet rs=Me.RecordsetMsgBox ___________End Sub程序空白处应填写的是（    ）。

  A.Count

  B.rs.Count

  C.RecordCount

  D.rs.RecordCount

  开始考试点击查看答案