原创力文档- 1、本文档共160页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
第一、Const y0& = 1110, x0& = 1100, radius& = 750
Private Function oncircle(X As Single, Y As Single) As Boolean
precision = 55000
If Abs((X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) - radius * radius) < precision Then
oncircle = True
Else
oncircle = False
End If
End Function
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Const LEFT_BUTTON = 1
If oncircle(X, Y) Then
Line1.X1 = x0
Line1.Y1 = y0
If Button = LEFT_BUTTON Then
Line1.X2 = X
' Line1.Y2 = ? ***** Y *****
Else
' Line1.X2 = Line1.? ***** X1 *****
' Line1.Y2 = y0 - ? ***** radius *****
End If
Label1.Caption = ""
Else
' ? = "鼠标位置不对" ***** label1.caption *****
End If
End Sub
（2）在考生目录下有一个工程文件sjt4.vbp，窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数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 > ? Or n < 8 Then ***** 12 *****
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
*****'考生应编写的程序*****
S=1
For k=2 to n
S=s+f(k)
Next k
Text1.text=s
*****End Sub*****
Function f(n As Integer) As Long
' s = ? ***** 1 *****
For k = 2 To n
s = s * k
Next
' f = ? ***** s *****
End Function
Private Sub Command3_Click()
Open App.Path & "\out4.dat" For Output As #1
Print #1, n, Text1
Close #1
End Sub
第01套 综合应用题（新模1
文档评论（0）