地高辛tsub1/2/sub为36h,每天给保持量,达稳态血药浓度的时刻约为()。
A.2d
B.3d
C.5d
D.7d
E.4d
A.2d
B.3d
C.5d
D.7d
E.4d
一台绕线转子异步电动机的技术数据为:定、转子均为Y联结,该电动机拖动反抗性恒转矩负载,TL=TN求:
(1)要求起动转矩Tm= 1.5TN时,转子每相应串入多大电阻?
(2)如果在固有机械特性上运行时进行反接制动停车,要求制动开始时的转矩TL=2TN,转子每相应串入多大电阻?
Private Sub Form_Click()
Dim last_one As Long
Dim last_two As Long
Dim this_one As Long
Dim i As Integer
last_one = 1 '数列的第二个数
last_two = 2 '数列的第三个数
i = 4 '从数列的第四个数求起
Do
this_one = last_one + last_two
last_one = last_two
last_two = ------1-------
If i = 17 Then
Form1.Print "No:17="; this_one
End If
------2------
Loop While this_one <= 100000000#
Form1.Print "No:";------3------; "is > 1E+8"
End Sub
A.(CH3)2CHCH2CHBr2
B.CH3(CH2)3CHBr2
C.Br(CH2)5Br
D.(CH3)2C(CH2Br)2
程序为:
Private Sub Form_Click()
Dim a
a = Array(1, 2, 3, 4, 5, 6, 7)
For I = LBound(a) To UBound(a)
a(I) = a(I) * a(I)
Print a(I)
Next I
End Sub
程序运行后,单击窗体后,在窗体显示的结果是:
Private Sub Form_Click()
Dim N%, N1%, N2%, I%, K1%, K2%
N = Val(InputBox("输入大于6的偶数"))
For N1 = 3 To N / 2 Step 2
K1 = ----1---
For I = 2 To K1 '判断N1是否是素数
If N1 Mod I = 0 Then ----2----
Next I
If I > K1 Then
N2 = ----3----
K2 = Int(Sqr(N2))
For I = 2 To K2
If N2 Mod I = 0 Then Exit For
Next I
If I > K2 Then Print N & "=" & N1 & "+" & N2
End If
End If
Next N1
End Sub
有一台单相变压器,额定容量SN=100kVA.额定电压U1N/U2N=6000/230V,f=50H。一,二次侧绕组的电阻和漏电抗的数值为:试求:
(1)折算到高压侧的短路电阻RK、短路电抗XK及短路阻抗ZK
(2)折算到低压侧的短路电阻RK'、短路电抗XK'及短路阻抗ZK'
(3)将上面的参数用标么值表示
(4)计算变压器的阻抗电压及各分量
(5)求满载及cosϕ1=1、cosϕ2=0.8 (滞后)及cosϕ2=0.8 (超前)等三种情况下的ΔU,并对结果进行讨论