VB实验练习20题记录2.docx

VB实验练习20题记录2.docx

《VB实验练习20题记录2.docx》由会员分享，可在线阅读，更多相关《VB实验练习20题记录2.docx（16页珍藏版）》请在冰豆网上搜索。

VB实验练习20题记录2

VB实验练习20题记录

（2）

以下是用VB6实验练习的记录。

目录

例子一求100到200之间的所有素数——————-1

例子二-统计某个文本文件中英文字母的个数————————2

例子三vb文本框中内容写入文本文件——————-———2

例子四以下三角的形式输出九九乘法表————-————3

例子五三数阶乘和————————————4

例子六用InputBox$函数输入一个正整数，计算其平方根—————4

例子七找出不大于1000的最大素数。

———4

例子八求1+1/2+……1/100的值———5

例子九用vb中数组的语言编写一个5*5的阵列————6

例子十把文本文件内容写到TextBox————6

例子十一计算S的值:

s=2+4+6+8+…+100—————7

例子十二计算S的值:

s=1+2+3+4+5+6+…+100—————7

例子十三王大力35————————————————8

例子十四列表框项目数在标签中显示出来————8

例子十五爱心社两个复选框————9

例子十六操作系统三个复选框————10

例子十七圆柱面积————10

例子十八考试科目数学英语————11

例子十九n的阶乘————12

例子二十一元二次方程————12

例子一：

VB编程，求100到200之间的所有素数。

解题的源代码：

PrivateSubCommand1_Click（）

Fori=101To199Step2

Forj=2ToSqr（i）

IfiModj=0ThenExitFor

Next

Ifj>Sqr（i）Then

Printi;

c=c+1

IfcMod5=0Then

Print

EndIf

EndIf

Next

EndSub

例子二：

VB编程，统计某个文本文件中英文字母的个数。

2、用vb设计一个应用程序，统计某个文本文件中英文字母的个数，并将统计结果写入另一个文本文件

解题的源代码：

PrivateSubCommand1_Click（）

DimsAsString,xAsString

s=""

Open"C:

\1.txt"ForInputAs#1'word.txt为需统计的文件

DoWhileNotEOF

（1）

Input#1,x

s=s+x

Loop

Close#1

Fori=1ToLen（s）

IfAsc（Mid（s,i,1））>=65AndAsc（Mid（s,i,1））<=122Then

n=n+1'统计英文个数

Else

m=m+1'统计中文个数

EndIf

Next

Open"C:

\2.txt"ForOutputAs#2'输出统计结果文件

Print#2,"英文个数：

"&n

Print#2,"中文个数：

"&m

Close#2

EndSub

例子三：

vb文本框中内容写入文本文件。

解题的源代码：

privatesubcommand1_click（）

open"c:

\1.txt"foroutputas#1

print#1,text1.text

close#1

endsub

直接写入，会覆盖原来的所有数据

privatesubcommand1_click（）

open"c:

\1.txt"forAppendas#1

print#1,text1.text

close#1

endsub

追加写入，写在原来的数据后面，不会破坏原来的数据。

如果没有"c:

\1.txt",这两种方法都会自动新建此文件

例子四：

1以下三角的形式输出九九乘法表。

解题的源代码：

PrivateSubCommand1_Click（）

DimiAsInteger,jAsInteger

Fori=1To9

Forj=1Toi

Printj&"X"&i&"="&i*j&vbTab;

Next

Print

Next

EndSub

另一解题的源代码：

PrivateSubcommand1_Click（）

PrintTab（35）;"乘法表"

DimSeAsString

Fori=1To9

Forj=1Toi

Se=j&"X"&i&"="&i*j

PrintTab（（j-1）*9）;Se;

Nextj

Print

Nexti

EndSub

例子五：

1三数阶乘和。

H=X!

+Y!

+Z!

解题的源代码：

FunctionJC（nAsInteger）AsLong

Ifn>0Then

JC=n*JC（n-1）

Else

JC=1

EndIf

EndFunction

PrivateSubCommand1_Click（）

Text4=JC（CInt（Val（Text1）））+JC（CInt（Val（Text2）））+JC（CInt（Val（Text3）））

EndSub

例子六：

3.用InputBox$函数输入一个正整数，若输入正确，计算其平方根。

解题的源代码：

PrivateSubForm_Click（）

inputx:

x=InputBox（"输入正整数","数据输入对话框"）

y=Val（x）

r=MsgBox（"检查输入的数据并确认",4+32,"数据检查对话框"）

Ifr=6Then

Print"平方根值=";Sqr（y）

Else

Ifr=7Then

GoToinputx

EndIf

EndIf

EndSub

例子七：

一、找出不大于1000的最大素数。

解题的源代码：

