填空题面向对象的程序设计方法是把 【10】 封装起来作为一个对象,并为每一个对象设置所需要的 【11】 。
填空题在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后,如果单击“初始化”命令按钮,则对数组a的各元素赋值:如果单击“求和”命令按钮,则求出数组a的各元素之和,并在文本框中显示出来,如图所示。请填空。OptionBase1Dima(3,2)AsInteSerPnvatcSabCommand1_Click()Fori=1To3Forj=1To2【13】=i+jNextjNextiEndSubPnvateSubCommand2_Click()Forj=1To3Fori=1To2s=s+【14】NextiNextjText1.Text=【15】EndSub
填空题在窗体上画一个命令按钮,然后编写如下程序(假定变量x是—个窗体级变量)
Dim x As Integer
Sub inc(a AS Integer)
X=K+a
End Sub
Private Sub Command1_Click()
inc2
inc3
inc4
Prmt x;
Ead Sub
程序执行后,单击Command1命令按钮,输出的结果是{{U}} 【11】 {{/U}}。
填空题阅读程序:OptionBase1PrivateSubForm_Click()Dima(3)AsIntegerPrint"输入的数据是:";Fori=1To3a(i)=InputBox(“输入数据”)Printa(i);NextPrintIfa(1)<a(2)Thent=a(1)a(1)=a(2)a(2)={{U}}[10]{{/U}}EndIfIfa(2)>a(3)Thenm=a(2)ElseIfa(1)>a(3)Thenm={{U}}[11]{{/U}}Elsem=a(1)EndIfPrint"中间数是:";mEndSub程序运行后,单击窗体,在输入对话框中分别输入三个整数,程序将输出三个数中的中间数,如下图所示。请填空。
填空题有下面一个程序段,从文本框中输入数据,如果该数据满足条件,除以4余1,除以5余2则输出,否则,将焦点定位在文本框中,并清除文本框的内容。
Private Sub Command1_Click( )
x=Val(Text1.Text)
If【 】 Then
Print x
Else
Text1.Text=""
【 】
End If
End Sub
填空题在数据库的三级模式体系结构中,模式与内模式之间的映像(模式/内模式)实现了数据库的 【5】 独立性。
填空题在E盘当前目录文件夹下建立一个名为“Student.txt'’的顺序文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。
Private Sub Form _ Click( )
{{U}}【12】 {{/U}}
For i=1 To 5
StuName=InputBox("请输入姓名")
StuGrade=InputBox("请输入年级号")
StuAge=InputBox("请输入年龄")
{{U}}【13】 {{/U}}
Next i
{{U}}【14】 {{/U}}
End Sub
填空题表达式Fix(-32.68)+Int(-23.02)的值为______。
填空题在Visual FoxPro 中参数传递的方式有两种,一种是按值传递,另一种是按引用传递,将参数设置为按引用传递的语句是:SET UDFPARMS【4】。
填空题过程(Sub)和函数(Function)中,______可以有返回值。
填空题在窗体上画—个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
a$="National Computer Rank Examination"
n=Len(a$)
s=0
For i=1 To n
b$=Mid(a$,i,1)
Ifb$="n" Then
s=s+1
End If
Next i
Print S
End Sub
程序运行后,单击命令按钮,输出结果是{{U}} 【7】 {{/U}}。
填空题在程序的每个空白处填写一条适当的语句,使程序完成相应的操作。程序实现的功能是:窗体上有文本框Text1和若干复选框,其中复选框Check1用于设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下: Private Sub Checkl_Click() If ______ Then Text1.FontUnderline=True Else If ______ Then Text1.FontUnderline=False End If End Sub
填空题在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Command1和Labe11,通过属性窗口把列表框中的项目设置为:“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图20-8所示(选择“第三个项目”的情况)。下面是实现上述功能的程序,请填空。PrivateSubCommand1_Click()IfList1.ListIndex>=0ThenList1.RemoveItem{{U}}【7】{{/U}}Labe11.Caption={{U}}【8】{{/U}}ElseMsgBox“请选择要删除的项目”EndIfEndSub
填空题关系模型允许定义3类数据约束,它们是 【5】 约束、参照完整性约束以及用户定义的完整性约束。
填空题每次单击菜单编辑器中的“→”按钮可以使选定的菜单项______。
填空题在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数。下面是实现上述功能的程序,请填空。 Private Sub Form_Load( ) List1.AddItem "AAAAA" List1.AddItem "BBBBB" List1.AddItem "CCCCC" List1.AddItem "DDDDD" End Sub Private Sub Command1_Click( ) Dim L1 As Integer L1={{U}} {{/U}}If L1>=0 Then List1.RemoveItem{{U}} {{/U}}Labe11.Caption={{U}} {{/U}}Else MsgBox"请选择要删除的项目” End If End Sub
填空题下面程序段的作用是从文本框中输入数据,如果该数据满足条件:除以6余2,除以5余3,则输出,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。 Private Sub Command1_Click() num=Val(Text1.Text) If ______ Then Print num Else Text1. Text="" ______ End If End Sub
填空题当用{{U}} 【12】 {{/U}}方式打开文件时,如果对文件进行写操作,则写入的数据附加到原来文件的后面。
填空题如果单选按钮是“选中”的,即单选按钮中间有一个圆点,那么该单选按钮的Value属性值等于{{U}} 【8】 {{/U}};反之,如果单选按钮没有被选中,其Value属性值等于{{U}} 【9】 {{/U}}。
填空题测试的目的是暴露错误,评价程序的可靠性;而 【1】 的目的是发现错误的位置井改正错误。