有下列函数过程:
Function Func2(a As Integer ,b As Integer)As Integer
Static m As Integer ,i As Integer
m=0
i =2
a=i +m+1
b =i +a+b
Func2=m
End Function
在窗体上画一个命令按钮,然后编写下列事件过程:
Private Sub Co mmandl_Click()
Di m P As Integer ,k As Integer ,m As Integer
k =4
m=1
P=Func2(k ,m)
Print k ;m
P=Func2(km)
Print k =m End Sub
程序运行后,单击命令按钮,输出结果是( )。
发布于 2022-05-11 10:00:08
登录后免费查看答案
关注者
0
被浏览
16
1 个回答
推荐阅读
-
阅读下列程序:Private Sub Command1_Click()Dim i As Integer, k As Integerk=2For i=1 To 3Print H(k) ;Next iEnd SubFunction H(j As Integer)a=0Static ba=a + 1b=b + 1H=a*b + jEnd Function程序运行后,单击命令按钮输出结果是
2022-05-11 关注 0 浏览18 1答案
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:Function M(x As Integer,y As Integer)As IntegerM=IIf(x>y,x,y)End FunctionPrivate Sub command1_Click()Dim a As Integer,b As Integera=100b=200Print M(a,b)End Sub 程序运行后,单击命令按钮,输出结果为______ 。
2022-05-11 关注 0 浏览19 1答案
-
在窗体上有1个名称为Command1的命令按钮,并有如下事件过程和函数过程:Private Sub Command1_Click()Dim p As Integerp = m(1) + m(2) + m(3)Print pEnd SubPrivate Function m(n As Integer) As IntegerStatic s As IntegerFor k = 1 To ns = s + 1Nextm = sEnd Function运行程序,单击命令按钮Commandl后的输出结果为 ______ 。
2022-05-11 关注 0 浏览16 1答案
-
在窗体上画一个名为Co mmand1的命令按钮,然后编写以下程序:Private Sub Co mmand1_Click()Di m M(10)As IntegerFor k =l To 10M(k)=12-kNextkx=8Print M(2+M(x))End Sub运行程序,单击命令按钮,在窗体上显示的是( )。
2022-05-11 关注 0 浏览19 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后,单击命令按钮,在窗体上显示的是
2022-05-11 关注 0 浏览17 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function fun(ByVal m As Integer)If m Mod 2 = 0 Thenfun = 2Elsefun = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integer, s As Integers = 0For i = 1 To 5s = s + fun(i)NextPrint sEnd Sub程序运行后,单击命令按钮,在窗体上显示的是( )。
2022-05-11 关注 0 浏览9 1答案
-
在窗体上画一个命令按钮,名称为Co mmand1,然后编写下列代码:Option Base 0Private Sub Co mmand1_Click()Di m A1(4)As Integer ,A2(4)As IntegerFor k =0To 2A1(k +1)=InputBox("请输入一个整数")A2(3-k)=A1(k +1)Next k Print A2(k)End Sub程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个名为 Command1 的命令按钮,然后编写以下程序:Private Sub Command1_Click( ) Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x))End Sub运行程序,单击命令按钮,在窗体上显示的是( )。
2022-05-11 关注 0 浏览13 1答案
-
设有以下函数过程:Function fun(m As Integer) As IntegerDim k As Integer, sum As Integersum = 0For k = m To 1 Step -2sum = sum + kNext kfun = sumEnd Function若在程序中用语句 s = fun(10) 调用此函数,则s的值为 ______ 。
2022-05-11 关注 0 浏览17 1答案
-
以下程序的正确运行结果是___。#includemain(){int k=4,m=1,p;p=func(k,m); printf(“%d”,p);p=func(k,m); printf(“%d\n”,p);}func(int a,int b){static int m=0,i=2;i+=m+1; m=i+a+b; return(m);}
2022-05-11 关注 0 浏览20 1答案