某人编写了下面的程序Private Sub Command1_Click( )  Dim a As Integer, b As Integer  a=InputBox("请输入整数")  b=InputBox("请输入整数")  pro a  pro b  Call pro(a+b)End SubPrivate Sub pro(n As Integer)  While (n>0)    Print n Mod 10;    n=n10  Wend  PrintEnd Sub此程序功能是：输入 2个正整数，反序输出这 2 个数的每一位数字，再反序输出这 2个数之和的每一位数字。例如：若输入 123 和234，则应该输出：3 2 14 3 27 5 3但调试时发现只输出了前 2 行（即2 个数的反序），而未输出第 3 行（即2 个数之和的反序），程序需要修改。下面的修改方案中正确的是（    ）。

试卷相关题目

• 1为计算 a 的值，某人编写了函数 power如下：Private Function power (a As Integer, n As Integer) As Long  Dim p As Long  p=a  For k=1 To n    p=p*a  Next k  power=pEnd Function在调试时发现是错误的，例如 Print power(5,4)的输出应该是 625，但实际输出是 3125。程序需要修改。下面的修改方案中有 3 个是正确的，错误的一个是（    ）。

  A.把 For k=1 To n 改为 For k=2 To n

  B.把 p=p*a改为 p=p^n

  C.把 For k=1 To n 改为 For k=1 To n-1

  D.把 p=a 改为 p=1

  开始考试点击查看答案
• 2假定有以下函数过程：Function Fun(S As String)As StringDim s1 As StringFor i=1 To Len(S)s1=LCase(Mid(S, i, 1))+s1  Next iFun=s1End Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim Str1 As String, Str2 As StringStr1=InputBox("请输入一个字符串")Str2=Fun(Str1)Print Srt2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为（    ）。

  A.ABCDEFG

  B.abcdefg

  C.GFEDCBA

  D.gfedcban

  开始考试点击查看答案
• 3某人为计算 n!(0<n<=12)编写了下面的函数过程：Private Function fun(n As Integer) As Long  Dim p As Long  p=1  For k=n-1 To 2 Step-1    p=p*k  Next k  fun=pEnd Function在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3 种是正确的，错误的方案是（    ）。

  A.把 p=1 改为 p=n

  B.把 For k=n-1 To 2 Step-1 改为 For k=1 To n-1

  C.把 For k=n-1 To 2 Step-1 改为 For k=1 To n

  D.把 For k=n-1 To 2 Step-1 改为 For k=2 To n

  开始考试点击查看答案
• 4设有如下通用过程：Public Function Fun(xStr As String)As String  Dim tStr As String, strL As Integer  tStr=""  strL=Len(xStr)  i=1  Do While i<=strL/2    tStr=Tstr &amp; Mid(xStr, i, 1)&amp; Mid(xStr, strL-i+1, 1)    i=i+1  Loop  Fun=tStrEnd Function在窗体上画一个名称为 Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click( )  Dim S1 As String  S1="abcdef"  Print UCase(Fun(S1))End Sub程序运行后，单击命令按钮，输出结果是（    ）。

  A.ABCDEF

  B.abcdef

  C.AFBECD

  D.DEFABC

  开始考试点击查看答案
• 5在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click( )  Dim a  a=Array(1, 2, 3, 4)  j=1  For i=4 To 1 Step -1    s=s+a(i)*j    j=j*10  Next i  Print sEnd Sub运行上面的程序，其输出结果是（    ）。

  A.1234

  B.12

  C.34

  D.4321

  开始考试点击查看答案