填空题

下面程序运行后，单击命令按钮，输出的结果是______。 Private Sub Command1_Click() Dim a%(1 To 5)，i%，s# For i=1 To 5 a(i) =i Next s=Fun(a) Print "s="；s； End Sub Function Fun(a() As Integer) Dim t#，i% t=1 For i=LBound(a) To UBound(a) t=t*a(i) Next Fun=t End Function

【参考答案】

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

填空题
在Visual Basic的立即窗口内输入以下语句：X=97 ＜CR＞Chr$(X) ＜CR＞在窗口中显示的结果是______。
填空题
设有如下程序：Private Sub Form_Click() Dim a As Integer，s As Integern=8:s=0DOs=s+n:n=n-1Loop While n＞0Print sEnd Sub以上程序的功能是计算1～8的和。程序运行后，单击窗体，输出结果为______。
相关试题