填空题深度为5的满二叉树有______个叶子节点。
填空题与数学表达式cos (a+B) /3x+5对应的Visual Basic表达式是______。
填空题以下程序段的作用是首先按降序输入10个数到数组Y的前10个元素中,又输入一个YO插入到数组Y中,插入YO后Y中的数据仍按降序排列。请补充完该程序______。 Dim Y(1 To 11) For i =1 To 10 Y(i) = Val(InputBox(“请输入Y(i):”)) Next i X = Val(InputBox (“请输入x:”)) For i = 10 To 1 Step -1 If 【8】 Then Y(i + 1) = X Exit For End If Y (i + 1) =Y(i) Next i 'Print Y(10) For i =1 To 11 Print Y(i) Next I
填空题有下面一个程序段,从文本框中输入数据,如果该数据满足条件,除以4余1,除以5余2则输出,否则,将焦点定位在文本框中,并清除文本框的内容。 Private Sub Command1_Click( ) x=Val(Text1.Text) If 【6】 Then Print x Else Text1.Text="" 【7】 End If End Sub
填空题以下程序找出50以内所有能构成直角三角形的整数组。请在程序{{U}} 【15】 {{/U}}处填上正确内容。
Private Sub Command1_ Click()
for a = 1 To 50
for b = a To 50
c = Sqr(a ^2 + b ^2)
if {{U}}【15】 {{/U}}then Print a; b; c
Next b
Next a
End Sub
填空题在Visual Basic中,用于文件复制的命令是{{U}} 【10】 {{/U}}。
填空题成本效益分析的目的是从{{U}} {{U}} {{/U}} {{/U}}角度评价开发一个项目是否可行。
填空题Visual Basic中的控件分为3类,它们是______、ActiveX控件和可插入对象。
填空题阅读如下程序; Private Sub Form Click() msg1$=“继续吗?” msg2$=“操作对话框” r=MsgBox(msg1$,vbYesNo OrvbDefaultButton2,msg2$) End Sub 程序运行后,单击窗体,将产生一个信息框。此时如果直接按回车键,则相当于用鼠标单击信息框中的 【8】 按钮。
填空题在数据结构中,顺序存储结构的数据元素所占的存储空间是{{U}} 【2】 {{/U}}的。
填空题在窗体上画一个名称为Command1的命令按钮。编写如下程序: Option Base1 Private Sub Command1_Click() Dim a(10) As Integer For i=1 To 10 a(i)=i Next Call swap( (11) ) For i=1 To 10 Print a(i); Next End Sub Sub swap(b()As Integer) n= (12) Fori=1 To n/2 t=b(i) b(i)=b(n) b(n)=t (13) Next End Sub 上述程序的功能是:通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换……请填空。
填空题窗体中有两个命令按钮:“显示”(控件名为CmdDisplay)和“测试”(控件名为CmdTest)。单击“测试”按钮时,执行如下事件过程。此事件过程的功能是:当在窗体中出现消息框并选中其中的“确定”按钮时,隐藏“显示”按钮。否则退出。根据题意,请完善下列程序。
Private Sub CmdTest_Click()
Answer={{U}} 【6】 {{/U}} ("隐藏按钮")
IF Answer=vbOK then
CmdDisplay. visible={{U}} 【7】 {{/U}}
Else
End
End IF
End Sub
填空题能判断是否到达文件尾的函数是 【12】 。
填空题下图是应用程序的窗体,要求用户选中复选框Check1后,文本框Text1中的文字以粗体显示,选中复选框Check2后,文本框Text1中的文字以斜体显示,单击“关闭”按钮Command1后结束应用程序运行。PrivateSubCheck1_Click()if【11】thenText1.FontBold=TrueElseText1.FontEold=【12】EndifEndSubPrivateSubcheck2_click()if【13】thenText1.FontItalic=FalseElseText1.FontItalic=TrueEndifEndsubPrivateSubCommand1_Click()【14】MeEndSub
填空题在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),如图16-11所示,然后编写如下几个事件过程:PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval={{U}}【8】{{/U}}EndSubPrivateSubForm_Cliek()Timer1.Enabled={{U}}【9】{{/U}}EndSubPrivateSubTimer1_Timer()Label1.Caption={{U}}【10】{{/U}}EndSub程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟改变一次。请填空。
填空题按照软件测试的—般步骤,集成测试应在{{U}} 【2】 {{/U}}测试之后进行。
填空题将通用对话框控件CommonDialog1显示为颜色对话框,可以改变该控件的______属性。
填空题以下程序用来产生20个(0,99)之间的随机整数,并将其中的偶数打印出来。请填空。 Private
Sub Command1_Clcik() Randomize For I=1 To
20 X=Int(Rnd*______) If X/2=______Then
Print x Next I End Sub
填空题下面程序的功能是产生100个小于1000(不含1000)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请在[7]和[8]处把程序补充完整。
填空题设有如下程序:
Private Sub Form_Click()
a=32548.56
Print Format(Int((a*10+0.5))/10,"000,000.00")
End Sub
程序运行后,单击窗体,输出结果为{{U}} 【7】 {{/U}}。
