填空题

下列程序运行后的输出结果是______。
Private Sub f(k，s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i，s)
Sum=Sum+s
Next
Print Sum
End Sub

【参考答案】

I
<上一题 目录 下一题>
热门 试题

填空题
有如下函数过程： Function gys(By Val x As Integer，By Val y As Integer) As Integer Do While y preminder=x y x=y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是______。 Private Sub Command1_Click() Dim a As Integer，b As Integer a=10:b=2 x=gys(a，b) Print x End Sub
填空题
下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Open [14] Y=3.14159 180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) [15] Next i Close #2 End Sub
相关试题