填空题下列程序的功能是把文件C:/a1.txt复制成C:/a2.txt，请填空。
Private Sub Form C1ick()
Dim ch As String
Open "C:/a1.txt" For {{U}}【13】 {{/U}}
Open "C:/a2.txt" For {{U}}【14】 {{/U}}
Do While Not {{U}}【15】 {{/U}}
ch＝Input(1,10)
Print #20,ch;
Loop
Close #10,#20
End Sub
填空题以下程序段的功能是______。 x=8.6 y=Int(x+0.5) Print y
填空题与数学表达式cos (a+B) /3x+5对应的Visual Basic表达式是______。
填空题假定有如下的变量定义；
Dim a，b As Integer
则变量a被定义为______类型，b被定义为______类型。
填空题执行以下语句后，输出结果是{{U}} 【15】 {{/U}}、{{U}} 【16】 {{/U}}。
S$="ABCDEFGHIJK"
Print Mid$(S$，3，4)
Print Len(S$)
填空题完成下面的程序，使显示结果如下图所示。PrivateSubForm_Click()FontSize=18Sample$s="{{U}} 【8】 {{/U}}"x=(ScaleWidth-TextWidth(Sample$))／2y=(ScaleHeight-TextHeight(Sample$))／2CurrentX=xCurrentY=y{{U}} 【9】 {{/U}}Sample$EndSub
填空题在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1和Com mand2的命令按钮。要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写。请在 【13】 、 【14】 和 【15】 处填入适当的内容，将程序补充完整。 Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) 【13】 ：Text1. Text End Sub Private Sub Command1_Click() Text1. Text＝ 【14】 End Sub Private Sub Command2 【15】 () Text1. Text＝LCase(Text1. Tag) End Sub
填空题通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1)，代码如下。请填入适当的内容，将程序补充完整。 Private Sub Combo1_Cliek() Text1. FontName=Combo1. List(Combo1. Listlndex) End Sub Private Sub Form_Load() With Combol Addltem"宋体" Addltem"隶书" Addltem"黑体" ·Addltem"楷体_GB2312"" ·Listlndex＝0 End With Text1. 【8】 30 Textl. 【9】 =Combol.List(0) 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
填空题在长度为n的有序线性表中进行二分查找。最坏的情况下，需要的比较次数为 【2】 。
填空题数据库设计分为以下6个设计阶段：需求分析阶段、______、逻辑设计阶段、物理设计阶段、实施阶段及数据库运行和维护阶段。
填空题设A＝2，B＝-2，则表达式A/2+1＞B+5 Or B*(-2)＝6的值是______。
填空题表达式(7/3+1)*(18/-1)的值是______。
填空题启动窗体在“工程属性”对话框中指定，为了打开该对话框，应执行{{U}} 【7】 {{/U}}菜单中的{{U}} 【8】 {{/U}} 命令。
填空题有如下函数过程： Function gys(ByVal 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 以下是调用该函数的事件过程，该程序的运行结果是 (9) 。 Private Sub Command1_Click() Dim a As Integer,b As Integer a=10:b=2 x=gys(a,B) Print x End Sub
填空题下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click()
Dim an(10)As Integer
Dim max As Integer
Randomize
For i %=1 To 10
an(i%)=______
Next
max=an(1)
For i%=2 to 10
ifan(i%)＞max then
max=an(i%)
End If
Next
Print max
End Sub
填空题程序注释一般分为序言性注释和______注释。
填空题窗体中有图片框(Picturel)和计时器(Timed)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向下、向右移动100twip。请填空。 Private Sub Form_Load() Prcture1_Picture=LoadPicture("c/pic/mouth.ico") ______.Interva=2000 End Sub Prinvate Sub Timer1_Timer() Static x,y As Integer x=x+100 y=y+100 Pictuer1.Move[x，y] End Sub
填空题在C盘当前文件夹下建立一个名为StuData. txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。
Private Sub Form Click()
Open"C: StuData. txt"For OutPut As#1
Fori=1 To 5
StuNo=InpuzztBox(“请输入学号”)
StuName=InputBox(“请输入姓名”)
StuEng=Val(InputBox(“请输入英语成绩”))
{{U}} 【15】 {{/U}}
Next i
Close#1
End Sub
填空题数据库设计分为以下6个设计阶段：需求分析阶段、{{U}} 【5】 {{/U}}、逻辑设计阶段、物理设计阶 段、实施阶段、运行和维护阶段。