ABm型分子中,m=6,中心原子采取sp3d2杂化方式,则分子的空间几何构型是()。
第1题:
单击命令按钮时,下列的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=86: y=29
Call Proc(x, y)
Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub( )。
A.12 32
B.6 29
C.2 3
D.12 3
第2题:
若要在子过程Procl调用后返回两个变量的结果,下列过程定义语句中有效的是______。
A.Sub Procl(n, m)
B.Sub Procl(ByVal n, m)
C.Sub Procl(n, ByVal m)
D.Sub Procl(ByVal n, ByVal m)
第3题:
( 33 )若要在子过程 Procl 调用后返回两个变量的结果,下列过程定义语句中有效的是
A Sub Procl(n,m)
B Sub Procl(ByVal n,m)
C Sub Procl(n,ByVal m)
D Sub Procl(ByVal n,ByVal m)
第4题:
有如下事件过程: Private Sub Command1_Click( ) Dim m AS Integer,n AS Integer m=2:n=1 Print "m=";m;"n=";n Call TOD(m,n) Print "m=";m;"n=";n End Sub Sub TOD(x,y) x=x^2 y=y^3 End Sub 程序运行后,输出的结果为
A.m=2,n=1 m=1,n=2
B.m=2,n=1 m=4,n=1
C.m=1,n=2 m=1,n=4
D.m=1,n=2 m=2,n=4
第5题:
以下程序的运行结果是
sub(int x,int y,int *z)
{*z=y-x;}
main()
{ int a,b,c;
sub(10,5,&a);
sub(7,a,&b);
sub(a,b,&c);
printf("M,M,M\n",a,b,c);}
A.5,2,3
B.-5,-12,-7
C.-5,-12,-17
D.5,-2,-7
第6题:
下面是用冒泡法将5个整数按升序排列,请将程序补充完整。
Sub GASR()
Dim m
m=Array(10, 1, 5, 6, 7)
For i=0 To 3
For j= 【13】
If m(i) >=m(j) Then
【14】
m(i) =m(j)
m(j) =t
End If
Next j
【15】
For i=0 To 4
Print m(i)
Next i
End Sub
第7题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() m=1:n=1 Print"m="; m; ", n="; n Call subl((m), n) Print "m="; "; ", n="; n End Sub Private Sub subl(x, y) x=x+5 y=y+x Print "x="; x;", y="; y End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是______。
A.m=1, b=1 x=6, y=7 m=1, b=1
B.m=1, b=1 x=6, y=7 m=6, b=7
C.m=1, b=1 x=6, y=7 m=1, b=7
D.m=1, b=1 x=6, y=7 m=6, b=1
第8题:
若要在子过程Procl调用后返回两个变量的结果,下列过程定义语句中有效的是( )。
A.Sub Proc1(n,m)
B.Sub Proc1(ByVal n,m)
C.Sub Proc1(n,BYVal m)
D.Sub Proc1(ByVal n,ByVal m)
第9题:
运行以下程序后,输出结果为_____________。 Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print "main:";a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub:";p;m;n End Function
:A. sub:2 6 4 main:1 2 3
B. sub:2 6 4 main:2 2 3
C. sub:2 6 4 main:2 6 4
D. sub:2 6 4 main:1 6 4
第10题:
在窗体上画一个命令按钮,然后编写如下代码:
Private Sub Commandl_Click()
Dim M(10) As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Msgbox M(2+M(x))
End Sub
程序运行后,单击命令按钮,消息框显示的是______。