有如下程序：　　Private Sub Commandl_Click()　　...

单项选择题

下面程序段的运行结果是（）。　　a=1 　　b=1 　　Do 　　　　a=a+1 　　　　b=b + 1 　　Loop Until b＞5 　　Print"k="；a；Spc(4)；"b="；b+a

A． k=7 b=14
B． k=6 b=6
C． k=4 b=8
D． k=6 b=12

单项选择题

Visual Basic程序设计采用的编程机制是（）。

A．可视化
B．面向对象
C．事件驱动
D．过程结构化

单项选择题

下列过程定义语句中，参数不是对象的定义语句是（）。

A． Sub Pro4 (x As Form)
B． Sub Pro4 (y As Control)
C． Sub Pro4 (Forml As Form，Labell As Control)
D． Sub Pro4 (x As Currency)

单项选择题

下列有关子菜单的说法中，错误的是（）。

A．SELECT姓名FROM学生表WHERE EXISTS；(SELECT学号FROM成绩表WHERE成绩＞90)
B．SELECT姓名FROM学生表WHERE EXISTS；(SELECT学号FROM成绩表WHERE学号=学生表．学号AND成绩＞90)
C．SELECT姓名FROM学生表WHERE学号EXISTS；(SELECT学号FROM成绩表WHERE学号=学生表．学号AND成绩＞90)
D．SELECT姓名FROM学生表WHERE学号=；(SELECT学号FROM成绩表WHERE成绩＞90)

单项选择题

如果将文本框控件设置成只有垂直滚动条，则需要将ScrollBars属性设置为（）。

A．0
B．1
C．2
D．3

单项选择题

Sub过程与Function过程最根本的区别是（）。

A．Sub过程的过程不能返回值，而Function过程能返回值
B．Function过程可以有形参，Sub过程不可以
C．Sub过程可以使用Call语句直接使用过程名调用，而Function过程不可以
D．两种过程参数的传递方式不同

单项选择题

假定有如下的命令按扭（名称为 Command1）事件过程： Private Sub Command1_Click() x=InputBox("输入：","输入整数")MsgBox "输入的数据是：",,"输入数据："+x End Sub 程序运行后，单击命名按扭，所果从键盘上输入整数10，则以下叙述中错误的是______。

A．x的值是数值10
B．输入对话框的标题是“输入整数”
C．信息框的标题是“输入数据：10”
D．信息框中显示的“输入的数据是：”

单项选择题

在Visual Basic中，表达式3*2\5 Mod 3的值是( )。

A．1
B．0
C．3
D．出现错误提示

单项选择题

下列有关子菜单的说法中，错误的是（）。

A．在查询中，选择查询可以只选择表中的部分字段，通过选择一个表中的不同字段生成同一个表
B．在查询中，编辑记录主要包括添加记录、修改记录、删除记录和导入、导出记录
C．在查询中，查询不仅可以找到满足条件的记录，而且还可以在建立查询的过程中进行各种统计计算
D．以上说法均不对

单项选择题

在PasswordChar属性中设置#，但运行时仍显示文本内容，原因是（）。

A．doublex[5]={2．0，4．0，6．0，8．0，10．0}；
B．inty[5]={0，1，3，5，7，9}；
C．charcl[]={'1'，'2'，'3'，'4'，'5'}；
D．charc2[]：{'\x1O'，'\xa'，'\x8'}；

单项选择题

下列说法正确的是（）。

A．1234
B．1324
C．1342
D．3142

单项选择题

下列各控件不包含滚动条的控件是（）。

A．ListBox
B．ComboBox
C．TextBox
D．LabelBox

单项选择题

在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是（）。

A．Load
B．Show
C．Hide
D．Unload

单项选择题

下面程序段执行结果为（）。　　x=Int(Rnd()+3) 　　Select Case x 　　　　Case 5 　　　　　　Print "excellent" 　　　　Case 4 　　　　　　Print "good" 　　　　Case 3 　　　　　　Print"pass" 　　　　Case Else 　　　　　　Print"fail" 　　End Select

A．excellent
B．good
C．pass
D．fail

单项选择题

下列关于栈的叙述正确的是

A．栈按“先进先出”组织数据
B．栈按“先进后出”组织数据
C．只能在栈底插入数据
D．不能删除数据

单项选择题

为了使模块尽可能独立，要求______。

A．模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强
B．模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱
C．模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱
D．模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强

单项选择题

如果一个变量未经定义就直接使用，则该变量的默认类型为（）。

单项选择题

