设有下列程序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，输出结果为（　　）。

试卷相关题目

• 1下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填（　　）。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

  A.And And

  B.And Or

  C.Or Or

  D.Or Or

  开始考试点击查看答案
• 2对长度为n 的线性表进行顺序查找，在最坏情况下所需要的比较次数为（　　）。

  A.log2n

  B.n／2

  C.n

  D.n＋1

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

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

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

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

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

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

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

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

  A.Picture 1．Cls

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

  C.Picture 1．Pi nt＂＂

  D.Picture 1．Picture＂＂

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

  A.源程序要文档化

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

  C.避免滥用goto语句

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

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

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

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

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

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

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

  A.耦合度

  B.内聚度

  C.复杂度

  D.数据传输特性

  开始考试点击查看答案
• 10假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As Stri ng＊10TelNum As Stri ng＊20End Type要求在执行事件过程Co mmand1＿Click 时，在顺序文件Person ．txt 中写入一条记录。下列能够完成该操作的事件过程是（　　）。

  A.Private Sub Co mmand1＿Click（）Di nt BAs BooksOpen ＂c ：＼Person ．txt＂For Output As ＃1B ．Name ＝InputBox（＂输入姓名＂）B ．TelNum＝InputBox（＂输入电话号码＂）Write ＃1，B．Name ，B．TelNumClose ＃1End Sub

  B.Private Sub Co mmand1＿Click（）Di m BAs BooksOpen ＂c ：＼Person ．txt＂For Input As ＃1B ．Name ＝InputBox（＂输入姓名＂）B ．TelNum＝InputBox（＂输入电话号码＂）Print ＃1，B．Name ，B．TelNumClose ＃1End Sub

  C.Private Sub Co mmand1＿Click（）Di m BAs BooksOpen ＂c ：＼Person ．txt＂For Output As ＃1Name ＝InputBox（＂输入姓名＂）TelNo m＝InputBox（＂输入电话号码＂）Write ＃1，BClose ＃1End Sub

  D.Private Sub Co mmand1＿Click（）Di m BAs BookOpen ＂c ：＼Person ．txt＂For Input As ＃1Name ＝InputBox（＂输入姓名＂）TelNum－InputBox（＂输入电话号码＂）Print ＃1，B．Name ．B．TelNumClose ＃1End Sub

  开始考试点击查看答案