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

试卷相关题目

• 1下面正确使用动态数组的是

  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)

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

  A.form1_mousedown

  B.win_mousedown

  C.form_mousedown

  D.mousedown_form1

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

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

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

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

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

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

  A.这3个事件都会触发

  B.只触发keypress事件

  C.只触发keydown、keyup事件

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

  开始考试点击查看答案
• 5设窗体中有一个文本框text1，若在程序中执行了text1.setfocus，则触发

  A.text1的setfocus事件

  B.text1的gotfocus事件

  C.text1的lostfocus事件

  D.窗体的gotfocus事件

  开始考试点击查看答案
• 6要求当鼠标在图片框p1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

  A.private sub p1_mousemove(button as integer,shift as integer,x as single, y as single)print x,yend sub

  B.private sub p1_mousedown(button as integer,shift as integer,x as single, y as single)picture.print x,yend sub

  C.private sub p1_mousemove(button as integer,shift as integer,x as single, y as single)p1.print x,yend sub

  D.private sub form_mousemove(button as integer,shift as integer,x as single, y as single)p1.print x,yend sub

  开始考试点击查看答案
• 7下面程序计算并输出的是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³的和

  开始考试点击查看答案
• 8若在窗体模块的声明部分声明了如下自定义类型和数组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)

  开始考试点击查看答案
• 9下面程序运行时，若输入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

  开始考试点击查看答案
• 10某人编写了下面的程序，希望能把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

  开始考试点击查看答案