VB6.0 练习卷4.doc

Visual Basic程序设计试题一、判断题（本大题共10小题，每小题1分，共10分）判断下列各题，正确的在题后括号内打“”，错的打“”。1. 如果窗体的Enabled属性为False，就不能对窗体上的任何控件进行操作。()2. VB的Double类型数据可以精确表示其数值范围内的任何实数。()3. 窗体的Top、Left属性为数值，其单位长度只能是缇。()4. 要使输入文本框的字符始终显示“#”，则应修改其PasswordChar属性为“#”。()5. 代码窗口内“通用”部分和其中某过程中声明了同名的变量，他们是同一变量。()6. 在用户拖动滚动框时，发生滚动条控件的Change事件。()7. 通过设置CommonDialog控件的Enabled属性，可以选择该控件是否可用。()8. 在VB6.0中利用菜单编辑器设计下拉式菜单，不能超过三层。()9. 选中文件列表框File1中某选项时，File1.FileName属性值为所选文件的全名。()10. Open语句中的通道号，必须是当前未被使用的、最小的作为通道号的整数值。()二、单项选择题(本大题共10小题，每小题1分，共10分)在每小题列出的备选项中只有一个是符合题目要求的，请将其代码填写在题后的括号内。错选、多选或未选均无分。1. 改变控件在窗体中的上下位置应修改该控件的_属性。()A.TopB.LeftC.Width D.Right2. 使输入焦点到文本框控件Text1，应执行语句()A.Text1.DataFieldB.Text1.SetFocus C.Text1.GetFocus D.Text1.SelStart3. 若s的当前值为0、i的当前值为1，执行下列语句后s、i的值分别为()Do s = s + i: i = i + 2Loop Until s20A.25和11B.20和10 C.1和3 D.19和94. 执行Sub过程中的语句_可结束调用该Sub过程。()A.Exit Sub B.Break Sub C. BreakD. Exit5._对象不能作为控件的容器。()A.Form B.PictureBoxC.Shape D.Frame6. 设置为单选的列表框控件List1中，对当前选中的表项不正确的表示方式是()A.List1.Text B.List1.List(List1.ListIndex)C.List1.List(ListIndex)7. 在图片框控件pic1上坐标（x,y）处画一个红点，写作()A.Pset(x,y),Rgb(255,0,0) B.Pic1.Pset(x,y),RedC.Pset(x,y),RedD.Pic1.Pset(x,y),vbRed8. RGB函数中的3个数字分别表示()A.红、绿、白B.红、绿、蓝C.色调、饱和度、亮度 D.当前色、背景色、前景色9. 语句“Circle(1000,1000),800，2”绘制的是()A.弧 B.椭圆 C.扇形 D.同心圆10. 同层次菜单项的_属性设置为相同，才可以设置索引值、组成控件数组。()A.Caption B.Name C.IndexD.ShortCut三、填空题(本大题共8小题，每小题2分，共16分)请在每小题的空格中填上正确答案。错填、不填均无分。1. VB的常量 &H23所表示的十进制数为 _。2. 将数学式 log(xy) 写作VB算术表达式为_。3. 判断X是否满足条件“|X|2”的VB逻辑表达式为_。4. 从字符串s1中第2个字符开始搜索子串s2，写作_ 。5. 在窗体代码窗口的“通用”部分，用 _ 声明的变量是模块级变量。6. 定时器控件的 _ 属性值设置为False时，不响应Timer事件。7. 窗体或图片框控件的_ 方法可以改变该控件的坐标系。8. 数据绑定控件的 _属性返回或设置数据源，将控件绑定到一个数据库。四、程序填空题（本大题共11小题，每小题2分，共22分）阅读下列各程序，根据程序说明在每小题提供的若干可选答案中挑选一个正确答案，用字母A、B、C或D填写在程序中划线处。1.【程序说明】单击窗体后输入m，输出其所有素数因子。如输入12则输出2、2、3，输入30则输出2、3、5，输入60则输出2、2、3、5。【程序】Private Sub Form_Click( )Dim k As Integer, m As Integerm = InputBox(m=)(1) Do While m 1If m Mod k = 0 ThenPrint k: (2) Else(3) End IfLoopEnd Sub【供选择的答案】(1) A.k = 0 B.k = 1 C.k = 2 D.m = 2(2) A.m = m / k B.m = m Mod k C.k = m / k D.k = k / m(3) A.m = m / k B.k = k + 1 C.k = k - 1 D.k = k / m2.【程序说明】自定义Sub过程s2，返回一维数组n个元素中的最大值、最小值。【程序】Private Sub s2( a( ) As Single,n As Integer, (1) ) Dim i As Integermax = a(1): min = (2) For i = 2 To nIf a(i) max Then (3) If a(i) Sqr(i) Then (4)_Next iClose #1End Sub 【供选择的答案】(1) A.e:su.txt B.e:su.txtC.su.txt D.su.txt(2) A.0 B.1C.2D.3(3) A.= B.D.(4) A.Print i B.Print #1, iC.Write jD.Write #1, j五、程序阅读题（本大题共11小题，每小题2分，共22分）阅读下列程序并回答问题，在每小题提供的若干可选答案中挑选一个正确答案，用字母A、B、C或D填写在每小题后的括号内。1.【程序】Private Sub Command1_Click( )Dim a As Integer, s As Integera = 5: s = 0Do While a 1s = s + a: a = a - 1Print s; aLoopEnd Sub【供选择的答案】(1) 单击Command1后窗体上显示的第一行是()A.51 B.50C.45 D.54(2) 单击Command1后窗体上显示的第二行是()A.39 B.59C.93 D.95(3) 单击Command1后窗体上显示的第三行是()A.114 B.122C.212 D.141(4) 单击Command1后窗体上显示的第四行是()A.114 B.122C.212 D.1412.【程序】Dim n As IntegerPrivate Sub Form_Load( )Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click( )Dim x As IntegerForm1.Cls: n = 0Timer1.Interval = InputBox(x=)Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer( )n = n + 1:Print n;Timer1.Interval = Timer1.Interval / 20End Sub【供选择的答案】(1) 单击Command1后输入100，窗体上显示()A.123 B.12C.01 D.11(2) 单击Command1后输入200，窗体上显示()A.123 B.12C.01 D.11(3) 单击Command1后输入300，窗体上显示()A.345 B.456 C.234D.1233.【程序】Private Sub Command1_Click( )P1.Scale (0, 0)-(1, 1)P1.Line (0, 0.5)-(1, 0.5):P1.Line (0.5, 0)-(0.5, 1)End SubPrivate Sub Command2_Click( )P1.ClsP1.Scale (-1, 1)-(1, -1)P1.Line (0, 0)-(-1, -1): P1.Line (0, 0)-(1, -1)End SubPrivate Sub Command3_Click( )P1.ClsP1.Line (0, 1)-(-1, -1): P1.Line (0, 1)-(1, -1)End SubPrivate Sub Command4_Click( )P1.Scale: P1.ClsP1.Line (P1.ScaleLeft, P1.ScaleHeight/2) _(P1.ScaleLeft + P1.ScaleWidth, P1.ScaleHeight/2)P1.Line (P1.ScaleLeft + P1.ScaleWidth/2,P1.ScaleTop) _(P1.ScaleLeft + P1.ScaleWidth / 2, P1.ScaleTop + P1.ScaleHeight)End Sub【供选择的答案】(1) 运行时首先单击Command1，图片框控件P1中显示结果的示意图为()(2) 然后再单击Command2，图片框控件