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

试卷相关题目

• 1设有变量声明为"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＂）

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

  A.50

  B.4

  C.15

  D.210

  开始考试点击查看答案
• 3在窗体上画一个命令按钮（名称为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

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

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

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

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

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

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

  A.数值型

  B.变体类型

  C.字符串型

  D.日期型

  开始考试点击查看答案
• 6窗体上有一个名称为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

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

  开始考试点击查看答案
• 8某人编写了如下程序，用来求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）

  开始考试点击查看答案
• 9在窗体上画两个标签和一个命令按钮，其名称分别为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

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

  A.设置Picture 属性

  B.实现不了

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

  D.以上都不对

  开始考试点击查看答案