在考生目录下有一个工程文件sjt4．vbp。窗体上已有文本框Textl和图片框Picturel（两者位置重叠），并建立了菜单。要求单击“显示图片”菜单项时，隐藏文本框，在图片框中显示图片Pie4．bmp，同时将该菜单标题改为“清空图片”；单击“清空图片”菜单项时，清除图片框中的图片，同时将菜单标题改为“显示图片”；单击“显示文本”菜单项，则隐藏图片框，并将指定文件的内容显示在文本框中。在给出的窗体文件中已经有了全部控件，但程序不完整。
要求：去掉程序中的注释符，把程序中的?改为正确的内容。最后把修改后的文件按原文件名存盘。
第1题：
在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择File1中所列的图片文件（*.bmp，*.gif和*.jpg），则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如下图所示。 
程序如下，请补充完整。 
略
第2题：
在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Textl.Text="VB程序设计"
End Sub
Private Sub Textl_Change()
Picturel.Print"VB programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是【 】，而在图片框中显示的内容是【 】。
第3题：
在名为Form1的窗体上绘制一个文本框，名为Text1，无初始内容；再绘制—个图片框，名为Pic1。请编写Text1的Change事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容。运行时的窗体如下图所示。
注意：
程序中不能使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise68.vbp，窗体文件名为execise68.frm。
第4题：
在考生文件夹下有一个工程文件sjt3．vbp，窗体上有一个标题为“计算”的命令按钮，1个标题为“1!+2!+…+10!=”的标签。请画1个名称为Text1，初始内容为空的文本框，如图所示。程序功能：单击“计算”命令按钮，则计算“l!+2!+…+10!”的值，并将结果显示在Textl文本框中。请将“计算”命令按钮的Click事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。
【解题思路】此题目主要是对While循环和For循环的考查，循环结构是指在满足循环条件时反复执行循环代码块，直到循环条件不能满足为止。一个循环语句一般应包含4个部分的内容。
初始化部分：设置循环控制的一些初始条件
循环体部分：反复执行的代码
迭代部分：修改循环控制条件
判断部分：判断是否继续执行循环体
【操作步骤】
步骤1：打开本题工程文件，在窗体视图中添加一个TextBox控件，并按表4．8在属性窗口中设置相应属性，如图4．8所示。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
第5题：
在考生文件夹下有一个工程文件sjt4．vbp。请在窗体上添加一个组合框，名称为cbl，并输入三个列表项：“3”、“7”、“11”（列表项的顺序不限，但必须是这三个数字）；添加一个名为Textl的文本框；再添加一个标题为“计算”、名称为cl的命令按钮，如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入Textl中。最后，按原文件名存盘。
提示：由于计算结果较大，应使用长整型变量。
注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。
【考点分析】本题考点有：文本框的Name属性、组合框的Name和I．ist属性、命令按钮的Name和Caption属性、Val()函数以及Mod取模运算。
【解题思路】本题主要考查组合框的属性及For循环语句的使用。
Mod取模运算就是求余数，例如10mod3=1，因为10除以3等于3余1，结果就是余数。如果amodb=0，则说明a能被b整除，反之如果amodb<>0，则a不能被b整除。
组合框(ComboBox)将文本框与列表框的特性组合在一起，既可以在组合框的文本框部分输入信息，也可在列表框部分选择项目；组合框的列表项可在设计阶段通过其List属性添加，每输入完一项后按<Ctrl+Enter>键换行再输入下一项；其Text属性用于设置或返回其文本框部分当前的文本。
根据题意，用For逐一循环5000内的整数，通过If语句的条件表达式：iModn=0，判断各个数是否能被n整除，把能被整除的数累加到变量sum。i为循环变量，n的值为Val(Cbl．Text)。
【操作步骤】
步骤1：打开本题工程文件，按照题目要求建立控件并设置组合框控件属性，如图3．19所示。程序中用到的控件及属性见表3．11。
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案
Private Sub C1_Click()
Dim sum As Long
Dim n As Integer
Dim i As Integer
n=Val(cbl．Text)’读取选中的数字并通过函数
Vai转换为数值
For i=n T0 5000′从本身开始循环查找
If i Mod n=0 Then
sum=Sum+i′判断是否能被该数整除并求和
End If
Next i
Text1．Text=sum．在Text1中显示
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
第6题：
在名为Form1的窗体上绘制一个图片框，名为Pic1，高为1800、宽为1600，通过属性窗口把考生目录下的图像文件pic1.bmp放到图片框中(如下图所示)。
注意：
文件必须存放在考生文件夹中，工程文件名为execise107.vbp，窗体文件名为 execise107.frm。
第7题：
在窗体上有一个名为Textl的文本框。当光标在文本框中时，如果按下字母“A”，则可被调用的事件过程是。 A．Form_KeyPress B．Textl_LostFocus C．Textl_Click D．Textl_Change
第8题：
假定Picturel和Textl分别为图片框和文本框的名称，下列不正确的语句是( )。
A. Print 25
B. Picturel．Print 25
C. Text．Print 25
D. Debug．Print 25
第9题：
在窗体上画一个文本框，名称为Textl，然后编写如下程序：
Private Sub Form_Load()
Open”d：＼temp＼dat．txt”For Output As1
Textl．Text=“”
End Sub
Private Sub Textl KeyPress(KeyAscii As Integer)
IfKeyAscii=13 Then
If UCase(Textl．Text)=【 】Then
Close1
End
Else
Write1，【 】
Textl．Text=…
End If
End If
End SUb
以上程序的功能是：在D盘temp文件夹下建立一个名为dat．txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat．txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。
