运行下列程序:
Private Sub form_Click()
Dim sl As String, s2 As String
s1 = "1234"
m = 0
For i = 3 To 1 Step -1
m = m + 1
s2 = fun1(s1, m)
Debug.Print s2;
Next i
End Sub
Private Function fun1(x, y) As String
fun1 = Right(x, y)
End Function
单击窗体后,则在立即窗口内显示结果是()。
A. 1234
B. 4321
C. 434234
D. 1111
运行下列程序:
Private Sub Form_Click()
Dim x As Integer, y As String, z As String
y = "12345"
For x = 1 To Len(y)
z = Mid(Left(y, x), 1)
Next x
Print z
End Sub
单击窗体后,则在窗体上显示的结果是()。
A. 1
B. 11111
C. 55555
D. 12345
高压电工考试 判断题 电流互感器可以将电力系统的一次大电流按一定的变比换成二次较小电流,供给测量表计和继电器()