有如下程序段：Public Sub xy (a As Integer,b As lnteger)Dim t As IntegerDot=-a Mod ba=b：b=tLoop While tPrint aEnd Sub用Call xy(96,40)调用该通用过程后，输出结果是 【 】 。：
有如下程序段：
Public Sub xy (a As Integer,b As lnteger)
Dim t As Integer
Do
t=-a Mod b
a=b：b=t
Loop While t
Print a
End Sub
用Call xy(96,40)调用该通用过程后，输出结果是 【 】 。
：
相关考题：
有下列程序 program aa; var n:integer; b:real; begin t:=1;b:=1;n:=2; repeat b:=b*n; t:=t＋b; n:=n＋1 until n>19 end 该程序运行后,变量t中的值是下列哪个公式的结果( )。 A20!B19!C1!+2+…19!D1!+2!+…20!
有下列程序段： int n,t=1,s=0； scanf("%d",n)； do{s=s+t;t=t-2;}while(t!=n)； 为使此程序段不陷入死循环，从键盘输入的数据应该是( )。A．4,4B．2,2C．4,5D．2,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))；}}
如果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}
有下列程序段： int n，t=1，S=0； scanf("％d"，＆n)； do{s=s+t；t=t-2；while(t!=n)； 为使此程序段不陷入循环，从键盘输入的数据应该是( )。A. 任意正奇数B.任意负偶数C.任意正偶数D.任意负奇数
下列程序的运行结果为______。 #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．错误
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
与while（*s++ = *t++ );等价的程序段是A．do { *s = *t++; } while (*s++ );B．while (*t ) *s++ = *t++;C．do { *s++ = *t++; } while (*t );D．while (*s ) *s++ = *t++;
11、下面哪些定义是类型正确的？A．f :: (Integer, Integer) - Float f (x,y) = x / yB．f :: (Integer, Integer) - Float f (x,y) = (fromInteger x) / (fromInteger y)C．f :: (Integer, Integer) - Float f (x,y) = 3*x + yD．f :: (Integer, Integer) - Integer f (x, y) = 3*x + y