可视化程序设计2

1、试卷编号 全套试题2闭卷考试，考试时间120分钟一、 选择题（40分，每题2分）(1) 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是A) 工程资源管理器窗口B) 工具箱窗口C) 代码窗口D) 属性窗口(2) 以下叙述中正确的是A) 窗体的Name属性指定窗体的名称，用来标识一个窗体B) 窗体的Name属性的值是显示在窗体标题栏中的文本C) 可以在运行期间改变对象的Name属性的值D) 对象的Name属性值可以为空(3) 以下不能在“工程资源管理器”窗口中列出的文件类型是A) .basB) .resC) .frmD) .ocx(4) 在窗体上画一个名称为Command1的命令按钮，然后编

2、写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub程序运行后，单击命令按钮，执行的操作为A) 命令按钮移动到距窗体左边界、上边界各500的位置B) 窗体移动到距屏幕左边界、上边界各500的位置C) 命令按钮向左、上方向各移动500D) 窗体向左、上方向各移动500(5) 在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()a=Text1.Text+Text2.T

3、extPrint aEnd SubPrivate Sub Formm_Load()Text1 Text=""Text2 Text=""End sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为。A) 444 B) 321123 C) 123321 D) 132231(6) 假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为 。A) Label1. BackStyle=0Label1.Borderstyle=0B) Label1.BackS

4、tyle=1Label1.Borderstyle=1C) Label1.BackStyle=TrueLabel1.BorderStyle=TrueD) Label1.BackStyle=FalseLabel1.Borderstyle=False(7) 设有如下变量声明Dim TestDate As Date为变量TestDate正确赋值的表达方式是A) TextDate=#1/1/2002#B) TestDate=#“1/1/2002”#C) TextDate=date(“1/1/2002”)D) TestDate=Format(“m/d/yy”,“1/1/2002”)(8) 设有如下声明：D

5、im X As Integer如果Sgn(X) 的值为-1，则X的值是A) 整数B) 大于0的整数C) 等于0的整数D) 小于0的数(9) 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为A) 15 16B) 15 6C) 15 15D) 5 6(10) 设a=3,b=5，则以下表达式值为真的是A) a>=b A

6、nd b>10B) (a>b)Or(b>0)C) (a<0)Eqv(b>0)D) (-3+5>a)And(b>0)(11) 设有语句x=InputBox(“输入数值”，“0”，“示例”)程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是A) 变量X的值是数值10 B) 在InputBox对话框标题栏中显示的是“示例”C) 0是默认值 D) 变量X的值是字符串“10”(12) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim

7、 i As Integer,n As IntegerFor I=0 To 50i=i+3n=n+1If i>10 Then xit forNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A) 2 B) 3C) 4D) 5(13) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10,10) As IntegerDim i,j As IntegerFor i=1 To 3For j=2 To 4array1(

8、i,j)=i+jNext jNext IText1.Text=array1(2,3)+array1(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A) 12B) 13C) 14D) 15(14) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：Private Sub Command1_Click()Dim x,y,z As Integerx=5y=7z=0Text1.text=“”Call P1(x,y,z)Text1.Text=Str(x)End SubSub P1(ByVal a As Integer,ByVal b A

9、s Integer,c As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是A) 0B) 12C) Str(z)D) 没有显示(15) 以下叙述中错误的是A) 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B) Sub过程中不能嵌套定义Sub过程C) Sub过程中可以嵌套调用Sub过程D) 事件过程可以像通用过程一样由用户定义过程名(16) 以下叙述中正确的是A) 一个记录中所包含的各个元素的数据类型必须相同B) 随机文件中每个记录的长度是固定的C) Open命令的作用是打开一个已经存在的文件D) 使用Input #语

10、句可以从随机文件中读取数据(17) 目录列表框的Path属性的作用是A) 显示当前驱动器或指定驱动器上的目录结构B) 显示当前驱动器或指定驱动器上的某目录下的文件名C) 显示根目录下的文件名D) 显示该路径下的文件(18) 关于子窗体说法正确的是A)MDI子窗体与普通窗体没有区别B)MDI子窗体与普通窗体不同，其活动区域为MDI窗体工作区，而普通窗体则没有此限制C) MDI窗体菜单和子窗体可以同时显示出来D) 当子窗体激活时仅仅显示子窗体菜单(19) 关于数据控件的描述中不正确的是A) 数据控件通过RecordSource属性获得数据库信息B) 数据控件通过RecordType属性设置记录集类

