计算机二级vb例题

计算机二级vb例题编写的窗体单击事件过程代码如下：

PrivateSubForm_Click()DimxAsInteger,aAsIntegerDimbAsInteger,cAsIntegerx=36a=Int(x/10)'求十位数

b=xMod10'求个位数

c=b*10+a'生成新的数

Print"处理后的数:";cEndSub运行程序后单击窗体，输出结果是：

处理后的数：63

例3.1

给定一个两位正整数(如36)，交换个位数和十位数的位置，把处理后的数显示在窗体上PrivateSubForm_Click()DimxAsInteger,aAsIntegerDimbAsInteger,cAsIntegerx=36

a=x\10

'求十位数

b=x-10*a

'求个位数

c=b*10+aPrint"处理后的数:";cEndSub

把上述程序改为以下形式，效果是否一样？想一想

通常，解决某个问题的程序方法有多种，我们应该从中选择较优的一种方法。编写的窗体单击事件过程代码如下：

PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegerRandomize'初始化随机数生成器

a=Int(90*Rnd+10)'产生[10,99]区间内的随机整数

b=Int(90*Rnd+10)c=a+b'求两数之和

Print"产生的两个随机数:";a,bPrint"和数:";cEndSub运行程序后单击窗体，输出结果是：

产生的两个随机数：5671

和数：127例3.2

通过随机函数产生2个两位正整数，求这2个数之和并显示出来

再次运行程序，单击窗体后输出另一组结果是：产生的两个随机数：1837

和数：55

先从字符串a中找出某个指定字符(本例为空格)，再以此字符为界拆分成两个字符串。编写的窗体单击过程代码如下：例题2PrivateSubForm_Click()DimaAsString,bAsString,cAsString,nAsIntegera="Visual└┘Basic"

'└┘表示空格

n=InStr(a,"└┘")

'查找空格位置

b=Left(a,n-1)

'取左边部分

c=Mid(a,n+1)

'取右边部分

Printb

'显示左边部分

Printc

'显示右边部分

EndSub

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

Visual

Basic例3.3

使用字符串函数示例PrivateSubForm_Click()DimaAsString,bAsString,cAsString,nAsIntegera="Visual└┘Basic"

'└┘表示空格

n=InStr(a,"└┘")

'查找空格位置

b=Left(a,n-1)

'取左边部分

c=Right(____,____)

'取右边部分

Printb

'显示左边部分

Printc

'显示右边部分

EndSub

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

Visual

Basic

若用Right函数来代替Mid函数,应如何改动？想一想答案：a,Len(a)-n

PrivateSubForm_Click()

x=#1/1/2011#

a=x-Date

b=Weekday(x)

c=Year(Date)

d=Month(Date)

e=Hour(Time)

f=Minute(Time)

Print"现在距离2011年元旦还有：";a;"天"

Print"2011年元旦是：星期";b-1

Print"本月份是：";c;"年";d;"月"

Print"现在是：";e;"时";f;"分"

EndSub

运行程序后单击窗体，输出结果如下：

现在距离2011年元旦还有：304天

2011年元旦是：星期6

本月份是：2010年3月

现在是：10时27分例3.4

使用日期/时间函数示例（留给学生分析）

将输入的字符串反向显示。界面包含两个标签，一个按钮和两个文本框(text1用于输入，text2用于显示反向后的字符串），运行结果如图3.2所示。从文本框text1输入字符串，单击command1按钮，在文本框显示反向字符串。3.7应用示例

程序代码如下：

PrivateSubCommand1_Click()Dimstr,strReAsStringDimiAsIntegerstr=Text1.TextFori=1ToLen(str)strRe=Mid(str,i,1)&strReNextiText2.Text=strReEndSub【程序分析】①FOR

NEXT为循环语句(读者可见第四章).本题中的循环次数由字符串的长度Len(str)决定的.②用Mid函数每次从字符串中第i个位置取一个字符。③注意语句strRe=Mid(str,i,1)&strRe的用法，思考一下，若改为：strRe=strRe&Mid(str,i,1)，结果如何？

判断条件：年号(y)能被4整除，但不能被100整除；或者能被400整除，用逻辑表达式来表示这个条件，写成：

(yMod4=0AndyMod100<>0)Or(yMod400=0)

也可写成：

(Int(y/4)=y/4AndInt(y/100)<>y/100)OrInt(y/400)=y/400)

