在R、L、C串联电路中,当XL=XC时,比较电阻上UR和电路总电压U( U不为0)的大小为()
第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题:
下面各被调用函数首部书写正确的是( )
A.void sub(float x;float y);
B.void sub(float x,y)
C.void sub(float x,float y)
D.void sub(float x,float y);
第3题:
有以下程序:
Private Sub Form_Activate()
For j=1 to 3
x=3
For i=l to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。
第4题:
有如下程序: 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
第5题:
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x+20 End Sub Private Sub s2() Dim x As Integer x=X+20 End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
A.10
B.30
C.40
D.50
第6题:
阅读下列程序。
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=l to 3
For k=l to 3
If j=k then x(j,k)=l
If j<>k then x(j,k)=k
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(x() )
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时,输出结果为【 】
第7题:
以下能够正确计算n!的程序是
A.Private Sub Command1_Chck( ) n=5:x=1 Do x=x*i i=i+1 Loop While i<n Print x End Sub
B.Private Sub Command1_Click( ) n=5:x=1:i=l Do x=x*i i=i+1 Loop While i<n Print x End Sub
C.Private Sub Command1_Click( ) n=5:x=1:i=l Do x=x*i i=i+1 Loop While i<=n Print x End Sub
D.Private Sub Command1_Click( ) n=5:x=1:i=l Dox=x*i i=i+1 Loop While i>n Print x End Sub
第8题:
(33)下列子过程语句的说明正确的是A.Sub f1(By Val x()As Integer) B.Sub f1(X%())As IntegerC.Function f1l%(f1%) D.Function f1%(x As Integer)
第9题:
有以下程序:
int sub(int n) { return(n/10+n%10); }
main()
{ int x, y;
scanf("% d", &x);
y=sub(sub(sub(x)));
printf("% d\n", y);
}
若运行时输入:1234<回车>,程序的输出结果是【 】。
第10题:
以下能够正确计算n! 的程序是( )。
A.Private Sub Command1_Click( ) n=5:x=l Do x=x*i i=i+1 Loop While i < n Print x End Sub
B.Private Sub Command1_Click( ) n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i < n Print x End Sub
C.Private Sub Command1_Cliek( ) n:5:x=1:i=1 Do x=x* i i:i+1 Loop While i < = n Print x End Sub
D.Private Sub Command1_Cliek( ) n=5:x:1:i=1 Do x=x*i i=j+1 Loop While i > n Print x End Sub