题目内容
（请给出正确答案）
A.瞬时值；
B.有效值；
C.最大值；
D.等效值。
参考答案
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
网友提供的答案
更多“正弦交流电的数学表达式为i=Imsinwt，其中Im为（）”相关的问题
有一过程如下:
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,运行结果为【 】。
有一过程如下： Sub Subl (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 Commandl_Click() Dim tot As Long, a As Integer a = Val(InputBox ("请输入数据") Call Subl (a,tot) Print tot End Sub 则输入数据5，运行结果为【 】。
A．8
B．11
C．5
D．34
单击一次命令按钮后，下列程序的执行结果为
Private Sub Command1_Click()
Dim m As Integer，I As Integer，x(10) As Integer
For I=0 To 4：x(I)=I+1：Next I
For I=1 TO 2：Call Prioc(x)：Next I
For I=0 TO 3：Print x(I)；：Next I
End Sub
Private Sub Prioc(a()As Integer)
Static I As Integer
Do
a(I)=a(I)+a(I+1)
I=I+1
Loop While I＜2
End Sub
A．3 4 7 5
B．3 5 7 4
C．1 2 3 4
D．1 2 3 5
单击命令按钮后，下列程序代码的执行结果是______。
Public Sub fun (a As Integer, b As Integer, c As Integer)
Do
a=b+ c
n=n+1
Loop While n ＞ 3
End Sub
Private Sub command1_ click()
Dim m As Integer, n As Integer, i As Integer
For i = 0 To 2: m = n + 1: Next i
For i = 1 To 2: Call fun (m, n, i): Next i
For i = 0 To 3
Print m;
Next i
End Sub
有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5，运行结果为 ______。
A．100
B．120
C．200
D．50
请阅读程序：
Private Sub Form_Click()
m=1
For i=4 To 1 Step-1
Print Str(m)；
m=m+1
For j=1 To i
Print”*”；
Next j
Next i
End Sub
程序运行后，单击窗体，则输出结果是()。
A．1**** 2*** 3** 4*
B．4* 3** 2*** 1****
C．**** *** ** *
D．* ** *** ****
在窗体上画一个命令按钮，然后编写如下事件过程：
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
阅读程序： 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运行上面的程序，单击命令按钮，输出结果为。
执行下面的程序段，x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA．5 B．6 C．7 D．8
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
