下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填（　　）。Sub EnSure（　　）Di myear As Integeryear ＝Val（InputBox（＂请输入年份：＂））If（year Mod 4＝0_________year Mod 100＜＞0）________（year Mod 400＝0）ThenPrint ＂您输入的是闰年＂ElsePrint ＂不是闰年，是普通年份＂End IfEnd Sub

试卷相关题目

• 1对长度为n 的线性表进行顺序查找，在最坏情况下所需要的比较次数为（　　）。

  A.log2n

  B.n／2

  C.n

  D.n＋1

  开始考试点击查看答案
• 2在用通用对话框控件建立"保存"文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即．txt 文件），则正确的描述格式是（　　）。

  A.＂text （．txt）｜（＊．txt）＂

  B.＂文本文件（．txt）｜（．txt）＂

  C.＂text（．txt）｜｜（＊．txt）＂

  D.＂text（．txt）（＊．txt）＂

  开始考试点击查看答案
• 3在窗体上画一个名称为Co mmand1的命令按钮，并编写以下程序：Private Sub Co mmand1＿Click（）Di mn ％，b ，tt ＝1：b ＝1：n ＝2Dob ＝b＊nt ＝t ＋bn ＝n ＋1Loop Until n ＞9Print tEnd Sub此程序计算并输出一个表达式的值，该表达式是（　　）。

  A.9！

  B.10！

  C.1！＋2！＋…＋9！

  D.1！＋2！＋…＋10！

  开始考试点击查看答案
• 4在窗体上画一个命令按钮，其名称为Commandl。程序运行后，单击命令按钮，输出结果是（　　）。Private Sub pl （n As Integer）For i ＝n To 1Step ＝1x＝Stri ng（i ，＂＊＂）Print xNext iEnd SubPrivate Sub Commandl＿Click（）pl（3）EndSub

  A.＊＊＊＊＊＊

  B.＊＊＊＊＊＊

  C.＊＊＊

  D.＊＊＊＊＊＊

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

  A.算法的执行效率与数据的存储结构无关

  B.算法的空间复杂度是指算法程序中指令(或语句)的条数

  C.算法的有穷性是指算法必须能在执行有限个步骤之后终止

  D.以上3种描述都不对

  开始考试点击查看答案
• 6设有下列程序Private Sub Form＿Click（）x＝50For i ＝1To 4y ＝InputBox（＂请输入一个整数＂）y ＝Val（y）If y Mod 5＝0Thena＝a＋yx＝yElsea＝a＋xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（　　）。

  A.100

  B.50

  C.120

  D.70

  开始考试点击查看答案
• 7要清除已经在图片框Picturel 中打印的字符串而不清除图片框中的图像，应使用语句（　　）。

  A.Picture 1．Cls

  B.Picture 1．Picture ＝LoadPicture（＂＂）

  C.Picture 1．Pi nt＂＂

  D.Picture 1．Picture＂＂

  开始考试点击查看答案
• 8下列选项中不符合良好程序设计风格的是（　　）。

  A.源程序要文档化

  B.数据说明的次序要规范化

  C.避免滥用goto语句

  D.模块设计要保证高耦合、高内聚

  开始考试点击查看答案
• 9下列说法错误的是（　　）。

  A.窗体文件的扩展名为"．frm"

  B.一个窗体对应一个窗体文件

  C.Visual Basic 中的一个工程只包含一个窗体

  D.Visual Basic 中一个工程最多可以包含255个窗体

  开始考试点击查看答案
• 10两个或两个以上模块之间关联的紧密程度称为（　　）。

  A.耦合度

  B.内聚度

  C.复杂度

  D.数据传输特性

  开始考试点击查看答案