vb 2.docx

vb 2.docx

《vb 2.docx》由会员分享，可在线阅读，更多相关《vb 2.docx（13页珍藏版）》请在冰豆网上搜索。

vb2

有如下程序：

：

PrivateSubForm_Click（）

DimiAsInteger,sumAsInteger

sum=0

Fori=2To10

IfiMod2<>0AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

程序运行后，单击窗体，输出结果为_____12_。

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

PrivateSubCommand1_Click（）

DimbAsInteger

b=b+1

EndSub

运行程序，三次单击命令按钮后，变量b的值是：

1______。

假定程序中有以下语句：

answer=MsgBox（"String1",,"String2","String3",2）

执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为：

__1____。

如果在立即窗口中执行以下操作（是回车键）：

a=8

b=9

printa>b

则输出结果是___False___。

设置复选框中或单选按钮的标题对齐方式的属性是______。

Alignment

用Dim（1,3to7,10）声明的是一个__3____维数组。

通过以下______窗口可以在设计时直观的调整窗体在屏幕上的位置。

窗体布局窗口

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

PrivateSubCommand1_Click（）

Fori=1To4

Ifi=1Thenx=i

Ifi<=4Thenx=x+1

Printx;

Nexti

EndSub

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

____2345__。

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

PrivateSubCommand1_Click（）

x=InputBox（"Input"）

SelectCasex

Case1,3

Print"分支1"

CaseIs>4

Print"分支2"

CaseElse

Print"Else分支"

EndSelect

EndSub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是______。

Else分支

以下关系表达式中，其值为假的是：

__"VisualBasic"="visualbasic"____。

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

PrivateSubCommand1_Click（）

Dimarray1（10,10）AsInteger

Dimi,jAsInteger

Fori=1To3

Forj=2To4

array1（i,j）=i+j

Nextj

Nexti

Text1.Text=array1（2,3）+array1（3,4）

EndSub

程序运行后，单击命令按钮，在文本框中显示的值是__12____

在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：

OptionBase1

PrivateSubCommand1_Click（）

Dima（4,4）

Fori=1To4

Forj=1To4

a（i,j）=（i-1）*3+j

Nextj

Nexti

Fori=3To4

Forj=3To4

Printa（j,i）;

Nextj

Print

Nexti

EndSub

程序运行后，单击命令按钮，其输出结果为__912

1013

____。

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

PrivateSubCommand1_Click（）

n=Val（Text1.Text）

Fori=2Ton

Forj=2ToSqr（i）

IfiModj=0ThenExitFor

Nextj

Ifj>sqr（i）ThenPrinti

Nexti

EndSub

这事件过程的功能是_____输出n以内的素数_。

可以同时删除字符前导和尾部空白的函数是__Trim____。

以下定义数组或给数组元素赋值的语句中，正确的是______。

DimaAsVariant

a=Array（1,2,3,4,5）

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

PrivateSubCommand1_Click（）

a=12345

PrintFormat$（a,"000.00"）

EndSub

程序运行后，单击命令按钮，窗体上显示的是__12345.00____。

设A="12345678"，则表达式Val（Left（A,4）+Mid（A,4,2））的值为___123445

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

PrivateSubCommand1_Click（）

DimxAsInteger,nAsInteger

x=1

n=0

DoWhilex<20

x=x*3

n=n+1

Loop

Text1.Text=Str（x）

Text2.Text=Str（n）

EndSub

程序运行后，单击命令按钮，在两个文本框中显示的值分别是______27和3

以下可以作为VisualBasic变量名的是__counstA____。

下列程序段的执行结果为__1504____。

N=0

ForI=1To3

ForJ=5To1Step-1

N=N+1

NextJ,I

PrintN;J;I

下列程序段的执行结果为___235___。

x=1

Y=1

ForI=1To3

F=x+Y

x=Y

Y=F

PrintF;

NextI

当我们输入代码时，VisualBasic可以自动检测___语法错误___错误。

设x=4,y=8,z=7，以下表达式的值是__False____。

xz）Orz

在VisualBasic中，下列运算符中优先级最高的是：

_*_____。

设a=5，b=6，c=7，d=8，执行下列语句后，x的值为____20__。

x=IIf（（a>b）And（c>d）,10,20）

在窗体上画1个命令按扭（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：

PrivateSubCommand1_Click（）

x=Val（Text1.Text）

SelectCasex

Case1,3

y=x*x

CaseIs>=10,Is<=-10

y=x

Case-10To10

y=-x

EndSelect

EndSub

程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是_执行y=x*x_____。

下列程序段的执行结果为_bcdcde____。

A="abcd"

B="bcde"

E=Right（A,3）

F=Mid（B,2,3）

IfE

函数UCase（Mid（"visualbasic",8,8））的值为______。

BASIC

在设计应用程序时，通过__工程资源管理器窗口____窗口可以查看到应用程序工程中的所有组成部分。

编写如下事件过程：

PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

If（ButtonAnd3）=3Then

Print"AAAA"

EndIf

EndSub

程序运行后，为了在窗体上输出"AAAA"，应按下的鼠标键为__按什么键都不显示____。

请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。

（1）在名称为Form1的窗体上画一个文本框，其名称为Text1，然后通过属性窗

口设置窗体和文本框的属性，实现如下功能：

1）在文本框中可以显示多行文本

2）在文本框中显示垂直滚动条

3）文本框中显示的初始信息为“程序设计”

4）文本框中显示的字体为三号规则黑体

5）窗体的标题为“设置文本框属性”

完成设置后的窗体如图所示。

要求：