例4.1判断某一年是否闰年

(1)创建应用程序的用户界面和设置对象属性

(2)编写程序代码

功能要求：用户在“a=”文本框(Text1)、“b=”文本框(Text2)和“c=”文本框(Text3)中输入数据，单击“判断”按钮后，则在“最大数＝”文本框(Text4)中输出结果

例4.2输入三个数a、b、c，求出其中最大数

PrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimcAsInteger,mAsIntegera=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa>bThenm=a'm用来存放较大值

Elsem=bEndIfIfc>mThenm=cText4.Text=mEndSub

程序代码

(1)建立应用程序的用户界面和设置对象属性

(2)编写程序代码功能要求：用户从上面三个文本框(Text1、Text2、Text3)中输入数据，单击“排序”按钮(Command1)，则在第4个文本框(Text4)中显示结果

例4.3输入三个数，将它们从大到小排序

PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa<bThen'本条件语句实现a>=bt=a:a=b:b=tEndIfIfa<cThen'本条件语句实现a>=ct=a:a=c:c=tEndIfIfb<cThen'本条件语句实现b>=ct=b:b=c:c=tEndIfText4.Text=a&","&b&","&cEndSub

程序代码起泡法穷举法PrivateSubCommand1_Click()Dima!,b!,c!Clsa=InputBox("a=")b=InputBox("b=")c=InputBox("c=")Ifa>bAndb>cThenPrinta,b,cIfa>bAndb<=cAnda>cThenPrinta,c,bIfa>bAndb<=cAnda<=cThenPrintc,a,bIfa<=bAndb<=cThenPrintc,b,aIfa<=bAndb>cAnda>cThenPrintb,a,cIfa<=bAndb>cAnda<=cThenPrintb,c,aEndSub

程序代码

实现一些简单的条件判断分支结构格式：

IIf(条件，条件为真时的值，条件为假时的值)

功能：对条件进行测试，若条件成立(为真值)，则取第一个值(即“条件为真时的值”)，否则取第二个值(即“条件为假时的值”)。

例如，将a、b中的小数，放入Min变量中：

Min=IIf(a＜b,a,b)4.2.3IIf函数

例如：0时至12时，显示“早上好”利用窗体装载(Load)事件，采用Print直接在窗体上输出结果

PrivateSubForm_Load()DimhAsIntegerShow'使print输出在窗体上的内容可见

h=Hour(Time)'取系统的时间

FontSize=30:ForeColor=RGB(255,0,0)BackColor=RGB(255,255,0)Ifh<12ThenPrint"早上好！"ElseIfh<18ThenPrint"下午好！"ElsePrint"晚上好！"EndIfEndIf

EndSub例4.4

根据不同的时间段发出问候语

输入学生成绩(百分制)，判断该成绩的等级(优、良、中、及格、不及格)

(1)创建应用程序的用户界面和设置对象属性

(2)编写程序代码

功能要求：用户从“成绩”文本框(Text1)中输入学生成绩，单击“执行”按钮(command1)后，经判断得到等级并显示在标签Label2上。

例4.5判断成绩的等级

PrivateSubCommand1_Click()DimscoreAsInteger,tempAsStringscore=Val(Text1.Text)temp="成绩等级为："Ifscore<0ThenLabel2.Caption="成绩出错"ElseIfscore<60ThenLabel2.Caption=temp+"不及格"ElseIfscore<=79ThenLabel2.Caption=temp+"及格"ElseIfscore<=100ThenLabel2.Caption=temp+"优良"ElseLabel2.Caption="成绩出错"EndIfEndSub

实现例4.5所完成的功能，程序代码如下：

