niusouti.com
某人编写了下面的程序Private Sub Commandl_click()Dim a As Integer，b As Integera=InputBox(“请输入整数”)b=InputBox(“请输入整数”)pro apro bCallpro(a+B)End SubPrivate Sub pro(n As Integer)While(n>0)Print n Mod 10；n=n＼10WendPrintEnd Sub此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位
题目
某人编写了下面的程序
Private Sub Commandl_click()
Dim a As Integer，b As Integer
a=InputBox(“请输入整数”)
b=InputBox(“请输入整数”)
pro a
pro b
Callpro(a+B)
End Sub
Private Sub pro(n As Integer)
While(n>0)
Print n Mod 10；
n=n＼10
Wend
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．把rl=n＼10改为11=n／10
D．在pro b语句之后增加语句c％=a+b，再把Call pro(a+B)改为pro c
相似考题
参考答案和解析
解析：题中定义函数proc的参数为n，因此在调用时也必须是一个变量，而不能自变量进行运算。
更多“某人编写了下面的程序Private Sub Commandl_click()Dim a As Integer,b As Integera=InputBox(“ ”相关问题
-
第1题：
有如下程序:includeusing namespace std;class Base{private:charc;public:Base(cha 有如下程序：#include ＜iostream＞using namespace std;class Base{private: char c;public: Base(char n) :c(n){} ～Base() { cout＜＜c; } };class Derived: public Base{private: char c; public: Derived(char n):Base(n+1),c(n) {} ～Derived() { cout＜＜c; }};int main (){ Derived obj ('x'); return 0;}执行上面的程序净输出
A．xy
B．yx
C．x
D．y
正确答案：A
解析：在C++中，由于析构函数不能被继承，因此在执行派生类的析构函数时，基类的析构函数也将被调用。执行顺序是先执行派生类的析构函数，再执行基类的析构函数，其顺序与执行构造函数的顺序正好相反。在此题的程序中，在主函数main结束时，派生类Derived对象obj将被删除，所以就会调用对象的析构函数。先调用派生类的析构函数，输出x，然后调用基类的析构函数，输出y。 -
第2题：
模块级变量的声明既可以用关键字Private,也可以用关键字Dim。( )此题为判断题(对，错)。
正确答案：正确
-
第3题：
以下操作中，体现自动装箱技术的是（）。
A．Integer A = new Integer(20);
B．Integer A = Integer.valueOf(20);
C．int a = 15;
D．Integer A = 15;
B集装箱比容反映了封闭式集装箱装载能力的指标。 -
第4题：
有如下程序:includeusing namespace std;class Base{private:char c;public:Base(ch 有如下程序:#include ＜iostream＞using namespace std;class Base{private: char c;public: Base(char n):c(n){} ～Base() { cout＜＜c; }};class Derived: public Base{private: char c;public: Derived(char n):Base(n+1),c(n){} ～Derived() { cout＜＜c; }};int main(){ Derived obj('x'); return 0; }执行上面的程序将输出( )。
A．xy
B．yx
C．x
D．y
正确答案：A
-
第5题：
14、以下操作中，体现自动装箱技术的是（）。
A．Integer A = new Integer(20);
B．Integer A = Integer.valueOf(20);
C．int a = 15;
D．Integer A = 15;
Integer A = 15;