（35）某人编写了下面的程序Private Sub Command1_Click( )Dim a As Integer, b As Integera=InputBox("请输入整数")b=InputBox("请输入整数")pro apro bCall pro(a+b)End SubPrivate Sub pro(n As Integer)While (n>0)Print n Mod 10;n=n\10WendPrintEnd Sub此程序功能是：输入 2 个正整数，反序输出这2 个数的每一位数字，再反序输

题目

（35）某人编写了下面的程序

Private Sub Command1_Click( )

Dim a As Integer, b As Integer

a=InputBox("请输入整数")

b=InputBox("请输入整数")

pro a

pro b

Call pro(a+b)

End Sub

Private Sub pro(n As Integer)

While (n>0)

Print n Mod 10;

n=n\10

Wend

Print

End Sub

此程序功能是：输入 2 个正整数，反序输出这2 个数的每一位数字，再反序输出这 2 个数之和的每一位数

字。例如：若输入 123 和 234，则应该输出：

3 2 1

4 3 2

7 5 3

但调试时发现只输出了前 2 行（即 2 个数的反序），而未输出第3 行（即2 个数之和的反序），程序需要修

改。下面的修改方案中正确的是（ ）。

A）把过程 pro 的形式参数 n As Integer 改为 ByVal n As Integer

B）把 Call pro(a+b)改为 pro a+b

C）把 n=n\10 改为 n=n/10

D）在 pro b 语句之后增加语句 c%=a+b，再把 Call pro(a+b)改为 pro c

相似考题

1.program exam(output); var x,y,x:integer; proedure silly(x:integer;vary:integer); begin x:=5;y:=6;z:=3; writeln(x,y,z) end; begin x:=1;y:=2;z:=3; silly(x,y); writeln(x,y,z) end. 以上程序运行结果为().A567 563B567 567C567 167D567 163

2.如果Add函数的调用代码为:func main() {var a Integer = 1var b Integer = 2var i interface{} = asum := i.(Integer).Add(b)fmt.Println(sum)}则Add函数定义正确的是()A.type Integer intfunc (a Integer) Add(b Integer) Integer { return a + b}B.type Integer intfunc (a Integer) Add(b *Integer) Integer { return a + *b}C.type Integer intfunc (a *Integer) Add(b Integer) Integer { return *a + b}D.type Integer intfunc (a *Integer) Add(b *Integer) Integer { return *a + *b}

3.下列程序的运行结果为______。 #define MS DOS #ifdef MS DOS #define INTEGER SIZE 32 #else #define INTEGER SIZE 16 #endif main () { printf ("integer_size=%d\n", INTEGER_SIZE); }A．integersize=32B．integer_size=16C．integersize=32,integer_size=16D．错误

4.下列程序中，实现将封装数据类型Integer和基本数据类型int之间的转换，以及Integer,int类型和String类型之间的转换。请将程序补充完整。程序运行结果如下：123456456public class ex7_1{public static void main(String[]args) {Integer intObj；int n；String s；intObj = new Integer(123)；n=intObj.__________；System.out.printin(Integer.toString(n))；s=new String("456")；intObj=Integer._________；System.out.println(intObj.__________)；n=Integer.parseInt(s)；System.out.println(Integer.toString(n))；}}

更多“(35)某人编写了下面的程序 Private Sub Command1_Click( ) Dim a As Integer, b As Integer a= ”相关问题

  • 第1题：

    折半查找

    function binsearch(k:keytype):integer;

    var low,hig,mid:integer;


    正确答案：

     

    begin
    low:=1;hig:=n;
    mid:=(low+hig) div 2;
    while (a[mid].key<>k) and (low<=hig) do begin
    if a[mid].key>k then hig:=mid-1
    else low:=mid+1;
    mid:=(low+hig) div 2;
    end;
    if low>hig then mid:=0;
    binsearch:=mid;
    end;

  • 第2题：

    定义一个List对象list，使用ArrayList的构造方法进行初始化，并且要求list中必须全部存放Integer类型的对象，以下语句正确的是（）。

    A．List list = new ArrayList ();

    B．List list = new ArrayList＜Integer＞();

    C．ArrayList＜Integer＞ list = new List＜Integer＞();

    D．List＜Integer＞ list = new ArrayList＜Integer＞();


    List list = new ArrayList ();

  • 第3题：

    定义一个List对象list，使用ArrayList的构造方法进行初始化，并且要求list中必须全部存放Integer类型的对象，以下语句正确的是（）。

    A．List list = new ArrayList ();

    B．List list = new ArrayList＜Integer＞();

    C．List＜Integer＞ list = new ArrayList＜Integer＞();

    D．ArrayList＜Integer＞ list = new List＜Integer＞();


    A

  • 第4题：

    定义一个List对象list，使用ArrayList的构造方法进行初始化，并且要求list中必须全部存放Integer类型的对象，以下语句正确的是（）。

    A．List list = new ArrayList＜Integer＞();

    B．List list = new ArrayList ();

    C．List＜Integer＞ list = new ArrayList＜Integer＞();

    D．ArrayList＜Integer＞ list = new List＜Integer＞();


    List list = new ArrayList ();

  • 第5题：

    8、下面哪些是将分数化为浮点数的正确定义？

    A.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = a/b###SXB###B.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = (fromInteger a)/ (fromInteger b)###SXB###C.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = fromInteger (a/b)###SXB###D.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = (fromIntegral a)/ (fromIntegral b)###SXB###E.ty
    A

  • 第6题：

    11、下面哪些定义是类型正确的？

    A．f :: (Integer, Integer) -> Float f (x,y) = x / y

    B．f :: (Integer, Integer) -> Float f (x,y) = (fromInteger x) / (fromInteger y)

    C．f :: (Integer, Integer) -> Float f (x,y) = 3*x + y

    D．f :: (Integer, Integer) -> Integer f (x, y) = 3*x + y


    AFT 通常由含有一个双氢呋喃环和一个氧杂萘邻酮(香豆素)的基本架构单位构成 AFT 分为 黄曲霉毒素B1(AFB1)、黄曲霉毒素 B2 (AFB2) 黄曲霉毒素G1(AFG1)、黄曲霉毒素 G2(AFG2) 黄曲霉毒素M1(AFM1)、黄曲霉毒素 M2(AFM2) B1、G1的呋喃环氢键异构。M1型氢键变为羟基。 1比2呋喃环上多了一个双键。

相关内容