窗体上有一个名称为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以上程序所计算的表达式是（　　）。

试卷相关题目

• 1下列叙述中错误的是（　　）。

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

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

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

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

  开始考试点击查看答案
• 2设有变量声明为"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＂）

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

  A.50

  B.4

  C.15

  D.210

  开始考试点击查看答案
• 4在窗体上画一个命令按钮（名称为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程序运行后，单击命令按钮，输出结果是（　　）。

  A.10

  B.0C.11D.21

  开始考试点击查看答案
• 5下列说法正确的是（　　）。

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

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

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

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

  开始考试点击查看答案
• 6在窗体上画两个文本框（其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

  开始考试点击查看答案
• 7某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：Private Sub Co mmand1＿Click（　　）Di ma（10）As Integer ，max As IntegerFor k ＝1TO 10a（K）＝InputBox（＂输入一个整数＂）Next kMax＝0For k ＝1To 10If a（k）＞max ThenMax＝a（k）End IfNext kPrint maxEnd Sub运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是（　　）。

  A.把If a（k）＞max Then 改为If a（k）＜max Then

  B.把max＝a（k）改为a（k）＝max

  C.把第2个循环语句For k ＝1TO 10改为For k ＝2TO 10

  D.把max＝0改为max＝a（10）

  开始考试点击查看答案
• 8在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Co mmand1，然后编写下列程序：Private Sub func（LAs Label）L .Caption ＝＂1234＂End SubPrivate Sub Form＿Load（）Label1．Caption ＝＂ABCDE＂Label2．Caption ＝10End SubPrivate Sub Co mmand1＿Click（）a＝Val（Label2．Caption）Call func（Label1）Label2．Caption ＝aEnd Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（　）。

  A.ABCD 和10

  B.1234和100

  C.ABCD 和100

  D.1234和10

  开始考试点击查看答案
• 9要在命令按钮控件上显示图像应（　　）。

  A.设置Picture 属性

  B.实现不了

  C.先将Style 设置为1，然后再设置Picture 属性

  D.以上都不对

  开始考试点击查看答案
• 10窗体上有一个名称为CD1的通用对话框，一个名称为Co mmand1的命令按钮。命令按钮的单击事件过程如下：Private Sub Co mmand1＿Click（）CD1．File Name ＝＂＂CD1．Filter ＝＂All Files｜＊．＊｜（＊．Doc）｜＊．Doc｜（＊．Txt）｜＊．Txt＂CD1．FilterIndex＝2CD1．Action ＝1End Sub关于以上代码，叙述错误的是（　　）。

  A.执行以上事件过程，通用对话框被设置为"打开"文件对话框

  B.通用对话框的初始路径为当前路径

  C.通用对话框的默认文件类型为＊．Txt

  D.以上代码不对文件执行读写操作

  开始考试点击查看答案