填空题

设有以下函数过程： 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 End Function 若在程序中用语句s=fun(10)调用此函数，则s的值为 _________。

【参考答案】

30

<上一题目录下一题>

热门试题

单项选择题

阅读程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2) For i = 1 To 3For j = 1 To 2 arr(i, j) = i * 2 + jNext j Next i ReDim Preserve arr(3, 4) For j = 3 To 4arr(3, j) = j + 9Next j Print arr(3, 2) + arr(3, 4) End Sub程序运行后，单击窗体，输入结果为______。

A．21
B．13
C．8
D．25

单项选择题

假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：Private Type animalanimalName As String*20aColor As String*10End Type在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click()Dim rec As animalOpen c: vbTest.dat For Random As #1 Len = Len(rec)rec.animalName = Cat rec.aColor = White Put #1, , recClose #1End Sub则以下叙述中正确的是（）。

A．记录类型animal不能在Form1中定义，必须在标准模块中定义
B．如果文件c:\vbTest.dat不存在，则Open命令执行失败
C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D．语句“Put #1, , rec”将animal类型的两个数据元素写到文件中

相关试题