VB程序设计基础练习题2Word文档下载推荐.docx

VB程序设计基础练习题2Word文档下载推荐.docx

《VB程序设计基础练习题2Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB程序设计基础练习题2Word文档下载推荐.docx（28页珍藏版）》请在冰豆网上搜索。

-------------------------------------------------------------------

新建一个名称为Form1，标题为“使用输入对话框”的窗体，该窗体上无任何控件。

请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，

其标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。

要求程序中不得使用变量，每个事件过程中只能写一条语句。

4.窗体属性、字体属性设置

在名称为Form1的窗体上，更改窗体标题为“标签”，并添加一个可自动调整

大小的标签，名称为Label1，其标题为“计算机等级考试”，字体大小为三号字；

再添加两个命令按钮，标题分别是“宋体”和“黑体”，

名称分别为Command1、Command2。

编写两个命令按钮的Click事件过程。

程序运行后，

如果单击“宋体”命令按钮，则标签标题显示为宋体字体；

如果单击“黑体”按钮，则标签标题显示为黑体字体。

------------------------------------------------------------------

5.窗体按钮左右宽度高度设置

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

编写适当的事件过程。

程序运行后，单击命令按钮Cmd1，则可使该按钮移到窗

体的左上角（只允许通过修改属性的方式实现）；

单击命令按钮Cmd2，

则可使该按钮在长度和宽度上各扩大到原来的2倍。

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

不得使用任何变量。

----------------------------------------------------------------

6.字体、文本框属性设置

--------------------------------------------------------------

在名称为Form1的窗体上添加两个文本框，名称分别为Text1、Text2，

均无初始内容。

①通过属性窗口设置适当的属性，使Text1、Text2中显示的文本的字体为“隶书”；

②编写适当的事件过程，使得在Text1中输入每一个字符时，

将Text1中的内容显示在Text2中，如图所示。

要求程序中不得使用变量，事件过程中只能写一条语句。

----------------------------------------------------------

7.删除列表框列表项

在名称为Form1的窗体上添加一个名称为List1的列表框，

通过属性窗口分别输入4个列表项：

“数学”、“物理”、“化学”、“语文”，如图所示。

请编写适当的事件过程使得在程序运行时，将最后一个列表项自动改为“英语”；

单击窗体时，则删除最后一个列表项。

8.列表框的列表项的复制和删除

--------------------------------------------------------------------

在名称为Form1的窗体上，更改窗体标题为“列表框练习”并添加1个名称

为List1的列表框，表项内容依次输入“环球时报”、“人物”、“探索”和

“读者”；

再添加2个标题分别为“复制”和“移去”的名称为“Command1”

和“Command2”命令按钮，如图所示。

编写适当的事件过程，在程序运行后，单击“复制”按钮，

可以将选中的列表项内容复制到已有列表项的尾部；

单击“移去”按钮，可以将选中的列表项的内容删除。

答案：

PrivateSubCommand1_Click（）

List1.AddItemList1.Text

EndSub

PrivateSubCommand2_Click（）

List1.RemoveItemList1.ListIndex

9.标签字体的缩小放大

在名称为Form1的窗体上，添加1个名称为Label1的标签，

其标题为“计算机等级考试”，显示为宋体12号字，

且能根据标题内容自动调整标签的大小。

再添加2个名称分别为“Command1”、“Command2”，

标题分别为“放大”、“还原”的命令按钮。

编写适当的事件过程，若单击“放大”按钮，

则Label1中所显示的标题内容自动增大2个字号；

单击“还原”按钮，

Label1中所显示的标题内容自动恢复到12号字。

---------------------------------------------------------------

10.文本框是否可用，内容大小定转换

在名称为Form1的窗体上添加两个文本框，其名称分别为Text1、Text2，

初始文本都为空，显示内容为三号字，且Text1的初始状态为不可用。

再添加一个名称为Command1、标题为“开始”的命令按钮。

编写适当的事件过程，使得单击“开始”按钮后，

Text1文本框状态变为可用，且在Text1文本框中输入字母串时，

Text2文本框中用大写字母形式显示Text1文本框中的内容。

-----------------------------------------------------------

11.按钮左右向上向下移动

在名称为Form1的窗体上画一个命令按钮，其名称为C1，

标题为“移动”，位于窗体的左上部，如图1所示，编写适当的事件过程。

程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动100。

不得使用任何变量；

12.文本框密码框的实现

在窗体上画二个文本框，名称分别为Text1、Text2。

