填空题计时器事件时间的间隔通过______属性设置。
填空题菜单编辑器的“可见”选项对应于菜单控件的______属性。
填空题若进栈序列为a,b,c,则通过入出栈操作可能得到的a,b,c的不同排列个数为 【2】 。
填空题在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式计算,图2.1的窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时,在Text1、Text2中分别输入n和r的值,单击Command1按钮即可求出选法的个数,并显示在Text3文本框中(见图2.1)。请填空。PrivateSubCommand1_Click()DimrAsInteger,nAsIntegern=Text1r=Text2Text3=fun(n)/fun(______)/fun(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLongx=1Fork=1Tont=t*kNextfun=tEndFunction
填空题以下程序计算自然数e的值,要求精确到1015,阅读下列程序。已知e的计算公式为:e=1+1/1!+1/2! + …+1/n!。请在{{U}} 【6】 {{/U}}和{{U}} 【7】 {{/U}}处填上正确内容。Private Sub Commandl_ Click() {{U}} 【6】 {{/U}} n =0: term = 1: t = 1 do n= n +1 t=t/n {{U}} 【7】 {{/U}} Loop while t >1.0E-15 Text1. Text = termEnd Sub
填空题在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
For i=1 To 4
X=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后,单击命令按钮,输出结果是{{U}} 【14】 {{/U}}。
填空题InputBox函数输入数据时,可以单击“确定”按钮或______表示确认。
填空题下列表达式有错误,正确的写法应该是 【6】 。 [(a+B) +e]/80-5÷(d+e)
填空题VisualBasic中有一种控件组合了文本框和列表框的特性,这种控件是______。
填空题下面程序的功能是产生10个小于100(不含100) 的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。
Sub PR()
Randomize
Dim a(10)
For i=1 To 10
a(i) =Int({{U}} [14] {{/U}})
If {{U}}[15] {{/U}}Then k=k+1
Print a(j)
Next j
Print
Print k/10
End Sub
填空题在窗体上画一个名称为Combol的组合框,画两个名称分别为Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按<Enter>键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”,如下图所示:如果存在,则在Label2中给出提示“输入项已在组合框中”。请将程序补充完整。PrivateSubCombol_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombol.ListCount-1IfCombol.Text={{U}}【2】{{/U}}ThenLabel2.Caption="输入项已在组合框中"ExitSubEndIfNextiLabel2.Caption="已成功添加输入项"Combol.{{U}}【3】{{/U}}Combol.TextEndIfEndSub
填空题与数学表达式COS2(a+b)/5x+8对应的Visual Basic表达式是 【1】 。
填空题在先左后右的原则下,根据访问根结点的次序,二叉树的遍历可以分为三种:前序遍历、{{U}} 【1】 {{/U}}遍历和后序遍历。
填空题如果要在单击命令按钮时执行一段代码,则应将这段代码写在
________
事件过程中。
填空题如图所示,在列表框Listl中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项:若未找到,则在Text2中显示“查无此人”。请填空。PrivateSubCommandl_Click()DimkAsInteger,nAsImeger,foundAsBooleanfound=Falsen=Len(______)k=0Whilek<Listl.ListCountAndNotfoundIfText1=Left$(Listl.List(k),n)ThenText2=______found=TrueEndIfk=k+1WendIfNotfoundThenText2="查无此人"EndIfEndSub
填空题为了在运行时把图形文件piefile.jpg装入图片框对象Picture1之中,应该使用的语句为 【7】 。
填空题数据库设计分为以下6个设计阶段:需求解析阶段、{{U}} 【5】 {{/U}}、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。
填空题Visual Basic中的控件分为3类,它们是标准控件、 【6】 和可插入对象。
填空题函数Int(Rnd*10)+10的值为范围是 【6】 。
填空题下面一段程序定义了一个名字为“books”的记录,其4个域的域名及数据类型如下: 域名 数据类型 数据长度 title 字符型 40 author 字符型 20 price 单精度实型 10 请将下面 【11】 补充完整。 Type books title As String*40 author As string*20 Price 【11】 End Type