填空题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请将程序补充完整。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1 {{U}}{{U}} {{/U}} {{/U}}()
Command1.Enabled=True
End Sub
填空题
下面程序运行后,单击命令按钮,输出的结果是______。
Private Sub Command1_Click()
Dim a%(1 To 5),1%,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