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

试卷相关题目

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

  A.耦合度

  B.内聚度

  C.复杂度

  D.数据传输特性

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

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

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

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

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

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

  A.源程序要文档化

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

  C.避免滥用goto语句

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

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

  A.Picture 1．Cls

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

  C.Picture 1．Pi nt＂＂

  D.Picture 1．Picture＂＂

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

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

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

  A.bas

  B.cls

  C.frm

  D.res

  开始考试点击查看答案