中南大学数据库题库09数据库系统开发工具练习题

Visual Basic支持的一种程序结构语句是（ ）。 A BEGIN ? END

B If ? Then ? Else C Do Case

D For ? Loop 参考答案 B

VB表达式3*2^2+3 mod 10\\4的值是（ A 12 B 13 C 36 D 37

参考答案 B

在VB中，可以从键盘接受文本数据的控件是（

A Textbox控件 B Label控件

C CommandButton控件 D Data控件 参考答案 A

InputBox函数的返回值类型是（ ）。

A 变体型 B 整型 C 实型 D 字符型 参考答案 D

Option Explicit语句表示（ ）。

A 可以不申明变量类型 B 必须申明变量类型

。 ）。） C 数组下标从0开始 D 数组下标从1开始 参考答案 B

下面正确的逻辑表达式是（ ）。

A x>y AND y>z B x>y>z

C x>y AND >z D x>y & y >z 参考答案 A

无论任何控件，都具有一个共同属性，这个属性是（ ）。

A Text B Font C Name D Caption 参考答案 C

以下（ ）是合法的变量名。 A 4p B 姓名

C ‘年龄’ D If Not 参考答案 B

在VB中，以下不能在“工程资源管理器”窗口中列出的文件类型是( )。

A .bas B .res C .frm D .ocx 参考答案 D

VB集成开发环境中，提供控件的窗口是（ ）。

A 工具栏 B 工具箱 C 属性窗口 D 工程管理器 参考答案 B

在VB中，确定一个窗体或控件的大小的属性是（ ）。

A Top或Left B Top和Left

C Width或Height D Width和Height 参考答案 D

在VB中设计动画时，用时钟控件来控制动画速度的属性是（ ） 。

A Enabled B Interval C Timer D Move 参考答案 B

在VB中，要改变控件的高度，应该修改控件的（ ）属性。

A Top B Left C Width D Height 参考答案 D

在VB中，为了在运行时把图形文件picfile. jpg装入图片框Picture1，所使用的语句为（ ）。

