维修电工考试
根据i=Imsinφt可知（）。A、任一时刻i总大于0B、任一时刻i总小于0C、i值在0～Im之间变化D、i值-Im～Im之间变化
题目
根据i=Imsinφt可知（）。
- A、任一时刻i总大于0
- B、任一时刻i总小于0
- C、i值在0～Im之间变化
- D、i值-Im～Im之间变化
相似问题和答案
第1题：
下面是用冒泡法将5个整数按升序排列，请将程序补充完整。
Sub GASR（）
Dim m
m=Array（10, 1, 5, 6, 7）
For i=0 To 3
For j= 【13】
If m（i） >=m（j） Then
【14】
m（i） =m（j）
m（j） =t
End If
Next j
【15】
For i=0 To 4
Print m（i）
Next i
End Sub
正确答案: 1.(i +1 To 4) 2.(t = m(i)) 3.( Next i)
第2题：
程序执行结果s的值是【 】.
Private Sub Command l-Click ()
I =0
Do
S= I +S
I = I + l
Loop Until I ＞=4
End Sub
6 解析：第一次循环结束的时候：s=0，I =l
第二次循环结束的时候：s=l，I =2
第三次循环结束的时候：s=3，I =3
第四次循环结束的时候：s=6，I =4
第四次循环结束后整个循环也就结束了，所以s的最终值为6。
第3题：
下面程序段的运行结果是【 】。
Option Base 1
Private Sub swap(a()As InteSer)
For I=1 to 10\2
t=a(i)
a(i)=a(10-1+1)
a(10-1+1)=t
Next1
End Sub
Private Sub Form_Click()
Dim x(10)As Integer
For I=1 to 10
x(i)=I*2
Next1
Swap x()
For1=1 to 10
Print x (i)
Next I
End Sub
20 18 16 14 12 10 8 6 4 2 解析：在该事件过程中，定义并生成了x数组，该数组共10个元素，分别是2 4 6 8 10 12 14 16 18 20，接着使用了不带Call的调用语句，实际参数和虚拟参数都是数组，是地址传送，在过程中访问的数组就是事件过程中的x数组。在该过程中，将数组的第一个元素和最后一个元素交换位置，依此类推，返同事件过程后输出交换后的数组全部元素。
第4题：
有如下程序： Private Sub Commandl_Click( ) Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS( ) Dim x As Integer，m As String Static y，n X=X + 1 y=y + 1 m=m &"*”：n=n&"#" Print x，y，m，n End Sub 程序运行后，输出的结果是
A．1 1 * #
B．1 1 * #
C．1 1 * # 1 1 * # 1 2 * #
D．1 1 * # 1 1 * ## 1 2 * ##
解析：当i=1时，调用函数过程DS，由于y，n为静态变量值保存，执行x=x+1；y=y+1后x=1，y=1执行m=m&"*"：n=n&"#"后，m="*"，n="#"；当I=2时同上，只是y=2，n="##"。输出结果如选项D)所示。
第5题：
下面程序段的运行结果是【 】。
Option Base 1
Private Sub Swap (a() As Integ
For I=1 to 10\2
t=a(I)
a(I)=a(10-I+1)
a(10-I+1)=t
Next I
End Sub
Private Sub Form_Click()
Dim x(10) As Integer
For I=1 to 10
x(I)=I*2
Next I
Swap x()
For I=1 to 10
Print x(I)
Next I
End Sub
20 18 16 14 12 10 8 6 4 2 解析：本题考查考生数组虚实结合的问题，在该事件过程中，定义并生成了x数组，该数组共10个元素，分别是 2 4 6 8 10 12 14 16 18 20，接着使用了不带Call的调用语句，实际参数和虚拟参数都是数组，是地址传送，在过程中访问的数组就是事件过程中的x数组。在该过程中，将数组的第一个元素和最后一个元素交换位置，依此类推，返回事件过程后输出交换后的数组全部元素。
第6题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Sub BTC（oldCopy（） As Integer, newCopy（） As Integer）
Dim i As Integer
For i=LBound（oldCopy（） ） To UBound（oldCopy（） ）
newCopy（i） =oldCopy（i）
Next i
End Sub
Private Sub Command1_Click（）
Dim m（10） As Integer, n（10） As Integer
For i=1 To 10
m（i） =i i
Next i
Call BTC（m, n）
Print n（5）
End Sub
程序运行后，单击命令按钮输出结果为（ ）。
A．0
B．2
C．10
D．25
第7题：
阅读程序： 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。
第8题：
有一过程如下:
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。参数按传值方式传递时,不改变实参中的值;按传地址的方式传递时,实参和形参指向的内容被改变。
第9题：
下面程序的输出结果是【 】。
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。
第10题：
以下能够正确计算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。