填空题

设有以下函数过程：
Function fun(m As Integer)As Integer
Dim k As Integer, sum As Integer
sum=0
For k=m To 1 Step-2
sum=sum+k
Next k
fun=sum
Fnd Function
若在程序中用语句s=fun(10)调用此函数，则s的值为______。

【参考答案】

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

填空题
在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1. Filter= All Files(*.*)|*.*|Text Files _ ＆ (*. txt)*. txt |Batch Files(*. bat)|*. bat CommonDialog1. FilterIndex=1 CommonDialog1. ShowOpen MsgBox CommonDialog1. FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是______：如果在对话框中选择d盘temp目录下的tel. txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是______。
填空题
下面程序段的作用是从文本框中输入数据，如果该数据满足条件：除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() num=Val(Text1.Text) If ______ Then Print num Else Text1. Text= ______ End If End Sub
相关试题