请设置适当的控件属性，并编写适当的事件过程，

使得在运行时，如果在Text1中每输入一个字符，

则显示一个“*”，同时在Text2中显示输入的内容（如图所示）。

程序中不得使用任何变量。

13.通过列表项设置文本框字体大小

在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“程序设计”

，AutoSize属性为True；

然后再画一个列表框，名称是List1通过属性窗口

输入5个项目，分别为10、16、20、24、26、36，如图1所示，编写适当的事件过程。

程序运行后，如果用鼠标选中列表框中的某个项目，

则把标签中字体的大小设置为该项目相同。

14.单击不同的按钮在窗体上显示不同的内容

在名称为Form1的窗体上画两个名称分别为Cl和C2，

标题分别为“必修课”、“选修课”的命令按钮，

程序运行后，如果单击“必修课”命令按钮，

则在窗体上显示“高等数学必修课”，如果单击“选修课”命令按钮，

则在窗体上显示“多媒体技术选修课”

不要使用任何变量，直接显示字符串。

-------------------------------------------------------------

15.把窗体标题显示在图片框中

在名称为Form1的窗体上画1个名称为P1的图片框，窗体的标题为“程序设计”，

如图1所示。

编写适当的事件过程，使得程序运行后，单击窗体，

则在图片框中显示窗体的标题，并把窗体的标题变为“Basic”，如图2所示。

------------------------------------------------------------

16.按钮的变大变小左右

在名称为Form1的窗体上添加两个命令按钮（见图1），其名称分别为Cmd1和Cmd2，编写适当的事件过程。

程序运行后，单击命令按钮Cmd1，则可使该按钮移到窗体的左上角（只允许通过修改属性的方式实现）；

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

17.

18.

19.

20.

二、程序填空题

1.求一元二次方程的根

PrivateSubForm_Click（）

Dima%,b%,c%,d!

Dimx1,x2

Dimp,q,r

a=InputBox（"

请输入a的值"

）

b=InputBox（"

请输入b的值"

c=InputBox（"

请输入c的值"

d=b*b-4*a*c

p=-b/（2*a）

Ifd>

=0Then

'

**********SPACE**********

If【?

】Then

r=Sqr（d）/（2*a）

x1=p+r

x2=p-r

Else

x1=p

x2=p

【?

】

Print"

x1="

;

x1,"

x2="

x2

【?

q=Sqr（-d）/（2*a）

p;

"

+"

q;

i"

"

-"

EndIf

①d>

0或0>

d

②endif

③else

2.判断素数

n=InputBox（"

请输入一个正整数（≥3）"

k=Int（Sqr（n））

i=2

swit=0

DoWhilei<

=kAndswit=0

IfnModi=0Then

swit=1

Else

i=i+1

Loop

Ifswit=0Then

Printn;

是一个素数"

不是素数"

①swit=0

②nmodi=0

③i=i+1

3.下面过程max（）用于求3个数中最大值，利用这个过程求5个数中最大值

-------------------------------------------------------

【程序填空】

下面过程max（）用于求3个数中最大值，利用这个过程求5个数中最大值。

Print"

5个数34、124、68、73、352的最大值是：

"

max1=max（34,124,68）

max1=【?

Printmax1

PublicFunctionmax（ByVala%,ByValb%,ByValc%）

If【?

m=a

m=b

max=m

max=c

EndFunction

①max（max1,73,352）

②a>

b或b<

a

③m>

c或c<

m

4.利用下面的过程求m!

和m*n

功能：

利用下面的过程求m!

和m*n。

DimmAsInteger,nAsInteger

m=2

n=3

PrivateSubfind（xAsInteger,yAsInteger）

Dims,iAsInteger

Fori=1Tox

s=s*i

p=【?

Nexti

Prints,p

①findm,n或callfind（m,n）

②s=a或s=1:

p=0

③p+y或x*y

5.以下程序段用于求∑n!

以下程序段用于求∑n!

DimsumAsInteger,nAsInteger

n=InputBox（"

请输入一个正整数"

sum=0

Fori=1Ton

sum=【?

Printsum

PrivateFunctionmul（ByValxAsInteger）

DimsAsInteger,iAsInteger

s=1

Fori=1To【?

①sum+mul（i）

②x

③mul=s

6.下面的程序段用于建立文件并输出文件

下面的程序段用于建立文件并输出文件，文件内容如下：

*****

*****

Open"

c:

\1.txt"

For【?

】As#1

Fori=1To5

Print#1,Sp