在窗体上画一个命令按钮（名称为Co mmand1），并编写下列代码：Function Funl （ByVal a As Integer ，b As Integer）As IntegerDi mt As Integer t ＝a－bb ＝t ＋aFunl ＝t ＋bEnd FunctionPrivate Sub Co mmand1＿Click（）Di mx As Integerx＝10Print Funl（Funl（x，（Funl（x，x－1））），x－1）End Sub程序运行后，单击命令按钮，输出结果是（　　）。

试卷相关题目

• 1下列说法正确的是（　　）。

  A.任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器

  B.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器

  C.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器

  D.任何时候都可以使用D．任何时候都可以使用"工具"菜单下的"菜单编辑器"命令，打开菜单编辑器

  开始考试点击查看答案
• 2MsgBox 函数的返回值的类型为（ ）。

  A.数值型

  B.变体类型

  C.字符串型

  D.日期型

  开始考试点击查看答案
• 3下列符号常量的声明中，不合法的是（　　）。

  A.Const a As Si ngle ＝1．1

  B.Const a＝＂OK＂

  C.Const a As Double ＝Si n（1）

  D.Const a As Integer ＝＂12＂

  开始考试点击查看答案
• 4设有如下程序：Option Base lPrivate Sub Form＿Click（）Di ma（5）As Stri ng ，i As IntegerFor i ＝1To 5a（i）＝Chr（Asc（＂A＂）＋i）Call f（a，i）Next iEnd SubSub f（ta（）As Stri ng ，n As Integer）Di mi As IntegerFor i ＝1To nPrint ta（i）；Next i PrintEnd Sub对上述程序，以下叙述中正确的是（　　）。

  A.程序有错，因为在过程f 的定义中数组参数格式不正确

  B.程序可正常运行，输出内容的第一行是一个字母"A"

  C.程序可正常运行，输出内容的第一行是一个字母"B"

  D.程序可正常运行，输出内容的第一行是数字65

  开始考试点击查看答案
• 5为了在列表框中使用Ctrl 和Shift 键进行多个列表项的选择，应将列表框的Multi Select 属性设置为（　　）。

  A.0

  B.2

  C.False

  D.True

  开始考试点击查看答案
• 6执行下列程序段后，整型变量n 的值为（　　）。n ＝0For i ＝1To 20Step 5n ＝n ＋1Next i

  A.50

  B.4

  C.15

  D.210

  开始考试点击查看答案
• 7设有变量声明为"Di m aDate As Date"，则为变量aDate 正确赋值的表达方式是（　　）。

  A.aDate ＝＃8／2008＃

  B.aDate ＝＃＂8／8／2008＂＃

  C.aDate ＝Date（＂8／8／2008＂）

  D.aDate ＝Format（＂m／d／yy＂，＂8／8／2008＂）

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

  A.在通用过程中，多个形式参数之间可以用逗号作为分隔符

  B.在Print 方法中，多个输出项之间可以用逗号作为分隔符

  C.在Di m 语句中，所定义的多个变量可以用逗号作为分隔符

  D.当一行中有多个语句时，可以用逗号作为分隔符

  开始考试点击查看答案
• 9窗体上有一个名称为Co mmand1的命令按钮，其事件过程如下：Private Sub Co mmand1＿Click（）Di mi As Integer ，j As Integer ，k As IntegerDi ms As Doubles ＝0：i ＝1：j＝0：k ＝－1Do While i ＜6s ＝s ＋k＊（j／i）i ＝i ＋1j＝j＋1k ＝－kLoopPrint sEnd Sub以上程序所计算的表达式是（　　）。

  A.1／2－2／3＋3／4－4／5

  B.－1／2＋2／3－3／4＋4／5

  C.1－1／2＋2／3－3／4＋4／5

  D.－1＋1／2－2／3＋3／4－4／5

  开始考试点击查看答案
• 10在窗体上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（其Name 属性为Co mmand1），然后编写如下事件过程：Private Sub Co mmand1＿Click（）x＝0Do While x＜50x＝（x＋2）＊（x＋3）n ＝n ＋1LoopText1．Text ＝Str（n）Text2．Text ＝Str（x）End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（　　）。

  A.1和0

  B.2和72

  C.3和50

  D.4和168

  开始考试点击查看答案