动力与电气工程
已知：Ia=1∠0°，Ib=1∠-90°，Ic=2∠135°，Ia0=（），Ia1=（），Ia2=（）。
题目
已知：Ia=1∠0°，Ib=1∠-90°，Ic=2∠135°，Ia0=（），Ia1=（），Ia2=（）。
相似问题和答案
第1题：
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
【解析】本题综合考查Sub过程的建立与调用以及数组的赋值。P过程为参数b()赋值，赋值方法为b()中的元素值等于其下标的2倍。在事件过程中，数组a(1 to 4)先被逐一赋值，然后以传地址的方式被p过程调用。在调用中，a(i)被重新按照p过程的赋值方式（即元素值等于对应下标值的2倍）赋值。由于是以传地址的方式传送a(1 to 4)，故在调用完p过程后，a(1 to 4)，故在调用完p过程后，a(1 to 4)中的元素值将保留，故空白处填：2 4 6 8。
第2题：
以下能够正确计算n!的程序是
A．Private Sub Command1 Click() n=5：x=1 Do x=x * I I=I + 1 Loop While I ＜ n Print x End Sub
B．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I ＜n Print x End Sub
C．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＜=n Print X End Sub
D．Private Sub Command1_Click() n=5：X=1：I=1 Do x=x * I I=I + 1 Loop While I＞n Print X End Sub
解析：n!=1×2×3×…×(n-1)×n，由于是累乘，因此x和i的初值都必须为1；其次就是循环执行条件的确定，由于使用的是While型循环，表示在满足条件时执行循环体中的代码，这里满足执行循环的条件应该是i=n。
第3题：
有一过程如下:
Sub Sub1(m As Integer,total As Long)
Dim i As Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
调用它的事件过程如下:
Private Sub Command1_Click()
Dim tot As Long,a As Integer
a=Val(InputBox("请输入数据"))
Call Sub1(a,tot)
Print tot
End Sub
则输入数据5,运行结果为【 】。
120 解析：考查考生对过程中参数传递方式的掌握情况。本题的难点是实参与形参的传递问题。total按ByRef参数传递。子过程的功能是计算n!,题中输入5,因此5!=120。参数按传值方式传递时,不改变实参中的值;按传地址的方式传递时,实参和形参指向的内容被改变。
第4题：
下面程序的输出结果是【 】。
Private Sub Form_Click()
i＝0
Do Until 0
i＝i＋1
if i>10 then Exit Do
Loop
Print i
End Sub
11 解析：本题主要考查Do循环语句。循环条件Do Until 0可得知这是一个无限循环，要跳出此循环，只有在循环体里面使用相关的语句。这里用的是Exit Do，从程序上看出，跳出循环的条件是i>10，而i是从0开始，每次循环加1。所以，跳出循环时i的值应该为11。
第5题：
下面程序的执行结果是______。 #define MAX 10 nt a[MAX],i； main() { printf("\n")； sub1()；sub3(A) ； sub2()；sub3(A) ； } sub1() {for(i=0;i＜1MAX;i++) a[i]-i+i； } sub2() {int a[MAX],i,max； max=5； for(i=0;i＜max;i++) a[i]=i； } sub3(int a[]) { int i； for(i=0;i＜MAX;i++) printf("%d",a[i])； printf("\n")； }
A．0 2 4 6 8 10 12 14 16 18 0 1 2 3 4
B．0 1 2 3 4 0 2 4 6 8 10 12 14 16 18
C．0 1 2 3 4 5 6 7 8 9 0 1 2 3 4
D．0 2 4 6 8 10 12 14 16 18 0 2 4 6 8 10 12 14 16 18
解析：函数sub1给全局作用范围内数组a(长度为10)的每个元素赋值，函数sub2中数组a仅在本函数范围内有效，长度也是10，但仅给前5个元素赋值，main函数调用sub3时，传递数组地址均是全局作用范围内数组a的地址，因此两次调用打印的结果相同。
第6题：
下面程序的输出结果是【 】。
Private Sub Form_Click()
i=0
Do Until 0
i=i+1
if i＞10 then Exit Do
Loop
Print i
End Sub
11 解析：这题主要考察的是Do循环语句。看循环条件Do Until 0，得到这是一个无限循环，要跳出此循环，只有在循环体里面使用相关的语句。这里用的是Exit Do
从程序上看出，跳出循环的条件足i＞10，而i是从0开始，每次循环加1。所以，跳出循环时i的值应该为 11。
第7题：
以下程序的运行结果是( ) #define MAX 10 int a[MAX]，i; main() { printf("\n");sub1()；sub3(A) ,sub2()，sub3(A) ； } sub2() { int a[MAX]，i，max； max=5； for(i=0；i＜max；i++)a[i]＝i； } sub1() {for(i=0;i＜MAX；i++)a[i]＝i+i; } sub3(int a[]) { int i; for(i=0;i＜MAX，i++)printf("%d"，a[i])； printf("\n")； }
A．0 2 4 6 8 10 12 14 16 18 0 1 2 3 4
B．0 1 2 3 4 0 2 4 6 8 10 12 14 16 18
C．0 1 2 3 4 5 6 7 8 9 0 1 2 3 4
D．0 2 4 6 8 10 12 14 16 18 0 2 4 6 8 10 12 14 16 18
第8题：
设有命令按钮Command1的单击事件过程,代码如下:
Private Sub Command1_Click()
Dim a As Integer
For i=1 To 30
a(i)=i
Next
For Each arrItem 【 】a
If arrItem Mod 7=0 Then Print arrItem;
If arritem>90 Then Exit For
Next
End Sub
请填空。
In 解析：本题考查了For Each 匩ext语句,与For 匩ext类似。但For Each 匩ext 专门用于数组或对象"集合",其一般格式为:
For Each 成员 In 数组
循环体
[Exit For]
厖
Next[成员]
第9题：
设有如下程序： Dim a()As Integer Private Sub Command1_Click() n=-5:m=6 ReDim a(n To m) For i=LBound(a，1)To UBound(a，1) a(i)=i Next i Print a(LBound(a，1))；a(UBound(a，1)) End Sub 程序运行后，单击命令按钮，则输出结果是 ______。
A．0 0
B．-5 0
C．-5 6
D．0 6
解析：ReDima(nTom)指明动态数组9的下标和上标为-5和6；则LBound(a，1)=-5、UBound(a，1)=6。故Printa(LBound(a，1))；a(UBound(a，1))输出a(-5)、a(6)的值。
第10题：
单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Integer, b As Integer For i = 1 To 6 a=i*i+i Next i Call writein(a,B)Print a, b End Sub Sub writein(a, ByValB)b = 1 For i = 1 To 6 a=b* 4 b = b + 1 Next i End Sub
A．24 6
B．24 0
C．12 6
D．12 0