PrivateSubCommand1_Click（）

DimIAsInteger,JAsInteger

ForI=1000To1Step-1

K="I是素数"'先假设I是素数

'以下判断I是否是素数

ForJ=2ToI-1

IfIModJ=0ThenK="I不是素数"

NextJ

IfK="I是素数"ThenPrintI:

ExitFor

NextI

EndSub

例子八：

一、求1+1/2+……1/100的值

二、题目是．求

的值。

解题的源代码：

PrivateSubForm_Click（）

DimiAsInteger,sAsDouble

s=0

Fori=1To100

s=s+（-1）^（i-1）/i

Nexti

Print"s=";s

EndSub

OK拉。

结果是：

s=0.688172179310196

例子九：

如何用vb中数组的语言编写一个5*5的阵列，第一行为12345，第二行为23452,三为34512四为45123五为51234

解题的源代码：

PrivateSubCommand1_Click（）

Dima（5,5）AsByte,iAsByte,jAsByte

Fori=1To5

Forj=1To6-i

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

Nextj,i

Fori=2To5

Forj=5-i+2To5

a（i,j）=j+i-6

Nextj,i

Fori=1To5

Forj=1To5

Printa（i,j）;

Nextj

Print

Nexti

EndSub

例子十：

把文本文件内容写到TextBox：

解题的源代码：

PrivateSubcommand1_click（）

DimTempFileAsLong

DimLoadBytes（）AsByte

TempFile=FreeFile

Open"c:

\1.txt"ForBinaryAs#TempFile

ReDimLoadBytes（1ToLOF（TempFile））AsByte

Get#TempFile,,LoadBytes

CloseTempFile

Text1.Text=StrConv（LoadBytes,vbUnicode）

EndSub

例子十一：

计算S的值:

s=2+4+6+8+…+100

解题的源代码：

PrivateSubCommand1_Click（）

Dimi,sAsInteger

s=0

Fori=2To100Step2

s=s+i

Next

Prints

EndSub

答案：

2550

例子十二：

计算S的值:

s=1+2+3+4+5+6+…+100

解题的源代码：

PrivateSubCommand1_Click（）

Dimi,sAsInteger

s=0

Fori=1To100Step1

s=s+i

Next

Prints

EndSub

答案：

5050

例子十三：

1在名称为Form1的窗体上画两个标签名称分别为Label1和Label2标题分别为“姓名”和“年龄”、两个文本框名称分别为Text1和Text2Text属性均为空白和一个命令按钮名称为Command1标题为“显示”。

然后编写命令按钮的Click事件过程。

程序运行后在两个文本框中分别输入姓名和年龄然后单击命令按钮则在窗体上显示两个文本框中的内容。

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

*注意存盘时必须存放在考生文件夹下工程文件名为sj39.vbp窗体文件名为sj39.frm。

PrivateSubCommand1_Click（）

PrintText1.text+”,现年”+text2.text+“岁”

EndSub

解题的源代码：

PrivateSubCommand1_Click（）

PrintText1.Text+",现年"+Text2.Text+"岁"

EndSub

王大力现年35岁

例子十四：

列表框项目数在标签中显示出来

10.列表框项目数在标签中显示出来

在Form1的窗体上画一个标签其名称为Lab1再画一个列表框其名为L1通过属性窗口向列表框中添加若干个项目每个项目的具体内容不限编写适当的事件过程。

程序运行后如果双击列表框中的任意一项则把列表中的项目数在标签中显示出来。

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

不准使用任何变量。

*注意存盘时必须存放在考生文件夹下工程文件名为sjt14.vbp窗体文件名为sjt14.frm。

PrivateSubL1_DblClick（）

Lab1.Caption=L1.ListCount

EndSub

解题的源代码：

PrivateSubL1_DblClick（）

Lab1.Caption=L1.ListCount

EndSub

例子十五：

爱心社两个复选框

12爱心社两个复选框

在考生文件夹中有文件wy22.vbp及其窗体文件wy22.frm该程序是不完整的请在有号的地方填入正确内容然后删除及所有注释符即'号但不能修改其它部分。

存盘时不得改变文件夹和文件名。

本题描述如下窗体上有一个名称为Text1的文本框两个复选框名称分别为Ch1和Ch2标题分别为"爱心社"和"学通社"。

要求程序运行后如果只选中Ch1单击窗体则在文本框中显示"报名参加爱心社"如果只选中Ch2然后单击窗体则在文本框中显示"报名参加学通社"如果同时选中Ch1和Ch2单击窗体则在文本框中显示"报名参加爱心社和学通社"如果Ch1和Ch2都不选取在单击窗体后则在文本框中什么都不显示。

OptionExplicit

PrivateSubForm_Click（）

Text1.Text=""

