VB作业1
- 格式:doc
- 大小:132.00 KB
- 文档页数:8
选择题 1启动窗体时,系统自动执行窗体的 事件。 A、load B、click C、unload D、GotFocus 2关于变体变量(Varient),下列说法正确的是____________。 A、变体变量定义后,系统将变体变量初始化为数值0或空字符串 B、设x为变体变量,且x="101",则x=x+201是正确的 C、变量未定义而直接使用,该变量即为变体变量,所以变体变量是无类型的 D、变体变量占用16字节的固定存储单元 3统计年龄age不超过35岁且职称zc是"教授"或"副教授"的人数,表示该条件的逻辑表达式是____________。 A、age<=35 and zc="教授" zc="副教授" B、age<=35 and zc="教授" or zc="副教授" C、age<=35 and zc="教授" and zc="副教授" D、age<=35 and (zc="教授" or zc="副教授") 4下列循环语句能正常结束的是 。 A、I=5 Do I=I+1 Loop until I<0 B、I=10 Do I=I−1 Loop until I<0 C、I=6 Do I=I−2 Loop until I=1 D、I=1 Do I=I+2 Loop until I=10 5在程序代码中清除图片框Picture1中的图形的正确语句是______。 A、Picture1.Picture="" B、Picture1.Picture=LoadPicture("") C、Picture1.Image="" D、Picture1.Picture=Null 6命令按钮、单选按钮和复选框上都有Picture属性,可以在控件上显示图片,但需要通过 控制。 A、Appearance属性 B、DisabledPicture属性 C、DownPicture属性 D、Style属性 7 设在窗体中有一个名称为List1的列表框,其中有若干个项目(如图)。要求选中某一项后单击Command1按钮,就删除选中的项,则正确的事件过程是______。 A、Private Sub Command1_Click() List1.RemoveItemList1.ListIndex End Sub B、Private Sub Command1_Click() List1.RemoveItem End Sub C、Private Sub Command1_Click() List1.Clear End Sub D、Private Sub Command1_Click() List1.Clear List1.ListIndex End Sub 8在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000, Enabled属性设置为False。程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序: Private Sub Command1_Click() Timer1.______ End Sub Private Sub Timer1_Timer() Text1.Text = Time End Sub 在下划线处应为: A、Enabled = True B、Visible = True C、Visible = False D、Enabled = False 9窗体模块的扩展名为 。 A、.frm B、.frx C、.bas D、.exe 10数组Dim arr(-1 to 4,2 to 4,3) 的元素个数是 。 A、36 B、30 C、72 D、60 11下列关于ReDim语句的说法中,正确的是 。 A、可以用ReDim语句改变数组元素的个数 B、在一个程序中,只能使用一次ReDim语句来定义同一数组 C、可以用ReDim语句改变数组的数据类型和数组的维数 D、可以用ReDim语句改变数组的数据类型和数组的维数 12假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是______。 A、用名称Command1(下标)可以访问数组中的每个命令按钮 B、数组中所有命令按钮可以使用同一个事件过程 C、数组中每个命令按钮的名称(Name属性)均为Command1 D、数组中每个命令按钮的标题(Caption属性)都一样 13在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1_Click() d = 0 c = 10 x = Array(10,12,21,32,24) For i = 1 To 5 If x(i) >c Then d = d + x(i) c = x(i) Else d = d - c End If Next I Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容 A、77 B、99 C、23 D、89 14SUB 过程与Function过程最根本的区别是 。 A、SUB 过程可以用Call语句直接调用,而Function过程不能 B、两种过程的传递方式不同 C、Function过程可以有形参,而SUB 过程不可以 D、SUB 过程不能返回值,而Function过程可以返回值 15有如下过程代码: Sub var_dim( ) Static numa As Integer Dim numb As Integer numa=numa+2 numb=numb+1 print numa;numb End Sub 连续3次调用var_dim过程,第3次调用时的输出是______。 A、6 1 B、2 3 C、2 1 D、6 3 16可以在窗体模块的通用声明段中声明______。 A、全局变量 B、全局用户自定义类型 C、全局常量 D、全局数组 17若已编写了一个Sort子过程,在该工程中有多个窗体,为了方便地调用Sort子过程,应将该过程放在 中。 A、窗体模块 B、工程 C、类模块 D、标准模块 18以下叙述中错误的是( ) A、一个工程中只能有一个SubMain过程 B、窗体的Hide方法和UnLoad方法的作用完全相同 C、若工程文件中有多个窗体,可以根据需要指定一个窗体为启动窗体 D、窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体 19下列关于VB坐标系的说法不正确的是( )。 A、VB坐标系统是一个二维网格,其纵轴的正方向向下 B、移动控件或调整控件的大小时,使用控件容器的坐标系统 C、系统默认的单位是缇(twips),可通过更改容器的ScaleMode来改变单位 D、缺省的坐标系统都是由容器的左上角(0,0)坐标开始的,起始坐标不能更改,但刻度可以更改 20在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。 设置两个控件同步的命令放在一个事件过程中,这个事件过程是( )。 A、Drive1_Change B、Drive1_Click C、Dir1_Change D、Dir1_Click 填空题 1面向对象的程序设计是一种以_____为基础,由_____驱动对象的编程技术 2对象的标题文字的颜色是由_____属性决定的 3长整型变量(Long类型)占用_____个字节 4图片框内可使PictureBox根据图片调整大小的属性为_____;图像框为_____,若使Image控件可根据图片调整大小,该属性值应为_____ 5 列表框list1中项目的序号是从0开始的,_____表示列表框中最后一项的序号,_____方法可清除列表框的所有内容 6在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程: Dim I as Integer, s as Long Dim arr1(18) As Integer For i = 0 To 18 arr1(i) = i Next i Erase arr1 For i = 1 To 18 s = s + arr1(i) Next i Print s End Sub 程序运行后,单击Command1命令按钮,则程序输出的结果是_____ 7下面程序的运行结果为_____。 Private Sub Command1_Click() Dim x%, y% x = 18 y = 25 Call swap(x, y) Print x End Sub Private Sub swap(a%, b%) Dim t% t = a a = b b = t End Sub 8将控件CommonDialog1设置为"颜色"对话框,可使用_____ 9对于具有上档字符和下档字符的键,当执行KeyDown事件过程时,KeyCode是_____的Ascii码 10_____语句可以改变文件操作的当前目录 程序设计 '题目: (事件)单击窗体。 ' (响应)已知sum=1!-2!+3!-4!...-10!, ' 请将sum结果值输出到窗体上。 ' 使用do while...loop语句完成程序 程序填空 1'题目:窗体上建立了两个文本框Text1(输入字符串)及 ' Text2(转换结果),一个命令按钮Command1("清除")。 ' 录入Text1内容时将,将录入内容大写字母转为小写, ' 小写转为大写 '请在_____处填入正确的内容 '------------------------------------------------------- ' Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim s As String * 1 '**********FILL********** s = _____(KeyAscii) Select Case s '**********FILL********** Case "A" _____ "Z" s = LCase(s) Case "a" To "z" '**********FILL********** s = _____ Case Else s = "*" End Select Text2.Text = Text2.Text + s End Sub 2'题目:用户界面如图所示,用实现左右两个组合框中数据的左移和右移功能。 ' 程序开始运行时,在左边组合框中生成10个由小到大排列的随机三位 ' 正整数 (假设在设计阶段该组合框的Sorted属性值已设置为True), 现要求完成: ' (1)单击">>"钮,左边组合框中的10个数全部移动到右边组合框,并由大到 ' 小排列,同时使"<<"钮能响应,">>"钮不能响应。 ' (2)单击"<<"钮,右边组合框中的10个数全部移到左边的组合框,并由小到 ' 大排列,同时使">>"钮能响应,"<<"钮不能响应; ' (3)单击"结束"按钮,结束程序运行。 '