自编程序设计题参考答案.docVIP

下载本文档

10
0
约8.17千字
约 10页
2017-08-10 发布于河南
举报
版权申诉

自编程序设计题参考答案.doc

1、本文档共10页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。 +sinx x10 ?y= 0 x=10 2x3+6 x10 程序写在命令按钮Command1的Click事件中。参考答案： Private Sub Command1_Click() Dim x As Single Dim y As Single x = Val(InputBox(please input a number)) Select Case x Case Is 10 y = Sqr(x) + Sin(x) Case Is = 10 y = 0 Case Is 10 y = 2 * x ^ 3 + 6 End Select Print y End Sub 编写一个程序，根据上网时间计算上网费用，上机时间用输入对话框输入。公式如下：同时，为了鼓励多上网，每月最多不超过600元。参考答案： Private Sub Command1_Click() Dim times As Single, money As Single times = Val(InputBox(please input a number)) Select Case times Case Is 10 money = 50 Case Is 60 money = 6 * times Case Is = 60 money = 4 * times End Select If money 600 Then money = 600 Print times, money End Sub 计算s=1+x/2+x 2/3+x 3/4+ … +x n-1/n；已知n=20，x值从键盘输入。参考答案： Private Sub Command1_Click() Dim n As Integer, x As Single, s As Single, i As Integer x = Val(InputBox(please input x)) n = Val(InputBox(please input n)) s = 0 For i = 1 To n s = s + x ^ (i - 1) / i Next i Print s End Sub 用以下公式计算Sin(x)的值，当最后一项的绝对值小10-7时停止计算。X由键盘输入。程序写在窗体的click事件中。参考答案： Private Sub Command1_Click() Dim x As Single, s As Single, item As Single, n As Integer x = Val(InputBox(please input x)) s = 0 n = 2 item = x While Abs(item) 0.0000001 s = s + item item = -item * x * x / n / (n + 1) n = n + 2 Wend Print s End Sub 编写程序，单击窗体时在窗体上打印出如下所示的图形（要求使用多重循环实现）。 * *** ***** ******* ********* ******* ***** *** * 参考答案： Private Sub Form_click() Dim i As Integer, j As Integer For i = 1 To 5 Print Space(5 - i); For j = 1 To 2 * i - 1 Print *; Next j Print Next i For i = 1 To 4 Print Space(i); For j = 1 To 9 - 2 * i Print *; Next j Print Next i