PrivateSubcommand1_click()DimscoreAsInteger,tempAsStringscore=Val(Text1.Text)temp="成绩等级为："SelectCasescoreCase0To59Label2.Caption=temp+"不及格"Case60To69Label2.Caption=temp+"及格"Case70To79Label2.Caption=temp+"中"Case80To89Label2.Caption=temp+"良"Case90To100Label2.Caption=temp+"优"CaseElseLabel2.Caption="成绩出错"EndSelectEndSub

例4.6

用SelectCase语句来实现多分支选择功能

先在窗体上显示以下考题：

鸡兔同笼，已知鸡和兔总头数为h=23，总脚数为f=56，求鸡兔各有多少只?

再提供输入框由学生回答问题，然后采用输出框显示对答案的评判意见。

设计步骤如下：

(1)在窗体上设置一个命令按钮Command1(2)采用窗体的装载事件Form_Load,使考题内容直接显示在窗体上。

例4.7

求鸡数和兔数

当用户单击“答题”按钮时，程序提供输入对话框，由用户输入答案，再通过输出框显示评判意见。采用的程序代码如下：

PrivateSubForm_Load()

ShowPrintFontSize=18PrintSpc(9);"考一考你"FontSize=13PrintSpc(5);"鸡兔同笼，已知鸡和兔总头数为23，"PrintSpc(3);"总脚数为56，求鸡兔各有多少？"EndSub

PrivateSubCommand1_Click()h=23:f=56'总头数及总脚数

j1=(4*h-f)/2'求出的鸡数

t1=(f-2*h)/2'求出的兔数

j2=Val(InputBox("鸡的只数是多少？","请回答"))t2=Val(InputBox("兔的只数是多少？","请回答"))SelectCaseTrue'选择真值

Casej1=j2Andt1=t2MsgBox("回答完全正确!")Casej1=j2MsgBox("鸡数回答正确，但兔数不对!")Caset1=t2MsgBox("兔数回答正确，但鸡数不对!")CaseElseMsgBox("回答错误!")EndSelect

EndSub

(1)创建应用程序的用户界面和设置对象属性

一个计时器控件和一个文本框。计时器控件Timer1的Interval属性值设定为1000(1秒)例4.10

建立一个电子时钟

(2)编写程序代码

PrivateSubTimer1_Timer()

'timer事件过程

Text1.Text=Time'Time是时间函数

EndSub

利用计时器可以按指定间隔时间对字体进行放大

(1)创建应用程序的用户界面和设置对象属性

一个计时器控件和和一个标签。计时器控件Timer1的计时器采用默认的属性值

Enabled属性值为True(真)，Interval属性值为0

例4.11

实现字体的放大

(2)编写程序代码

PrivateSubForm_Load()Label1.Caption="放大"Label1.Width=Form1.Width'把标签的高度和宽度

'设置为窗体相同尺寸

Label1.Height=Form1.HeightTimer1.Interval=800

EndSubPrivateSubTimer1_Timer()IfLabel1.FontSize<140ThenLabel1.FontSize=Label1.FontSize*1.2ElseLabel1.FontSize=8EndIf

EndSub

例4.12

电子倒计时器。先由用户给定倒计时的初始分秒数，然后开始倒计时，当计到0分0秒时，通过消息对话框显示“倒计时结束”

(1)在窗体上建立一个计时器(Timer1)、两个标签、两个文本框(Text1和Text2)和一个命令按钮(Command1)

计时器的Enabled属性值为True,Interval属性值为0

4.6程序举例

(2)编写程序代码

DimmAsInteger,sAsInteger'声明模块级变量

PrivateSubForm_Load()Timer1.Interval=1000'设置每隔1秒触发1次Timer事件

Timer1.Enabled=False'关闭计时器

EndSubPrivateSubCommand1_Click()'“倒计时”

m=Val(Text1.Text)s=Val(Text2.Text)Timer1.Enabled=True'打开计时器

EndSubPrivateSubTimer1_Timer()

Ifs>0Then

s=s-1

Else

Ifm>0Then

