题目内容

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

查看答案

搜索结果不匹配？点我反馈

更多问题

在窗体上有三个控件：名称为Label1的标签控件、名称为Text1的文本框控件和名称为Hscroll1的水下滚动条控件。程序的功能是通过滚动条移动Label1，并把滚动条的值显示在文本框中。滚动条的值作为Label1的Left属性。程序运行时的界面如右图所示。 Private Sub form_ Load() HScroll1.Max = form1. Width HScroll1. Min= 0 HScroll1.LargeChange = 50 HScroll1.smallChange = 10 Text1.Text = HScroll1.Value HScroll1, Value =0 Label1.Left = HScroll1.Value End Sub Private Sub HScroll1【】 Text1.Text = NScroll1.【】 Label1.Left = HScroll1.Value End Sub

以下程序找出50以内所有能构成直角三角形的整数组。请在程序【】处填上正确内容。 Private Sub Command1_ Click() for a = 1 To 50 for b = a To 50 c = Sqr(a ^2 + b ^2) if【】then Print a; b; c Next b Next a End Sub

下图是应用程序的窗体，要求用户选中复选框Check1后，文本框Text1中的文字以粗体显示，选中复选框Check2后，文本框Text1中的文字以斜体显示，单击“关闭”按钮Command1后结束应用程序运行。 Private Sub Check1_ Click () if【】then Text1. FontBold = True Else Text1. FontEold =【】 End if End Sub Private Sub check2_ click() if【】then Text1. FontItalic = False Else Text1. FontItalic = True End if End sub Private Sub Command1_ Click() 【】Me End Sub

下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt复制到D盘，并取名为 a2.txt，请填宁。 Private Sub form_ Click() Dim Ch As String Open "c:\a1. txt, for【】As 10 Open "d:\a2.txt" for Output As 20 do while【】 Line Input 10, Ch 【】 Loop Close 10 Close 20 End Sub