设有以下函数过程Function fun(a As Integer,b As Integer)Dim c As IntegerIf a<b Thenc=a:a=b:b=cEnd Ifc=0Doc=c+aLoop Until c Mod b=0fun=cEnd function若调用函数fun时的实际参数都是自然数，则函数返回的是

试卷相关题目

• 1在窗体上画1个命令按钮，并编写如下事件过程：Private Sub Command1_Click()Dim a(3,3)For m=1 To 3For n=1 To 3If n=m Or n=4-m Thena(m,n)=0End IfPrint a(m,n);Next nPrintNext mEnd Sub运行程序，单击命令按钮，窗体上显示的内容为

  A.2 0 00 4 00 0 6

  B.2 0 40 4 04 0 6

  C.2 3 03 4 00 0 6

  D.2 0 00 4 50 5 6

  开始考试点击查看答案
• 2在窗体上画1个命令按钮，并编写如下事件过程：Private Sub Command1_Click()For i=5 to 1 step -0.8Print Int(i);Next iEnd Sub运行程序，单击命令按钮，窗体上显示的内容为

  A.5 4 3 2 1 1

  B.5 4 3 2 1

  C.4 3 2 1 1

  D.4 4 3 2 1 1

  开始考试点击查看答案
• 3有如下过程代码：Sub var_dim()Static numa As IntegerDim numb As Integernuma=numa+2numb=numb+1print numa;numbEnd Sub连续3次调用var_dim过程，第3次调用时的输出是

  A.2 1

  B.2 3

  C.6 1

  D.6 3

  开始考试点击查看答案
• 4设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述正确的是

  A.程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加

  B.程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少

  C.由于滚动条的Max属性值下于Min属性值，程序会出错

  D.由于滚动条的Max属性值下于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动

  开始考试点击查看答案
• 5设窗体上有名称为Option1的单选按钮，且程序中有语句：If Options.Value=True Then下面语句中与该语句不等价的是

  A.If Option.Value Then

  B.If Option1=True Then

  C.If Value=True Then

  D.If Option1 Then

  开始考试点击查看答案
• 6窗体上有1个名称为Text1的文本框；1个名为Timer1的计时器控件，其Interval属性值为5000，Enable属性值是True。Timer1的事件过程如下：Private Sub Timer1_Timer()Static flag As IntegerIf flag=0 Then flag=1flag=-flagIf flag=1 ThenText1.ForeColor=&amp;HFF&amp;  ‘&amp;HFF&amp;为红色ElseText1.ForeColor=&amp;HC000&amp; ‘&amp;HC000&amp;为绿色End IfEnd Sub以下叙述正确的是

  A.每次执行些事件过程时，flag的初始值为0

  B.flag的值只可能取0或1

  C.程序执行后，文本框的文字每5秒改变一次颜色

  D.程序有逻辑错误，Else分支总也不能被执行

  开始考试点击查看答案
• 7为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：Private Sub Command1_Click()Dim a%,s%,k%s=1a=2For k=2 To 10a=a*2s=s+aNext kText1.Text=sEnd Sub执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是

  A.把s=1改为s=0

  B.把For k=2 To 10改为For k=1 To 10

  C.交换语句s=s+a和a=a*2的顺序

  D.同时进行B）、C）两种修改

  开始考试点击查看答案
• 8标准模块中有如下程序代码：Public x As Integer,y As IntegerSub var_pub()x=10:y=20End Sub在窗体上有1个命令按钮，并有如下事件过程：Private Sub Command1_Click()Dim x As IntegerCall var_pubx=x+100y=y+100Print x;yEnd Sub运行程序后单击命令按钮，窗体上显示的是

  A.100 100

  B.100 120

  C.110 100

  D.110 120

  开始考试点击查看答案
• 9设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：Function fun(a As Integer,b As Integer)While a>ba=a-bWendfun=aEnd Function在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是

  A.把a=a-b改为a=b-a

  B.把a=a-b改为a=ab

  C.把While a>b改为While a

  D.把While a>b改为While a>=b

  开始考试点击查看答案
• 10下列关于通用对话框CommonDialog1的叙述中，错误的是

  A.只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开

  B.使用CommonDialog1.ShowColor方法，可以显示“颜色”对话框

  C.CancelError属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错误警告

  D.在显示“字体”对话框前，必须先设置CommonDialog1的flags属性，否则会出错

  开始考试点击查看答案