VB程序设计教程实验指导与习题解答上机答案.docx
- 文档编号:3505046
- 上传时间:2023-05-05
- 格式:DOCX
- 页数:23
- 大小:188.36KB
VB程序设计教程实验指导与习题解答上机答案.docx
《VB程序设计教程实验指导与习题解答上机答案.docx》由会员分享,可在线阅读,更多相关《VB程序设计教程实验指导与习题解答上机答案.docx(23页珍藏版)》请在冰点文库上搜索。
VB程序设计教程实验指导与习题解答上机答案
Lastrevisionon21December2020
VB程序设计教程实验指导与习题解答上机答案
自测1
程序代码
PrivateSubCommand1_Click()
=+3
EndSub
PrivateSubCommand2_Click()
=True
EndSub
PrivateSubCommand3_Click()
=True
EndSub
PrivateSubCommand4_Click()
=10
=False
=False
EndSub
初始窗口:
单机放大之后窗口:
单机下划线之后窗口:
单击加粗之后窗口:
单击还原之后窗口:
自测2
程序代码
PrivateSubCommand1_Click()
Label1="visualbasic"
Text1="程序设计题"
EndSub
PrivateSubCommand2_Click()
Text1="visualbasic"
Label1="程序设计题"
EndSub
初始窗口:
单击显示之后窗口:
单击交换之后的窗口:
自测题3
PrivateSubCommand1_Click()
=*
EndSub
PrivateSubCommand2_Click()
=+30
=+20
=1
EndSub
初始窗口:
单击缩小两倍之后的窗口:
单击向右下角移动之后的窗口:
自测题4
程序代码
PrivateSubCommand1_Click()
="VB学习"
Print"简单的VB程序设计"
EndSub
PrivateSubCommand2_Click()
Cls
EndSub
PrivateSubCommand3_Click()
End
EndSub
PrivateSubCommand3_Click()
End
EndSub
初始化窗口:
单击显示之后的窗口:
单击清除之后的窗口:
单击退出之后的窗口:
自测题5
程序代码
PrivateSubCommand1_Click()
=""
=""
EndSub
PrivateSubCommand2_Click()
=Val+Val
EndSub
PrivateSubCommand3_Click()
End
EndSub
初始化窗口:
单击运算之后窗口:
单击清除之后的窗口:
单击退出之后的窗口:
自测练习1
PrivateSubCommand1_Click()
Dima$
a=
=Left(a,2)
EndSub
PrivateSubCommand2_Click()
a=
=Right(a,2)
EndSub
PrivateSubCommand3_Click()
=&
EndSub
初始窗口界面
输入字符串
截取前两个字符
截取后两个字符
字符串连接
自测练习2
PrivateSubForm_Click()
Dima%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%
a=7349
e=aMod10'个位
d=(a\10)Mod10'十位
c=(a\100)Mod10'百位
b=a\1000'千位
i=(e+7)Mod10'个位
h=(d+7)Mod10'十位
g=(c+7)Mod10'百位
f=(b+7)Mod10'千位
j=i
i=f'交换后的个位
f=j'交换后的千位
k=h
h=g'交换后的十位
g=k'交换后的百位
l=f*1000+g*100+h*10+i
=False
Print"加密前的4位整数是7439";(Chr(10));"加密后的结果是";l
EndSub
初始界面
单击窗体运行后的界面
自测练习1
PrivateSubForm_Click()
Dima%,b%,c%,d%,e%,f!
a=Val(InputBox("输入第一个数","输入一个数",8))
b=Val(InputBox("输入第一个数","输入一个数",7))
c=a+b
d=a-b
e=a*b
f=a/b
f=Fix(f*100+/100
MsgBox"x+y="&c&Chr(10)&"x-y="&d&Chr(10)&"x*y="&e&Chr(10)&"x/y="&f,,"输出的结果"
EndSub
自测练习2
PrivateSubForm_Click()
Dima%,b%,c%,d%,e%,f!
a=Val(InputBox("输入第一个数的值"))
b=Val(InputBox("输入第二个数的值"))
c=Val(InputBox("输入第三个数的值"))
d=Val(InputBox("输入第四个数的值"))
e=a+b+c+d
f=e/4
Print"和=";e
Print"平均值=";f
EndSub
自测练习3
PrivateSubForm_Click()
Dimh%,f%,x%,y%
h=Val(InputBox("输入总头数"))
f=Val(InputBox("输入总脚数"))
x=(4*h-f)/2
y=(f-2*h)/2
Print"笼中鸡的头数为";x;"只"
Print"笼中兔的头数为";y;"只"
EndSub
自测练习1:
PrivateSubForm_Click()
Dima%,b%,c%
a=Val(InputBox("请输入第一条边","边长"))
b=Val(InputBox("请输入第二条边","边长"))
c=Val(InputBox("请输入第三条边","边长"))
Ifa+b>cAnda+c>bAndb+c>aThen
Ifa*a+b*b=c*cOra*a+c*c=b*bOrb*b=c*c=a*aThen
Print"直角"
ElseIfa=bAndb=cThen
Print"等边三角形"
ElseIfa=bOra=cOrb=cThen
Print"等腰三角形"
Else
Print"一般三角形"
EndIf
Else
Print"不是三角形"
EndIf
EndSub
不是三角形运行结果:
初始窗口:
输入三条边:
运行结果:
直角三角形运行结果:
等边三角形运行结果如下:
等腰三角形:
一般三角形
自测练习2:
PrivateSubForm_Click()
Dima%,b!
a=Val(InputBox("请输入"))
IfaMod2=0AndaMod3=0AndaMod5=0Then
b=Sqr(a)
Printa,b
Else
End
EndIf
EndSub
初始化窗口:
输入一个数:
运行结果:
自测练习3
PrivateSubCommand1_Click()
Dima%,b%
a=Val
SelectCasea>0
Casea<20
MsgBox"行李费为元/kg",,"行李费"
Casea>=20Anda<50
MsgBox"行李费为元/kg",,"行李费"
Casea>=50Anda<100
MsgBox"行李费为元/kg",,"行李费"
CaseElse
b=*100+(a-100)*:
MsgBox"行李费为"&b&"元",,"行李费"
EndSelect
EndSub
初始窗口:
输入10:
输入25:
输入55:
输入120:
自测练习1
OptionBase1
PrivateSubForm_Click()
Dimi%,a(1To20)AsInteger
a
(1)=1:
a
(2)=1
Printa
(1);
Printa
(2);
Fori=3To10
a(i)=a(i-1)+a(i-2)
Printa(i);
Nexti
Fori=11To16
a(i)=a(i-1)+a(i-2)
Printa(i);
Nexti
Fori=17To20
a(i)=a(i-1)+a(i-2)
Printa(i);
Nexti
初始界面:
运行结果界面:
自测练习2
OptionBase1
PrivateSubForm_Load()
=10000
=5000
EndSub
PrivateSubCommand1_Click()
Dimi%,j%,t%,a(1To4,1To4)AsInteger
Fori=1To4
Forj=1To4
a(i,j)=Int(Rnd*10)+1
a(i,j);
Nextj
Nexti
"对角线的元素如下"
Fori=1To4
a(i,i);
Nexti
Fori=1To4
a(i,5-i);
Nexti
Fori=1To4
t=a(1,i)
a(1,i)=a(4,i)
a(4,i)=t
Nexti
Fori=1To4
t=a(i,2)
a(i,2)=a(i,3)
a(i,3)=t
Nexti
Fori=1To4
Forj=1To4
a(i,j);
Nextj
Nexti
EndSub
运行初始界面:
运
运行结果界面:
自测练习1
Subitostr(aAsInteger)
Dimb%,c$
a=Val
Whilea>=1
c=Chr(aMod10+48)&c
a=a\10
Wend
=c
EndSub
PrivateSubCommand1_Click()
DimaAsInteger
a=Val
Callitostr(a)
EndSub
运行初始界面:
运行结果界面:
验证其他数字:
自测练习2:
PublicFunctionarea(n)AsDouble
Dimc#,d#,e#,s#
n=Val
c=(1-0)/n
Whilee<=1
d=I*c:
e=(I+1)*c
s=s+(Sin(d)+Sin(e))*c/2
I=I+1
Wend
area=s
EndFunction
PrivateSubCommand1_Click()
DimsAsDouble
Callarea(n)
=area(n)
EndSub
运行初始界面:
运行结果:
自测练习3
PrivateSubForm_click()
n=Val(InputBox("请输入n的值"))
x=Val(InputBox("请输入x的值"))
Print"e的值=";es(n,x)
EndSub
PrivateFunctiones(n,x)
DimaAsDouble,bAsDouble,cAsDouble,iAsInteger
a=1:
b=1:
c=1
Fori=1Ton
a=x*a:
b=b*i:
c=c+a/b
Nexti
es=c
EndFunction
运行初始界面:
输入数据:
运行结果:
自测练习4:
Fori=1To4
Forj=i+1To5
Ifa(i)>a(j)Then
t=a(i):
a(i)=a(j):
a(j)=t
EndIf
Nextj
Nexti
Fori=1To5
Printa(i);"";
Nexti
Fori=1To5
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 教程 实验 指导 习题 解答 上机 答案
![提示](https://static.bingdoc.com/images/bang_tan.gif)