《福建省VB统考题库——选择题》由会员分享,可在线阅读,更多相关《福建省VB统考题库——选择题(63页珍藏版)》请在金锄头文库上搜索。
1、1010101、在设计阶段,当双击窗体上的某个控件时,所打开的窗口是() A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口 答案:C 010201、以下叙述中正确的是() A、窗体的 Name 属性指定窗体的名称,用来标识一个窗体 B、窗体的 Name 的属性的值是显示在窗体标题栏中的文本 C、可以在运行期间改变对象的 Name 属性的值 D、对象的 Name 属性值可以为空 答案:A 010301、刚建立一个新的标准 EXE 工程后,不在工具箱中出现的控件是() A、单选按钮 B、图片框 C、通用对话框 D、文本框 答案:C 010401、设有如下变量声明Dim TestD
2、ate As Date 为变量 TestDate 正确赋值的表达式是() A、TestDate=#1/1/2002# B、TestDate=#“1/1/2002“# C、TestDate=date(“1/1/2002“) D、TestDate=Format(“m/d/yy“,“1/1/2002“) 答案:A 010501、设有如下声明:Dim X As Integer 如果 Sgn(X)的值为-1,则 X 的值是() A、整数 B、大于 0 的整数 C、等于 0 的整数 D、小于 0 的数 答案:D 010601、在窗体上画一个名称为 Command1 的命令按钮,然后编写如下程序:Priva
3、te Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,Y End Sub 程序运行时,三次单击命令按钮 Command1 后,窗体上显示的结果为() A、15 16 B、15 6 C、15 15 D、5 6 答案:B 010701、设 a=3, b=5,则以下表达式值为真的是() A、a=b And B10 B、(ab) Or (b0) C、(a0) D、(-3+5a) And (b0) 答案:B 010801、设有语句 x=InputBox(“输入数值“,“0“,“示例“) 程
4、序运行后,如果从键盘上输入数值 10 并按回车键,则下列叙述中正确的是() A、变量 X 的值是数值 10 B、在 InputBox 对话框标题栏中显示的是“示例” C、0 是默认值 D、变量 X 的值是字符串“10” 答案:D 010901、从键盘上输入两个字符串,分别保存在变量 str1、str2 中。确定第二个字符串在第一个字 符串中起始位置的函数是() A、Left B、Mid C、String D、Instr 答案:D 011001、设 a=“Visual Basic“,下面使 b=“Basic“的语句是()2A、b=Left(a,8,12) B、b=Mid(a,8,5) C、b=R
5、ight(a,5,5) D、b=Left(a,8,5) 答案:B 011101、以下能够触发文本框 Chang 事件的操作是() A、文本框失去焦点 B、文本框获得焦点 C、设置文本框的焦点 D、改变文本框的内容 答案:D 011201、在窗体上有一个文本框控件,名称为 TxtTime;一个计时器控件,名称为 Timer1,要求每一 秒钟在文本框中显示一次当前的时间。程序为:Private Sub Timer1_ _()TxtTime.text=Time End Sub 在下划线上应填入的内容是() A、Enabled B、Visible C、Interval D、Timer 答案:D 011
6、301、在窗体上画两个单选按钮,名称分别为 Option1、Option2,标题分别为“宋体”和“黑体” ; 一个复选框,名称为 Check1,标题为“粗体” ;一个文本框,名称为 Text1,Text 属性为“改变文字 字体” 。要求程序运行时, “宋体”单选按钮和“粗体”复选框被选中(窗体外观如图) ,则能够实现 上述要求的语句序列是() A、Option1.Value=True B、Option1.Value=True Check1.Value=False Check1.Value=True C、Option2.Value=False D、Option1.Value=True Check
7、1.Value=True Check1.Value=1 答案:D 011401、为了在按下 Esc 键时执行某个命令按钮的 Click 事件过程,需要把该命令按钮的一个属性设 为 True,这个属性是() A、Value B、Default C、Cancel D、Enabled 答案:C 011501、在窗体上画一个命令按钮,名称为 Command1。然后编写如下程序:Private Sub Command1_Click()For I=1 To 4For J=0 To IPrint Chr$(65+I);Next JPrintNext I End Sub 程序运行后,如果单击命令按钮,则在窗体
8、上显示的内容是() A、 BB B、A C、B D、AACCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD 答案:A 011601、图像框有一个属性,可以自动调整图形的大小,以适应图像框的尺寸,这个属性是() A、Autosize B、Stretch C、AutoRedraw D、Appearance 答案:B 011701、在窗体上画两个名称分别为 Text1、Text2 的文本框和一个名称为 Command1 的命令按钮,然 后编写如下事件过程:Private Sub Command1_Click()Dim x AS Integer,
9、 n AS Integerx=13n=0Do While x10 Then Exit ForNextText1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是() A、2 B、3 C、4 D、5 答案:B 011901、在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮,然后编写如下 事件过程:Private Sub Command1_Click()Dim array1(10,10) As IntegerDim i,j AS IntegerFor i=1 To 3For j=2 To 4array1(i,j)=i+jNe
10、xt jNext iText1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是() A、12 B、13 C、14 D、15 答案:A 012001、在窗体上画一个名称为 Command1 的命令按钮,然后编写如下程序:Private Sub Command1_Click()Dim i AS Integer,j AS IntegerDim a(10,10) As IntegerFor i=1 To 34For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrintNext iTex
11、t1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后,单击命令按钮,窗体上显示的是() A、 1 2 3 B、2 3 4 C、1 4 7 D、1 2 32 4 6 3 4 5 2 5 8 4 5 6 3 6 9 4 5 6 3 6 9 7 8 9 答案:D 012101、设有如下程序:Option Base 0 Private Sub Form_Click()Dim aDim i AS Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);Next Text1.Text=array1(2,3)+
12、array1(3,4) End Sub 程序运行后,单击窗体,则在窗体上显示的是() A、4 3 2 1 B、5 4 3 2 C、6 5 4 3 D、7 6 5 4 答案:C 012201、下列叙述中正确的是() A、在窗体的 Form_load 事件过程中定义的变量是全局变量 B、局部变量的作用域可以超出所定义的过程 C、在某个 Sub 过程中定义的局部变量可以与其它事件过程中定义的局部变量同名,但其作用域只限 于该过程 D、在调用过程时,所有局部变量被系统初始化为 0 或空字符串 答案:C 012301、在窗体上画一个命令按钮,名称为 Command1。程序运行后,如果单击命令按钮,则显示
13、一个 输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程 F1。在 F1 中判断所 输入的整数是否是奇数,如果是奇数,过程 F1 返回 1,否则返回 0。能够正确实现上述功能的代码是 () A、Private Sub Command1_ClicK()x=InputBox(“请输入整数“)a=F1(val(x)Print a End Sub Function F1(ByRef b AS Integer)If b Mod 2=0 Then5Return 0ElseReturn 1End If End Function B、Private Sub Command1_ClicK()
14、x=InputBox(“请输入整数“)a=F1(val(x)Print a End Sub Function F1(ByRef b AS Integer)If b Mod 2=0 ThenF1=0ElseF1=1End If End Function C、Private Sub Command1_ClicK()x=InputBox(“请输入整数“)F1(val(x)Print a End Sub Function F1(ByRef b AS Integer)If b Mod 2=0 ThenF1=1ElseF1=0 End If End Function D、Private Sub Comma
15、nd1_ClicK()x=InputBox(“请输入整数“)F1(val(x)Print a End Sub Function F1(ByRef b AS Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End If End Function答案:B6012401、在窗体上画和一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框,然后编写如 下程序:Private Sub Command1_Click()Dim x,y,z AS Integerx=5y=7z=0Text1.Text=“Call P1(x,y,z)Text1.Text=Str(z) End Sub Sub P1(byVal a As Integer,ByVal b As Integer,c As Integer)c=a+b End Sub 程序运行后,如果单击命令按钮,则在文本框中显