m=m-1

s=59

EndIf

EndIf

Text1.Text=Format(m,"00")

Text2.Text=Format(s,"00")

Ifs=0Andm=0Then

MsgBox"计时结束"

UnloadMe

EndIfEndSub

(1)分析：方程的解有以下几种可能：

若a=0，不是二次方程若b2-4ac=0，有两个相等实根若b2-4ac>0，有两个不等实根若b2-4ac<0，有两个共轭复根

(2)程序框图程序框图

程序框图也称程序流程图，它能直观地表示程序的处理步骤，是一种描述算法的常用方法。

(3)建立应用程序的用户界面和设置对象属性

(4)编写程序代码例4.14

求一元二次方程ax2+bx+c＝0的解

程序框图假假假真真真开始输入a,b,ca=0

输出“不是二次方程”D=b*b–4*a*cR=－b/(2*a)D=0输出两实根－b/(2*a)输出两个实根X1,X2输出两个复根R+PiR－PiD>0计算复根的虚部P=sqr(－D)/(2*a)X1=(－b+sqr(D))/(2*a)X2=(－b－sqr(D))/(2*a)结束

当用户在“a=”文本框(Text1)、“b=”文本框(Text2)和“c=”文本框(Text3)输入a,b,c的值后，单击“计算”按钮，则从“x1=”文本框(Text4)和“x2=”文本框(Text5)输出计算结果。当输入的a,b,c为1，2，-8时，运行结果如下图

功能要求

PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimDAsSingle,X1AsSingle,X2AsSingleDimRAsSingle,PAsSinglea=Val(Text1.Text)'取数据ab=Val(Text2.Text)'取数据bc=Val(Text3.Text)'取数据cIfa=0Then'当a=0Text4.Text="不是二次方程"Text5.Text="不是二次方程"Else'a<>0D=b*b-4*a*cR=-b/(2*a)

IfD=0Then'D=0Text4.Text=RText5.Text=RElseIfD>0Then'D>0X1=(-b+Sqr(D))/(2*a)X2=(-b-Sqr(D))/(2*a)Text4.Text=X1Text5.Text=X2Else'D<0P=Sqr(-D)/(2*a)Text4.Text=R&"+"&P&"i"Text5.Text=R&"-"&P&"i"EndIfEndIf

EndSub

PrivateSubForm_Load()Dima(1To10)AsLong,sumAsLong,tAsLongDimnAsIntegerShowt=1Forn=1To10t=t*n

a(n)=tNextnsum=0ForEachxInasum=sum+xNextxPrint"1!+2!+3!+……10!=";sumEndSub输出结果：

1!+2!+3!+…+10!＝4037913

例6.8

求1!+2!+…+10!的值

解题方法：

(1)利用Int(91*Rnd+10)产生值为10到100的随机整数

使用Randomize得到不同的随机数序列

(2)按值从小到大进行排序。排序方法：

将10个数放入数组a中，对下列下标变量进行排序处理：

a(1),a(2),a(3),…，a(10)

①从这10个下标变量中，选出最小值，通过交换把该值存入a(1)中②除a(1)之外(a(1)已存放最小值)，从其余9个下标变量中选出最小值(即10个数中的次小值)，通过交换把该值存入a(2)中

③选出a(3)～a(10)中的最小值，通过交换，把该值存入a(3)中

④重复上述处理，至a(8)，可使a(1)～a(8)按小到大排列

⑤第9次处理，选出a(9)及a(10)中的最小值，通过交换把该值存入a(9)中，此时a(10)存放的就是最大值

例6.6

随机产生十个10～100的整数，用“选择排序法”按值从小到大顺序排序，最后输出结果排列要求

小大示例：

a(1)a(2)a(3)a(4)

906465591.a(1)与a(2)～a(4)比较，选出最小值，结果

599065642.a(2)与a(3)～a(4)比较，选出次小值，结果

596490653.a(3)与a(4)比较，选出较小值，结果

59646590i=1j=2,3,4i=2j=3,4i=3j=4Fori=1to3Forj=i+1to4……NextjNexti程序结构

