vb操作题.docx

vb操作题.docx

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

vb操作题

预备知识:

1．多重窗体的切换方法，窗体之间变量和控件的访问方法。

2．图片框的picture属性添加艺术字。

3．给命令按钮设置快捷键的方法

4．KeyPress事件的应用

5．熟悉各种选择结构，循环结构的语句格式和功能。

6．熟悉简单的算法。

预期目标：

1．巩固图片框、图像框、文本框等基本控件的使用。

2．掌握快捷键的设置方法。

3．熟练掌握消息框、输入框的使用。

4．熟悉多窗体的创建、添加、启动。

5．掌握判断水仙花数、同构数、完全数、素数等算法。

6．掌握二进制、十进制和十六进制之间的转换算法。

基本功能要求：

1．设计“有趣的数字”窗体为启动窗体。

如图1-1所示。

2．单击“进入”按钮或按AIl+E组合键，切换到“功能控制按扭”窗体，如图1-2所示。

单击“最大公约数和最小公倍数”按钮时，切换到“最大公约数和最小公倍数”窗体，如图1-3所示，并完成最大公约数和最小公倍数的求解。

单击“水仙花数”按钮时，切换到“水仙花数”窗体，如图1-4所示；单击“同构数”按钮时，切换到“同构数”窗体，如图1-5所示；单击“数制转换”按钮时，切换到“数制转换”窗体，如图1-6所示；并分别完成各项功能。

3．单击每个窗体的“返回”按钮时，切换到启动窗体。

4．单击启动窗体的“退出”按钮或按AIl+X组合键，切换到“退出”窗体，如图1-7所示。

可选择退出结束程序运行或返回启动窗体。

图1-1

shu

图1-2

图1-3

图1-4

图1-5

图1-6

图1-7

图1-8

图1-9

基础训练：

1．设计界面

根据基本功能的描述和工程程序的下载包，设计“水仙花数”和“数制转换”窗体。

2．编写代码

根据基本功能的描述和工程程序的下载包，将省略的事件代码补充完整。

提高与创新训练：

1．找出程序代码中健壮性不强的地方，并修改。

2．添加用户登录界面如图1-8，只有输入正确的用户名和密码才能进入系统。

并且要求输入用户名和密码的次数不能超过三次，如果连续3次输入都不能进入系统，则强行退出程序。

3．将“功能控制按钮”窗体改成带菜单的窗体形式，如图1-9所示，通过选择下拉菜单的选项来相应完成各命令按钮的功能。

4．将所找到的一定范围内的水仙花数，同构数，完全数分别存储在相应的文件中去。

5．添加“帮助菜单”功能，并将帮助信息存放在文件中。

添加“

《VisualBASIC程序设计》（A卷）

一、填空题（每空1分,共10分）

1.单选按钮option1.value=true,说明该按钮_①_（被选中/未选中）

2.根据存取方式，文件可分为_②___文件和__③___文件

3.DIMAASinteger,也可以写成__④____

4.printformat（63.57,”000.000”）的输出结果是_⑤___

5.k=a=b第一个是__⑥____号,第二个是__⑦__号

6.DIMA（2,3）asstring,则数组A最多能放_⑧_个元素，各元素是__⑨__类型。

7.设a,b,c是三角形的三条边长，写出能构成三角形的逻辑表达式

____⑩____

二、选择题（每空1分,共10分）

1.窗体文件的扩展名是_①__工程文件的扩展名是_②___

A..vbpB..logC..frmD..bas

2.“立即窗口”选项是在_③__里

A.窗口菜单B.视图菜单C.工具菜单D.编辑菜单

3.在面向对象的程序设计中，对象的性质和状态特征称为_④___

A.消息B.类C.属性D.事件

4.fontbold=true表示将字体设为__⑤____

A.斜体B.粗体C.加中划线D.加下划线

5.属于外颜色属性的是_⑥__

A.heightB.topC.leftD.backcolor

6.文本框的text属性返回值是_⑦__类型,autosize属性是_⑧____类型。