A Picturel.Ico = LoadPicture(\B Picturel.Picture = LoadPicture(\C Picturel.Bmp = LoadPicture(\ D Picturel.Cursor = LoadPicture(\ 参考答案 B

在VB中，如果设计时在属性窗口将命令按钮的（ ）属性设置为False，则运行时按钮从窗体上消失。

A Visible

B Enabled

C DisabledPicture D Default 参考答案 A

在VB中，后缀为frm的文件表示（ ） 。

A 标准类模块文件 B 窗体文件

C 窗体二进制数据文件 D 类模块文件 参考答案 B

在VB中，下列控件不能改变大小的是（ ）。

A Timer

B PictureBox C Label D TextBox 参考答案 A

以下关于菜单的叙述中，错误的是( )。

A 在程序运行过程中可以增加或减少菜单项

B 如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项 C 弹出式菜单在菜单编辑器中设计

D 利用控件数组可以实现菜单项的增加或减少 参考答案 B

Private Sub Command1_Click() For i = 1 To 3 For j = 1 To i a = a + 1 Next Next Print a End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是( )。 A 3 B 4 C 5 D 6

参考答案 D

执行如下语句：

a = InputBox(\

将显示一个输入对话框，在对话框标题栏中显示的信息是( )。

A YOU B WE C She

D YOU and WE 参考答案 B

以下关于窗体的描述中，正确的是( ) 。

A 执行Unload Form1语句后，窗体Form1消失且不在内存中 B 窗体的Load事件在卸载窗体时发生

C 当窗体的Enabled属性为Ture时，通过鼠标和键盘对窗体的操作都被禁止 D 执行Unload Form1语句后，窗体Form1消失，但仍在内存中 参考答案 A

在VB中，对于定时器（Timer）控件，设置其定时是否开启的属性是（ ） 。

A Index B Tag C Enabled D Left 参考答案 C

在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是（

A 编写代码 B 新建一个工程

。 ）

C 打开属性窗口

D 进入Visual Basic集成开发环境 参考答案 B

在Visual Basic中，要使一个窗体不可见，但不从内存中释放，应使用的语句是（ ）。

A Show B Hide C Load D UnLoand 参考答案 B

在VB中，若要将窗体从内存中卸载，应使用的方法是（ ）。

A Show B Unload C Load D Hide 参考答案 B

在VB中，保存一个工程文件至少应该保存两个文件，这两个文件分别是（

A 文本文件和工程文件 B 窗体文件和工程文件 C 窗体文件和标准模块文件 D 类模块文件和工程文件 参考答案 B

在VB中，下列赋值语句正确的是（ ）。

A B+C =A B A=B+C C -B=A D 5=A+B 参考答案 B

一个VB应用程序可以包含（ ）vbp文件。

A 1个 B 2个

C 可以没有 D 不受限制 参考答案 A

。 ）在VB中，将定时器的时间间隔设置为1秒，则定时器的Interval属性值应设为（ ）。 A 1 B 100 C 1000 D 10

参考答案 C

在VB中，能够改变标签控件显示标题的属性是（ ） 。

A Name B Caption C Text

D BordeStyle 参考答案 B

以下对Visual Basic的Sub过程的有关描述中，正确的是（ ）。

A 调用子过程时，只能把实参的值传送给形参，形参的值不能传送给实参 B 子过程既可以嵌套定义，又可以递归调用 C 子过程没有返回值

D 具有调用关系的所有过程必须放在同一个模块中 参考答案 A

在VB中，在Visual Basic中要设置菜单项的快捷访问键，应使用的符号是（ ）。 A * B @ C & D $

参考答案 C

在VB中，下面关于文本框的说法中，错误的说法是（ ）。

A Text1.Caption=\，将在文本框Text1中显示Hello B Text.locked=True，设置该文本框Text1不能编辑

C Text.passwordChar=\，设置文本框Text1输入的字符都显示为#，但实际接收的还是输入的内容

D Text1.Visible=False，设置该文本框Text1为不可见 参考答案 A

在VB中，对于语句 IF X=0 THEN Y=10，说法正确的是（ ）。 A 语句中有两个等于符号 B 语句中有两个赋值符号

C 语句中第一个是等于符号，第二个是赋值符号 D 语句中第一个是赋值符号，第二个是等于符号 参考答案 C

在VB中，阅读下面的程序：

n1 = InputBox（ \请输入第一个数： \） n2 = InputBox（ \请输入第二个数： \） Print n1+n2

当输入分别为111和222时，程序输出为（

A 111222 B 222 C 333

D 程序出错 参考答案 A

在VB中，执行下面程序段的输出结果是（ a = -3 ^ 2 b = 2 ^ 3 Print a> b A True B -1 C 0

D False 参考答案 D

在VB中，下面逻辑表达式的值为真的是（ A \B \

C \D 12>12.1 参考答案

）。 ）。 ）。 C

在Visual Basic中，字符串常量所使用的定界符是（ ）。 A双引号 B 单引号 C 方括号 D 花括号 参考答案 A

在VB中，下列表达式中，正确的Visual Basic表达式是（ ）。

A 2sin45° B π*R2 C x÷y×5

D （x+1）/（x^2+1）/2 参考答案 D

在VB中，下面变量名不合法的是（ ）。

A a2(2，4) B abcd C a$x D CdE 参考答案 C

在VB中，定义有5个整数型元素的数组，正确的语句是（ ）。

A Dim a(4) As Integer B Option Base 1

Dim a(5) C Dim a&(5)

D Dime a(5) As Integer 参考答案 A

在VB中，以下关于窗体的描述中，不正确的是( )。

A 执行END语句后，自动关闭所有窗体 B 窗体的Load事件在加载窗体时发生

C 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 D 窗体的Height、Width属性用于设置窗体的高和宽 参考答案 B

以下哪类VB控件能用来显示图形（ ）。

A Label

B PictureBox C TextBox

D OptionButton 参考答案 B

下列关于do while …loop 和do…loop until循环执行循环体次数的描述正确的是（ ）。

A do while…loop循环和do…loop until循环至少都执行一次 B do while…loop循环和do…loop until循环可能都不执行

C do while…loop循环至少执行一次，do…loop until循环可能不执行 D do while…loop循环可能不执行，do…loop until循环至少执行一次 参考答案 D

下列叙述中不正确的是（ ）。

A VB中的函数功能类似于Sub过程 B Sub过程不可以递归

C 子过程不返回与其特定子过程名相关联的值 D 子过程是没有返回值的函数，又常被称为Sub过程，在事件过程或其他子过程中可以按名称调用过程 参考答案 B

当VB执行下面语句后，A的值为（ ）。 A=1

If A>0 Then A=A+1 If A>1 Then A=0 A 0 B 1 C 2 D 3

参考答案 A

在VB中，设a=2,b=3,c=4,d=5，表达式3>2*b OR a=c AND b<>c OR c>d的值是（ ）。

A 1 B -1 C False D True 参考答案 C

在VB中，如果要向工具箱中加入控件的部件，可以利用“工程”菜单中的（ ）命令。

A 引用 B 部件 C 工程属性 D 加窗体 参考答案 B

下列不可作为VB变量名的是（ ）。

A 4*Delta B Alpha C ABC D ABT1 参考答案 A

为了把VB窗体上某个控件变成活动控件，应执行的操作是（ ）。

A 单击窗体的边框 B 单击控件的内部 C 双击控件 D 双击窗体 参考答案 B

在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：

Private Sub Commandl_Click() a$=\ b$＝Right(a$,8) c$=Mid(a$, 1, 8) Msgbox a$, ,b$,c$,1

End Sub

则在弹出的信息框的标题栏中显示的信息是( )。

A softWare and hardware B software C hardwafe D 1

参考答案 C

在VB中，针对语句 IF I=1 then j=1, 下列说法正确的是( )。

A I=1 和 j=1 均为赋值语句 B I=1 和 j=1 均为关系表达式

C I=1 关系表达式， j=1 均为赋值语句 D I=1 为赋值语句， j=1 为关系表达式 参考答案 C

在VB中，能被对象所识别的动作与对象可执行的活动分别称为对象的( )。

A 方法、事件 B 事件、方法 C 事件、属性 D 过程、属性 参考答案 B

以下哪个不是VB程序的三种基本控制结构中的一种（ ）

A 顺序 B 递归 C 选择 D 循环 参考答案 B

下列叙述中正确的是 ( ) 。

A 只有窗体才是Visual Basic中的对象 B 只有控件才是Visual Basic中的对象 C 窗体和控件都是Visual Basic中的对象 D 窗体和控件都不是Visual Basic中的对象 参考答案 C

要使一个文本框对象能够显示多行文字，应设置该对象的 ( ) 属性值为 True。

A Text

B MultiLine C Style D Visible 参考答案 B

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()

a = InputBox(\ b = InputBox(\ Print b + a End Sub

程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是 ( ) 。

A 579 B 123 C 456 D 123456 参考答案 D

假定x的值为5，则在执行以下语句时，其输出结果为\的Select Case语句是（ ）。 A

Select Case x Case 10 , 1 Print \End Select B

Select Case x

Case Is ＞ 5, Is ＜ 5

Print \End Select C

Select Case x

Case Is ＞ 5, 1, 3 To 10 Print \End Select D

Select Case x Case 1, 3, Is ＞ 5 Print \End Select

参考答案 C

下列语句中，语法正确的是（ ）。

A R^2=9 B a

D Let a=5，b=10 参考答案 C

下列Visual Basic的变量名中，合法的是（ ）。

A _count B 5Password C 姓名 D Const 参考答案 C

要设置计时器控件的定时时间，需设置的属性是（。 ）

A Interval B Enabled C Value D Text 参考答案 A

在当前窗体上有命令按钮cmdDoIt和标签lbResult控体对象，当执行如下的事件过程时，lbResult 标签内的值为（ ）。 Private Sub cmdDoIt_Click() Dim I, R R = 0

For I = 1 to 9 Step 2 R=R+I

IF R>6 THEN I=I+2 NEXT

lbResult.Caption = Str$(R) ‘Str$(R)的功能是将R的值转换为字符串 END Sub

A 字符串25 B 字符串18 C 字符串45 D 字符串12 参考答案 B

在当前窗体上有命令按钮cmdDoIt和标签lbResult控体对象，当执行如下的事件过程时，lbResult 标签内的值为（ ）。 Private Sub cmdDoIt_Click() Dim I, R

R = 0

For I = 1 to 9 Step 2 R=R+I

IF R>6 THEN I=I+2 NEXT

lbResult.Caption = Str$(R) ‘Str$(R)的功能是将R的值转换为字符串 END Sub

A 字符串25 B 字符串18 C 字符串45 D 字符串12 参考答案 B

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程

Private Sub Command1_Click() Text1.Text = \Me.Text1 = \Text1 = \End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的是（ ）

A Visual B Basic C Program D 出错 参考答案 C

VB采用面向对象的程序设计方法，程序由若干对象组成。其中对象的特征或性质由对象的

属性来描述。 [参考答案] 正确

VB的三种工作模式分别是：设计模式；运行模式；中断模式。 [参考答案] 正确

在VB中，表达式“Hello World” Like “He*” 的结果为False。 [参考答案] 错误

在VB中，若同一个工程有许多窗体，可以指定任一窗体为启动窗体。 [参考答案] 正确

在VB中，变量必须要先定义才能使用。 [参考答案] 错误

AB和4AB都可以作为VB的变量名。 [参考答案] 错误

在VB中，为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是Enabled。

[参考答案] 正确

在VB中，把字符型数据转换为数值型数据需要使用的函数是Val。 [参考答案] 正确

数学关系8≤x<30表示成正确的VB表达式为 x>=8 and x<30 [参考答案] 正确

在VB中，要想获得某个相关控件属性信息，一般可首先选中该控件对象，然后查看对象代码窗口。

[参考答案] 错误

在VB中，窗体的Show方法的作用是将指定的窗体载入内存并显示该窗体。 [参考答案] 正确

在VB中，窗体的Hide方法和Unload方法的作用完全相同 。 [参考答案] 错误

窗体文件的扩展名是.bas。 [参考答案] 错误

在VB中应用程序无论大小，都叫作“工程”。 [参考答案] 正确

在VB中，对象的属性、方法和事件被称为对象的三要素。 [参考答案] 正确

VB是一种面向对象的程序设计方法和事件驱动的编程机制。 [参考答案] 正确

在VB中表达选择结构的语句有For 语句、Do语句。 [参考答案] 错误

End if 语句对单行 if 语句不需要。

[参考答案] 正确

表达式 (2*3)>=5 and 12/3 <= 4 的值为 false。

[参考答案] 错误

VB的运算优先级从高到低依次为：算术运算、连接运算、关系运算 和 逻辑运算。

[参考答案] 正确

在MsgBox 函数中 prompt 参数是必须的。 [参考答案] 正确

三种方式的组合框都可以接受DblClick 事件。 [参考答案] 错误

所有的控件都有Name和Caption属性。 [参考答案] 错误

若要使不可见命令按钮显示出来，可通过设置 Enabled 属性的值为True来实现。 [参考答案] 错误

保存Visual Basic程序时，应分别保存窗体文件及工程文件 [参考答案] 正确

以下Visual Basic语句用于弹出提示信息对话框，显示x、y、z变量的和（格式如：3+7+2的和为:12）。

MsgBox x & \的和为：\参考答案 1：+ 2： x+y+z

以下Visual Basic语句用于弹出提示信息对话框，显示x、y、z变量中的最大值为y中的值（例如：3,7,2中的最大值为：7）。

MsgBox x & \中的最大值为：\参考答案 1：& y

设a=2,b=4,c=6，表达式a>b Or c

以下Visual Basic语句用于弹出提示信息对话框，显示x、y、z变量的和（格式如：3+7+2的和为:12）。

MsgBox x & \的和为：\参考答案 1：+

2： x+y+z

设a=2,b=4,c=6，表达式a>b Or c

装载后显示一个窗体要使用窗体的__1__方法。 参考答案 1：Show

变量根据其作用域与生存期可分为：局部变量、窗体/模块级变量、__1__变量。 参考答案 1：全局

VB工程文件扩展名是__1__，窗体文件扩展名是__2__ ，模块文件的扩展名是 bas 。 参考答案 1：vbp 2：frm

要使用户输入密码时不显示实际的字符，则要修改接收密码的文本框的__1__属性。 参考答案 1：PasswordChar

VB对象的三要素指对象的__1__、方法 、 事件 。

参考答案 1：属性

在VB中，已知变量 a=1:b=2:c=3，则表达式c>a+b OR b-1>c-1 And c+a>a Xor b

在VB的子过程的执行过程中要提前退出，应该使用语句__1__，而要提前退出函数过程退出，应该使用语句__2__。 参考答案 1：Exit Sub 2：Exit Function

在Visual Basic中，能够得到“字体”对话框中用户所选字体的名字、大小和颜色的属性分别是__1__、__2__、__3__。 参考答案 1：FontName 2：FontSize 3：ForeColor

在VB的参数传递过程中，为了使参数按值传递，应该使用关键字__1__。 参考答案 1：ByVal

在VB中，控件数组的名字由Name属性指定，数组元素的下标由__1__属性指定。 参考答案 1：Index

在VB中，如果定义一个数组“Dim a(5) As Integer”，其元素最多有__1__ 个，如果之前在窗体层设置了语句“Option Base 1”，则元素的个数有__2__ 个。

参考答案 1：6 2：5

在VB中，当执行语句 a = 10

Print a = a - 0; a = a - 2; a - 4

之后，则输出的结果分别为 __1__、__2__、__3__。 参考答案 1：True 2：False 3：6

在VB中，三个字符串 \、 \、 \中的最大者为__1__。 参考答案 1：\

在VB中，变量的声明一般分为显式声明和__1__声明两种方式。 参考答案 1：隐式

在VB中，字符串型变量用于存放字符串，可以分为变长字符串和__1__ 字符串两种。 参考答案 1：定长

在VB中，过程调用的参数传递可以按__1__和按地址传递 。 参考答案 1：值

在VB中，Do循环的配套结束语句是__1__。 参考答案 1：Loop

VB提供了结构化程序设计的三种基本结构，这三种基本结构是顺序、选择和__1__语句。 参考答案 1：循环

在VB中，假定当前日期为2009年12月31日，星期六，则执行语句 Print Year(Now)，输出结果是__1__。 参考答案 1：2009

在VB中，定时器控件能有规律地以一定时间间隔触发__1__事件，并执行该事件过程中的程序代码。 参考答案 1：Timer

在VB中，可以把当前目录下的图形文件装入Picturebox对象中的语句是__1__ 。 参考答案 1：Loadpicture

在VB中，要改变窗体的标题文字，应修改其__1__属性。 参考答案 1：Caption

在VB中，表达式6+10 MOD 4 * 2+1的值是 __1__。 参考答案 1：11

有以下程序段： k = 9 Do

k = k + 1

Loop While ( k = 1 ) Do型循环执行的次数是：__1__ 参考答案 1：1

在VB中，以下循环执行了__1__次。 Int1=10

Do while int1> =1 Int1=int1-1 Loop 参考答案 1：10

要使用户输入密码时不显示实际的字符，则要修改接收密码的__1__ 的Password char属性。 参考答案

1：TextBox 或 文本框

若要将隐藏的窗体显示出来，实现的方法为__1__。 参考答案 1：Show

变量x的值为3，y的值为4，执行下列 Print x;\语句后，输出__1__。

参考答案 1：3＋4＝7

在窗体上画一个名称为Commandl的命令按钮和两个名称分别为Textl?Text2的文本框，然后编写如下事件过程: Private Sub Command1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2, 4, 6 x=20 Case Is <10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是__1__。 参考答案 1：10

在过程调用中，参数的传递可分为两种方式，其中按 __1__ 传递方式是默认的。 参考答案

1：地址

定时器控件的 Interval 属性值是指时间间隔，单位为毫秒 ；当每隔此间隔的时间，定时器会触发一次 __1__事件。 参考答案 1：TIMER

已知a、b、c都是Integer型变量，使用VB逻辑表达式描述条件：“a和b中至少有1个大于c” 的表达式为 __1__（全部使用小写描述，且不要写入多余的空格）。 参考答案 1： a>c or b>c

VB提供了列表框控件，当列表框中的项目较多，超过了列表框的长度时，系统会自动的在列表框边上加一个 __1__ 。 参考答案 1：垂直滚动条

执行如下的单击窗体事件过程： Private Sub Form_Click( ) Dim x As Integer, y As Integer x = 1 : y = 0 Do While x < 3 y = y + x x = x + 1 Loop

Text1.Text = x + y End Sub

则在文本框Text1中显示的内容为 __1__ 。 参考答案 1：6

符合结构化原则的三种基本控制结构是：顺序结构、__1__结构和循环结构。 参考答案 1：选择

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程 Option Base 0

Private Sub Command1_Click() Dim city As Variant

City=Array(\北京\，\上海\，\天津\，\重庆\ Print city(1) End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是__1__。 参考答案 1：上海

执行以下程序 ： a=1 b=2 c=3 a=b b=c c=a

Print a; b; c

End 输出结果是

参考答案 2 3 2

在VB中，对窗体中命令按钮编写如下过程，执行时输入15： n = Val(InputBox(\Select Case n Case Is < 10 m = n + 1 Case Is < 8 m = n + 2 Case Is < 4 m = n + 3 Case Else m = n + 4 End Select Print m; n 输出结果是： 参考答案 19 15

在VB中，执行以下程序段： Private Sub Command1_Click() For i = 1 To 3 Sum = Sum + i

i = i + 1 Next i Print Sum End Sub 输出结果是：

参考答案 4

在VB中，执行以下程序段： a = 1: b = 3: c = 5: d = 4 If a < b Then If c < d Then x = 1 Else

If a < c Then If b < d Then x = 2 Else x = 3 End If Else x = 6 End If End If

Else x = 7 End If x的值为：

参考答案 2

在VB中，执行以下程序段：a = 12.3 b = \

m = Len( Str(a) + Str(b) ) Print m End

输出结果是：

参考答案 9

在VB中，执行以下程序段：a = 5

If a <= 3 Then Print 3; End If

If a <= 4 Then Print 4; End If

If a <= 5 Then Print 5; End If

If a <= 6 Then Print 6; End If 输出结果是：

参考答案 5 6

在VB中，执行以下程序段： a = \b = \

c = Val(a) + Val(b) Print c 输出结果是：

参考答案 579

在VB中，有函数fun，执行以下程序： Function fun(n)

If (n = 1 Or n = 2) Then s = 2 Else

s = n - fun(n - 1)

End If fun = s End Function

Private Sub Command1_Click() Print fun(3) End Sub

单击按钮Command1时，输出结果是：

参考答案 1

在VB中，执行以下程序段： Private Sub Command1_Click() Dim a(5) For i = 1 To 5 a(i) = i * i Next i

Print a(a(2) * a(3) - a(4) * 2) + a(5) End Sub

单击按钮Command1，输出结果是：

参考答案 41

在VB中，执行以下程序段： Private Sub Command1_Click() i = 0: j = 10

Do While i <= j i = i + 1 j = j - 1 k = i + j Loop Print k End Sub 输出结果是：

参考答案 10

在VB中，执行以下程序段： Dim i, k, a(10), p(3) k = 5

For i = 0 To 9 a(i) = i Next i

For i = 0 To 2

p(i) = a(i * (i + 1)) Next i

For i = 0 To 2 k = k + p(i) * 2 Next i Print k

输出结果是：

参考答案 21

有如下Sub过程： Sub ab(x, y) If y = 0 Then Print x Else

Call ab(y, x Mod y) End If End Sub

当a=90， b=36时，执行CALL ab(a, b)语句后，输出的值是：

参考答案 18

在VB中，执行以下程序段： For i = 1 To 10

If i Mod 5 <> 0 Then n = n + i Next i Print n 输出结果是：

参考答案 40

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click() For i = 1 To 4 a = 1

For j = 1 To 3 a = 2

For k = 1 To 2 a = a + 6 Next k Next j Next i Print a End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是：

参考答案 14

设有如下VB程序： Private Sub Form_Click() a = 1

For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4

a = a + 2 End Select Next i Print a End Sub

程序运行后，单击窗体，则在窗体上显示的内容是：

参考答案 5

在VB窗体中添加一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1_Click() Dim x, y, z As Integer x = 10: y = 5: z = 23 Text1.Text = \ Call p1(x, y, z) Text1.Text = z End Sub

Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub

程序运行后，如果单击命令按钮，则文本框中显示的内容是：

参考答案 15

在窗体（Name属性为Form1）中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下事件过程： Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub

Private Sub Form_Load() Text1.Text = \ Text2.Text = \End Sub

程序运行后，在Text1和Text2中分别输入12和34，然后单击命令按钮，则输出结果为：

参考答案 1234

在窗体中添加一个文本框（其中Name属性为Text1），然后编写如下代码： Private Sub Form_Click() Text1.Text = \ For I = 1 To 10 sum = sum + I Next I

Text1.Text = sum End Sub

程序运行后，单击窗体，则Text1显示：

参考答案

55

在VB窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码： Private Sub Command1_Click() Dim k, n, m As Integer n = 5 m = 1 k = 1

Do While k <= n m = m * 2 k = k + 1 Loop Print m End Sub

程序运行后，单击按钮，输出结果为：

参考答案 32

在窗体中添加名称为Command1和名称为Command2的命令按钮测验文本框Text1，然后编写如下代码： Private Sub Command1_Click() Text1.Text = \End Sub

Private Sub Command2_Click() Text1.Text = \End Sub

首先单击Command2按钮，然后再单击Command1按钮，在文本框中显示：

参考答案 AB

在VB窗体中添加一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click()

Dim a(10) As Integer, p(3) As Integer k = 1

For I = 1 To 10 a(I) = I Next I

For I = 1 To 3 p(I) = a(I * 1) Next I

For I = 1 To 3 k = k + p(I) * 2 Next I Print k End Sub

程序运行后，单击命令按钮，输出结果是：

参考答案 13

在VB窗体中添加两个文本框Text1、Text2和一个命令按钮Command1，然后编写如下事件过程：

Private Sub Command1_Click()

x = 0

Do While x < 10 x = (x - 2) * (x + 3) n = n + 1 Loop

Text1.Text = n Text2.Text = x End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为(答题形式为：Text1和Text2，例如：1和2)：

参考答案 2和24

在VB的窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a(5), b(5) For j = 1 To 4 a(j) = 3 * j b(j) = a(j) * 3 Next j

Text1.Text = b(j \\ 2) End Sub

程序运行后，单击命令按钮，在文本框中显示：

参考答案 18

在VB中，执行以下程序段 ： num = 0

Do While num <= 2 num = num + 1 Print num; Loop

输出结果是：

参考答案 1 2 3

在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码： Dim a As Integer Sub test()

a = a + 1: b = b + 1: c = c + 1 Print a; b; c End Sub

Private Sub Command1_Click() a = 2: b = 3: c = 4 Call test Call test End Sub

程序运行后，单击命令按钮，窗体中将显示：

参考答案 3 1 1

4 1 1

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Function fun(x As Integer) Static z '' z为静态变量 y = y + 1: z = z + 1 fun = x + y + z End Function

Private Sub Command1_Click() Dim x As Integer x = 1

For i = 1 To 2 Print fun(x); Next i End Sub

程序运行后，如果单击命令按钮，窗体中显示的内容是：

参考答案 3 4

4 1 1

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Function fun(x As Integer) Static z '' z为静态变量 y = y + 1: z = z + 1 fun = x + y + z End Function

Private Sub Command1_Click() Dim x As Integer x = 1

For i = 1 To 2 Print fun(x); Next i End Sub

程序运行后，如果单击命令按钮，窗体中显示的内容是：

参考答案 3 4

本文来源：https://www.bwwdw.com/article/6t7p.html