公选-试卷-二级考试指导节vb.doc

2010年公选课二级考试指导VB 期末考试答题纸 院系班级：姓名：说明：如果是文理学院学生请在院系前加“文理” 一、选择题：（35*2=30） 题号 1 2 3 4 5 6 7 8 9 10 答案题号 11 12 13 14 15 16 17 18 19 20 答案题号 21 22 23 24 25 26 27 28 29 30 答案题号 31 32 33 34 35答案二、填空题：（15*2=30） 题号 2 3 空号 [1] [2] [3] [4] [5] 答案题号 5 空号 [6] [7] [8] [9] [10] 答案题号 7 空号 [11] [12] [13] [14] [15] 答案(1)执行语句 Dim X,Y As Integer 后,A)X和Y均被定义为整型变量 B)X和Y均被定义为变体类型变量 C)X被定义为整型变量,Y被定义为变体变量 D)X被定义为变体类型变量,Y被定义为整型变量(2)以下关系表达式中，其值为True的是A)XYZXYzB)VisualBasicvisualbasic C)the=thereD)IntegerInt (3) 在Visual Basic中，表达式3* 2\5 Mod 3的值是 B Ａ）１B）０C）３ 　D）出现错误提示 (4)下列叙述中正确的是A)MsgBox语句的返回值是一个整数 B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作 C)MsgBox语句的第一个参数不能省略 D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空 (5)在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后, 在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数,以下可以实现上述操作的事件过程是A)Private Sub Text1_Change() 　　Label1.Caption=str(Len(Text1.Text)) 　End Sub B)Private Sub Text1_Click() 　　Label1.Caption=str(Len(Text1.Text)) 　End Sub C)Private Sub Text1_Change() 　　Label1.Caption=Text1.Text 　End Sub D)Private Sub Label1_Change() 　　Label1.Caption=str(Len(Text1.Text)) 　End Sub (6)在窗体上画两个单选按钮(名称分别为Option1,Option2,标题分别为宋体和黑体),　　1个复选框(名称为Check1,标题为粗体)和1个文本框(名称为Text1,Text属性为改变　文字字体)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被　　选中，则以下能够实现上述操作的语句序列是 A)Option1.Value=False 　Check1.Value=True B)Option1.Value=True 　Check1.Value=0 C)Option2.Value=False 　Check1.Value=2 D)Option1.Value=True 　Check1.Value=1 (7)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private　Sub　Command1_Click() 　　c=1234 　　c1=Trim(Str(c)) 　　For　i=1　To　4Print　____ 　　Next End　Sub 程序运行后,单击命令按钮，要求在窗体上显示如下内容：1 12 123 1234 则在横线处应填入的内容为 A)Right(c1,i)B)Left(c1,i) C)Mid(c1,i,1) D)Mid(c1,i,1) (8)假定有一下程序段For　i=1　To　3For　j=5　To　1　Step　-1Print　i*j Next　j Next　i 则语句Print i*j 的执行次数是A)15B)16 C)17D)18 (9)在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为　　Command1），然后编写如下事件过程：Private　Sub　Command1_Click() 　　x=0 　　Do　While　x50x=(x+2)*(x+3) 　n=n+1 　　Loop 　　Text1.Text=Str(n) 　　Text2.Text=Str(x) End　Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为 A)1和0B)2和72C)3和50D)4和168 (0)阅读程