A.逻辑B.数值C.字符D.日期

7.将按钮的鼠标事件屏蔽，可将__⑨___属性设为false

A.captionB.textC.enableD.visible

8.不能使用print方法的对象_⑩___

A.printerB.formC.pictureboxD.text

三、程序填空（每空2分,共20分）

1、计算S=1+2+3+…+100

S=0:

N=0

WHILE__

（1）__

N=N+1

__

（2）_____

WEND

PRINTS

2、有一批从1到99的整数，分别统计其个位数是1，2，3，…，9的数各有多少。

DIMX（9）asinteger,Nasinteger,Masinteger,Iasinteger,Jasinteger

N=val（INPUTBOX（“输入个数”））

FORI=1TON

M=VAL（INPUTBOX（“输入待统计的整数”））

J=____（3）____

X（J）=_______（4）_______

NEXTI

FORJ=1TO9

PRINTX（J）

NEXTJ

3、建立并打印一个主对角线元素为1，其余元素为零的10行10列的二维数组。

DIMA（10,10）asinteger

FORI=1TO10

FORJ=1TO10

______（5）__________

IF_____（6）______THENA（I,J）=1

PRINTA（I,J）;

NEXTJ

____（7）____

NEXTI

4、用选择法将10个两位随机整数按升序排列．

OPTIONExplicit

Privatesubcommand1_click（）

Constn＝10

DIMA（1ton）asinteger

DIMIasinteger,Jasinteger,Kasinteger,Tasinteger

FORI＝1TOn

A（I）=____（8）_____

PRINTA（I）;

NEXTI

PRINT

FORI＝1ton-1

K＝I

FORJ＝＿（9）＿

IFA（K）>A（J）THEN＿＿（10）＿＿

NEXTJ

IFK<>ITHEN

T=A（I）

A（I）=A（K）

A（K）=T

ENDIF

NEXTI

PRINT"daraaftersorting:

"

FORI＝1TOn

PRINTA（I）;

NEXTI

Endsub

四、写下列程序的运行结果（每题5分,共20分）

1、PrivateSubCommand1_Click（）

FORI=1TO5STEP2

CALLF（I）

NEXTI

EndSub

SubF（J）

T=1

FORK=1TOJ

T=T*K

NEXTK

PRINT"T=";T

EndSub

2、PrivateSubCommand1_Click（）

DIMA（3,3）asinteger

FORI=0TO3

FORJ=0TOI

PRINTI*J;

NEXTJ

PRINT

NEXTI

ENDSub

3、PrivateSubcommand1_click（）

staticnasinteger

n=n+1

printn

ENDSub

问:

连击3次command1的显示结果。

4、DIMA（2,3）asinteger,B（3,2）asinteger

FORI=1TO2

FORJ=1TO3

A（I,J）=I+J

NEXTJ

NEXTI

FORI=1TO2

FORJ=1TO3

B（J,I）=A（I,J）

NEXTJ

NEXTI

FORI=1TO3

FORJ=1TO2

PRINTB（I,J）;

NEXTJ

PRINT

NEXTI

五、编写程序（每题10分,共30分）

1.求出方程x+y+z=18的正整数解。

2.输出如下图形：

****

***

**

*

3.输出100到200之间的所有素数。

六、设计题（本题10分）

设计一个计算器：

由文本框输入两个整数，从组合框中选择四则运算符（+-*/）之一，获得计算结果并显示。

要求：

（1）画出界面，并箭头在界面外标明所用控件是何控件

（2）给出属性表

（3）编写程序代码

VisualBASIC程序设计》（B卷）

一、填空题（每空1分,共10分）

1.Rnd<1orx

2.图形可分为_②__和_③____两大类。

3.RGB函数的功能是__④____。

4.隐藏窗体的方法是_⑤___。

5.装载图片的函数是__⑥____。

6.计算机程序流程的3种控制结构是__⑦__、_⑧_和__⑨__。

7.按下一个有ASCII码的键时，触发____⑩____事件。

