小明在一张日历上圈出一个竖列且相邻的三个日期,算出它们的和是48,则这三天分别是 [ ]
A.6,16,26
B.15,16,17
C.9,16,23
D.不确定
答案:C
8,4,4,6,15,( )
A.24
B.30
C.48
D.60
完成下列问题:
在考生目录下有一个工程文件sjt4.vbp,窗体如图5所示。其功能是单击“输入数据”按钮,则可输入一个整数n(要求:8<=n<=12);单击“计算”按钮,则计算1!+2!+3!+…+n!,并将计算结果显示在文本框中;单击“存盘”按钮,则把文本框中的结果保存到考生目录下的out4.dat文件中。
文件中已经给出了所有控件和程序,但程序不完整,在程序中的横线处填写正确的内容,并编写“计算”按钮的Click事件过程。 注意:不得修改已经存在的内容和控件属性,在结束程序运行之前,必须用“存盘”按钮存储计算结果,否则无成绩。最后把修改后的文件按原文件名存盘。 [题目提供的源程序] Dim n As Integer Private Sub Command1_Click() n=Val(InputBox("请输入整数(8-12)", "输入")) If n> (1) Or n<8 Then MsgBox("数据错误,请重新输入") Command2.Enabled=False Command3.Enabled=False Else Command2.Enabled=True Command3.Enabled=True End If End Sub Private Sub Command2_Click() Dim s As Long, k As Integer ’考生应编写的程序 End Sub Function f(n As Integer) As Long s= (2) For k=2 To n s=s*k Next f= (3) End Function Private Sub Command3_Click() Open App.Path & "\out4.dat" For Output As #1 Print #1, n, Text1 Close #1 End Sub