完成上述比较及排序处理过程，可以采用两重循环结构，外循环的循环变量i从1到9，共循环九次；内循环的循环变量j从i+1到10。

本例采用默认的用户界面，所需数据由随机函数产生，处理后结果信息通过Print方法直接输出在窗体上。

PrivateSubForm_Load()ShowRandomizeDima(1To10)AsIntegerPrint"原始数据："Fori=1To10'产生10个随机数

a(i)=Int(91*Rnd+10)Printa(i);Nexti

(3)程序结构

Print:PrintFori=1To9Forj=i+1To10Ifa(i)>a(j)Thent=a(i):a(i)=a(j):a(j)=t'交换位置

EndIfNextjNextiPrint"排序结果："Fori=1To10Printa(i);NextiEndSub

改写中间程序段“Fori=1To9”～“Nexti”(共7个程序行)

Fori=1To9k=i‘k用来记录每次选择的最小值的下标

Forj=i+1To10Ifa(k)>a(j)Thenk=jEndIfNextjt=a(k):a(k)=a(i):a(i)=t'交换位置

Nexti

变量k记录每一次选出的最小值的下标，在本次比较结束后，使a(i)与a(k)一次换位即可排列要求

小大示例：

a(1)a(2)a(3)a(4)

90646559a(1)与a(2)～a(4)比较，选出最小值，直接与a(1)交换，结果：

59646590

5.1.1For...Next循环语句

按指定次数执行循环体

例5.1

在窗体上显示2至10各偶数的平方数采用Print直接在窗体上输出结果，程序代码：

PrivateSubForm_Load()DimkAsIntegerShowFork=2To10Step2Printk*kNextkEndSub程序运行结果：

41636641005.1循环语句说明：循环变量k的初值、终值和步长值分别为2，10和2，即从2开始，每次加2，到10为止，控制循环5次。每次循环都将循环体(Printk*k)执行一次

采用Print直接在窗体上输出结果，程序代码：

PrivateSubForm_Load()

Shows=0Fork=1To8s=s+kNextkPrint"s=";sEndSub

程序运行结果如下：

s＝36

语句s=s+k(循环体语句)的执行过程

例5.2

求S=1+2+3+…+8

采用Print直接在窗体上输出结果，程序代码：

PrivateSubForm_Load()Showt=1Forc=1To8t=t*cNextcPrint"T=";tEndSub

程序运行结果是：

T＝40320

语句t=t*c也称乘法器。先将t置1(不能置0)。

在循环程序中，常用累加器和累乘器来完成各种计算任务例5.3

求T=8!=1×2×3×…×8

采用Print直接在窗体上输出结果，程序代码如下：

PrivateSubForm_Load()ShowDimpiAsSingle,cAsInteger,sAsIntegerpi=0s=1's表示加或减运算

Forc=1To10000Step2pi=pi+s/cs=-s'交替改变加、减号

NextcPrint"π=";pi*4EndSub

程序运行结果是：

π＝3.141397

例5.4

用π/4＝1-1/3+1/5-1/7+……级数求π的近似值(取前5000项来进行计算)

下面采用“穷举法”来解此题。其做法是：从所有可能解中，逐个进行试验，若满足条件，就得到一个解，否则不是。直到条件满足或判别出无解为止。

令母鸡为x只，小鸡为y只，根据题意可知

y=100–x

开始先让x初值为1，以后逐次加1，求x为何值时，条件3x+y/3=100成立。如果当x达到33时还不能使条件成立，则可以断定此题无解

例5.5

用100元买100只鸡，母鸡3元1只，小鸡1元3只，问各应买多少只?

采用Print直接在窗体上输出结果，程序代码：

PrivateSubForm_Load()DimxAsInteger,yAsIntegerShowForx=1To33y=100-xIf3*x+y/3=100ThenPrint"母鸡只数为:";x,Print"小鸡只数为:";yEndIfNextxEndSub

运行结果：

母鸡只数为：25小鸡只数为：75

