某人设计了下面的函数fun ，功能是返回参数a 中数值的位数Function fun（a As Integer）As IntegerDi mn ％n ＝1While a＼10＞＝0n ＝n ＋1a＝a＼10Wendfun ＝nEnd Function在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是（　　）。

试卷相关题目

• 1在窗体上画一个名为Co mmand1的命令按钮，然后编写以下程序：Private Sub Co mmand1＿Click（）Di m M（10）As IntegerFor k ＝l To 10M（k）＝12－kNextkx＝8Print M（2＋M（x））End Sub运行程序，单击命令按钮，在窗体上显示的是（　　）。

  A.6

  B.5

  C.7

  D.8

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

  A.125

  B.n/2

  C.n

  D.n+1

  开始考试点击查看答案
• 3三种基本结构中，能简化大量程序代码行的是（　　）。

  A.顺序结构

  B.分支结构

  C.选择结构

  D.重复结构

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

  A.顺序文件中的记录一个接一个地顺序存放

  B.随机文件中记录长度是随机的

  C.执行打开文件的命令后，自动生成一个文件指针

  D.LOF 函数返回给文件分配的字节数

  开始考试点击查看答案
• 5下列程序段的执行结果为（　　）。I ＝9x＝5DoI ＝I ＋1x＝x＋2Loop Until I ＞＝7Print ＂I ＝＂；I ；Print ＂x＝＂；x

  A.I ＝4x＝5

  B.I ＝7x＝15

  C.I ＝6x＝8

  D.I ＝10x＝7

  开始考试点击查看答案
• 6在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下程序：Public Enumsa＝4b ＝3End EnumPrivate Sub Co mmand1＿Click（）Di mx As Integerx＝aIf x＞＝3ThenMsgBox ＂Pass ！＂End Sub运行程序，其结果是（　　）。

  A.运行错误，因为Enum 定义有错

  B.运行错误，因为x＝a 类型不匹配

  C.运行正常结束，不显示任何信息

  D.运行正常，显示内容为"Pass ！"的信息框

  开始考试点击查看答案
• 7对于长度为n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是（　　）。

  A.冒泡排序为n／2

  B.冒泡排序为n

  C.快速排序为n

  D.快速排序为n（n －1）／2

  开始考试点击查看答案
• 8在程序运行期间，当滚动条的滑块被拖动时，则立即触发滚动条的（ ）事件。

  A.Click

  B.Change

  C.Dblclick

  D.Scroll

  开始考试点击查看答案
• 9下列程序在调试时出现了死循环：Private Sub Co mmand1＿Click（）n ＝InputBox（＂请输入一个整数＂）DoIf n Mod 2＝0Thenn ＝n ＋1Elsen ＝n ＋2End IfLoop Until n ＝1000End Sub下列关于死循环的叙述中正确的是（　　）。

  A.只有输入的n 是偶数时才会出现死循环，否则不会

  B.只有输入的n 是奇数时才会出现死循环，否则不会

  C.只有输入的n 是大于1000的整数时才会出现死循环，否则不会

  D.输入任何整数都会出现死循环

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

  A.在KeyUp 和KeyDown 事件过程中，从键盘上输入A 或a 被视作相同的字母（即具有相同的KeyCode）

  B.在KeyUp 和KeyDown 事件过程中，将键盘上的"1"和右侧小键盘上的"1"视作不同的数字（具有不同的KeyCode）

  C.KeyPress 事件中不能识别键盘上某个键的按下与释放

  D.KeyPress 事件中可以识别键盘上某个键的按下与释放

  开始考试点击查看答案