VB程序设计教程实验指导与习题解答上机答案.docx
《VB程序设计教程实验指导与习题解答上机答案.docx》由会员分享,可在线阅读,更多相关《VB程序设计教程实验指导与习题解答上机答案.docx(24页珍藏版)》请在冰豆网上搜索。
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
Print
Fori=11To16
a(i)=a(i-1)+a(i-2)
Printa(i);
Nexti
Print
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
IfYt=a(i):
a(i)=Y:
Y=t
EndIf
Nexti
Fori=1To6
a(6)=t
Nexti
EndFunction
PrivateSubCommand1_Click()
Dimi#,a%(1To6),Y%
Y=Val(InputBox("输入y的值","输入数据"))
Insertfuna%(),Y
Print
Fori=1To6
Printa(i);"";
Nexti
EndSub
运行初始界面:
插入数据:
运行结果:
蓝志鹏资源1102实验8
自测练习1:
PrivateSubCommand1_Click()
If=1Then
="报名参加羽毛球比赛"
EndIf
If=1Then
="报名参加乒乓球比赛"
EndIf
If=1And=1Then
="报名参加羽毛球,乒乓球比赛"
EndIf
EndSub
运行初始界面:
运行结果:
自测练习4:
PrivateSubForm_Load()
=2
=24
="黑体"
=&HFF&
EndSub
PrivateSubOption1_Click()
="我是学生"
EndSub
PrivateSubOption2_Click()
="我是教师"
EndSub
PrivateSubOption3_Click()
="我是工人"
EndSub
PrivateSubOption4_Click()
="我是农民"
EndSub
运行初始界面:
运行结果:
自测练习6:
PrivateSubCommand1_Click()
Fori=0To-1
If(i)=Then
ExitFor
EndIf
Nexti
Ifi>-1Then
EndIf
EndSub
PrivateSubCommand2_Click()
If<>-1Then
Fori=0To-1
If(i)=Then
i
EndIf
ExitFor
Nexti
EndIf
EndSub
PrivateSubCommand3_Click()
EndSub
运行初始界面:
自测练习7:
PrivateSubCommand1_Click()
=1
=True
EndSub
PrivateSubForm_Load()
=20
=20
=20
=20
EndSub
PrivateSubTimer1_Timer()
=+10
lbltem=
IfVSbwd>=100Then
lbltishi="水开了"
=False
EndIf
EndSub
运行初始界面:
运行结果:
自测练习1:
PrivateSubmyhelp_Click()
EndSub
PrivateSubmymenu1_Click()
="百货大楼"
EndSub
PrivateSubmymenu2_Click()
="利客隆"
EndSub
PrivateSubmymenu3_Click()
="稻香村"
EndSub
运行初始界面:
运行结果界面:
自测练习2:
PrivateSubDis_Click()
="菜单程序设计"
=20
="黑体"
EndSub
PrivateSubHid_Click()
=False
EndSub
运行初始界面:
运行结果界面:
自测练习3:
PrivateSubvbhelp_Click()
r=MsgBox("帮助",,"程序设计题")
EndSub
PrivateSubVbnew_Click()
r=MsgBox("新建",,"程序设计题")
EndSub
PrivateSubvbopen_Click()
r=MsgBox("打开",,"程序设计题")
EndSub
PrivateSubvbsave_Click()
r=MsgBox("存盘",,"程序设计题")
EndSub
运行初始界面:
运行结果:
自测练习4:
PrivateSubCommand1_Click()
=1
EndSub
运行初始界面:
运行结果:
自测练习1:
PrivateSubCommand1_Click()
DimaAsString,n%,i%,j%
Open"E:
\"ForInputAs#1
Input#1,a
n=Len(a)
j=0
Fori=1Ton
IfMid(a,i,1)="%"Thenj=j+1
Nexti
Close#1
Open"E:
\"ForOutputAs#1
Print#1,j
Close#1
EndSub
运行初始界面:
运行结果:
自测练习3:
PrivateSubForm_Click()
Dimx$
Open"e:
\"ForInputAs#1
DoWhileNotEOF
(1)
LineInput#1,x$
Loop
Close#1
Open"e:
\"ForAppendAs#1
Print#1,x$
Close#1
EndSub
运行初始界面:
自测练习4
PrivateSubForm_load()
Print"26个英文字母"
Print
Print"abcdefghijklmnopqrstuvwxyz"
Print"字母个数分别为"
EndSub
PrivateSubForm_Click()
Open"E:
\"ForOutputAs#1
文本$=InputBox("请输入文本")
n=UCase(文本$)
Print#1,n
Close#1
Dima%()
Open"E:
\"ForOutputAs#1
Fori=1ToLen(n)
ReDimPreservea(1To26)
j=Asc(Mid(n,i,1))-64
a(j)=a(j)+1
Nexti
Close#1
Forj=LBound(a)ToUBound(a)
Printa(j);
Nextj
EndSub