有如下程序：　　Private Sub Commandl_Click() 　　　　Dim a As Single 　　　　Dim b As Single 　　　　a=2：b=4 　　　　Call CS(a，b) 　　End Sub 　　Sub CS(x As Single，y As Single) 　　　　t=X 　　　　x=t\y 　　　　y=t Mod y 　　End Sub 　　程序运行后，单击命令按钮，a和b的值分别为( )。

A．Dim pict[3,4]As Integer
B．Dim pict(3，4)As Integer
C．Dim pict[3．4]As Integer
D．Dim pict(3：4)As Integer．

单项选择题

在用菜单编辑器设计菜单时，不可缺少的项目是（）。

A．快捷键
B．名称
C．索引
D．标题

单项选择题

如果要将文本框作为密码框使用时，应设置的属性为（）。

A． Name
B． Caption
C． PasswordChar
D． Text

单项选择题

下列程序段的执行结果为（）。　　I=4 　　x=5 　　Do 　　　I=I+1 　　　x=x+2 　　Loop Until I＞=7 　　Print"I="；I 　　Print"X="；x

A．I=4 x=5
B．I=7 x=15
C．I=6 x=8
D．I=7 x=11

单项选择题

有如下程序：　　Private Sub Commandl_Click() 　　　　Dim a As Single 　　　　Dim b As Single 　　　　a=2：b=4 　　　　Call CS(a，b) 　　End Sub 　　Sub CS(x As Single，y As Single) 　　　　t=X 　　　　x=t\y 　　　　y=t Mod y 　　End Sub 　　程序运行后，单击命令按钮，a和b的值分别为( )。

A．0 0
B．1 1
C．0 2
D．1 2

单项选择题

下列程序段的执行结果为（）。　　a=1 　　b=5 　　Do 　　　a=a+b 　　　b=b+l 　　Loop While a<10 　　Print a；b

A．1 5
B．12 7
C．a b
D．10 25

单项选择题

单击按钮时，以下程序运行后的输出结果是（）。　　Private Sub proc1(x As Integer，y As Integer，z As Integer) 　　　　x=3z 　　　　y=2z 　　　　z=x+y 　　End Sub 　　Private Sub Command1_Click() 　　　　Dim x As Integer，y As Integer，Z As Integer 　　　　x=1：y=2：z=3 　　　　Call proc1(x，x，z) 　　　　Print x；x；z 　　　　Call proc1(x，y，y) 　　　　Print x；y；y 　　End Sub

A． Dim NewArray(10)As Integer
B．Dim NewArray(1 T0 10)As Integer
C． Dim NewArray(10)Integer
D．Dim NewArray(1 To 10)Integer

单项选择题

设在窗体上有个文本框，然后编写如下的事件过程：　　Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) 　　　　Const Alt=4 　　　　Const Key_F2=&H71 　　　　altdown%=(Shift And Alt)>0 　　　　f2down%=(KeyCode=Key_F2) 　　　　If altdown% And f2down% Then 　　　　　　Text1．Text="BBBBB" 　　End If 　End Sub 　上述程序运行后，如果按【Shift+F2】，则在文本框中显示的是（）。

A． Alt+F2
B． BBBBB
C．随机出几个数
D．文本框平均内容无变化

单项选择题

如下事件过程：　　Function Feed(x) 　　　　If x ＜10 Then 　　　　　　Feed=X 　　　　Else 　　　　　　Feed=10+x 　　End If 　　End Function 　　Private Sub Command1_Click( ) 　　　　x=Val(Input Box(" "，0)) 　　　　pay=Feed(x) 　　　　Print pay 　　End Sub 　　运行时在输入框内输入变量x的值为15，输出结果为( )。

A．0
B．15
C．25
D．30

单项选择题

在窗体上画 1 个命令按钮，名称为 Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入：") If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X<10 Then Y=X Else Y=X+10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。

A．0
B．5
C．15
D．无任何输出

单项选择题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) Dim i As Integer, j As Integer For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Next j Next i Print a1(3, 3); a2(3, 3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是______。

A．6 6
B．10 5
C．7 21
D．6 12

单项选择题

下列程序的执行结果为（）。　　Private Sub Command1_Click() 　　　　Dim s1 As String，s2 As String 　　　　S1；="abcdef" 　　　　Call Invert(s1，s2) 　　　　Print s2 　　End Sub 　　Private Sub Invert (ByVal xstr As String，ystr As String) 　　　　Dim tempstr As String 　　　　i=Len(xstr) 　　　　Do While i>=1 　　　　　tempstr=tempstr+Mid(xstr，i，1) 　　　　　i=i-1 　　　　Loop 　　　　ystr=tempstr 　　End Sub

A．fedcba
B．abcdef
C．afbecd
D．defabc

单项选择题

某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。

A．把Ifa(k)＞max Then 改为 If a(k)＜max Then
B．把max=a(k)改为a(k)=max
C．把第2个循环语句For k=1 To 10改为For k=2 To 10
D．把max=O改为max=a(10)

有如下程序： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b) End Sub Sub CS(x As Single，y As Single) t=X x=t\y y=t Mod y End Sub 程序运行后，单击命令按钮，a和b的值分别为( )。

