填空题以下程序计算自然数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 = termEnd Sub
填空题下面的程序是找出两个正整数a和b，使得a＜b、a+ b=99、a和b的最大公约数是3的倍数，并统计满足条件数对的个数。
Option Explicit
Dim a As Integer, b As Integer, n As Integer, c As Integer
Private Function Gcd (ByVal a As Integer, Byval b As Integer) As Integer
do
c=a Mod b: a=b=c
Loop
________
Gcd=a
End Function
Private Sub form_ Click()
n=0
for a= 1 To 49
b=
________
c= Gcd (a, b)
if c Mod 3= 0 then
________
Print a, b, c
End if
Next a
Print n
End Sub
填空题为了便于对照检杏，测试用例应由输人数据和预期的______两部分组成。
填空题在Visual FoxPro的查询设计器中【4】选项卡对应的SQL短语是WHERE。
填空题以下程序段的功能为，输入8个数给数组a,然后采用插入排序算法，将数组a中的数按照升序排列存入数组b中。请填空。 Private Sub Command1_Click () Dim a(1 To 8), b(1 To 8) For i = 1 To 8 a(i) = InputBox("请输入") Print a(i) Next i Print For i = 1 To 8 s = 1 For j = 1 To 8 If______Then s = s + 1 End If Next j ______ Next i End Sub
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。PrivateSubCommand1_Click()DimrAsInteger，nAsIntegern=Textlr=Text2Text3=fun(n)/fun({{U}}【9】{{/U}})/fun(r)EndSubFunctionfun(nAsInteger)AsLongDimtAsLong{{U}}【10】{{/U}}Fork=1Tont-t*kNextfun=tEndFunction
填空题用链表表示线性表的突出优点是{{U}} 【1】 {{/U}}。
填空题某二叉树有5个度为2的节点及3个度为1的节点，则该二叉树中共有______个节点。
填空题软件测试是保证软件质量的重要手段，而软件测试的主要和重要的测试方法是通过测试数据和 【4】 的设计宋实现。
填空题以下程序的功能是每隔一定的时间在窗体的文本框中显示当前时间，刷新的时间间隔由滚动条来设定。窗体中有三个控件：文本框控件Text1用来显示当前时间，水平滚动条控件Hscroll1用来设置Timer1控件发生Timer事件的时间间隔，计时器控件Timer1用来控制每隔一定的时间在Text1中显示一次时间。程序运行的界面如图20-11所示，代码如下，请填空。PrivateSubHScroll1_Change()Timer1．Interval={{U}}【8】{{/U}}EndSubPrivateSubTimer1_{{U}}【9】{{/U}}()Text1．Text=TimeEndSub
填空题编写如下通用过程： Sub proc(By Val num As Long，ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num/ 10 Loop ren=k End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim n As Long， r As Long n=InputBox("请输入一个整数") n = CLng(n) proc n，r Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入345，输出结果是 【15】 。
填空题在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu),然后为其设计一个子菜单项“增加菜单”(Name 属性值为mnuAdd) 另外设置一个标题为空的菜单项(控件数组)，其Name属性值为mnuDyn,Index值为0，Visible属性值为False；然后编写以下程序来实现增加菜单项的功能。
Dim IndexId As Integer
Private Sub mnuAdd_Click( )
Dim mnuCaption As String
mnuCaption = InputBox("请输入菜单项的标题")
IndexId ={{U}} 【13】 {{/U}}
{{U}} 【14】 {{/U}}mnuDyn(IndexId)
mnuDyn(IndexId) . Caption = mnucaption
mnuDyn(IndexId) .{{U}} 【15】 {{/U}}= True
End Sub
填空题下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如，输入7685,则输出5 8 6 7；输入1000，则输出0 0 0 1。请填空。 Private Sub Command1_Click() Dim x As Integer x=InputBox("请输入一个正整数") While x＞ (10) Print x Mod 10： x=x/10 Wend Print (11) End Sub
填空题在窗体上画一个列表框，然后编写如下两个事件过程： Private Sub Form_Click() List1．RemoveItem 1 List1．Removeltem 3 List1．RemoveItem 1 End Sub Private Sub Form Load() List1．AddItem "ItemA" List1．AddItem "ItemB" List1．AddItem "ItemC" List1．AddItem "ItemD" List1．AddItem "ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中所显示的项目为 【10】 。
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i=1 To 10 a(i)=i Next i Call swap( (10) ) For i=1 To 10 Print a(i); Next End Sub Sub swap(b() As Integer) n= (11) For i=1 To n/2 t=b(i):b(i)=b(n):b(n)=t (12) Next End Sub 上述程序的功能是：通过调用过程swap调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。
填空题一下程序的作用是生成一个10×10的矩阵．该矩阵主对角线上的数据为1，其余数据为0(程序运行结果如下图所示)。该程序不完整，请补充完改程序。PrivateSubCommand1_Click()Dima(10，10)AsIntegerFori=1To{{U}}【11】{{/U}}Forj=1To10If{{U}}【12】{{/U}}Then{{U}}【13】{{/U}}=1Elsea(i，j)=0EndIfNextjNextiFori=1To10Forj=1To10Printa(i，j)；NextjPrintNextiEndSub
填空题下面程序的功能是把文件file1.txt中重复的字符去掉后(即若有多个字符相同，则只保留1个)写入文件file2.txt。请填空。
Private Sub Commana1_Click()
Dim inchar As String,temp As String,outchar As String
outchar=""
Open "file1.txt" For Input As #1
Open "file2.txt" For Oulput As{{U}} {{U}} {{/U}} {{/U}}
n=LOF({{U}} {{U}} {{/U}} {{/U}})
inchar=Input$(n,1)
For k=1 To n
temp=Mid(inchar,k,1)
IfInStr(outchar,temp)={{U}} {{U}} {{/U}} {{/U}}Then
outchar=outchar & temp
End If
Next k
Ptint #2,{{U}} {{U}} {{/U}} {{/U}}
Close #2
Close #1
End Sub
填空题将一般窗体转换为MDI窗体的子窗体时要把MDIChild 属性的值设置为 【8】 。
填空题对随机文件数据存取是以【 】为单位进行操作的。
填空题把文字字符串“Hello Word”写入#1号文件，然后把回车/换行写入文件的操作应该是 (13) 。