VB实验练习20题记录2.docx
- 文档编号:8904898
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:16
- 大小:21.91KB
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
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
Next
EndSub
另一解题的源代码:
PrivateSubcommand1_Click()
PrintTab(35);"乘法表"
DimSeAsString
Fori=1To9
Forj=1Toi
Se=j&"X"&i&"="&i*j
PrintTab((j-1)*9);Se;
Nextj
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
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,然后判断根判别式是否大于等于零,有解则求解,无解给出无解说明。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 练习 20 题记