你可能感兴趣的试题

属性 BorderColor的作用是（ ）。

“商品”与“顾客”两个实体集之间的联系一般是______。

以下各项中，Visual Basic不能接收的图形文件是（ ）。

下面的数组声明中，正确的是（ ）。

某人为计算n! (0

下面程序段的运行结果是（ ）。 a=1 b=1 Do a=a+1 b=b + 1 Loop Until b＞5 Print"k="；a；Spc(4)；"b="；b+a

Visual Basic程序设计采用的编程机制是（ ）。

下列过程定义语句中，参数不是对象的定义语句是（ ）。

下列有关子菜单的说法中，错误的是（ ）。

如果将文本框控件设置成只有垂直滚动条，则需要将ScrollBars属性设置为（ ）。

Sub过程与Function过程最根本的区别是（ ）。

在Visual Basic中，表达式3*2\5 Mod 3的值是( )。

下列有关子菜单的说法中，错误的是（ ）。

在PasswordChar属性中设置#，但运行时仍显示文本内容，原因是（ ）。

下列说法正确的是（ ）。

下列各控件不包含滚动条的控件是（ ）。

在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是（ ）。

下面程序段执行结果为（ ）。 x=Int(Rnd()+3) Select Case x Case 5 Print "excellent" Case 4 Print "good" Case 3 Print"pass" Case Else Print"fail" End Select

下列关于栈的叙述正确的是

为了使模块尽可能独立，要求______。

如果一个变量未经定义就直接使用，则该变量的默认类型为（ ）。

有如下程序： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b) End Sub Sub CS(x As Single，y As Single) t=X x=t\y y=t Mod y End Sub 程序运行后，单击命令按钮，a和b的值分别为( )。

在用菜单编辑器设计菜单时，不可缺少的项目是（ ）。

如果要将文本框作为密码框使用时，应设置的属性为（ ）。

下列程序段的执行结果为（ ）。 I=4 x=5 Do I=I+1 x=x+2 Loop Until I＞=7 Print"I="；I Print"X="；x

有如下程序： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b) End Sub Sub CS(x As Single，y As Single) t=X x=t\y y=t Mod y End Sub 程序运行后，单击命令按钮，a和b的值分别为( )。

下列程序段的执行结果为（ ）。 a=1 b=5 Do a=a+b b=b+l Loop While a<10 Print a；b

如下事件过程： Function Feed(x) If x ＜10 Then Feed=X Else Feed=10+x End If End Function Private Sub Command1_Click( ) x=Val(Input Box(" "，0)) pay=Feed(x) Print pay End Sub 运行时在输入框内输入变量x的值为15，输出结果为( )。

属性 BorderColor的作用是（）。

以下各项中，Visual Basic不能接收的图形文件是（）。

下面的数组声明中，正确的是（）。

下面程序段的运行结果是（）。　　a=1 　　b=1 　　Do 　　　　a=a+1 　　　　b=b + 1 　　Loop Until b＞5 　　Print"k="；a；Spc(4)；"b="；b+a

Visual Basic程序设计采用的编程机制是（）。

下列过程定义语句中，参数不是对象的定义语句是（）。

下列有关子菜单的说法中，错误的是（）。

如果将文本框控件设置成只有垂直滚动条，则需要将ScrollBars属性设置为（）。

Sub过程与Function过程最根本的区别是（）。

下列有关子菜单的说法中，错误的是（）。

在PasswordChar属性中设置#，但运行时仍显示文本内容，原因是（）。

下列说法正确的是（）。

下列各控件不包含滚动条的控件是（）。

在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是（）。

如果一个变量未经定义就直接使用，则该变量的默认类型为（）。

在用菜单编辑器设计菜单时，不可缺少的项目是（）。

如果要将文本框作为密码框使用时，应设置的属性为（）。

下列程序段的执行结果为（）。　　I=4 　　x=5 　　Do 　　　I=I+1 　　　x=x+2 　　Loop Until I＞=7 　　Print"I="；I 　　Print"X="；x

下列程序段的执行结果为（）。　　a=1 　　b=5 　　Do 　　　a=a+b 　　　b=b+l 　　Loop While a<10 　　Print a；b