公选-试卷-二级考试指导VB

2010年公选课二级考试指导VB期末考试答题纸院系班级：姓名：说明：如果是文理学院学生请在院系前加“文理”一、选择题：（35*2=30）二、填空题：（15*2=30）2010年公选课二级考试指导VB期末考试试卷答题纸一、选择题：（35*2=30）(1)执行语句Dim X,Y As Integer 后,A)X和Y均被定义为整型变量B)X和Y均被定义为变体类型变量C)X被定义为整型变量,Y被定义为变体变量D)X被定义为变体类型变量,Y被定义为整型变量(2)以下关系表达式中，其值为True的是A)"XYZ">"XYz" B)"VisualBasic"<>"visualbasic"C)"the"="there" D)"Integer"<"Int"(3) 在Visual Basic中，表达式3* 2\5 Mod 3的值是Ａ）１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 SubB)Private Sub Text1_Click()Label1.Caption=str(Len(Text1.Text))End SubC)Private Sub Text1_Change()Label1.Caption=Text1.TextEnd SubD)Private Sub Label1_Change()Label1.Caption=str(Len(Text1.Text))End Sub(6)在窗体上画两个单选按钮(名称分别为Option1,Option2,标题分别为"宋体"和"黑体"),1个复选框(名称为Check1,标题为粗体)和1个文本框(名称为Text1,Text属性为"改变文字字体")，窗体外观如图所示。

程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是A)Option1.Value=FalseCheck1.Value=TrueB)Option1.Value=TrueCheck1.Value=0C)Option2.Value=FalseCheck1.Value=2D)Option1.Value=TrueCheck1.Value=1(7)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click()c=1234c1=Trim(Str(c))For i=1To 4Print____NextEnd Sub程序运行后,单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为A)Right(c1,i) B)Left(c1,i) C)Mid(c1,i,1) D)Mid(c1,i,1)(8)假定有一下程序段For i=1To 3For j=5To1Step-1Print i*jNext jNext i则语句Print i*j 的执行次数是A)15 B)16 C)17 D)18(9)在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Command1），然后编写如下事件过程：Private Sub Command1_Click()x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为A)1和0 B)2和72 C)3和50 D)4和168(10)阅读程序：Private Sub Command1_Click()a=0For j=1To15a=a+j Mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是A)105 B)1 C)120 D)15(11) 以下选项中，不合法的Visual Basic变量名是Ａ）a5b B）_xyz C）a_b D)andif(12)假定通过复制，粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是A)数组中每个命令按钮的名称(Name属性)均为Command1B)若未做修改,数组中每个命令按钮的大小都一样C)数组中各个命令按钮使用同一个Click事件过程D)数组中每个命令按钮的Index属性值都相同(14)在窗体上画一个命令按钮，名称为Command1,然后编写如下代码：Option Base0Private Sub Command1_Click()Dim A1(4)As Integer,A2(4)As IntegerFor k=0To 2A1(k+1)=InputBox("请输入一个整数")A2(3-k)=A1(k+1)Next kPrint A2(k)End Sub程序运行后,单击命令按钮，在输入对话框中依次输入2、4、6则输出结果为A)0 B)1 C)2 D)3(15) 执行以下程序段后,变量C$的值为a$="Visual Basic Programming"b$="C++"C$=UCase(Left$(a$,7)) & b$ & Right$(a$,12)A)Visual BASIC Programming B)VISUAL C++ ProgrammingC)Visual C++ Programming D)VISUAL BASIC Programming(16) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa=Array(1,2,3,4)j= 1For i=4To1Step-1s=s+a(i)*jj=j*10Next iPrint sEnd Sub程序运行后，单击命令按钮，其输出结果是A)4321 B)1234 C)34 D)12(17)以下数组定义语句中，错误的是Ａ）Static a (10) As Integer B) Dim c (3, 1 to 4)C) Dim d (-10) D) Dim b (0 to 5, 1 to 3) As Integer(18)为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把Scrollbars属性设置为Ａ）０B）１C）２D）３(19)若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是Ａ）用鼠标右键单击此按钮B）按键盘上的Esc键C）按键盘上的回车键D）用鼠标右键双击此按钮(20)能够存放组合框的所有项目内容的属性是Ａ）Caption B)Text C)List D)Selected(21)设有如图所示窗体和以下程序：Private Sub Command1_Click()Textl.Text=“Visual Basic”End SubPrivate Sub Text1_LostFocus()If Text1.Text <>“BASIC”ThenText1.Text=””Text1.SetFocusEnd IfEnd Sub程序运行时，在Text1文件框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是Ａ）文本框中无内容，焦点在文本框中B）文本框中为“Basic”,焦点在文本框中C）文本框中为“Basic”,焦点的按钮上D）文本框中为“Visual Basic”,焦点的按钮上(22)窗体上有一个名称为Command1的命令按钮，其事件过程如下：Private Sub Command1_Click()x=“VisualBasicProgramming”a=Right(x,11)b=Mid(x,7,5)C=Msgbox(a, , b)End Sub运行程序后单击命令按钮，以下叙述中错误的是Ａ）信息框的标题是Basic B)信息框中的提示信息是ProgrammingC) C的值是函数的返回值D）MsgBox的使用格式有错(23)窗体上有一个名称Text1的文本框，一个名称为Command1的命令按钮。

窗体文件的程序如下：Private Type xa As Integerb AS IntegerEnd TypePrivate Sub Command1_Click()Dim y As xy.a = InputBox(“”)If y.a\2=y.a/2 Theny.b=y.a*y.aElsey.b = Fix(y.a/2)End IfText1.Text=y.bEnd Sub对以上程序，下列叙述中错误的是Ａ）x是用户定义的类型B）InputBox函数弹出的对话框中没有提示信息C）若输入的是偶数，y.b的值为该偶数的平方D）Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回(24)窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数Command1,其下标从左到右分别为0、1、2、3,窗体外观如图所示。

命令按钮的事件过程如下：Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0CD1.Action=1Case 1CD1.ShowSaveCase 2CD1.Action=5Case 3EndEnd SelectEnd Sub对上述程序，下列叙述中错误的是Ａ）单击“打开”按钮，显示打开文件的对话框B）单击“保存”按钮，显示保存文件的对话框C）单击“打印”按钮，能够设置打印选项，并执行打印操作D）单击“退出”按钮，结束程序的运行(25)窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Command1，并编写了以下程序：Private Sub Command1_ClickOCall Cale (HV.V alue, HT.V alue)End SubPublic Sub Cale(x AS Integer , y AS Integer)Text1.Text = x* yEnd Sub运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。