《福建省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 程序运行后，如果单击命令按钮，则在文本框中显