不编写任何代码。

*注意：

存盘时必须存放在考生文件夹下，工程文件名为sj29.vbp，窗体文件

名为sj29.frm。

**********************************************************************

（2）在名称为Form1的窗体上画两个命令按钮（见图1），其名称分别为Cmd1

和Cmd2，编写适当的事件过程。

程序运行后，如果单击命令按钮Cmd1，则

可使该按钮移到窗体的左上角（只允许通过修改属性的方式实现）；如果

单击命令按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的2倍。

程序的运行情况如图2所示。

要求：

不得使用任何变量。

*注意：

存盘时必须存放在考生文件夹下，工程文件名为sj30.vbp，窗体文件

名为sj30.frm。

第1小题：

新建一个工程，在窗体上添加一个文本框Text1，并将其MultiLine属性设置为True，ScrollBars属性设置为2-Vertical，Text属性设置为“程序设计”，FontName设置为“黑体”，FontSize设置为“三号”。

再选中窗体，设置其Caption属性为“设置文本框属性”。

最后按照题目要求保存文件即可。

第2小题：

新建一个工程，在窗体上添加两个命令按钮Cmd1和Cmd2，它们的Caption属性为“Cmd1”和“Cmd2”。

打开代码窗口，在其中添加如下代码：

PrivateSubCmd1_Click（）

Cmd1.Left=0

Cmd1.Top=0

EndSub

PrivateSubCmd2_Click（）

Cmd2.Height=Cmd2.Height*2

Cmd2.Width=Cmd2.Width*2

EndSub

在考生文件夹下有一个工程文件sj80.vbp，窗体文件中已给出所有控件和部分程序，如图所示。

要求：

1）利用属性窗口设置适当的属性，使Text1、Text2中数据右对齐；

2）请编写适当的程序完成以下功能：

在Text1中输入40（度数），选择一个单选按钮，单击"计算"按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值（保留3位小数，第4位截去，π取3.14159），并显示在Text2中。

注意：

考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在Text1中输入的必须是40，必须用窗体右上角的关闭按钮结束程序，否则无成绩。

最后，程序按原文件名存盘。

**********************************************************************

考查考生对Text控件的Alignment属性的使用。

单选按钮的Value属性：

Value属性用来表示单选按钮的状态，可以取True和False两种值，取值为True时，单选按钮是"打开"的，按钮中心有一个圆点；取值为False时，单选按钮是"关闭"的，按钮是一个圆圈。

设置单选按钮Value属性的语法是：

单选按钮名.Value=True或False

由于Value属性是单选按钮的缺省属性，因此在设置该属性的值的时候，可以省略属性名。

控件数组：

控件数组是一组具有共同名称和类型的控件。

它们的事件过程也相同。

一个控件数组至少应有一个元素，元素数目可在系统资源和内存允许的范围内增加；数组的大小也取决于每个控件所需的内存和Windows资源。

控件数组中的每一个控件都有唯一的索引号（Index），即下标，根据这个下标，可以调用控件数组中任意控件的事件，设置控件数组中任意控件的相关属性。

Round函数：

Round函数的格式为：

Round（数值，保留的小数位数），它的作用就是对指定数值进行四舍五入的操作并保留指定小数位数。

表达式Fix（-32.68）+Int（-23.02）的值为-56_____。

阅读程序：

PrivateSubForm_Click（）

num=0

s=0

DoWhilenum<=2

num=num+1

s=s+1

Loop

Prints

EndSub

程序运行后，单击窗体，输出结果是_3____。

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

PrivateSubCommand1＿Click

DimaAsString

a=______

Fori=1To5

PrintSpace（6-i）;Mid$（a,6-i,2*i-1）

Next

EndSub

程序运行后，单击命令按钮，要求在窗体上显示的输出结果为

5

456

34567

2345678

123456789

请填空。

“1234567889“

以下程序段执行后y的值是_9_____。

x=8.6

y=int（x+0.5）

printy

以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中。

PrivateSubCommand1_Click（）

DimNAsString,DAsString

N=Text1.Text

M=__len（text1）____

Fori=MTo1Step-1

c=Mid（N,i,1）

D=D&__c____

Nexti

___text2___=D

EndSub

阅读下面的程序：

PrivateSubForm_Click（）

DimCheckAsBoolean,CounterAsInteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter

EndSub

程序运行后，单击窗体，输出结果为____10___。

阅读下面的程序：

PrivateSubForm_Click（）

DimCheckAsBoolean,CounterAsInteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter

EndSub

程序运行后，单击窗体，输出结果为____10___。

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

PrivateSubCommand1_Click（）

Fori=1To4

x=4

Forj=1To3

x=3

Fork=1To2

x=x+6

Nextk

Nextj

Nexti

Printx

EndSub

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

在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：

PrivateSubCommand1_Click（）

x=0

DoWhilex<50

x=（x+2）*（x+3）

N=N+1

Loop

Text1.Text=Str（N）

Text2.Text=Str（x）

EndSub

程序运行后，单击命令按钮，Text1中显示的值是__2____；Text2中显示的值是__72____。

在窗体上画一个名称为"Command1"的命令按钮。

然后编写如下事件过程

PrivateSubCommand1_Click（）

DimaAsString

a="123456789"

Fori=1To5

PrintSpace（6-i）;Mid$（a,__6-i____,2*i-1）

Nexti

EndSub

程序运行后，单击命令按钮，窗体上的输出结果是

5

456

34567

2345678

123456789

描述"X是小于100的非负整数"的VisualBasic表达式是x<100andx>__=0____。