自定义函数f的功能是计算自然数n的阶乘值，即f=n！。下面VB程序通过调用函数来计算S=1!+2!+3!+4!+5!+6!: Function f(n as integer) as long Dim j As Integer f=1 For j=1 to n f=f*j Next j End Function Private Sub Comm...

题型：单选题题类：模拟题难易度：困难

浙江省杭州市2016年信息技术高考模拟卷十四

自定义函数f的功能是计算自然数n的阶乘值，即f=n！。下面VB程序通过调用函数来计算S=1!+2!+3!+4!+5!+6!:

Function f(n as integer) as long

Dim j As Integer

f=1

For j=1 to n

f=f*j

Next j

End Function

Private Sub Command1_Click()

Dim s As Long, AS Integer

S=0

For i=1 to 6

Next i

Text1.text=str(s)

End Sub

方框中正确的语句是（）

A、s=f(i) B、s=s+f(i) C、s=f(n) D、s=s+f(n)

举一反三

小刚的支付宝账户密码忘记了，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：

①密码是六位数字，前面两位为59；

②最后两位数字相同；

③能被12和38整除。

程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏则有优惠。

用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出m层桔子总数s，输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f，并在标签Label7中给出提示是否“优惠后的费用”。运行效果如图所示：