二级VISUAL+BASIC分类模拟199.docx

1、二级VISUAL+BASIC分类模拟199二级VISUAL BASIC分类模拟199一、选择题1、下列标签属性中属于逻辑型的是_。 ACaption BBorderStyle CVisible DName2、窗体上有一个名为Label1的标签，为了使该标签透明并且没有边框，正确的属性设置为_。 ALabel1.BackStyle=0 Label1.BorderStyle=0 BLabel1.BackStyle=1 Label1.BorderStyle=1 CLabel1.BackStyle=True Label1.BorderStyle=True DLabel1.BackStyle=False

2、 Label1.BorderStyle=False3、设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是_。 AText1.MaxLength=0 BText1.Enabled=False CText1.Visible=False DText1.Width=04、窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是_。 Private Sub Command1_Click() Picture1.Picture=LoadPicture(c:1.jpg) Picture1.Cls Picture1.Print Test E

3、nd Sub A窗体无显示，图片框显示图片和文字Test B窗体上出现Test文本，图片框无显示 C窗体上出现Test文本，图片框显示图片1.jpg D窗体无显示，图片框只显示Test文字5、以下关于Image控件和PictureBox控件的说明中，错误的是_。 AImage控件和PictureBox控件都有Picture属性 BImage控件和PictureBox控件都支持Print方法 CImage控件和PictureBox控件都可以用LoadPicture函数把图形文件装入控件中 DImage控件和PictureBox控件都能在属性窗口装入图形文件，也都能在运行期间装入图形文件6、以下关

4、于图片框控件的说法中，错误的是_。 A可以通过Print方法在图片框中输出文本 B清空图片框控件中图形的方法之一是加载一个空图形 C图片框控件可以作为容器使用 D用Stretch属性可以自动调整图片框中图形的大小7、命令按钮不支持的事件是_。 AClick BDblClick CGotFocus DLostFocus8、设置复选框或单选按钮标题对齐方式的属性是_。 AAlign BStyle CSorted DAlignment9、在窗体上画两个单选按钮，名称分别为Option1和Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1，标题为“粗体”；一个文本框，名称为T

5、ext1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是_。 AOption1.Value=True Check1.Value=False BOption1.Value=True Check1.Value=True COption2.Value=False Check1.Value=True DOption1.Value=True Check1.Value=110、窗体上有一个按钮和一个列表框(Sorted属性为True)，执行下列过程后的输出结果为_。 Private Sub Command1_Click() List1

6、.AddItem China List1.AddItem Great List1.AddItem Is ,1 List1.AddItem !,3 Print List1.List(2) End Sub AChina BGreat CIs D!11、给程序的空白行选择适当的语句。 该程序段的功能是：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。程序如下： Do While List2.ListCount _ List2.RemoveItem 0 Loop AList1.AddItem List2.List(0) BList1.Add

7、Item List2.Text CList2.AddItem List1.List(0) DList2.AddItem List1.Text12、下列每组控件中，都包含有滚动条的一组控件是_。 AListBox和Label BTextBox和DriveListBox CComboBox和CheckBox DFileListBox和DirListBox13、运行下列程序后，显示的结果为_。 R1=21 R2=34 If R1R2 Then Print R2 Else Print R1 A21 B34 C55 D213414、如果A为整数且|A|=100，则打印OK，否则打印Error，表示这个条

8、件的单行格式If语句是_。 AIf IntA.=A And SqrA.=100 Then Print OK Else Print Error BIf FixA.=A And AbsA.=100 Then Print OK Else Print Error CIf IntA.=A And (A=100, A=-100) Then Print OK Else Print Error DIf FixA.=A And A=100 And A=-100 Then Print OK Else Print Error15、下列程序的执行结果是_。 a=75 If a90 Then i=4 If a80 Th

