填空题下列程序的作用是将三个数按从大到小进行排序，请填空。 If a＜b Then d=a a=b b=d End If If a＜c Then d=a a=c c=d End If If (8) Then d=b b=c c=d End If Print a,b,c
填空题使用FileListBox，如果不显示只读文件，需要设置______属性。
填空题有序线性表进行二分查找的前提是该线性表必须是
________
存储的。
填空题采用结构化程序设计方法能够使程序易读、易理解、 【2】 和结构良好。
填空题当循环队列非空且队尾指针等于队头指针时，说明循环队列已满，不能进行入队运算。这种情况称为{{U}} 【2】 {{/U}} 。
填空题表示"1962年10月27日"的日期常量应该写为【10】。
填空题要求打开随机文件“c:/Example.txt”文件，文件号为1，实现的语句是______。
填空题在窗体上画一个名称为Labe1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如下图所示。请在______和______处填入适当的内容将程序补充完整。PrivateSubForm_load()Listl.AddItem"北京"Listl.Addltem"上海"Listl.AddItem"湖北"EndSubPrivateSub______()Label1.Caption=______EndSub
填空题设A=2,B=-4，则表达式3*A＞5 Or B+8＞0的值是 (12) 。
填空题在3种不同类型的组合框中，只能选择而不能输入数据的组合框是
________
。
填空题在Visual FoxPro中，使用SQL的CREATE TABLE语句建立数据库表时，使用【13】子句说明有效性规则(域完整性规则或字段取值范围)。
填空题数学公式(x+y)4的VB算述表达式是______。
填空题下列程序的功能是：当x100时，没有意义。请填空。Private Sub Command1_Click() Dim x As Single x=InputBox("请输入x的值!")
{{U}} 【10】 {{/U}} Case Is y=0．8 * x Case 50 To 100 y=0．7 * x {{U}} 【11】 {{/U}} Print"输入的数据出界!"End SelectPrint x，yEnd Sub
填空题软件维护活动包括以下几类：改正性维护、适应性维护、 【5】 维护和预防性维护。
填空题窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时，将图片加载到图片框中，然后图片框以每秒一次的速度向窗体的右下角移动，每次向左、向右移动300twip。请填空。PrivateSubForm_Load0Picture1.Picture=LoadPicture("c:/MyDocunents/图片/Qian1_Icon02.ico")______EndSubPrivateSubTimer1_Timer()Staticx,yAsIntegerx=x+300y=y+300Picture1.Movex,yEndSub
填空题当对象得到焦点时，会触发______事件，当对象失去焦点时将触发______事件。
填空题设有如下程序： Private Sub Form_Click() a=32548.56 Print Format(Int((a*10+0.5))/10，"000，000.00") End Sub 程序运行后，单击窗体，输出结果为 【7】 。
填空题在窗体上有一个名称为Command1的命令按钮，并有如下事件过程和函数过程： Private Sub Command1_Click() Dim p as Integer p=m(1)+m(2)+m(3) Print p End Sub Private Function m(n As Integer) As Integer Static s As Integer For k=1 To n s=s+1 Next m=s End Function 运行程序，单击命令按钮Command1后的输出结果为______。
填空题下面一段程序定义了一个名字为“books”的记录，其4个域的域名及数据类型如下：
域名 数据类型 数据长度
title 字符型 40
author 字符型 20
price 单精度实型 10
请将下面{{U}} 【11】 {{/U}}补充完整。
Type books
title As String*40
author As string*20
Price{{U}} 【11】 {{/U}}
End Type
填空题在当前目录下有一个名为myfile.txt的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。 Private Sub Command1_Click() Dim ch$, ascii As Integer Open "myfile.txt" For{{U}} {{/U}} As #1 While Not EOF(1) Line Input #1, ch ascii=toascii({{U}}{{/U}}) Print ascii Wend Close #1 End Sub Private Function toascii(myStr$) As Integer n=0 For k=1 To{{U}}{{/U}}n=n+Asc(Mid(myStr,k,1)) Next k toascii=n End Function