填空题在窗体上有一个名为Image1的图像框,现在要把“D:”盘根目录下的图片文件“Fox.bmp”在其中显示出来,使用的语句是{{U}} 【7】 {{/U}}。
填空题数据模型所描述的内容通常由数据结构、数据操作和 【5】 三部分组成。
填空题为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的【 】属性设置为【 】。
填空题有如下程序:
Private Sub command1_Click()
a=1:b=1
Print"a=";a;",b=";b
Call mult((a),b)
Print "a=";a;",b=";b 语句
End Sub
Sub mult(x,y)
K=2 * k
y=3 * k
Print "x=";x;",y=";y
End Sub
运行后,标有“语句”的Print语句的输出结果是{{U}} 【12】 {{/U}}。
填空题一个栈的初始状态为空。首先将元素1,2,3,4,5依次入栈,然后退栈一次,再将元素A,B,C,D依次入栈,之后将所有元素全部退栈,则所有元素退栈(包括中间退栈的元素)的顺序为______。
填空题下列程序的功能是:将字符串“abcde”逆序打印出来。请填写空白处以完善程序。
Function rev(str1) As String
B=Mid(______,1, 1)
If B= "" Then
rev=""
Else
rev=rev(Mid(str1, 2)) +______
End If
End Function
Private Sub Form_Click()
old ="abcde"
Print rev(old)
End Sub
填空题窗体上有一个名称为Combo1的组合框, 其初始内容为空,有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后,如果单击命令按钮,会将给定数组中的项目添加到组合框中,如图所示。请填空。
Option Base 1
Private Sub Command 1_ Click(
Dim city As Variant
city=_【6】_("北京","天津","上海","武汉","重庆","西宁")
For i=_【7】_To UBound(citv)
Combo 1.Addltem_【8】_
Next
End Sub
填空题数据结构分为线性结构与非线性结构, 带链的栈属于________
填空题一个项目具有一个项目主管,一个项目主管可管理多个项目,则实休“项目主管”与实体“项目”的联系属于______。
填空题窗体上已建立多个控件,如Text1、Command1、Label1,若要使程序开始运行时焦点定位在Command1控件上,则应将Command1控件的______属性值设置为______。
填空题在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Command1和Label1,通过属性窗口把列表框中的项目设置为:“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后,在列表框中选择一个项目,然后单击命令按钮。即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图16-5所示(选择“第三个项目”的情况)。下面是实现上述功能的程序,请填空。PrivateSubCommand1_C1ick()IfList1.List1adex>={{U}}【10】{{/U}}ThenList1.Removeltem{{U}}【11】{{/U}}Label1.Caption={{U}}【12】{{/U}}ElseMsgBox"请选择要删除的项目"EndIfEndSub
填空题千个项目具有一个项目主管,一个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于{{U}} 【4】 {{/U}}的联系。
填空题忆知数组A(4,4),各个元素在运行程序时被赋值并打印,形成四除非方阵。请在{{U}} 【10】 {{/U}}和{{U}} 【11】 {{/U}}处填处所需的内容,使产生一个转置矩阵(即行列互换),仍放在数组A中,并打印出来。例如:
1 2 3 4
1 2 3 4
1 2 3 4
l 2 3 4
1 1 1 1
2 2 2 2
3 3 3 3
4 4 4 4
Private Sub Command1_Click()
Dim a(4,4)
For k=1 To 4
For j=1 To 4
a(k,j)=j
Print a(k,j);
Next
Print
Next
For k=2 To 4
For j=1 To{{U}} 【10】 {{/U}}
t=a(j,k)
a(j,k)={{U}} 【11】 {{/U}}
a(k,j)=t
Next
Next
For k=1 To 4
Print a(k,1);a(k,2);a(k,3);a(k,4)
Next
End Sub
填空题能够将文本框控件隐藏起来的属性是______。
填空题假定在工程文件中有一个标准模块,其中定义了如下记录类型:Type Books
Name As String*10
TelNuin As String*20
End Type
要求在执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。将以下程序补充完整。
Private Sub Command1_Clickk()
DimB As Books
open"c:/person.txt"For output As #1
B.Name=InputBox("请输入姓名")
B.TelNum=InputBox("请输入电话号码")
write #1,______
close #1
End Sub
填空题在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:
Private Sub Form_Click()
Open "d:/test/smtext1.Txt" For Input As #1
Do While Not 【 】
Line Input #1, aspect$
Whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
【 】
Open "d:/test/smtext2.Txt" For Output As #1
Print #1, 【 】
Close #1
End Sub
运行程序,单击窗体,将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
填空题有一棵非空二叉树,其第K层上最多有 (3) 个结点。
填空题对软件设计的最小单位(模块或程序单元)进行的测试通常称为______测试。
填空题为了便于对照检查,测试用例应由输入数据和预期的 (3) 两部分组成。
填空题以下程序的功能是单击Command1按钮,将输出1~100之间的所有同构数。同构数是指该数出现在它的平方数的右边,如52=25、252=625。 Private Sub Command1_Click() Dim i As Integer,ip As Integer For i=1 To 100 ip={{U}} 【9】 {{/U}} If i<10 Then If{{U}} 【10】 {{/U}}Then Print i,ip End If Else If{{U}} 【11】 {{/U}}Then Print i,ip End If End If Next i End Sub