• 2022-06-01
    下列程序的运行结果为( )。 Option Base 1 Private Sub Command1_Click() a = Array(237, 126, 87, 48, 498) m1 = a(1) m2 = 1 For i = 2 To 5 If a(i) > m1 Then m1 = a(i) m2 = i End If Next i Print m1, m2 End Sub
    A: 48 42
    B: 37 14
    C: 498 5
    D: 98 4
  • C

    内容

    • 0

      图为两台三相异步电动机M1和M2的控制电路。KM1控制电动机M1启停,KM2控制电动机M2启停,M1和M2启动停止的顺序是( )。[img=323x148]17d60856153ba16.png[/img] A: M<sub >2</sub>停止后,M<sub >1</sub>才能停止 B: M<sub >2</sub>启动后,M<sub >1</sub>才能启动 C: M<sub >1</sub>启动后,M<sub >2</sub>才能启动 D: M<sub >1</sub>停止后,M<sub >2</sub>才能停止

    • 1

      渐开线直齿圆柱齿轮正确啮合条件是()。 A: m1=m2=m B: α1=α2=α C: z1=z2=z D: m1=m2=mα1=α2=α

    • 2

      下列程序代码的运行结果为( )。 Private Sub Command1_Click() For m = 1 To 10 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print a End Sub

    • 3

      下列程序执行后,其输出结果为( )。 Dim a(5) For i=0 To 4 a(i)=i+1 m=i+1 If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i) If i=2 Then a(i-1)=a(m-3) a(4)=i Print a(i); Next i A: 1 1 1 4 4 B: 1 2 3 4 1 C: 1 2 1 4 4 D: 1 1 1 4 1

    • 4

      以下程序的运行结果是 Sub s1(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer For i = 1 To 4 a(i) = i + 5 Next i s1 a() For i = 1 To 4 Print a(i) Next i End Sub