11、型C) 数据控件通过Exclusive属性为True实现对数据库的共享访问D) 数据控件通过readonly属性决定是否按只读方式打开数据库(20) 关于数据控件的常用方法说法正确的A)Refresh方法用于从数据库中读取数据更新界面B)Refresh方法用于将界面中的数据更新到数据库C)UpdateControl方法用于从数据库中读取数据更新界面D) UpdateControl方法用于将界面中的数据更新到数据库二、填空题（30分，每空2分）(1)  结构化程序设计中把程序的结果规定为_【1】_、_【2】_、_【3】_三种基本结构。(2) Visual Basic应用程序中标准模块文

12、件的扩展名是【4】 。(3) 窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：Function M(x As Integer,y As Integer)As IntegerM=IIf(x>y,x,y)End FunctionPrivate Sub command1_Click()Dim a As Integer,b As Integera=100b=200Print M(a,b)End Sub程序运行后，单击命令按钮，输出结果为 【5】 。(4) 以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在 【6】 和

13、 【7】 处填入适当的内容，将程序补充完整。Private Sub Form_Click()Dim x As Single,amax As Single,amin As Singlex=InputBox(“Enter a score”)amax=xamin=xDo While 【6】 If x>amax ThenAmax=xEnd IfIf 【7】ThenAmin=xEnd Ifx=InputBox(“Enter a score”)LoopPrint”Max=”;amax,”Min=”;aminEnd Sub(5) 执行下面的程序段后，变量的值为【8】。S=5For i=2.6 To 4

14、.9 Step 0.6S=S+1Next i(6) 计时器控件能有规律的以一定时间间隔触发【9】 事件，并执行该事件过程中的程序代码。(7) 以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被整除的数并求出它们的和。请填空Private Sub Command1_Click()For i=1 To 20x=Int(【10】*200+100)If【11】=0 ThenPrint xS=S+【12】End ifNext iPrint"Sum="SEnd Sub(8) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub

15、 Command1_Click() n = 5 f = 1 s = 0 For i = 1 To n f = f【13】 s = s + f Next Print sEnd Sub该事件过程的功能是计算的值。请填空。(9) 以下程序的功能是：把当前目录下的顺序文件smtextl.txt的内容读入内存，并在文本框Textl中显示出来。请填空。Private Sub Command1_Click()Dim inData As StringText1.Text=""Open ".text1.txt" 【14】 As #1Do While 【15】 Input

16、#1,inDataText1.Text=Text1.Text&inDataLoopClose #1三、编程（30分，每题10分）1、 编程实现，将两个变量的值进行交换，例如a=5,b=4运行程序后a=4,b=5。2、 编制判断是否同时被17与37整除的Function过程。在列表框中输出1001000之间所有能同时被17与37整除的数。3、 将磁盘的上的两个文本文件a.txt和b.txt的内容合并到文件c.txt中。答案：一、选择题1.C 2.A 3.D 4.B 5.C6.A 7.A 8.D 9.B 10.B11.D 12 .C 13.A 14.B 15.C16.B 17.A 18.B

17、 19.C 20.C二、填空题1.顺序 2.选择 3.循环 4.BAS 5.200 6.x>=07.x<amin或x<=amin>x或amin>=x8.99. timer10.Rnd或Rnd(n)11.X mod 512. x 13. *(1/i )14. For Input 15.Not EOF(1)三、编程题1、Sub swap()Dim c As Integer, a As Integer, b As Integera=inputbox(“Enter an integer a”)b=inputbox(“Enter an integerb”)print a,b

18、c = aa = bb = cprint a,b2、Public Function isNum(ByVal n As Integer) If n Mod 17 = 0 And n Mod 37 = 0 Then isNum = True Else isNum = False End IfEnd FunctionSub sum() Dim i As Integer Dim sum As Integer sum = 0 For i = 100 To 1000 If isNum(i) Then Listbox1.addItem i End If Next i Print sumEnd Sub3、Sub sum()Open &qu