第1题:
(26)编写下列事件过程和函数过程Private Sub Command1_Click() Dim num(1 TO 6)As Single Num(1)=103:Num(2)=190:Num(3)=0: Num(4)=32:Num(5)=-56:Num(6)=100: Print Print p2(6,num()) End Sub Private Function p2(By Val n Integer,number()As Single)As Integer P2=number(1) For j=2 To n If number(j)<p2 Then p2=number(j) Next j End Function 程序运行后,在窗体上输出 A.-56 B.0 C.103 D.190
第2题:
设有如下定义和声明: struct 3 {int a; struct s *next }; struct s x[4]={1,&x[1],3,& x[2],5,&x[3],7,'\0'),*t; t=&x[0]; 则下列表达式值为2的是( )
A.++t->a
B.(*t).a++
C.t->a++
D.t++->a
第3题:
下列程序段的执行结果为_______。 A=0:B=0 For I=-1 To -2 Step -1 For J=1 To 2 B=B+1 Next J A=A+1 Next I Print A;B
A.2 4
B.-2 2
C.4 2
D.2 3
第4题:
执行下列程序段后,输出的结果是 For k1 = 0 To 4 y =20 For k2 = 0 To 3 y=10 For 16 = 0 To 2 y=y+10 Next Next Next Print y
A.90
B.60
C.40
D.10
第5题:
执行下列程序段后,输出的结果是( )。 Forkl=0 To 4 y=20 For k2=0 To 3 y=10 Fork3=0 To 2 y=y+10 Next k3 Next k2 Next k1 Print y
A.90
B.60
C.40
D.10
第6题:
在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1 Click( ) Dim a(3,3) For m=1 To 3 For n=1 To 3 If n=m or n=4—m Then a(m.n)=m+n Else a(m,n)=0 End If Print a(m,n); Next n Print Next m End Sub 运行程序,单击命令按钮,窗体上显示的内容为( )。
A.2 0 0 0 4 0 0 0 6
B.2 0 4 0 4 0 4 0 6
C.2 3 0 3 4 0 0 0 6
D.2 0 0 0 4 5 0 5 6
第7题:
设有如下程序: Private Sub Commandl Click() Dimsum As Double,x As D0uble sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值,这个表达式是______。
A.1+1/2+2/3+3/4+4/5
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5
D.1+1/2+1/3+1/4+1/5
第8题:
When building a NIC team (virtual port channel) between a host and a pair of Cisco Nexus 5000 Series Switches that will carry FCoE traffic, what is the maximum number of physical links that can exist in the team?()
第9题:
第10题:
1/2
4
8
16
32
第11题:
第12题:
第13题:
(24)有下列程序段,其输出结果是 a=0:b=0 For i=-1 To -2 Step -1 For j=1 To 2 b=b+1 Next j a=a+1 Next i Print a;bA.2 3 B.-2 2 C.4 2 D.2 4
第14题:
设有如下程序: Private Sub Command1_Click() Dim sum As Double,x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值,这个表达式是 ______。
A.1+1/2+2/3/4+4/5
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5
D.1+1/2+1/3+1/4+1/5
第15题:
单击一次命令按钮之后,下更程序代码的执行结果为______ 。 Public Sub Proc(a() As Integer) Static i As Integer Do a(i) = a(i) + a(i + 1) i=i+1 Loop While i < 2 End Sub Private Sub Command1_Cliek() Dim m As Integer Dim i As Integer Dim x(10) As Integer For i = 0 To 4 x(i) = i + 1 Next i For i = 1 To 2 Call Proc (x) Next i For i = 0 To 4 Print x(i); Next i End Sub
A.3 4 7 5 6
B.3 5 7 4 5
C.1 2 3 4 5
D.1 2 3 5 7
第16题:
单击一次命令按钮后,下列程序的执行结果为
Private Sub Command1_Click()
Dim m As Integer,I As Integer,x(10) As Integer
For I=0 To 4:x(I)=I+1:Next I
For I=1 TO 2:Call Prioc(x):Next I
For I=0 TO 3:Print x(I);:Next I
End Sub
Private Sub Prioc(a()As Integer)
Static I As Integer
Do
a(I)=a(I)+a(I+1)
I=I+1
Loop While I<2
End Sub
A.3 4 7 5
B.3 5 7 4
C.1 2 3 4
D.1 2 3 5
第17题:
以下程序段的执行结果是 ______。 Dim A(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 3 - m + 1 Then A(m, n) =m + n Else A(m, n) = 0 End If Next n Next m For m = 1 To 3 For n = 1 To 3 Print A(m, n); Next n Print Next m
A. 1 1 1 1 1 1 1 1 1
B.2 0 4 0 4 0 4 0 6
C.0 0 0 0 0 0 0 0 0
D.1 0 1 0 1 0 1 0 1
第18题:
编写下列事件过程和函数过程:
Private Sub Commandl Click()
Dim num(1 To 6)As Single
num(1)=103:num(2)=190:num(3)=0
num(4)=32:num(5)=-56:num(6)=100
Print p2(6,num())
End Sub
Private Function p2(ByVal n As Integer,number()As Single)As Integer
p2=number(1)
For j=2 To n
If number(j)<p2 Then p2=number(j)
Next j
End Function
程序运行后,在窗体上输出( )。
A.-56
B.0
C.103
D.190
第19题:
编写如下事件过程和函数过程: Private Sub Command1_Click() Dim num(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 num(4)=32:num(5)=-56:num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(By Val n As Integer, number() As Single) As Integer p2=number(1) For j=2 To n If number(j)<p2 Then p2=number(j) Next j End Function 程序运行后,在窗体上输出( )。
A.-56
B.0
C.103
D.190
第20题:
What is the maximum number of NET addresses supported on a virtual router?()
第21题:
5:8
3:4
3:5
2:3
1:3
第22题:
第23题: