VB练习题上机含答案Word下载.docx

VB练习题上机含答案Word下载.docx

《VB练习题上机含答案Word下载.docx》由会员分享，可在线阅读，更多相关《VB练习题上机含答案Word下载.docx（36页珍藏版）》请在冰豆网上搜索。

在程序运行时，单击"

转换"

按钮，可以把Text1中的小写字母转

换为大写，把大写字母转换为小写，其他字符不变。

PrivateSubC1_Click（）

DimchAsString,ch1AsString,i%ch=Text1

Fori=1ToLen（ch）

IfAsc（Mid（ch,i,1））>

=65AndAsc（Mid（ch,i,1））<

=90Thench1=ch1+LCase（Mid（ch,i,1））

Else

chi=chi+UCase（Mid（ch,i,1））

EndIf

Textl=Textl+vbCrLf

Textl=Text1+ch1

3在窗体上添加一个命令按钮（名称为MyCmd1，标题为"

输出最大值”）。

程序运行后，单击

命令按钮完成以下工作：

1随机产生30个0〜1000的整数，将其放入一个一维数组中

2求出其中的最大值，并显示在窗体上。

PrivateSubMyCmd1_Click（）

Dima%（29）,i%,max%

Fori=0To29

max=a（0）

Fori=1To29

Ifa（i）>

maxThenmax=a（i）

Printmax

4请设计如下图所示窗体界面。

程序运行时，在选中一个或两个复选框和一个单选按钮时，

单击命令按钮，则对文本框中的文本内容做相应的设置。

请编写适当的事件过程，完成上述

功能。

PrivateSubCommand1_Click（）

IfOptionl.Value=TrueThen

Textl.FontName="

宋体”

Text1.FontName="

隶书”

IfCheck1.Value=1Then

Text1.FontUnderline=True

Text1.FontUnderline=False

IfCheck2.Value=1Then

Text1.FontItalic=True

Text1.FontItalic=False

5在名称为Form1的窗体上添加一个名称为Text1的文本框；

添加两个标题分别为”对齐方式

、”字体"

，名称分别为Fm1、Fm2的框架；

在Fm1框架中添加三个单选按钮，标题分别为左对齐”、”居中”、"

右对齐”，名称分别为Opt1、Opt2、Opt3;

在Fm2框架中添加两个单选按钮，标题分别为”宋体"

、”黑体”，名称分别为Opt4、Opt5。

要求：

编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以

对文本框中的内容实现相应的操作（如图所示）。

PrivateSubOpt1_Click（）

IfOpt1ThenTextl.Alignment=0

PrivateSubOpt2_Click（）

IfOpt2ThenText1.Alignment=2

PrivateSubOpt3_Click（）

IfOpt3ThenText1.Alignment=1

PrivateSubOpt4_Click（）

IfOpt4ThenText1.FontName="

宋体"

PrivateSubOpt5_Click（）

IfOpt5ThenText1.FontName="

黑体"

6请设计如下图所示窗体界面。

运行程序时，先向左侧文本框中输入一个不超过10的正整数,

然后选择"

N的阶乘"

或"

（N+2）的阶乘"

单选钮，即可进行计算，计算结果在右侧文本框中显示。

请编写程序完成上述功能。

Dimn%

PrivateSubForm_Load（）

PrivateSubOption1_Click（）

Dimi%

n=Val（Text1）

m=1

Fori=1Ton

m=m*i

Text2=m

PrivateSubOption2_Click（）

Fori=1Ton+2

7在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。

程序运行时，在

第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击”统计"

命令按钮,

统计第二个文本框中字符（大小写被认为是不同的字母）在第一个文本框中出现的次数，统计

结果在标签Label3中显示。

Dimi%,n%

Fori=1ToLen（Text1）

IfMid（Text1,i,1）=Text2Thenn=n+1Nexti

Label3=n

PrivateSubLabel3_Click（）

PrivateSubText1_Change（）

9请设计如下图所示界面（文本框名称为：

Txt1,按钮名称为：

Cmdl）。

程序运行时在文本框中输入字符串，点击命令按钮，判断文本框中的字符串是否是回文，将判断结果显示在窗体

上。

所谓回文是指字符串正序和逆序的结果相同，如“aBCCBa是回文，“aBCcBa'

不是回

文。

DimchAsString

Fori=Len（Txt1）To1Step-1ch=ch+Mid（Txt1,i,1）

IfTxt1=chThen

是回文"

不是回文"

PrintTxt1+"

10编程实现求Sum

1

11

—

（n为小于等于

20的整数）。

1!

2！

3！

n!

程序运行界面如下图所示。

程序运行时，在文本框中输入

n的值，点击“计算”

命令按钮，

将计算结果显示在标签上。

Dimi%,mAsLong,sumAsDoublen=Val（Text1）

sum=sum+1/m

Label2="

sum="

&

sum

第二部分

1已知在同一个笼子里有总数M只鸡和兔，鸡和兔的总脚数为N只，编程求出鸡和兔各有多少只。

程序运行后，在两个文本框中分别输入M和N的值，单击计算”命令按钮，在

两个标签框中分别输出鸡和兔的数量。

程序运行界面如下图。

提示：

NA2XM的偶数。

m=Val（Text1）

n=Val（Text2）

IfnMod2<

>

0Then

MsgBox（"

脚数必须为偶数"

）

Text2="

Text2.SetFocus

y=n/2-m

Ify<

脚数必须>

=只数的2倍，请重新输入"

x=m-y

Label3=x

Label4=y

2若一个3位正整数中各位数字的立方和等于该数字本身，则该数称之为水仙花数”。

例如

153是水仙花数，因为153=1*1*1+5*5*5+3*3*3。

编程求出100〜999之间所有的水仙花数”。

程序运行后，单击查找”按钮，在窗体上显示找到的水仙花数”。

程序运行界面如下图。

Print"

水仙花数：

”;

Fori=100To999

X1=iMod10'

分离出个位数

X2=（iMod100）\10'

分离出十位数

x3=i\100'

分离出百位数

Ifi=X1A3+X2A3+x3A3ThenPrinti;

3编写程序，要求程序运行后，单击“开始”按钮，随机产生20个学生的成绩（0〜100的整

数）,并在左边图片框中输出（一行5个成绩），并在右边图片框中输出平均分和及格的人数，程序运行界面如下图。

Dima（1To20）AsInteger,i%,n%

Picture1.Cls

Picture2.Cls

Fori=1To20

a（i）=Int（Rnd*101）

Picturel.Printa（i）;

IfiMod5=0ThenPicturel.Print

=60Thenn=n+1

Sum=Sum+a（i）

Picture2.Print"

平均分：

;

Sum/20

Picture2.Print;

及格人数：

n

PrivateSubPicture2_Click（）

4编写程序实现：

程序运行时，单击窗体则显示如下图所示的图案。

「;

*FqexI

叵|

扌****：

♦：

車

PrivateSubForm_Click（）

Fori=1To5

PrintTab（10-i）;

String（2*i-1