两个或两个以上模块之间关联的紧密程度称为（　　）。

试卷相关题目

• 1下列说法错误的是（　　）。

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

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

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

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

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

  A.源程序要文档化

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

  C.避免滥用goto语句

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

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

  A.Picture 1．Cls

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

  C.Picture 1．Pi nt＂＂

  D.Picture 1．Picture＂＂

  开始考试点击查看答案
• 4设有下列程序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

  开始考试点击查看答案
• 5下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填（　　）。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

  开始考试点击查看答案
• 6假定在工程文件中有一个标准模块，其中定义了如下记录类型：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

  开始考试点击查看答案
• 7窗体上有两个文本框Textl、Text2以及一个命令按钮Commandl ，编写下列程序：Di mY As IntegerPrivate Sub Commandl＿Click（）Di m X As Integerx＝2Textl ．Text ＝p2（p1（X），Y）Text2．Text ＝pl（x）End SubPrivate Function pl（X As Integer）As Integerx＋x＋y∶y ＝x＋ypl ＝x＋yEnd FunctionPrivate Function p2（X As Integer ，Y As Integer）As Integerp2＝2＊x＋yEnd Function当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为（　　）。

  A.2 42 4

  B.2 44 8

  C.4 48 8

  D.10 1058 58

  开始考试点击查看答案
• 8窗体文件的扩展名是（　　）。

  A.bas

  B.cls

  C.frm

  D.res

  开始考试点击查看答案