VB实验指导例题Word格式文档下载.docx
《VB实验指导例题Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VB实验指导例题Word格式文档下载.docx（51页珍藏版）》请在冰豆网上搜索。
黑体"
Text1.FontSize=25
Text2.Text=Text1.SelText
Text2.FontName=Text1.FontName
Text2.FontSize=Text1.FontSize
Text1.SetFocus
实验B顺序结构
1．编一个华氏温度与摄氏温度之间转换的程序，要求用按钮实现转换。
既单击“华氏转摄氏”按钮，则将华氏温度转换为摄氏温度；
同样，单击“摄氏转华氏”按钮，则将摄氏温度转换为华氏温度。
代码：
Dimf!
c!
f=Val（Text1.Text）
c=5/9*（f-32）
Text2.Text=Format（c,"
0.00"
c=Val（Text2.Text）
f=9/5*c+32
Text1.Text=Format（f,"
2．
（1）运行界面
（2）参考代码
r=Text1.Text
Label1.Caption=Format（3.14*r*r,"
.00"
r=Val（Text1.Text）
Label2.Caption=Format（3.14*2*r,"
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
IfNotIsNumeric（Text1）Then
MsgBox"
输入有误,请重输入"
Text1.SelStart=0
Text1.SelLength=Len（Text1.Text）
EndIf
PrivateSubText1_LostFocus（）
输入有非数字字符,请重新输入"
,"
2-2"
3．我国有13亿人口，按人口增长0.8%计算，多少年后我国人口超过26亿。
a=Int（Log
（2）/（Log（1+0.008）））+1
Text1.Text=a&
"
年后,我国人口超过26亿"
4．输入一字符串，分别调用Ucase、Len函数将其转换成大写字母并显示其字符串长度
（1）
运行界面
Text2.Text=UCase（Text1.Text）
Text3.Text=Len（Text1.Text）
5．随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。
例如，产生735，输出是537
x=Int（（899+1）*Rnd+100）
a=x\100
b=（xMod100）\10
c=xMod10
Text1.Text=x
Text2.Text=c*100+b*10+a
6．使用Mid、Left、Right函数。
在Text1文本框中输入一字符串，在label1、Label2、Label3中显示如图的效果。
Text1.FontSize=16
Label1.FontSize=16
Label2.FontSize=16
Label3.FontSize=16
VisualBasic程序设计教程（第三版）"
Label1.Caption=Left（Text1.Text,11）
Label2.Caption=Mid（Text1.Text,12,6）
Label3.Caption=Right（Text1.Text,5）
7．Print方法练习，显示字符图形。
（a）
Print
Fori=1To5
PrintTab（13-2*i）;
String（2*i-1,"
★"
）;
Spc（22-4*i）;
Nexti
Form1.Cls
（b）
String（11-2*i,"
☆"
8．用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方和立方根，每个数保留三位小数，其间有间隔。
（1）运行界面
x=Val（InputBox（"
输入一个正实数"
））
Form1.PrintFormat（x*x,"
.000"
Spc（5）;
Format（Sqr（x）,"
Format（x*x*x,"
Format（x^（1/3）,"
实验C选择结构
一、实验目的
1掌握逻辑表达式的正确书写形式
2掌握单分支与双分支条件语句的使用。
3掌握多分支条件语句的使用。
4掌握情况语句的使用及其与多分支条件语句之间的区别。
二、实验容
1、在购买某物品时，若所标明的价钱x在下述围，所付钱y按对应所扣支付：
提示：
此题用多分支结构实现，注意计算公式和条件表达式的正确书写。
实验目的：
掌握多边if语句的正确使用
实验步骤：
1新建新工程
2要求单击窗体提示物品的价钱，最后在窗体上显示所付钱y
代码如下：
DimxAsSingle,yAsSingle
x=Val（InputBox（"
请输入物品价钱：
Ifx<
1000Then
y=x
ElseIfx>
=1000Andx<
2000Then
y=0.9*x
=2000Andx<
3000Then
y=0.8*x
=3000Then
y=0.7*x
EndIf
Print"
所付钱为：
;
y
2、编一程序输入上网的时间并计算上网费用，计算的方法如下：
同时为了鼓励多上网，每月收费最多不超过150元。
首先利用多分支条件更具三个时间段算出费用，然后再用if语句对超过150元的费用设置为150元。
略：
提示和第一题类似
3、输入x,y,z三个数，按从大到小的次序显示。
掌握单边或嵌套if语句的使用
1新建工程
2代码如下：
PrivateSubForm_click（）
DimxAsInteger,bAsInteger,zAsInteger,dAsInteger
dimx!
y!
z!
x=InputBox（"
请输入第一个数"
y=InputBox（"
请输入第二个数"
z=InputBox（"
请输入第三个数"
排序前"
x;
y;
z
yThen
d=x:
x=y:
y=d
Ify<
zThen
d=y:
y=z:
z=d
Print"
排序后"
4、利用实验c的思想，随机产生3个整数，按从小到大的顺序显示。
DimxAsInteger,yAsInteger,zAsInteger,dAsInteger
Randomize
x=Int（Rnd*101）:
y=Int（Rnd*101）:
z=Int（Rnd*101）
Ifx>
Ify>
5、利用计算机解决古代数学问题“鸡兔同笼问题”。
即已知在同一笼子里有总数为m只鸡和兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只？
掌握if语句使用，分析解题中出现的可能情况，避免出现不合理的结果，提高解决实际问题的能力。
1创建新工程界面如上
Label1.Caption="
输入总只数"
Label2.Caption="
输入总脚数"
Label3.Caption="
求得鸡数"
Label4.Caption="
求得兔数"
Text1.Text="
Text2.Text="
Text3.Text="
Text4.Text="
PrivateSubText2_LostFocus（）
Dimm%,n%,y%
m=Val（Text1）
n=Val（Text2）
IfnMod2<
>
0Then
MsgBox（"
脚数必定为偶数"
Text2="
Text2.SetFocus
Else
y=n/2-m
MsgBox"
脚数必须>
=2倍的头数,"
vbOKOnly,"
sy2-5"
x=m-y
Text3=x
Text4=y
6、输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的连个根x1，x2.
1创建一个新的工程
DimaAsSingle,bAsSingle,cAsSingle
a=Val（Text1.Text）
b=Val（Text2.Text）
c=Val（Text3.Text）
Ifa<
delta=b^2-4*a*c
re=-b/（2*a）
Ifdelta>
sb=Sqr（delta）/（2*a）
Text4.Text=Str（re+sb）
Text5.Text=Str（re-sb）
ElseIfdelta=0Then
Text4.Text=Str（re）
Text5.Text=Str（re）
xb=Sqr（-delta）/（2*a）
Text4.Text=Str（re）&
+"
&
Str（xb）&
i"
Text5.Text=Str（re）&
-"
Ifb<
ygz=-b/c
Text4.Text=Str（ygz）
方程无意义！
End
Text1="
:
Text3="
Text4="
Text5="
7、编一模拟袖珍计算器的完整程序，。
要求：
输入两个操作数和一个操作符，根据操作符决定所做的运算。
掌握selectcase语句的使用
1新建一个工程
op=Trim（Text3.Text）
SelectCaseop
Case"
Text4.Text=Val（Text1）+Val（Text2）
Text4.Text=Val（Text1）-Val（Text2）
*"
Text4.Text=Val（Text1）*Val（Text2）
/"
IfVal（Text2）=0Then
除数不能是零！
，重新输入"
Text4.Text=Val（Text1）/Val（Text2）
EndSelect
8、输入一个数字（1~7），分别通过select语句和choose函数两种方法用英文显示对应的星期一~星期日
略:
参考书上例子4.10
实验D循环结构
1掌握for语句的使用
2掌握Do语句的各种形式的使用
3掌握如何控制循环条件，防止死循环或不循环
掌握单循环结构以及tab、trim函数的使用。
1、利用单循环结构显示如图所示的界面
2代码如下
Fori=1To9
PrintTab（10-i）;
String（2*i-1,Trim（Str（i）））
Nexti
2、用单循环实现如图的界面
实验步骤
2主要代码如下：
Fori=1To9
PrintTab（i）;
String（2*（10-i）,Trim（Chr（i+64）））
3、计算s=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+…..当第i项的值<
10-4时结束。
找出规律，第i项的分母是前一项的分母加i开始计数。
可利用for循环结构的循环控制变量获得项数，当某项达到规定的精度时退出循环。
利用循环，计算部分级数和。
1创建一个新的工程，窗体布局如右图
Dims!
t!
i&
s=1:
t=1:
i=i
DoWhile1/t>
0.00001
t=t+i
s=s+1/t
i=i+1
Loop
Dowhile结构"
s,i-1;
项"
t=1
Fori=1To100000
If1/t<
0.00001ThenExitFor
for结构"
s,i;
4、计算
的近似值，
的计算公式为：
=
1新建一个工程
2代码如下：
注意溢出问题
DimiAsLong,sAsDouble
s=2
n%=Val（InputBox（"
输入n的值：
Fori=1Ton
s=s*（（（2*i）^2）/（（2*i-1）*（2*i+1）））
当n为：
n;
时计算结果为"
s
5、求sn=a+aa+aaa+aaaa+....+aaa（n个a），其中a是一个随机数产生的1~9（包括1，9）中的一个正整数，n是一个随机产生的5~10（包括5，10）中的一个数。
学会根据问题的要求找规律、写通项；
掌握循环的正确使用。
i!
a%,n%
a=Int（Rnd*9+1）
n=Int（Rnd*6+5）
a="
a;
n="
n
t=0:
s=0
t=t*10+a
s=s+t
Printt;
s="
6、编一程序，显示出所有的水仙花数。
所谓水仙花数，是指一个3位数，其各位数字立方和等于数字本身。
解该题的方法有两种：
1利用三重循环，将三个数连接成一个3位数进行判断。
Dimi%,j%,k%
Forj=0To9
Fork=0To9
a=i
升级会员 