IfCh1.Value=1Then

Text1.Text=Text1.Text+"爱心社"

EndIf

IfCh2.ValueThen

IfText1.Text<>""ThenText1.Text="爱心社"+"和"

Text1.Text=Text1.Text+"学通社"

EndIf

IfText1.Text<>""Then

Text1.Text="报名参加"+Text1.Text

EndIf

EndSub

解题的源代码：

OptionExplicit

PrivateSubForm_Click（）

Text1.Text=""

IfCh1.Value=1Then

Text1.Text=Text1.Text+"爱心社"

EndIf

IfCh2.ValueThen

IfText1.Text<>""ThenText1.Text="爱心社"+"和"

Text1.Text=Text1.Text+"学通社"

EndIf

IfText1.Text<>""Then

Text1.Text="报名参加"+Text1.Text

EndIf

EndSub

例子十六：

操作系统三个复选框

14.按下述要求在属性窗口中设置属性在名称为Form1的窗体中建立一个标签名称为L1在标签上显示"选课"其字号大小为四号再建立三个复选框名称分别为Chk1、Chk2和Chk3标题分别为"操作系统"、"数据库原理"、"概率论"字体大小均为14其中"概率论"被禁用。

*注意保存时必须存放在考生文件夹下窗体文件名为wy15.frm工程文件名为wy15.vbp。

解题的源代码：

（答案）

PrivateSubForm_Load（）

Chk3.Enabled=False

EndSub

例子十七：

圆柱面积

文本框1输入圆柱的半径r，文本框2里输入圆柱的高度h，文本框3输出圆的周长，文本框4输出圆的底面积，文本框5输出圆的侧面积，文本框6输出圆的体积。

解题的源代码：

PrivateConstPiAsSingle=3.141592653589793

PrivateSubForm_Load（）

Text3.Locked=True'将输出信息的文本框设置为只读

Text4.Locked=True

Text5.Locked=True

Text6.Locked=True

EndSub

PrivateSubCommand1_click（）

DimrAsSingle,hAsSingle

r=Val（Text1.Text）

h=Val（Text2.Text）

Text3.Text=r*2*Pi'圆周长

Text4.Text=r*r*Pi'底面积

Text5.Text=（r*2*Pi）*h'侧面积

Text6.Text=（r*r*Pi）*h'体积

EndSub

例子十八：

考试科目数学英语

解题的源代码：

PrivateSubCommand1_Click（）

DimSexAsString

DimS1AsString,S2AsString,S3AsString

IfOption1.Value=TrueThen

Sex="男"

Else

Sex="女"

EndIf

IfCheck1.Value=1Then

S1="数学"

Else

S1=""

EndIf

IfCheck2.Value=1Then

S2="英语"

Else

S2=""

EndIf

IfCheck3.Value=1Then

S3="政治"

Else

S3=""

EndIf

Text1.Text="性别：

"+Sex+"考试科目：

"+S1+S2+S3

EndSub

例子十九：

n的阶乘

例子5.12

求数N！

新建一个窗体，添加一个标签文本用于显示结果，用窗体的CLICK事件触发阶乘处理过程。

解题的源代码：

PrivateSubCommand1_Click（）

DimNAsInteger,KAsInteger

DimTAsInteger

T=1

N=InputBox（"请输入数N","输入数"）

ForK=1ToN

T=T*K

Next

Label1.Caption=Str（N）&"!

="&Str（T）

EndSub

例子二十：

一元二次方程

例子5.5求任意一元二次方程：

AX2+BX+C=0，判断是否有解，若有解并求解的结果。

创建一个窗体，添加二个标签用于结果输出；启动程序后，先输入系数ABC,然后判断根判别式是否大于等于零，有解则求解，无解给出无解说明。

解题的源代码：

PrivateSubcommand1_click（）

DimAAsSingle,BAsSingle,CAsSingle,deltaAsSingle

A=InputBox（"请输入系数A=","系数输入"）

B=InputBox（"请输入系数B=","系数输入"）

C=InputBox（"请输入系数C=","系数输入"）

delta=B^2-4*A*C

Ifdelta>=0Then

Label1.Caption=（-B+Math.Sqr（delta））/（2*A）

Label2.Caption=（-B-Math.Sqr（delta））/（2*A）

Else

Label1.Caption="一元二次方程无实解"

Label2.Caption=""

EndIf

EndSub

例子5.6求任意一元二次方程：

AX2+BX+C=0，判断根判别式Δ是否小于零，等于零，大于零三种情况，若有解并求解的结果。

利用分支嵌套来求解的三种情况。

创建一个窗体，添加二个标签用于结果输出；启动程序后，先输入系数ABC,然后判断根判别式是否大于等于零，有解则求解，无解给出无解说明。