Visual Basic试题4.doc

Visual Basic程序设计 试题4 答案一、填空(每小空2.5分，共25分)1. VB应用程序开发的一般步骤是创建_，设置_，编写_。2.常量是在程序运行过程中，_的量。3. VB的运算符包括_运算符、_运算符、关系运算符、逻辑运算符和特殊运算符。4.动态数组是指_的数组。5.工程文件是_和对象以及所设置的环境信息的一个简单列表。6.在VB中，若要改变一个窗体的标题，应在属性窗口中改变这个窗体的_属性的值。7.多文档界面是指在一个父窗口下面可以同时打开多个子窗口。子窗口归属于父窗口，如果父窗口关闭，则所有子窗口_关闭。二、选择题(每题2分，共20分)1.下列除_外均不是VB合法的变量名。 A. 3ABC B. ABC_3 C. ABC.3 D. _ABC2.在VB中，若要改变一个标签（Label）上显示的内容的水平对齐方式，应当在属性窗口中改变这个标签的_属性的值。A. Text B. List C.Name D. Alignment3.在VB中，函数 INT(-3.6) 的值是_。A. -4 B. -3 C.3 D. 44.在VB中，窗体模块文件的扩展名是_。A. .bas B. .vbg C. .frm D. .vbl5.以下选项中，不属于图片框（Picture Box）的属性是_。A. Align B. Caption C.Picture D. Visible6.通过以下_的设置，可使得在向文本框中输入信息时显示“#”。A.将Text属性值设置为“#” B.将Name属性值设置为“#”C.将Passwordchar属性值设置为“#” D.将Passwordchar属性值设置为True7. 对于定时器（Timer）控件，设计其定时是否开启的属性是（ ）。AIndexBTagCEnabledDLeft 8.下列关于VB命令按钮的叙述中，除_外均是正确的。A.如果属性“Enabled”的值设为False，则该按钮灰化。B.如果属性“Visible”的值设为False，则该按钮不可见。C.如果属性“Text”的值设为“OK”，则该按钮上的文字是“OK”。D.如果属性“Cancel”的值设为True，则当按Esc键时等效于按该按钮。9.下列事件中，最后执行的事件是_。A. Form_Load B. Form_InitializeC. Form_Activate D. Form_Paint10.下列关于窗体（Form）的四个描述中，正确的是_。A.只有用于启动的窗体可以有菜单。B.窗体事件和其中所有控件事件的代码都放在窗体文件中。C.窗体的名字和存盘的窗体文件名必须相同。D.开始运行时窗体的位置只能是设计阶段时显示的位置。三、判断题(每题1分，共10分)1. VB通过窗体管理构成应用程序的各类文件的集合。 （ ）2.在标准模块的声明部分中用Private声明的变量的有效范围是其所在的工程。 （ ）3.组合框包含了列表框的功能。 （ ）4.在VB中，运算“ABA”Like“a?a”的结果是False。 （ ）5.如果在过程调用时使用按地址传递参数，则在被调过程中不可以改变实参的值。 （ ）6.文件按照数据编码方式可以分为ASCII码文件和二进制文件。 （ ）7.在VB中，函数 Fix(-3.6) 的返回值是 4。 （ ）8.在VB中，可以将在Picture控件中绘制的图形以文件的形式保存在磁盘上。 （ ）9.如果没有使用Public、Private或者Friend，Sub过程在缺省情况下是公用的。 （ ）10. VB支持弹出菜单，所谓“弹出菜单”是指单击鼠标后打开的菜单。 （ ）四、读程序题(每题5分，共15分)1.设在一个窗体中已设计了如下过程，请写出运行的结果。Option ExplicitDim ThisArray() As IntegerPrivate Sub Command1_Click()Dim tt As IntegerDim ss As IntegerDim ii As IntegerFor ii = 1 To Len(Text1.Text)If Mid(Text1.Text, ii, 1) 9 ThenMsgBox (错误！)End IfNext iiss = 0: tt = Val(Text1)Text3.Text = MyPro(tt, ss)Text2.Text = tt + ssEnd SubPrivate Sub Form_Load()ReDim ThisArray(5)Dim ii As IntegerFor ii = 1 To 5ThisArray(ii) = iiNext iiText1.Text = End SubPrivate Function MyPro(T1 As Integer, ByVal T2 As Integer) As IntegerDim ii As IntegerT2 = 1If T1 UBound(ThisArray) ThenReDim Preserve ThisArray(T1)For ii = 6 To T1ThisArray(ii) = iiNext iiFor ii = 2 To T1T2 = T2 + ThisArray(ii)Next iiT1 = 1ElseT1 = -1End IfMyPro = T2End Function2.设在一个窗体中已设计了一个文本框Text1，一个命令按钮Comd1和一组复选框Check1，并有如下过程，请写出运行的结果。Private Sub Comd1_Click()Dim ii As IntegerText1.Text = For ii = 0 To 6If Check1(ii).Value = Checked ThenText1.Text = Text1.Text & Check1(ii).Caption & , Check1(ii).Value = UnCheckedEnd IfNext iiEnd Sub3.设在一个窗体中已设计了一组五个单选按钮Option1(0) Option1(4) 和一个公共对话框ComDialog1，并有如下代码，请写出运行的结果。Private Sub Form_Load()Option1(4).Value = TrueOption1(4).Visible = FalseEnd SubPrivate Sub Option1_Click(Index As Integer)Dim FileName1 As String, FileName2 As StringSelect Case IndexCase 0ComDialog1.ShowOpenFileName1 = ComDialog1.FileNameKill FileName1Case 1ComDialog1.ShowOpenFileName1 = ComDialog1.FileNameComDialog1.ShowSaveFileName2 = ComDialog1.FileNameFileCopy FileName1, FileName2Kill FileName1Case 2ComDialog1.ShowOpenFileName1 = ComDialog1.FileNameComDialog1.ShowSaveFileName2 = ComDialog1.FileNameFileCopy FileName1, FileName2Case 3ComDialog1.ShowOpenFileName1 = ComDialog1.FileNameFileName2 = InputBox(The New file name:, FileName1)Name FileName1 As FileName2End SelectOption1(4).Value = TrueEnd Sub五、编程题(每题10分，共30分)1.设窗体上有一文本框Text1和一列表框List1，在List1中已有两个可供选择的项目“上海”、“江苏”，要求窗体显示前再将“山东”作为新的项目添加到List1中，当用户在List1中选择了一个项目后，将其所选的项目显示在Text1框中。请填空：Private Sub Form_Load( )List1. End SubPrivate Sub List1_ ( ) = List1. End Sub2.设窗体上有图片框Picture1和计时器Timer1两个控件，运行程序时，将图片加载到图片框中，然后图片框以每5秒钟一次的速度向窗体的右下方移动，每次向右、向下移动100。请填空：Option ExplicitPrivate Sub Form_load( )Picture1.Picture=loadPicture(“c:picball.ico”) .Interval=5000End SubPrivate Sub Timer1_Timer( )x=x+100y=y+100Picture1.Move End Sub3.设窗体上有一个DriveListBox控件Drive1，一个DirListBox控件Dir1和一个FileListBox控件File1，该窗体刚装入时，显示C盘根目录下的全部 .BAT 文件（如图），要求在用户选择Drive1控件中的驱动器后，Dir1控件中的目录随之改变，当Dir1中的目录改变后，File1控件中的文件随之改变。请编写出相应的程序。【参考答案】一、填空题应用程序的界面，控件的属性，响应事件的代码，其值不能改变，算术，连接，数组元素个数可以改变，与工程相关联的所有文件，Caption，全部。二、选择题1.B 2.D 3.A 4.C 5.B 6.C 7.c 8.C 9. D 10.B三、判断题1.N 2.N 3.Y 4.N 5.N 6.Y 7.N 8.Y 9.Y 10.N四、读程序题1.在点击命令按钮时，若用户在Text1中输入的不是数串，则显示出错停息；否则点击命令按钮后，若用户在Text1中输入的数大于5（设为X），则在文本框Text2中显示1，在文本框Text3中显示1至X的和；否则（即若用户在Text1中输入的数小于或等于5），在文本框Text2中显示 -1，在文本框Text3中显示1。2.在点击命令按钮后，将用户在复选框中已选择的项目（最多6个）拼接在一起，在Text1框中显示，同时清除已选择的项目。3.当用户选择单选命令按钮Option1(0) 时，删除文件；选择Option1(1)时，移动文件；选择Option1(2)时，复制文件；选择Option1(3)时，对文件进行改名。每次操作后都将对Option1所做的选择撤销。所有有关的文件名都通过ComDialog1由用户输入，仅文件改名时的新文件名用InputBox框输入。五、编程题1.AddItem（“山东”）ClickText1.TextText 2.Timer1Static x, y As Integer x , y3.完成题目要求