导线等值参数计算中的X0与导线的()无关
第1题:
A、Public Sub Sum(x ; y)
B、Public Sub Sum(ByVal x, ByVal y)
C、Public Sub Sum(x As Integer,y As Integer)
D、Public Sub Sum(x%, y%)
第2题:
以下程序的输出结果是【 】。
main()
{ int x=0;
sub(&x,8,1);
printf(“%d\n”,x);
}
sub(int *a,int n,int k)
{ if(k<=n)sub(a,n/2,2*k);
*a+=k;
}
第3题:
下列过程定义语句中,参数不是对象的定义语句是( )。
A.Sub Pro4(x As Form)
B.Sub Pro4(y As Control)
C.Sub Pro4(Form1 As Form,Labell As Control)
D.Sub Pro4(x As Currency)
第4题:
以下程序的输出结果是( )。
include<stdio.h>
main()
fint x=0;
sub(&x,16,2);
printf("%d\n",x);
}
sub(int*a,int n,int k)
{if(k<=n) sub(a,n/2,2*k);
*a+=k;
}
第5题:
窗体上有两个水平滚动条HV、HT,还有一个文本框Text1和一个标题为“计算”的命令按钮Command1,并编写了下列程序: Private Sub Command1_Click() Call cale(HV.Value,HT.Value) End Sub Public Sub cale(x As Integer,y As Integer) Text1.Text=x*y End Sub 运行程序,单击“计算”按钮,可根据速度与时间计算出距离,并显示计算结果。对以上程序,下列叙述中正确的是( )。
A.过程调用语句不对,应为cale(HV.HT)
B.过程定义语句的形式参数不对,应为Sub cale(x As Contro1,y As Control)
C.计算结果在文本框中显示出来
D.程序不能正确运行
第6题:
A、Pa0/sub2/supsubno<60mHl.PaCO/sub2/supsubno>50mmlg
B、Pa0/sub2/supsubno<60mHgPaCO/sub2/supsubno<45mmg
C、Pa0/sub2/supsubno<60mmHgPaCO/sub2/supsubno>50mmH
D、Pa0/sub2/supsubno<60mHg、PaCO/sub2/supsubno<45mmHg
E、Pa0/sub2/supsubno<60mHg、PaC0/sub2supsubno45mmHg
第7题:
有如下程序: Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single,y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后,a和b的值分别为
A.0 0
B. 1 1
C.2 2
D.1 2
第8题:
下面程序: Private Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。
A.0
B.12
C.Str(z)
D.显示错误信息
第9题:
有如下程序: Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2:b=4 Call CS(a,b)End Sub Sub CS(x As Single,y As Single) t=X x=t\y y=t Mod y End Sub 程序运行后,单击命令按钮,a和b的值分别为
A.0 0
B.1 1
C.0 2
D.1 2
第10题:
在窗体上画一个名称为CoilTlilandl的命令按钮,然后编写如下事件过程: Private Sub command1 Click() Dim m As Integer, i As Integer, x(3)As Integer For i=0 To 3:x(i)=i:Next i For i = 1 To 2: Call sub1(x,i):Next i For i = 0 To 3: Print x(i);: Next i End Sub Private Sub sub1(a()As Integer,k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j < 2 End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
A.0 3 7 5
B.0 1 2 3
C.3 2 4 5
D.0 5 8 3