要求当鼠标在图片框p1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

试卷相关题目

• 1下面是求最大公约数的函数的首部function gcd(byval x as integer, byval y as integer) as integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是

  A.print gcd(8,12)，gcd(12,16)，gcd(16,8)

  B.print gcd(8,12,16)

  C.print gcd(8)，gcd(12)，gcd(16)

  D.print gcd(8,gcd(12,16))

  开始考试点击查看答案
• 2下面正确使用动态数组的是

  A.dim arr() as integer…redim arr(3,5)

  B.dim arr() as integer…redim arr(50)as string

  C.dim arr()…redim arr(50) as integer

  D.dim arr(50) as integer…redim arr(20)

  开始考试点击查看答案
• 3设窗体的名称为form1，标题为win，则窗体的mousedown事件过程的过程名是

  A.form1_mousedown

  B.win_mousedown

  C.form_mousedown

  D.mousedown_form1

  开始考试点击查看答案
• 4下面关于标准模块的叙述中错误的是

  A.标准模块中可以声明全局变量

  B.标准模块中可以包含一个sub main过程，但此过程不能被设置为启动过程

  C.标准模块中可以包含一些public过程

  D.一个工程中可以含有多个标准模块

  开始考试点击查看答案
• 5vb中有3个键盘事件：keypress、keydown、keyup，若光标在text1文本框中，则每输入一个字母

  A.这3个事件都会触发

  B.只触发keypress事件

  C.只触发keydown、keyup事件

  D.不触发其中任何一个事件

  开始考试点击查看答案
• 6下面程序计算并输出的是private sub comand1_click()a=10s=0dos=s+a*a*aa=a-1loop until a<=0print send sub

  A.1³+2³+3³+…+10³的值

  B.10!+…+3!+2!+1!的值

  C.(1+2+3+…+10)³的值

  D.10个10³的和

  开始考试点击查看答案
• 7若在窗体模块的声明部分声明了如下自定义类型和数组private type reccode as integercaption as stringend typedim arr(5) as rec则下面的输出语句中正确的是

  A.print arr.code(2),arr.caption(2)

  B.print arr.code,arr.caption

  C.print arr(2).code,arr(2).caption

  D.print code(2),caption(2)

  开始考试点击查看答案
• 8下面程序运行时，若输入395，则输出结果是private sub comand1_click()dim x%x=inputbox("请输入一个3位整数")print x mod 10,x100,(x mod 100)10end sub

  A.3 9 5

  B.5 3 9

  C.5 9 3

  D.3 5 9

  开始考试点击查看答案
• 9某人编写了下面的程序，希望能把text1文本框中的内容写到out.txt文件中private sub comand1_click()open "out.txt" for output as #2print "text1"close #2end sub调试时发现没有达到目的，为实现上述目的，应做的修改是

  A.把print "text1"改为print #2,text1

  B.把print "text1"改为print text1

  C.把print "text1"改为write "text1"

  D.把所有#2改为#1

  开始考试点击查看答案
• 10窗体上有一个名为command1的命令按钮，并有下面的程序：private sub comand1_click()dim arr(5) as integerfor k=1 to 5arr(k)=knext kprog arr()for k=1 to 5print arr(k)next kend subsub prog(a() as integer)n=ubound(a)for i=n to 2 step -1for j=1 to n-1if a(j)t=a(j):a(j)=a(j+1):a(j+1)=tend ifnext jnext iend sub程序运行时，单击命令按钮后显示的是

  A.12345

  B.54321

  C.01234

  D.43210

  开始考试点击查看答案