网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
有如下函数过程： Function fun1(ByVal x As Integer,ByVal y As Integer) As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a AS Integer Dim b As Integer a=100 b=25 x=fun1(a,B) Print x End Sub
A．0
B．25
C．50
D．100
参考答案
更多 “ 有如下函数过程： Function fun1(ByVal x As Integer,ByVal y As Integer) As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a AS Integer Dim b As Integer a=100 b=25 x=fun1(a,B) Print x End SubA．0B．25C．50D．100 ” 相关考题
考题
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
考题
阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。【说明8.1】以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。【程序代码8.1】Private Sub Command1_Click()For i=1 To 20x=Int((1)*200+100)If (2)=0 ThenPrint xS=S+ (3)End IfNext iPrint"Sum=";SEnd Sub【说明8.2】程序8.2运行后，单击窗体，则在窗体上显示的内容是：a=(4)和b=(5)。【程序代码8.2】Private Sub Form_Click()Dim a As Integer,b As Integera=20:b=50p1 a,bp2 a,bp3 a,bPrint"a=";a,"b=";bEnd SubSub p1(x As Integer, ByValy As Integer)x=x+l0y=y+20End SubSub p2(ByVal×As Integer, y As Integer)x=x+l0y=y+20End SubSub p3(ByVal×As Integer, ByVal y As Integer)x=x+10y=y+20End Sub
考题
如果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}
考题
链表的定位函数loc(I:integer):pointer; {寻找链表中的第I个结点的指针}procedure loc(L:linklist; I:integer):pointer;var p:pointer;j:integer;
考题
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
热门标签
最新试卷