有如下函数：Function fun（a As Integer ，n As Integer）As IntegerDi m m As IntegerWhile a ＞＝na＝a－nm＝m＋1Wendfun ＝mEnd Function该函数的返回值是（　　）。

试卷相关题目

• 1在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Co mmand1，然后编写如下事件过程：Private Sub Form＿Load（）List1．AddIte m＂Ite m1＂List1．AddIte m＂Ite m2＂List1．AddIte m＂Ite m3＂End SubPrivate Sub Co mmand1＿Click（）List1．List（List1．ListCount）＝＂AAAA＂End Sub程序运行后，单击命令按钮，其结果为（ ）。

  A.把字符串＂AAAA＂添加到列表框中，但位置不能确定

  B.把字符串＂AAAA＂添加到列表框的最后（即＂Ite m3＂的后面）

  C.把列表框中原有的最后一项改为＂AAAA＂

  D.把字符串＂AAAA＂插入到列表框的最前面（即＂Ite m1＂的前面）

  开始考试点击查看答案
• 2设在工程文件中有一个标准模块，其中定义了下列记录类型：Type BooksName As Stri ng＊10TelNum As Stri ng＊20End Type在窗体上画一个名为Co mmand1的命令按钮，要求当执行事件过程Co mmand1Click 时，在顺序文件Person ．txt中写入一条Books 类型的记录。下列能够完成该操作的事件过程是（　）。

  A.Private Sub Co mmand1＿Click（）Di m BASBooksOpen ＂Person txt＂For Output As ＃1B .Name ＝InputBox （＂输入姓名＂）B .TelNum＝lnputBox （＂输入电话号码＂）Write ＃1BName ，BTelNumClose ＃1End Sub

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

  C.Private Sub Co mmand1＿Click（）Di m BASBooksOpen ＂Person txt＂For Output As ＃1B .Name ＝InputBox（＂输入姓名＂）B .TelNum＝InputBox（＂输入电话号码＂）Write ＃1，BClose ＃1End Sub

  D.Private Sub Co mmand1＿Click（）Open ＂Person txt＂For Input As ＃1Name ＝lnputBox（＂输入姓名＂）TelNum＝lnputBox（＂输入电话号码＂）Pri m＃1Name TelNumClose ＃1End Sub

  开始考试点击查看答案
• 3单击按钮时，以下程序运行后的输出结果是（ ）。Private Sub proc1（x As Integer ，y As Integer ，z As Integer）x＝3＊zy ＝2＊zz ＝x＋yEnd SubPrivate Sub Co mmand1＿Click（）Di mx As Integer ，y As Integer ，z As Integerx＝1：y ＝2：z ＝3Call proc1（x，x，z）Print x；x；z Call proc1（x，y ，y）Print x；y ；yEnd Sub

  A.6 6 126 10 10

  B.9 5 105 10 10

  C.9 6 129 10 15

  D.9 10 105 4 10

  开始考试点击查看答案
• 4以下叙述中错误的是（　　）。

  A.在KeyPress 事件过程中不能识别键盘的按下与释放

  B.在KeyPress 事件过程中不能识别回车键

  C.在KeyDown 和KeyUp 事件过程中，将键盘输入的"A"和"a"视作相同的字母

  D.在KeyDown 和KeyUp 事件过程中，从大键盘上输出的"1"和从右侧小键盘上输入的"1"被视作不同的字符

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

  A.在面向对象的程序设计中，各个对象之间具有密切的关系

  B.在面向对象的程序设计中，各个对象都是公用的

  C.在面向对象的程序设计中，各个对象之间相对独立，相互依赖性小

  D.上述3种说法都不对

  开始考试点击查看答案
• 6为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是（　　）。

  A.Visi ble

  B.Ti mer

  C.Enabled

  D.Interval

  开始考试点击查看答案
• 7下列叙述中，不属于软件需求规格说明书的作用的是（ ）。

  A.便于用户、开发人员进行理解和交流

  B.反映出用户问题的结构，可以作为软件开发工作的基础和依据

  C.作为确认测试和验收的依据

  D.便于开发人员进行需求分析

  开始考试点击查看答案
• 8在窗体上画一个名称为File 的文件列表框，并编写如下程序：Private Sub File1＿DblClick（）x＝Shell（File1．File Name ，1）End Sub以下关于该程序的叙述中，错误的是（ ）。

  A.x 没有实际作用，因此可以将该语句写为：Call Shell（File ．File Name ，1）

  B.双击文件列表框中的文件，将触发该事件过程

  C.要执行的文件的名字通过File1．File Name 指定

  D.File1中显示的是当前驱动器、当前目录下的文件

  开始考试点击查看答案
• 9设A＝＂87654321＂，则表达式Val（Left（A，4）＋Mid（A，4，2））的值为（　　）。

  A.876543

  B.876554

  C.8

  D.6

  开始考试点击查看答案