在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：Private Sub Command1_Click( )Dim n%,b,tt=1:b=1:n=2Dob=b*n∶t=t+b∶n=n+1Loop Until n>9Print tEnd Sub此程序计算并输出一个表达式的值，该表达式是（    ）。

试卷相关题目

• 1某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码下列：Function MaxValue(a( )As Integer)As IntegerDim max%∶max=1For k=2 To 10If a(k)>a(max)Thenmax=kEnd IfNext kMaxValue=maxEnd Function程序运行时，发现函数过程的返回值是错的，需要修改，下列的修改方案中正确的是（    ）。

  A.语句max=1应改为 max=a(1)

  B.语句For k=2 To 10应改为For k=1 To 10

  C.If 语句中的条件a(k)>a(max)应改为a(k)>max

  D.语句MsxValue=max应改为MaxValue=a(max)

  开始考试点击查看答案
• 2下列程序的输出结果是（    ）。Private Sub Command1_Click( )ch＄="ABCDEF"proc ch∶Print chEnd SubPrivate Sub proc(ch As String)s=“ “For k=Len(ch) To 1 Step -1s=s&Mid(ch,k,1)Next kch=sEnd Sub

  A.ABCDEF

  B.FEDCBA

  C.A

  D.F

  开始考试点击查看答案
• 3有下列函数：Function fun(a As Integer, n As Integer)As IntegerDim m As IntegerWhile a>=na=a-n∶m=m+1Wendfun=mEnd Function该函数的返回值是（    ）。

  A.a乘以n的乘积

  B.a加n的和

  C.a减n的差

  D.a除以n的商（不含小数部分）

  开始考试点击查看答案
• 4为达到把a、b中的值交换后输出的目的，某人编程下列：Private Sub Command1_Click( )a%=10:b%=20Call swap(a,b):Print a,bEnd SubPrivate Sub swap(ByVal a As Integer,ByVal b As Integer)c=a:a=b:b=cEnd Sub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是（    ）。

  A.调用swap过程的语句错误，应改为Call swap a,b

  B.输出语句错误，应改为Print"a","b"

  C.过程的形式参数有错，应改为swap(ByRef a As Integer,ByRef b As Integer)

  D.swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a

  开始考试点击查看答案
• 5下列程序执行时，在窗体上显示的是（    ）。Private Sub Command1_Click( )Dim a(10)For k=1 To 10a(k)=11-kNext kPrint a(a(3)a(7)Mod a(5))End Sub

  A.3

  B.5

  C.7

  D.9

  开始考试点击查看答案
• 6有一个名称为Fom1的窗体，上面没有控件，设有下列程序（其中方法PSet(X,Y)的功能是在坐标X、Y处画一个点）：Dim cmdmave As BooleanPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y AsSingle)cmdmave =TrueEnd SubPrivate Sub Form MouseMove(Button As Integer,Shift As Integer,X As Single,Y AsSingle)If cmdmave ThenForm1.PSet(X,Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Singgle)cmdmave=FalseEnd Sub此程序的功能是（    ）。

  A.每按下鼠标键一次，在鼠标所指位置画一个点

  B.按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失

  C.不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线

  D.按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

  开始考试点击查看答案
• 7某人设计了下列函数fun，功能是返回参数a中数值的位数Function fun(a As Integer)As IntegerDim n%n=1While a10>=0n=n+1∶a=a10Wendfun=nEnd Function在调用该函数时发现返回的结果不正确，函数需要修改，下列修改方案中正确的是（    ）。

  A.把语句n=1改为n=0

  B.把循环条件a10>=0改为a10>0

  C.把语句a=a10改为a=a Mod 10

  D.把语句fun=n改为fun=a

  开始考试点击查看答案