填空题在菜单中,唯一能够识别的事件是
________
。
填空题在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 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=Ubound(b) 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)的值互换,……。请填空。
填空题设有如下程序: Private Sub Form_Click() Dim a As Integer, s As Integer n=8 s=0 Do s=s+n n=n-1 Loop While n>0 Print s End Sub 以上程序的功能是______。程序运行后,单击窗体,输出结果为______。
填空题运行时,要使工具栏控件Toolbarl中的第二个按钮的按钮菜单中的第三项无效(变成灰色),应使用语句______。
填空题在长度为n的有序线性表中进行二分查找。最坏的情况下,需要的比较次数为 【1】 。
填空题在窗体上画1个名称为Commund1的命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然后编写如下程序:FunctionFun(xAsInteger,ByValyAsInteger)AsIntegerx=x+yIfx<0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=-10:b=5Text1.Text=Fun(a.B)Text2.Text=Fun(a,B)EndSub程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是______和______。
填空题有如下程序: Prinvate Sub Form_Click() a=10 b=0 Do b=b+a a=a-2 Loop While a>2 Print b End Sub 程序运行后,单击窗体,输出结果为______。
填空题数据库的逻辑结构设计阶段的主要内容是将E-R模型中的实体和______转换为关系模式。
填空题下列程序段用于实现以下功能:随机产生一个100以内的整数,从键盘上输入一个数,计算机提示输入的数是否与随机整数一样。请填空。
Private Sub Command1_Click()
RANDOMIZE
a ={{U}} 【1】 {{/U}}
Do
Input "请输入一个数字:", n
If n = a Then
Print "Good!"
{{U}}【2】 {{/U}}
ElseIf n>a Then
Print "大了"
Else
Print "小了"
End If
Loop
End Sub
填空题数据库理论中,数据的独立性一般可分为{{U}} 【4】 {{/U}}和逻辑独立性。
填空题VB有两种类型的数组:固定大小的______和在运行时可以改变的动态数组。
填空题有如下函数过程: Function gys(By Val x As Integer,ByVal y As Integer)As Integer Do While Y<#0 preminder=x/y x=Y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程,该程序的运行结果是______。 Private Sub Command1_Click() Dim a As Integer,b As Integer a=10:b=2 x=gys(a,b) Print x End Sub
填空题有一个窗体,其上有一个命令按钮Command1(Caption为“确定”),在该窗体上设置如下事件过程:
Function fun(ByVal x As Integer)
If (x=0 Or x=1)Then
fun=3
Else
fun=x-fun(x-2)
End If
End Function
Private Sub Command1_Click()
Print fun(9)
End Sub
程序运行后,单击“确定”按钮后,输出的结果为______。
填空题数据库设计分为以下6个设计阶段:需求分析阶段、
________
、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。
填空题下列程序段的作用是控制窗体的显示与隐藏。请填空。 Private Sub Form_Click() Dim msg As Integer Me. 【5】 MsgBox "单击Ok显示窗体" Form1. 【6】 End Sub
填空题下面这个Sub过程的功能是统计字符串中“a”的个数,请在空白处填上合适的代码完成程序。 Private Sub numCount() Dim hum As Integer s$ = "software And hardware" num = Len(s$) For i = 1 To hum b$=______ If b$ = "a" Then x = x+1 Next i Print "x="; x End Sub
填空题采用顺序查找方法查找长度为n的线性表,平均查找长度为 【3】 。
填空题在程序设计阶段应该采取{{U}} 【2】 {{/U}}和逐步求精的方法,把一个模块的功能逐步分解,细化为一系列具体的步骤,进而用某种程序设计语言写成程序。
填空题下列事件过程的功能是:通过Form _ Load事件给数组赋初值为35、48、15、22、67,Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容,将程序补充完整。 Dim Arr ( ) Private Sub Form _ Load( ) ______ End Sub Private Sub Form _ Click( ) ______ If Int(x/3)=x/3 Then Print x End If Next x End Sub
填空题逻辑运算时,参与运算的两个量都是False,结果才会是False的逻辑运算是______运算。
