在窗体上画一个文本框，名称为Textl，然后编写如下程序： Private Sub Form Load() Open“d：＼temp＼dat．txt”For Output As#1 Textl．Text="" End Sub Private Sub Textl—KeyPress(KeyAscii As Integer) If______=13 Then If UCase(Textl．Text)__________Then Close 1 End Else Write#1。 Textl．Text="" End If End If End Sub 以上程序的功能是，在D盘temp目录下建立一个名为dat．txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat．txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。
在窗体上画一个通用对话框，其Name属性为Cont，再画一个命令按钮，Name属性为Commandl，然后编写如下事件过程： Private Sub Commandl Click()Cont．FileName=“”Cont．Flags=vbOFNFileMustExist Cont．Filter=“All Files丨*．*”Cont．Filterlndex=3 Cont．DialogTitle=“Open File”CO nt．Action=1 If Cont．FileName=“”Then MsgBox“No file selected” Else Open Cont．FileName For Input As#1 Do While Not EOF(1) Input#1，b$ Print b$ Loop End IfEnd Sub 以下各选项，对上述事件过程描述错误的是（ ）。
在名为Form1的窗体上绘制一个列表框，其名称为List1；一个水平滚动条，其名称为HS1，smallChange属性为2，LargeChange属性为10，Min属性为0，Max属性为100。编写适当的事件过程，使程序运行后，若把滚动框滚到某个位置，然后单击窗体，则在列表框中添加一个项目，其内容是“××”，其中××是滚动框所在的位置，如下图所示。注意：程序中不要使用变量：文件必须存放在考生文件夹中，工程文件名为execise97.vbp，窗体文件名为execise97.frm。
以下语句的输出结果【 】。 S$= "China" S$= "Shanghai"。 Print S$
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个文本框，其名称为Textl，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：①在文本框中可以显示多行文本；②在文本框中显示垂直滚动条；③文本框中显示的初始信息为“程序设计”：④文本框中显示的字体为三号规则黑体；⑤窗体的标题为“设置文本框属性”，完成设置后的窗体如图1-147所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Forml的窗体上画两个命令按钮，如图1-148(a)所示，其名称分别为Cmdl和Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮Cmdl，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；如果单击命令按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的2倍。程序的运行情况如图1-148(b)所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
(1)在名称为Forml的窗体上画一个名称为Labell、标题为“添加项目：”的标签；画一个名称为Textl的文本框，没有初始内容；画一个名称为Combol的下拉式组合框，并通过属性窗口输入若干项目(不少于三个，内容任意)；再画两个命令按钮，名称分别为Commandl、Command2，标题分别为“添加”、“统计”。在运行时，向Textl中输入字符，单击“添加”按钮后，则Textl中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体上显示组合框中列表项的个数，如图1-144所示。请编写两个命令按钮的Click事件过程。注意：程序中不得使用变量，也不能使用循环。存盘时必须存放在考生文件夹下，工程文件名为sjl3．vbp，窗体文件名为sjt3．frm。(2)在考生文件夹下有一个工程文件sjt4,vbp，其窗体如图1-145所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图1-145所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上放置一个名称为Drivel的驱动列表框控件、一个名称为Dirl的目录列表框控件和一个名称为Filel的文件列表框控件。程序运行时，可以对系统中的文件进行浏览，如图10—1所示。注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．Vbp。(2)在名称为Forml的窗体上放置一个名为Labell的标签控件和一个名为Timerl的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变，并且显示的字体为四号宋体字，如图10—2所示。注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
在名为Form1的窗体上绘制一个文本框，其名称为Text1。编写适当的事件过程，程使序运行后，若单击窗体，则可使文本框移到窗体的左上角；而如果在文本框中输入信息，则可使文本框移到窗体的右上角。程序的运行情况如下图所示。注意：不得使用任何变量，只允许通过修改属性的方式移动文本框：文件必须存放在考生文件夹中，工程文件名为execise112.vbp，窗体文件名为execise112.frm。
表达式Fix(-465)+Int(-515)的值是【 】。
以下关于文件的叙述巾，错误的是（ ）。
在窗体上绘制一个文本框，名为Text1，高度为500，宽度为1500，字体为“宋体”，并设置其他相关属性，使得在程序运行时，文本框中输入的字符都显示为“%”，如下图所示。注意：文件必须存放在考生文件夹中，工程文件名为execise15.vbp，窗体文件名为execise15.frm。
在考生文件夹下有一个工程文件sj5．vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a
2
+b
2
=c
2
。例如，3、4、5就是一个满足条件的整数组合(注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程序，统计均在60以内的三个数满足上述关系的整数组合的个数，并显示在标签Labell中。
注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
在窗体上绘制两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“按钮1和“按钮2”，其中“按钮1”按钮的初始状态为无效(即不可用)。请编写适当的事件过程，使得在运行时单击“按钮2”按钮，则使“按钮1”按钮变为有效(即可以使用)、窗体的初始状态和运行时的情况如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise46.vbp，窗体文件名为execise46.frm。
n个顶点的连通田中边的条数至少为
为计算1+2+2
2
+2
3
+2
4
+…+2
10
的值，并把结果显示在文本框Text1中，若编写如下事件过程：
Private Sub Commandl_Click()
Dim a％，b％，i％
s=1
a=2
Fori=2 To 10
a=a*2
b=b+a
Next i
Text1．Text=b
End Sub
执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是( )。
在考生文件夹下有一个工程文件sj5．vbp，窗体上有两个文本框，名称分别为Textl和Text2，分别用来表示两个计数器；还有两个计时器Timerl和Timer2。Timerl用于变换Textl的计数；Timer2用于控制Text2的计数。运行时，单击“开始”按钮后，Textl每当到5的倍数则停止，Text2开始计数，当Text2计数到6的倍数则Textl开始计数，交替进行。程序运行时的窗体界面如图49—5所示。注意：在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。
在窗体Form1上绘制3个命令按钮，其名称分别为Cmd1、Cmd2和Cmd3，标题分别为“读数”、“计算”和“保存”，如下图所示。程序运行后，如果单击“读数”按钮，则利用题目中提供的Readdate1、ReadDate2过程读入in251.txt和in252.txt文件中的各20个整数，分别放入两个数组Arr1和Art2中；如果单击“计算”按钮，则把两个数组中对应下标的元素相加，其结果放入第3个数组中(即：第一个数组的第n个元素与第二个数组的第n个元素相加，其结果作为第3个数组的第n个元素。这里的n为1，2，…，20)，然后计算第3个数组各元素之和，并把所求得的和在窗体上显示出来：如果单击“保存”按钮，则调用题目中给出的WriteDate过程将计算结果存入考生文件夹的out25.txt文件中。在考生文件夹下有一个工程文件execise25.vbp，考生必须装入该文件。注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为execise25.vbp，窗体文件名仍为execise25.frm。
下列程序的执行结果为（ ）。 Private Sub Commandl Click() Dim P AS Integer，q As Integer p=12：q=20 Call Value(P，q) Print P；q End Sub Private Sub Value(ByVal m As Integer，ByVal n As Integer) m=m*2：n=n-5 Print m；n End Sub
数学式“2/3e(x＋y)”的VB表达式是______。
在Form1的窗体上绘制一个标签，其名称为Lab1；再绘制一个列表框，其名称为List1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限。编写适当的事件过程，使程序运行后，若双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序的运行情况如下图所示。注意：程序中不准使用任何变量：文件必须存放在考生文件夹中，工程文件名为execise10.vbp，窗体文件名为execise10.frm。