填空题执行下面程序,第一行输出结果是 (11) ,第二行输出结果是 (12) 。 Option Explicit Private Sub Form_Click() Dim A As Integer A=2 Call Subl(A) End Sub Private Subl(x As Integer) x=x*2+1 If x<10 Then Call Subl(x) End If x=x*2+1 Print x End Sub
填空题二叉树是结点的有限集合,这个有限集合或者为 【1】 ,或者由一个根结点及两棵不相交的二叉树组成,分别作为根的左子树和右子树。
填空题下列程序的功能是:当x100时,没有意义。请填空。
Private Sub Command1_Click()
Dim x As Single
x=InputBox("请输入x的值!")
【 】
Case Is<50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【 】
Print"输入的数据出界!"
End Select
Print x,y
End Sub
填空题数据流的类型有______和事务型。
填空题对于任何一棵二叉树,若度为1的结点数为n1,度为2的结点数为n2,则叶子数n0为 【1】 。
填空题在窗体上画两个文本框,其名称分别为Namel和PassWordl,然后编写如下事件过程
Private Sub Form_Load()
Show
Namel.Text=" "
Passwordl.Text=" "
Passwordl.SetFocus
End Sub
Private Sub Passwordl_KeyDown(KeyCode As Integer,Shift As Integer)
Namel.Text=Name1.Text+Chr(KeyCode - 3)
End Sub
程序运行后,如果在Passwordl中输入“hit''’,则在Namel文本框中显示的内容是【 】。
填空题在窗体上面一个文本框和一个命令按钮,如下图所示。编写如下程序:PrivateSubFormLoad{{U}}13{{/U}}ShowText1.Text=""Form1.KeyPreview=FalseText1.SetFocusEndSubPrivateSubCoramand1_Click{{U}}13{{/U}}KeyPreview=NotKeyPreviewPrintEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintUCase(Chr(KeyAscii+1));EndSubPrivateSubText1_KeyPress(KeyAsciAsInteger)PrintChr(KeEAscii+2);KeyAscii=0EndSub阅读以上程序,理解每个事件过程的操作,然后填空。程序运行后,直接从键盘上输入abc,程序的输出是{{U}}{{U}}15{{/U}}{{/U}}。程序运行后,单击一次命令按钮1,然后从键盘上输入abc,程序的输出是{{U}}{{U}}16{{/U}}{{/U}}。
填空题假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。
Private Sub Form_Click()
Static x As Integer
Cis
Print"Mousepointer Property is now:;X
Forml{{U}} 【12】 {{/U}}=x
X=K+1
If x=15 Then x=0
End Sub
填空题窗体上有两个按钮,执行程序后按Cancel按钮的输出结果是______。 Private Sub Commandl_Click() Print“北京”; End Sub Private Sub Command2,_Click() Print“南京”; End Sub Private Sub Form_Load() Command2.Cancel=Tree Command1.Cancel=Tree End Sub
填空题滚动条的最小值属性是______,最大值属性是Max。
填空题把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:
Prirate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(Keycode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
程序运行后,如果直接按键盘上的“A”键(即不按住Shift键),则在窗体上输出的字符分别是{{U}} 【11】 {{/U}}和{{U}} 【12】 {{/U}}。
填空题在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Commandl_Click () n = 6 f = 1 s = 0 For i = 1 To n f = 【4】 s = s + f Next Print s End Sub 该事件过程的功能是计算s=1+1/2+1/3+…+1/n的值。请填空。
填空题在窗体上画1个命令按钮,其名称为Command1,然后编写如下事件过程: PriVate Sub Commandl_CUck() Dimalt(1 To 100)As Integer Fori=1 To 100 arr(i)=Int(Rnd*1000) Nexti Max=arr(1) Min=arr(1) Fori=1 To 100 If [12] Then Max=arr(i) End If If [13] Then Min=arr(i) End If Nexti Print"Max=";Max,"Min=";Min End Sub 程序运行后,单击命令按钮,将产生100个1000以内的随机整数,放入数组alt中,然后查找并输出这100个数中的最大值Max和最小值Min,请填空。
填空题测试是保证软件质量的重要措施,一般测试过程所产生的文档应包括:测试计划、测试过程和
________
。
填空题为了把一个Visua1BASIC应用程序装入内存,只要装入 【6】 文件即可。
填空题在窗体上画一个命令按钮,然后编写如下程序:
Function M(x As Integer, y As Integer)As Integer
M=IIf(x>y, x, y)
End Function
Private Sub Command1_Click()
Dim a As integer, b As integer
a=1
b=2
Print M(a, b)
End Sub
程序运行后,单击命令按钮,输出结果为______。
填空题面向对象的模型中,最基本的概念是对象和
________
。
填空题类是一个支持集成的抽象数据类型,而对象是类的{{U}} 【2】 {{/U}}。
填空题面向对象的模型中,最基本的概念是对象和 【2】 。
填空题人员基本信启、一般包括身份证号、姓名、性别、年龄等。其中可以作为主关键字的是______。
