VB常见选择题完结版国二

1、选择1、标签框文本的对齐方式由 A 属性来决定。A、Alignment B、AlignC、BackStyle D、Autosize2、关于变体变量(Varient)，下列说法正确的是_B_。A、变体变量定义后，系统将变体变量初始化为数值0或空字符串B、设x为变体变量，且x="101"，则x=x+201是正确的C、变量未定义而直接使用，该变量即为变体变量，所以变体变量是无类型的D、变体变量占用16字节的固定存储单元3、表达式以int(8*sqr(36)*10(2)*10+0.5)/10 + val(".123e2cd")的值是_B_。A、.123e2 B、

2、12.8C、.123 D、0.54、语句If x=1 Then y=1，下列说法正确的是 D 。A、x=1和y=1均为赋值语句B、x=1为赋值语句，y=1为关系表达式C、x=1和y=1均为关系表达式D、x=1为关系表达式，y=1为赋值语句5、在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是_A_。A、Picture1.Picture=LoadPicture("mypic.jpg")B、LoadPicture("mypic.jpg")C、Picture1.Image="mypic.jpg"D、Picture1.

3、Picture="mypic.jpg"6、通过改变单选按钮（OptionButton）控件的_A_属性值，可以改变单选按钮的选取状态。A、Value B、CaptionC、Appearance D、Style7、列表框中的列表项的数目可以通过以下哪个属性的值获得_D_。A、Index B、CountC、ListIndex D、ListCount8、设计动画时通常用定时器控件 B 属性来控制动画速度。A、Timer B、IntervalC、Enabled D、Move9、下面控件中，没有Caption属性的是_A_A、组合框 B、复选框C、单选按钮 D、框架10、用下面语句定

4、义的数组的元素个数是_B_。dim A(-3 to 5) as integerA、7 B、9 C、6 D、811、下列_B_语句可以为动态数组分配实际元素个数。A、public语句 B、ReDim语句C、static语句 D、Dim语句12、假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是_A_A、数组中每个命令按钮的Index属性值都相同B、若未作修改，数组中每个命令按钮的大小都一样C、数组中各个命令按钮使用同一个Click事件过程D、数组中每个命令按钮的名称（Name属性）均为Command113、下列语句中，属于合法的Visual basic 语句是 D

5、。A、Option Base 3B、Option Base 4C、Option Base 2D、Option Base 114、在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+I Next x=2 Print a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x End Function程序运行结果为： C A、12 B、18 C、15 D、1715

6、、 Dim a, b, c As Integer a = -3 b = -2 c = 0 Call s1(a, b, c) Text1.Text = Str(c)End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是 C .A、0 B、Str(c) C、6 D、空白字符串16、设有如下过程：Sub S1(x, y, z) z = x - yEnd Sub以下所有参数都是以传地址方式调用的语句是 C .A、Call S1(8,7,z) B、Call S1(x*y,x+y,z)C、Call S1(x,y,z)D、Call S1(x+5,x-5,z)17、假定有以下程序段For i=1 T

7、o 3 For j=5 To 1 Step -1 Print i*j Next jNext I则语句Print i*j的执行次数是 _B_。A、17 B、15 C、18 D、1618、如果使菜单项前面出现""，应该设置菜单项的(a )属性。A、Checked B、VisibleC、Caption D、Enabled19、在执行了如下语句Line (500, 500) (1000, 500) : Line (750, 300) (750, 700)后，所绘出的图形是：_D_。A、一条折线 B、两条分离的线段C、一个人字形图形 D、一个十字形图形20、目录列表框的Path属性的

8、作用是_C_。A、显示当前驱动器或指定驱动器上的某目录下的文件名B、显示根目录下的文件名C、显示当前驱动器或指定驱动器上的路径D、只显示当前路径下的文件21、命令按钮的标题文字由 D 属性来设置。A、(名称) B、Name C、Text D、Caption22、下列符号常量的声明中，不合法的是B。A、const a As single=1.3B、const a As integer="13"C、const a As long=int(4.5678)D、const a="OK"23、假设变量int1是一个整型变量，则执行赋值语句int1="12&

9、quot;+34 & 11后，变量int1的值是_A_。A、4611 B、123411 C、46 D、5724、若要退出For循环，可使用的语句为C 。A、Exit Do B、ExitC、Exit For D、Exit Sub25、通过改变单选按钮（OptionButton）控件的_A_属性值，可以改变单选按钮的选取状态。A、Value B、CaptionC、Appearance D、Style26、框架内的所有控件是 D 。A、仅随框架一起显示和消失B、不随框架一起移动、显示、消失和屏蔽C、仅随框架一起移动D、随框架一起移动、显示、消失和屏蔽27、时钟控件的时间间隔是 B 。A、以小