9、en i=3 If a70 Then i=2 If a60 Then i=1 Print i=;i Ai=1 Bi=2 Ci=3 Di=416、有如下程序： a=1:b=2:c=3 a=a+b:b=b+c:c=b+a If a3 Or b3 Then a=b-a:b=c-a:c=b+a End If Print a+b+c 运行后，输出的结果是_。 A16 B3 C6 D817、有一程序段，其功能是：当x0时，y=x；当-2=x=0时，y=-x,当x-2时，产生一个“输入错误”信息框。则下列程序空白处应为_。 Private Sub Form_Click() x%=InputBox(请输入x的

10、值:) If x0 Then y=x _ y=-x Else MsgBox输入错误 End If rint y End Sub AElse x=-2 And x=0 Then BElseIfx=-2 And x=0 Then CElseIf x=-2 And x=0 DElse If x=-2 And x=0 Then18、执行下面的程序段后，变量c的值为_。 a=29 b=33 Select Case b10 Case 0 c=a*10+b Case 1 To 9 c= a*100+b Case 10 To 99 c= a*1000+b End Select Print c A29 B293

11、3 C33 D332919、下述程序的功能是_。 x=(a+B.*A.-(a*b+C. n=Len (x) m=0 For k=1 To n p $=Mid(x,k,1) If p $=(Then m=m-1 ElseIf p $=)Then m=m+1 End If Next k If m0 Then print :-( Else print :-) End If A统计输入的字符串中括号的总数 B统计输入的字符串中匹配的括号的对数 C检查输入的字符串中的括号是否能够匹配 D删除字符串的括号20、下述程序段中，与其他3个程序段作用不同的是_。 As=0 i=0 While i100 s=s+

12、1 Wend Bs=0 i=0 While i100 i=i+1 Wend Cs=0 Do While i100 s=s+1 i=i+1 Loop Ds=0 i=0 Do Until i=100 s=s+1 i=i+1 Loop21、下面的数组声明语句中正确的是_。 ADim A3,4As Integer BDim A(3,4) As Integer CDim A3;4As Integer DDim A(3;4) As Integer22、有如下程序： Dim arr (3,3) For j=1 To 3 For k=1 To 3 arr (j,k)=(j-1)*3+k Next k Next

13、 j For j=2 To 3 For k =2 To 3 Print arr (k,j); Next k Print Next j 运行程序后，输出的结果是_。 A25 36 B58 69 C47 58 D59 6823、有如下的程序段： Dim a (4) As Integer Dim b (4) As Integer For k =0 To 2 a(k+1)=Val(InputBox (Enter data:) b(3-k)=a(k+1) Next k Print b (k) 程序运行后，依次输入1、3、5，输出的结果是_。 A1 B3 C5 D024、有如下的程序段： Dim t (1

14、0) For k=2 To 10 t(k)=10-k Next k x=6 Print t(2+t(x) 程序运行后，输出结果为_。 A2 B3 C4 D525、设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1_Click() Dim a (30) As Integer For i=1 To 30 a(i)=Int (Rnd*100) Next For Each arrItem In a If arrItem Mod 7=0 Then Print arrItem; If arrItem90 Then Exit For Next End Sub 对

15、于该事件过程，以下叙述中错误的是_。 Aa数组中的数据是30个100以内的整数 B语句For Each arrItem In a有语法错误 CIfarrItem Mod 7=0语句的功能是输出数组中能够被7整除的数 DIfarrItem90语句的作用是当数组元素的值大于90时退出For循环26、设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim I As Integer a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后，单击窗体，则在窗体

16、上显示的内容是_。 A4321 B5432 C6543 D7654二、操作题27、考生文件夹 在名称为Form1、标题为“标签”的窗体上添加一个名称为Label1的标签，并设置适当属性以满足以下要求。 标签的标题为“计算机等级考试”。 标签可根据标题内容自动调整其大小。 标签带有边框，且标签标题显示为三号字。 程序运行后的窗体如下图所示。 注意 存盘时必须存放在考生文件夹下，工程文件名保存为zcsj1.vbp，窗体文件名保存为zcsj1.frm。28、考生文件夹 在名称为Form1的窗体上添加一个标签(名称为Label1，标题为空白，BorderStyle属性为1，Visible属性为Fals

17、e)、一个文本框(名称为Text1，Text属性初始内容为空)和一个命令按钮(名称为Command1，标题为“显示”)，如下图1所示。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入“计算机等级考试”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。程序运行后的窗体如下图2所示。要求程序中不得使用任何变量。 图1 图2 注意 存盘时必须放在考生文件夹下，工程文件名保存为zcsj2.vbp，窗体文件名保存为zcsj2.frm。29、考生文件夹 在名称为Form1的窗体上添加一个名称为Picture1的图片框(PictureBox)，高、宽均为1000mm。在图片框内

18、再添加一个有边框的名称为Image1的图像框(Image)。并通过属性窗口把考生文件夹下的图标文件Point11(香蕉图标)装入图像框Image1中，如下图所示。 注意 存盘时必须存放在考生文件夹下，工程文件名保存为zcsj3.vbp，窗体文件名保存为zcsj3.frm。30、考生文件夹 在名称为Form1的窗体上添加一个名称为Shape1的形状控件，要求在属性窗口中将其形状设置为椭圆，其短轴(垂直方向)、长轴(水平方向)的长度分别为800mm、1600mm。把窗体的标题改为“Shape控件”，窗体上无最大化、最小化按钮。程序运行后的窗体如下图所示。 注意 存盘时必须存放在考生文件夹下，工程文

19、件名保存为zcsj4.vbp，窗体文件名保存为zcsj4.frm。31、考生文件夹 在考生文件夹下有一个工程文件zcsj1.vbp，其窗体如下图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法为：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，将“明文”中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 注意 不得修改程序中的其他部分和控件的属性，最后

20、将修改后的文件按原文件名存盘。32、考生文件夹 在考生文件夹下有一个工程文件zcsj2.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项(见下图1)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”按钮，则在Text1文本框中显示这些选中的城市(见下图2)。已经给出了所有控件和程序，但程序不完整。 图1 图2 要求 请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。33、考生文件夹 考生文件夹下的工程文件zcsj3.vbp中有

21、2个初始标题分别为“移动”和“退出”的命令按钮；1个初始状态为不可用的时钟Timer1。请添加1个标签Label1，其标题为“计算机考试”，字体为黑体小四号字，左边界为500，且能根据显示的内容自动调整大小，如下图所示。 该程序的功能如下。 单击标题为“移动”的按钮时，该按钮标题自动变换为“暂停”，且标签在窗体中开始向右移动。当标签右侧到达窗体右界时，标签移动的方向改变为从右向左移动；当标签左侧触及窗体左界时，标签移动的方向改变为从左向右移动，如此反复。 单击“暂停”按钮时，该按钮的标题自动变换为“移动”，并暂停标签内容的移动。 单击“退出”按钮，则结束程序的运行。 命令按钮的Click事件过

22、程已经给出，但事件过程不完整，请将其中注释符去掉，把?改为正确的内容，以实现上述程序的功能。 注意 不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名进行存盘。34、考生文件夹 在考生文件夹下有一个工程文件zcsj4.vbp，请在窗体上添加两个单选按钮(名称分别为Option1和Option2，标题分别为“添加项目”和“删除项目”)、一个列表框(名称为List1)和一个文本框(名称为Text1)，如图1所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目内容(内容任意，不少于三个)，并添加到列表框中；如果选择“

23、删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目内容，将其从列表框中删除。程序的运行情况如图2所示。 图1 图2 在考生文件夹下的工程文件zcsj4.vbp(相应的窗体文件名为zcsj4.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。 要求 去掉程序中的注释符，把程序中的?改为适当的内容，使其正常运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。35、考生文件夹 在考生文件夹下有一个工程文件zcsj1.vbp，相应的窗体文件为zcsj1.frm。其功能是随机产生30个01000的整数，将其放入一个数组中，然后输出其中的最大值。程序运行后，单击“输出

24、最大值”按钮(名称为Command1，如下图所示)，即可求出其最大值，并显示在窗体上。这个程序不完整，请把它补充完整，并能正确运行。 要求 去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。36、考生文件夹 在考生文件夹中有工程文件zcsj2.vbp，其中的窗体如下图所示。程序刚运行时，生成一个有10个元素的整型数组。若选中“查找最小值”(或“查找最大值”)单选按钮，单击“查找”按钮，则找出数组中的最小值(或最大值)，并在标签Label2中显示。请去掉程序中的注释符，将程序中的?改为正确的内容。 注意 考生不得修改窗体文件中已经存在的程序，最后将修改后的文件按原文件名进行存盘。37、考生文件夹 在考生文件夹下有一个工程文件zcsj3.vbp，相应的窗体文件为zcsj3.frm。其功