窗体上有两个文本框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内的值分别为（　　）。

试卷相关题目

• 1假定在工程文件中有一个标准模块，其中定义了如下记录类型：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

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

  A.耦合度

  B.内聚度

  C.复杂度

  D.数据传输特性

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

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

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

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

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

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

  A.源程序要文档化

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

  C.避免滥用goto语句

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

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

  A.Picture 1．Cls

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

  C.Picture 1．Pi nt＂＂

  D.Picture 1．Picture＂＂

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

  A.bas

  B.cls

  C.frm

  D.res

  开始考试点击查看答案