采用DoWhile...Loop语句

采用Print直接在窗体上输出结果，程序代码：

PrivateSubForm_Load()DimnAsInteger,sAsLongShown=1:s=0DoWhilen<=100s=s+n*nn=n+1LoopPrint"s=";sEndSub例5.6

求S＝12+22+…+1002

程序运行结果：

S＝338350

是否可以交换顺序：

n=n+1

s=s+n*n采用Print直接在窗体上输出结果，程序代码：

PrivateSubForm_Load()ShowDimpiAsSingle,nAsLong,sAsIntegerpi=0:n=1:s=1DoWhilen<=100000'或1/n>=0.00001pi=pi+s/ns=-sn=n+2LoopPrint"π=";pi*4EndSub例5.7

用π/4＝1-1/3+1/5-1/7+……

级数,求π的近似值。当最后一项的绝对值小于10-5时，停止计算

程序运行结果：

π＝3.141575

“辗转相除法”算法：求出m/n余数p，若p＝0，n即为最大公约数；若p非0，则把原来的分母n作为新的分子m，把余数p作为新的分母n继续求解设计步骤如下：

(1)创建应用程序的用户界面和设置对象属性例5.8

输入两个正整数，求它们的最大公约数

编写的“计算”按钮Click事件过程代码如下：

PrivateSubCommand1_Click()DimmAsInteger,nAsInteger,pAsIntegerm=Val(Text1.Text):n=Val(Text2.Text)Ifm<=0Orn<=0Then

MsgBox("数据错误!")EndEndIfDop=mModnm=nn=pLoopWhilep<>0Text3.Text=mEndSub

若输入的m和n的值为85和68，则运行结果如上图

把每次输入的数累加。当输入-1时结束程序的运行

(1)创建应用程序的用户界面和设置对象属性

(2)编写程序代码

PrivateSubForm_Load()ShowSum=0DoWhileTrue'条件为真，循环无终止进行下去

x=Val(InputBox("请输入要加入的数(-1表示结束)","输入数据"))Ifx=-1ThenExitDoEndIfSum=Sum+xText1.Text=SumLoop

MsgBox("累加运算结束")EndSub

以-1作为“终止循环标志”

例5.9

设计一个“加法器”程序例5.9.1有一张厚0.5mm、面积足够大的纸，将它不断地对折，问对折多少次后，其厚度可达到珠穆朗玛峰的高度?N=0H=0.5Dowhileh<8848000N=n+1H=2*hLoopPrint"对折次数为:”;n

N=0H=0.5Dowhileh<8848000N=n+1h=2*hIfh>8848000ThenExitdoEndifLoopPrint“对折次数是:”;n例5.10.1

求s=1!+2!+……+10!的值。S=0Forn=1to10T=1Form=1tonT=t*mNextmS=s+tNextnPrint“S=“;sS=0T=1Forn=1to10T=t*nS=s+tNextnPrint“S=“;S

本例可采用两重循环来实现。外循环控制输出7行，内循环控制每行输出要求的字符数。在进入内循环之前，使用PrintTab()来对起始输出位置定位，退出内循环后，使用Print来控制换行。例5.11

编一程序，输出下列所示的图形

采用Print直接在窗体上输出结果，程序代码如下：

PrivateSubForm_Load()

ShowFori=1To7PrintTab(10-i);Forj=1To2*i-1PrintChr(i+48);NextjPrintNextiEndSub

PrintChr(i+48)与Printi有所不同

(1)分析：设一元硬币为a枚，二元硬币为b枚，五元硬币为c枚，可列出方程

a+b+c=10

a+2b+5c=25

采用两重循环，外循环变量a从0～10，内循环变量b从0～10

(2)创建应用程序的用户界面

例5.12

取一元、二元、五元的硬币共十枚，付给25元钱，有多少种不同的取法?

(3)编写程序代码

程序通过Print方法把处理结果输出在标签的下方

PrivateSubForm_Load()Show

CurrentX=0:CurrentY=1500'确定开始显示的坐标