10、时计 B、以毫秒计C、以秒计 D、以分钟计28、以下说法错误的是_C_。A、函数过程可以带参数B、子过程可以带参数C、函数过程没有返回值D、子过程没有返回值29、Dim ww(3,3) 所定义的数组元素个数是_A_。A、16 B、4 C、12 D、930、在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Option Base 0Private Sub Command1_Click() Dim city As Variant city = Array("北京","上海","天津","重庆") P

11、rint city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_D_。A、错误提示 B、北京C、空白 D、上海31、假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是_D_。A、用名称Command1（下标）可以访问数组中的每个命令按钮B、数组中所有命令按钮可以使用同一个事件过程C、数组中每个命令按钮的名称（Name属性）均为Command1D、数组中每个命令按钮的标题（Caption属性）都一样32、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=1234c1=T

12、rim(Str(c)For i=1 To 4 Print _NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在下划线处应填入的内容为_A_。A、Left(c1,i) B、Right(c1,i)C、Mid(c1,i,1) D、Mid(c1,i,i)33、设有如下通用过程：Public Function f(x As Integer)Dim y As Integerx = 20y = 2f = x * yEnd Function在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click(

13、)Static x As Integerx = 10y = 5y = f(x)Print x;yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示 B A、20 5 B、20 40C、10 5 D、10 4034”、单击命令按钮时，下列程序代码的执行结果为_C_。Public Sub Procl(n As Integer, ByVal m As Integer) n = n Mod 10 m = m / 10End SubPrivate Sub Command1_Click() Dim x As Integer, y As Integer x = 12: y = 34 Call Pro

14、cl(x, y) Print x; yEnd SubA、2 3 B、12 34C、2 34 D、12 335、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y = 1 Y = Y + 5 X = 5 + X Print X, YEnd Sub程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为CA、5 6 B、 15 16C、15 6 D、 15 1537、假定一个Visual Basic应用程序由一个窗体模块和一个

15、标准模块构成。为了保存该应用程序，以下正确的操作是 B 。A、只保存窗体模块文件B、只保存窗体模块和标准模块文件C、分别保存窗体模块、标准模块和工程文件D、只保存工程文件38、以下叙述中错误的是( B)A、一个工程中只能有一个SubMain过程B、窗体的Hide方法和UnLoad方法的作用完全相同C、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体D、窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体39、当某文本框具有焦点时，单击键盘一个键会触发其KeyPress事件，下列说法正确的是（ A）。A、该事件发生在文本框的KeyDown事件之后B、该事件发生在文本框的KeyDo

16、wn事件之前C、随后便触发文本框的Click事件D、根本不会触发KeyDown事件40、下面关于顺序文件的描述正确的是（B）A、每条记录的长度必须相同B、数据只能以ASCII码形式存放在文件中，所以可通过编辑软件显示C、文件的组织结构复杂D、可通过编程对文件中的某条记录方便地修改41、若要设置文本框最大可接收的字符数，可通过 D 属性来实现。A、Length B、MultiLineC、Max D、MaxLength42、表达式：left("你近来可好？",1) + right("How do you like",4)+ Mid("英语？高数？计

17、算机？",4,3)的值是_D_。A、你高数？ B、你like计算机C、like高数？ D、你like高数？43、下列循环语句能正常结束的是 B 。A、I=5Do I=I+1Loop until I<0B、I=10Do I=I1Loop until I<0C、I=6Do I=I2Loop until I=1D、I=1Do I=I+2Loop until I=1044.图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是_C_。A、Stretch B、AutoRedrawC、AutoSize D、Appearance44、若窗体中已经有若干个不同的单选按钮

18、，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是CA、把所有单选按钮的Index属性改为连续的不同值B、把所有单选按钮的Caption属性值改为相同C、把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值D、把所有单选按钮的Index属性改为相同值45、设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是_A_。A、Private Sub Command1_Click() List1.RemoveItemList1.ListIndex End SubB、Privat

19、e Sub Command1_Click() List1.RemoveItem End SubC、Private Sub Command1_Click() List1.Clear End Sub D、Private Sub Command1_Click() List1.Clear List1.ListIndex End Sub46、程序运行时，单击水平滚动条右边的箭头，滚动条的Value属性值将 B 。A、增加一个LargeChange量B、减少一个SmallChange量C、增加一个SmallChange量D、减少一个LargeChange量47、窗体模块的扩展名为 A 。A、.frm B、

20、.frxC、.bas D、.exe48、有如下Visual Basic 语句： Dim S (8) Option Base 1 Dim K (8)用上述语句定义的数组的元素个数分别是 D 。A、8、9 B、8、8C、9、9 D、9、849、下面正确使用动态数组的是_A_A、Dim arr() As Integer ReDim arr(3,5)B、Dim arr(50) As Integer ReDim arr(20)C、Dim arr() As Integer ReDim arr(50) As StringD、Dim arr() ReDim arr(50) As Integer50、在窗体上建

21、立一个命令按钮控件数组,其名称为 COmTest,则在编写该控件数组的Clik事件过程时,使用的参数是 B .A、Caption B、IndexC、Name D、Default51、下列程序段的执行结果为_C。 I = 0 For G = 10 To 19 Step 3 I = I + 1 Next G Print IA、6 B、3 C、4 D、552、在窗体上画出一个名称为Command1的命令按钮，编写如下事件过程：Private Sub Command1_Click() Dim a As Integer a = 2 For i = 1 To 3 Print Fx(a); Next IEn

22、d Sub 程序运行后，单击命令按钮，输出的结果是 .A、4 4 4 B、4 7 9 C、4 6 8 D、4 5 6 53、以下叙述中，错误的是_C。A、一个Visual Basic工程可以含有多个窗体文件B、一个Visual Basic应用程序可以含有多个标准模块文件C、标准模块文件可以属于某个指定的窗体文件D、标准模块文件的扩展名是.bas54、改变了容器的坐标系后，该容器的（B ）属性值不会改变。A、ScaleWidth B、NameC、ScaleTop D、ScaleLeft55、为了把一个记录型变量的内容写入随机文件中指定的位置，所使用的语句的格式为（A ）。A、Put文件号，记录号

23、，变量名B、Put文件号，变量名，记录号C、Get文件号，记录号，变量名D、Get文件号，变量名，记录号56、关于图片框和文本框说法正确的是CA、可以用cls方法清除图片框与文本框中的内容B、当在图片框中增加内容时，图片框会自动变大，而文本框不会C、图片框中既可以有文本也可以有图形，而文本框只能有文字D、图片框和文本框都可以加载图片57、命令按钮、单选按钮和复选框上都有Picture属性，可以再空间上显示图片，但需要通过 D 控制。A、Appearance属性 B、DisabledPicture属性 C、DownPicture属性 D、Style属性58、以下语句将删除列表框List1中的最后

24、一项CA、List1.RemoveItem list1.ListCountB、List1.ClearC、List1.RemoveItem list1.ListCount-1D、List1. List（List1. ListCount-1）59、在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器Interval属性设置为100，Enabled属性设置为False。程序运行后，如果单击名宁按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click()Timer1._AEnd SubPri

25、vate Sub Timer1._ Timer()Text1.Text=TimeEnd Sub在下划线处应为：A、 Enabled=TrueB、 Visible= TrueC、 Visible=FalseD、 Enabled= False60、用来设置文字字体是否斜体的属性是_DA、FountUnderline B.FontSlopeC.FontBold D.FontItalic61、1个二维数组可以存放1个矩阵。在程序开始时有语句Option Base 0，则下列定义的数组中正好可以存放4×3矩阵（即只有12个元素）的是_DA、Dim a(-1 To -4,-1 To -3)AS

26、IntegerB、Dim a(-2 To0,2)AS IntegerC、Dim a(4, 3)AS IntegerD、Dim a(3,2)AS Integer62、下面程序执行时，在窗体上显示的是Private Sub Command1_Click() Dim a（10） For k=1 To10 a（k）=11-k Next k Print a（a（3）a(7) Mod a(5)）End Sub BA.5 B .9 C .7 D .363、若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的 C 属性来实现。A、FontBold B、FontC、FontSize D、FontN

27、ame64、在VB中，以下不可以作为字符串常量的是_D_。A、" " B、"2/01/02"C、"mn" D、mn65、要获得当前驱动器应使用驱动器列表框的属性是（ A）。A、Drive B、PatternC、Path D、Dir66、结构化程序由3种控制结构组成，以下不属于3种控制结构的是 D 。A、分支结构 B、循环结构C、顺序结构 D、递归结构67、当Stretch属性值为False时， C 。A、图片大小随影像框的大小进行调整B、图片大小随图片框的大小进行调整C、图片框的大小随图片大小进行调整D、影像框的大小随图片大小进行调整

28、68、设窗体上有名称为Option1的单选按钮，且程序中有语句：If Option1.Value=True Then下面语句中与该语句不等价的是_D。A、If Option1 ThenB、If Option1.Value ThenC、If Value=True ThenD、If Option1=True Then69、Cls 可以清除窗体或图形框中D的内容A、 picture属性设置的背景图案B、程序运行时产生的图形和文字C、在设计时放置的控件D、以上 A-C全部70、为使计时器控件每隔5秒钟产生一个计时器事件（Timer事件），则应将其Interval属性值设置为_B。A、5 B、5000

29、C、500 D、30071、设在窗体上有一个名称为Commandl的命令按钮和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。 下面正确的事件过程_B。A、Private Sub Command1_Click() Command1.SetFocusEnd SubB、Private Sub Command1_Click() Text1.SetFocusEnd SubC、Private Sub Command1_Click() Command1.GotFocusEnd SubD、Private Sub Command1_Click() Text1.GotFocus

30、 End Sub 72、数组Dim arr(-1 to 4,2 to 4,3) 的元素个数是 C 。A、36 B、30 C、72 D、6073、下列程序的输出结果是_D_。Private Sub Command1_Click() Dim ww As Variantww = Array(1, 2, 3, 4)Print ww(1)End SubA、3 B、1 C、4 D、274、若在某窗体模块中有如下事件过程Private Sub Command1_Click (Index As Integer)End Sub则以下叙述中正确的是_D_。A、此事件过程与不带参数的事件过程没有区别B、有1个名称为

31、Command1的窗体，单击此窗体则执行此事件过程C、有1个名称为Command1的控件数组，数组中有多个不同类型控件D、有1个名称为Command1的控件数组，数组中有多个相同类型控件75、若在窗体模块的声明部分声明了如下自定义类型和数组Private Type rec Code As Integer Caption As StringEnd TypeDim arr(5) As rec则下面的输出语句中正确的是_C_A、Print arr.Code(2),arr.Caption(2)B、Print arr(2).Code,arr(2).CaptionC、Print arr.Code,arr.

32、CaptionD、Print Code(2),Caption(2)76、若要取消窗体的最大化功能，则可设置 D 属性为False来实现。A、MinButton B、EnabledC、ControlBox D、MaxButton77、假设Datetime1是一个date类型的变量，以下赋值语句错误的是_B_。A、Datetime1= #11:20:00 am#B、Datetime1= "11/16/06"C、Datetime1= #July 16,2006#D、Datetime1= #11/16/06#78、Visual Basic的过程有三种它们是BA、属性过程、通用过程和

33、函数过程B、事件过程、函数过程和子程序过程C、通用过程、子程序过程和函数过程D、事件过程、通用过程和函数过程80、表达式Int(rnd(0)+1)-Int(rnd(1)+1)的值是_C_。A、1 B、2 C、0 D、181、设有以下定义语句：dim sum,aver as single,d1,d2 as double,ss as string*5则变量sum、aver、d1、d2和ss的类型分别是_A_。A、单精度型、单精度型、双精度型、双精度型、字符串型B、可变类型、单精度型、双精度型、双精度型、字符串型C、可变类型、单精度型、可变类型、双精度型、字符串型D、单精度型、单精度型、可变类型、双

34、精度型、字符串型82、以下程序段求两个数中的大数，不正确的是 A 。A、If y>x then max=xmax=yB、max=iif(x>y,x,y)C、if x>y then max=x else max=yD、max=xIf y>x then max=y83、复选框对象是否被选中，可由其 A 属性判断。A、Value B、CheckedC、Enabled D、Selected84、在窗体上画一个列表框 List1,编写如下两个事件代码:Private Sub Form_Load() List1.AddItem "111":List1.AddIt

35、em "222" List1.AddItem "333":List1.AddItem "444"End SubPrivate Sub List1_DblClick()Str1 = "666"Print List1.Text + Str1End Sub程序运行后,双击列表框中的"222",则输出的结果是：C A、666222 B、222C、222666 D、88885、在程序运行期间，如果拖动滚动条上的滚动框，则触发的滚动条事件是_B_A、GetFocus B、ScrollC、Change D、M

36、ove86、VB中窗体文件的扩展名是_D_。A、VBW B、PDM C、VBP D、FRM85、语句Dim a(-3 To 4,3 To 6)As Integer定义的数组的元素个数是_A_A、32 B、18 C、28 D、2186、在VB中传递参数的方法有_C_方式A、四种 B、一种 C、两种 D、三种87、有如下函数:Function fun(a As Integer, n As Integer) As Integer Dim m As Integer While a>=n a=a-n m=m+1 Wend fun=mEnd Function该函数的返回值是_A_。A、a除以n的商（

37、不含小数部分）B、a加n的和C、a减n的差D、a乘以n的乘积88、在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click() Dim x As Integer Static y As Integer x=10 y=5 Call f1(x,y) Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2End Sub程序运行结果为： A A、12 7 B、10 7C、12 5 D、10 589、为达到把a、b中的值交换后输出的目的

38、，某人编程如下：Private Sub Command1_Click() a%=10: b%=20 Call swap(a,b) Print a,bEnd SubPrivate Sub swap(ByVal a As Integer, ByVal b As Integer) c=a:a=b:b=cEnd Sub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是_BA、过程的形式参数有错，应改为：swap(ByRef a As Integer,ByRef b As Integer)B、输出语句错误，应改为：Print "a","b"

39、C、swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=aD、调用swap过程的语句错误，应改为：Call swap a,b90、如果在文本框中输入一个字符，则把命令按钮的标题设置为"计算机等级考试"。以下能实现上述操作的事件过程是_B_A、Private Sub Form1_ Click () Text1.Caption = "计算机等级考试" End SubB、Private Sub Text1_Change() Command1.Caption = "计算机等级考试" End SubC、Private Sub Com

40、mand1_ Click () Text1.Text = "计算机等级考试" End SubD、Private Sub Command1_ Click () Caption = "计算机等级考试" End Sub91、下列关于ScaleLeft属性说法不正确的是（C ）。A、该属性值可以在程序运行过程中修改B、该属性值最小为0C、该属性值为容器左上角的横坐标，缺省值为0D、它是可做为容器的对象所特有的属性92、要从磁盘上读入一个文件名为"c:filel.txt"的顺序文件，下面程序段正确的是（ ）。A、Open "c:fil

41、el.txt" For Output As # 2B、F="c:filel.txt"Open F For Input As # 1C、Open c:filel.txt For Input As # 1D、F="c:filel.txt"Open "F" For Input As # 294、不能正确表示条件"两个整型变量 A和B之一为0，但不能同时为0"的布尔表达式是_D_。A、(A=0 or B=0 )and A<>BB、A*B=0 and A<>BC、(A=0 or b=0) o

42、r (A<>0 0r B<>0)D、A*B=0 and(A=0 or B=0)95、下列循环语句能正常结束的是 B 。A、I=5Do I=I+1Loop until I<0B、I=10Do I=I1Loop until I<0C、I=6Do I=I2Loop until I=1D、I=1Do I=I+2Loop until I=1096、Cls可清除窗体或图片框中 A 的内容。A、以上AC全部B、在设计时放置的控件C、程序运行时产生的图形和文字D、Picture属性设置的背景图案97、在窗体上画两个单选按钮，名称分别为Optionl、Option2，标题分别

43、为"宋体"和"黑体"；一个复选框，名称为Check1，标题为"粗体"；一个文本框，名称为Text1，Text属性为"改变文字字体"。要求程序运行时，"宋体"单选按钮和"粗体"复选框被选中（窗体外观如下图），则能够实现上述要求的语句序列是_B_。A、Option1.Value=True Check1.Value=TrueB、Option1.Value=T rue Check1.Value=1C、Option2.Value=False Check1.Value=TrueD、Opt

44、ion1.Value=True Check1.Value=False98、执行List1.List(List1.ListCount)= '80'语句后，下列说明正确的是 A 。A、会产生出错信息B、List1列表框的表项个数为80个C、List1列表框最后一个列表项被改为'8'D、List1列表框会增加一个'80'列表项99、标签控件的标题和文本框控件的显示文本的对齐方式由 C 属性来决定A、WordWrap B、AutoSizeC、Alignment D、Style100、在Visual Basic中， D 不能作为其他控件的容器。A、图片框

45、B、框架 C、窗体 D、影像框102、在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是_B_A、Tag B、IndexC、Name D、ListIndex103、在窗体上画出一个命令按钮，然后编写如下程序：Function Func(m As Integer, n As Integer) As Integer Func = IIf(m < n, m, n)End FunctionPrivate Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 50

46、y = 40 Print z = Func(x, y)End Sub程序运行后，单击命令按钮，则输出的结果是 A A、假 B、50 C、10 D、40104、有如下过程代码：Sub var_dim( ) Static numa As Integer Dim numb As Integer numa=numa+2 numb=numb+1 print numa;numbEnd Sub连续3次调用var_dim过程，第3次调用时的输出是_A_。A、6 1 B、2 3C、2 1 D、6 3105、标准模块中有如下程序代码：Public x As Integer,y As IntegerSub var_

47、pub() x=10:y=20 End Sub在窗体上有1个命令按钮，并有如下事件过程：Private Sub Command1_Click() Dim x As Integer Call var_pub x=x+100 y=y+100 Print x;yEnd Sub运行程序后单击命令按钮，窗体上显示的是 C A、110 100 B、100 100C、100 120 D、110 120106、在设计窗体时双击窗体的任何地方，可以打开的窗口是_A_。A、代码窗口 B、工程资源管理器窗口C、工具箱窗口 D、属性窗口107、设在菜单编辑器中定义了一个菜单项名为menul，为了在运行时隐藏该菜单项，

48、应使用的语句是( D)A、menul.Enabled=FalseB、menul.Visible= TrueC、menui.Enabled=TrueD、menul.Visible=False108、下列关于VB坐标系的说法不正确的是（ ）。A、VB坐标系统是一个二维网格，其纵轴的正方向向下B、移动控件或调整控件的大小时，使用控件容器的坐标系统C、系统默认的单位是缇(twips)，可通过更改容器的ScaleMode来改变单位D、缺省的坐标系统都是由容器的左上角(0，0)坐标开始的，起始坐标不能更改，但刻度可以更改109、窗体的边框样式由窗体对象的 B 属性来设置。A、FillStyl B、Bord

49、erStyleC、WindowState D、BackStyle以下不合法的常量是_C_。A、10E+01 B、100.0C、102 D、100110、函数instr(Lcase(mid("VISUAL Basic程序设计",4,8),"s" )的值是_C_A、Ual BASIC B、ual basicC、7 D、6111、复选框的Value属性为1时，表示 B A、复选框操作有错误 B、复选框被选中C、复选框内有灰色的勾D、复选框未被选中112、在下列说法中，正确的是 C 。A、框架也有Click和DblClick事件B、通过适当的设置，可以在程序运行

50、期间，让时钟控件显示在窗体上C、在列表框中能够将项目按字母顺序从大到小排列D、在列表框中不能进行多项选择113、改变文本框背景颜色的属性是 C 。A、Caption B、TextC、BackColor D、Visible114、Dim aa(10 to 20) 所定义的数组元素个数是_B_。A、30 B、11 C、20 D、10115、在窗体上画一个名称为Text1的文本框和一个名称为command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim arr(8, 8) As IntegerDim i As Integer, j As Intege

51、rFor i = 1 To 5 For j = 1 To 6 arr(i, j) = i * j Next jNext IText1.Text = arr(1, 2) + arr(4, 5)End Sub程序运行后,单击命令按钮,则文本框中显示的值是 B .A、12 B、22 C、24 D、23116、设执行以下程序段时依次输入1、3、5，执行结果为_C_。 Dim a(4) As Integer, b(4) As Integer For K = 0 To 2 a(K + 1) = Val(InputBox("请输入数据") b(3 - K) = a(K + 1) Next

52、 K Print b(K)A、5 B、1 C、3 D、0117、在设计应用程序时，通过_D_窗口可以查看到应用程序工程中的所有组成部分A、工程资源管理器窗口 B、属性窗口C、窗体设计窗口 D、代码窗口118、以下关于文件的叙述中，错误的是（A A、随机文件中记录的长度是随机的B、LOF函数返回给文件分配的字节数C、执行打开文件的命令后，自动生成一个文件指针D、顺序文件中的记录一个接一个地顺序存放119、假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是_B。A、选择图片框，然后按Del键B、执行语句Picture1.Picture = LoadPicture ("") C、执行语句Picture1.Picture =""D、选择图片框，在属性窗口中选择Picture属性条，然后按回车键120、设在窗体上有一个名称为Combo1的组合框，含有5个项目，要删除最后一项，正确的语句是_B_。A、Combo1.RemoveItem 4B、Combo1.RemoveItem Combo1.ListCountC、Combo1.RemoveItem Combo1.TextD、Combo1.RemoveItem 5121、在窗体上有一个文本框控件，名称为