二、选择题（每空1分,共10分）

1.运行VB程序的功能键是_①_。

A.F1B.F3C.F5D.F8

2.可以作父控件的控件是_②__。

A.文本框B.标签C.框架D.组合框

3.没有Caption属性的控件是_③____。

A.文本框B.标签C.框架D.滚动条

4.InputBox函数的返回值类型是__④____，MsgBox函数的返回值类型是_⑤___。

A.数值B.字符C.逻辑D.日期

5.不能用于打印机的坐标刻度是__⑥___。

A.磅B.英寸C.字符D.像素

6.不能接收焦点的控件是__⑦__。

A.文本框B.窗体C.命令按钮D.框架

7.无Picture属性的控件是_⑧_。

A.命令按钮B.图片框C.单选按钮D.框架

8.变量的作用域分__⑨__级，过程的作用域分___⑩___级。

A.1B.2C.3D.4

三、程序填空（每空2分,共20分）

1.求满足条件:

1+2+3+……+N>1000的最小的N。

S=0

__

（1）__

WHILE

__

（2）_____

S=S+N

WEND

PRINT“N=”;____（3）____

2.求矩阵A[3,5]和B[5,3]的乘积C。

DIMA（3,5）,B（5,3）,C（3,3）

FORI=1TO3

FORJ=1TO5

A（I,J）=VAL（INPUTBOX（“A（I,J）”））

NEXTJ

NEXTI

FORI=1TO5

FORJ=1TO3

B（I,J）=VAL（INPUTBOX（“B（I,J）”））

NEXTJ

NEXTI

FORI=1TO3

FORJ=1TO3

_______（4）_______

FORK=

C（I,J）=______（5）__________

NEXTK

NEXTJ

NEXTI

FORI=1TO3

FORJ=1TO3

PRINTC（I,J）;

NEXTJ

____（6）_____

NEXTI

3.求矩阵A[5,8]中绝对值最大的元素及其行号和列号。

DIMA（5，8）

FORI=1TO3

FORJ=1TO5

A（I,J）=VAL（INPUTBOX（“A（I,J）”））

NEXTJ

NEXTJ

MAX=_______（7）______:

H=1:

L=1

FORI=1TO5

FORJ=____（8）_____

IFABS（A（I,J））>MAXTHEN

MAX=＿（9）＿

H=I

L=＿＿（10）＿＿

ENDIF

NEXTJ

NEXTI

PRINT“A（“;H;”,”;L;”）=”;MAX

四、写下列程序的运行结果（每题5分,共20分）

1.A=10:

B=9

FORI=1TO4

A=A-B

B=B-A

PRINTA,B

NEXTI

2.FORI=1TO5

PRINTTAB（8-I）;

FORJ=1TOI

PRINTI;””;

NEXTJ

PRINT

NEXTI

3.DIMA（5,5）

FORI=1TO5

A（I,I）=1:

A（I,1）=1

NEXTI

FORI=3TO5

FORJ=1TOI-1

A（I,J）=A（I-1,J-1）+A（I-1,J）

NEXTJ

NEXTI

FORI=1TO5

FORJ=1TOI

PRINTA（I,J）;

NEXTJ

PRINT

NEXTI

4.FORI=3TO16

FORJ=2TOI-1

IFIMODJ=0THENJ=18

NEXTJ

IFJ<18THENPRINTI

NEXTI

五、编写程序（每题10分,共30分）

1.利用过程计算S=1+（1+2）+（1+2+3）+……+（1+2+……+N）

2.在顺序文件”words.dat”中有一批英文单词，将它们中以”a”打头的英文单词输出。

3.画出函数y=lnx在区间（1，30）上的图形。

六、设计题（本题10分）

由文本框输入一个弧度，通过选择按钮计算并输出该弧度的正弦、余弦、正切的值。

要求：

（1）画出界面，并箭头在界面外标明所用控件是何控件

（2）给出属性表

（3）编写程序代码

随机数”菜单项，完成产生一定范围内的随机数，并存放在文件中。