填空题

以下程序计算自然数e的值，要求精确到1015，阅读下列程序。已知e的计算公式为：e=1+1/1!+1/2! + …+1/n!。请在 【6】 和 【7】 处填上正确内容。
Private Sub Commandl_ Click()
【6】
n =0: term = 1: t = 1
do
n= n +1
t=t/n
【7】
Loop while t ＞1.0E-15
Text1. Text = term
End Sub

【参考答案】

[6]
<上一题 目录 下一题>
热门 试题

填空题
下面的程序是找出两个正整数a和b，使得a＜b、a+ b=99、a和b的最大公约数是3的倍数，并统计满足条件数对的个数。Option ExplicitDim a As Integer, b As Integer, n As Integer, c As IntegerPrivate Function Gcd (ByVal a As Integer, Byval b As Integer) As Integerdoc=a Mod b: a=b=cLoop 【13】 Gcd=aEnd FunctionPrivate Sub form_ Click()n=0for a= 1 To 49b= 【14】 c= Gcd (a, b)if c Mod 3= 0 then【15】 Print a, b, cEnd ifNext aPrint nEnd Sub
填空题
下列程序实现的功能是：当在窗体上单击时，从键盘上读入5个学生的学号、姓名、英语成绩并存入到文件d： stu1.dat中，然后从文件中读出第3个人的学号、姓名和英语成绩并显示在窗体中。Type studentNo As LongName As String * 20English As IntegerEnd TypePrivate Sub form_ Click ()Dim k As student, i As Integer【8】 Open d: stu1. dat for Random As #10 Len = Reclenfor i = 1 To 5k. No= InputBox(“请输入学号”)k. Name = InputBox (“请输入姓名”)k. English= InputBox (“请输入英语成绩”)【9】 Next i【10】 Print k. No; k. Name; k. EnglishClose #10End Sub
相关试题