vb程序设计教程实验指导与习题解答上机答案.docx
《vb程序设计教程实验指导与习题解答上机答案.docx》由会员分享，可在线阅读，更多相关《vb程序设计教程实验指导与习题解答上机答案.docx（21页珍藏版）》请在冰豆网上搜索。
vb程序设计教程实验指导与习题解答上机答案
自测1
程序代码
PrivateSubCommand1_Click（）
Label1.FontSize=Label1.FontSize+3
EndSub
PrivateSubCommand2_Click（）
Label1.FontBold=True
EndSub
PrivateSubCommand3_Click（）
Label1.FontUnderline=True
EndSub
PrivateSubCommand4_Click（）
Label1.FontSize=10
Label1.FontBold=False
Label1.FontUnderline=False
EndSub
初始窗口：
单机放大之后窗口：
单机下划线之后窗口：
单击加粗之后窗口：
单击还原之后窗口：
自测2
程序代码
PrivateSubCommand1_Click（）
Label1="visualbasic"
Text1="程序设计题"
EndSub
PrivateSubCommand2_Click（）
Text1="visualbasic"
Label1="程序设计题"
EndSub
初始窗口：
单击显示之后窗口：
单击交换之后的窗口：
自测题3
PrivateSubCommand1_Click（）
Label1.FontSize=Label1.FontSize*（0.5）
EndSub
PrivateSubCommand2_Click（）
Label1.Top=Label1.Top+30
Label1.Width=Label1.Width+20
Label1.Alignment=1
EndSub
初始窗口：
单击缩小两倍之后的窗口：
单击向右下角移动之后的窗口：
自测题4
程序代码
PrivateSubCommand1_Click（）
Form1.Caption="VB学习"
Print"简单的VB程序设计"
EndSub
PrivateSubCommand2_Click（）
Cls
EndSub
PrivateSubCommand3_Click（）
End
EndSub
PrivateSubCommand3_Click（）
End
EndSub
初始化窗口：
单击显示之后的窗口：
单击清除之后的窗口：
单击退出之后的窗口：
自测题5
程序代码
PrivateSubCommand1_Click（）
Text1.Text=""
Text2.Text=""
EndSub
PrivateSubCommand2_Click（）
Text3.Text=Val（Text1.Text）+Val（Text2.Text）
EndSub
PrivateSubCommand3_Click（）
End
EndSub
初始化窗口：
单击运算之后窗口：
单击清除之后的窗口：
单击退出之后的窗口：
自测练习1
PrivateSubCommand1_Click（）
Dima$
a=Text1.Text
Label1.Caption=Left（a,2）
EndSub
PrivateSubCommand2_Click（）
a=Text1.Text
Label2.Caption=Right（a,2）
EndSub
PrivateSubCommand3_Click（）
Text1.Text=Label1.Caption&Label2.Caption
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
Text1.Visible=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+0.5）/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（Text1.Text）
SelectCasea>0
Casea<20
MsgBox"行李费为0.2元/kg",,"行李费"
Casea>=20Anda<50
MsgBox"行李费为0.3元/kg",,"行李费"
Casea>=50Anda<100
MsgBox"行李费为0.4元/kg",,"行李费"
CaseElse
b=0.2*100+（a-100）*0.5:
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（）
Form1.Width=10000
Form1.Height=5000
EndSub
PrivateSubCommand1_Click（）
Dimi%,j%,t%,a（1To4,1To4）AsInteger
Fori=1To4
Forj=1To4
a（i,j）=Int（Rnd*10）+1
Picture1.Printa（i,j）;
Nextj
Picture1.Print
Nexti
Picture3.Print"对角线的元素如下"
Fori=1To4
Picture3.Printa（i,i）;
Nexti
Picture3.Print
Fori=1To4
Picture3.Printa（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
Picture2.Printa（i,j）;
Nextj
Picture2.Print
Nexti
EndSub
运行初始界面：
运
运行结果界面：
自测练习1
Subitostr（aAsInteger）
Dimb%,c$
a=Val（Text1.Text）
Whilea>=1
c=Chr（aMod10+48）&c
a=a\10
Wend
Text2.Text=c
EndSub
PrivateSubCommand1_Click（）
DimaAsInteger
a=Val（Text1.Text）
Callitostr（a）
EndSub
运行初始界面：
运行结果界面：
验证其他数字：
自测练习2：
PublicFunctionarea（n）AsDouble
Dimc#,d#,e#,s#
n=Val（Text2.Text）
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）
Text1.Text=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
运行初始界面：
插入数据：
运行结果：
自测练习1：
PrivateSubCommand1_Click（）
IfCh1.Value=1Then
Text1.Text="报名参加羽毛球比赛"
EndIf
IfCh2.Value=1Then
Text1.Text="报名参加乒乓球比赛"
EndIf
IfCh1.Value=1AndCh2.Value=1Then
Text1.Text="报名参加羽毛球，乒乓球比赛"
EndIf
EndSub
运行初始界面：
运行结果：
自测练习4：
PrivateSubForm_Load（）
Label1.Alignment=2
Label1.FontSize=24
Label1.FontName="黑体"
Label1.ForeColor=&HFF&
EndSub
PrivateSubOption1_Click（）
Label1.Caption="我是学生"
EndSub
PrivateSubOption2_Click（）
Label1.Caption="我是教师"
EndSub
PrivateSubOption3_Click（）
Label1.Caption="我是工人"
EndSub
PrivateSubOption4_Click（）
Label1.Caption="我是农民"
EndSub
运行初始界面：
运行结果：
自测练习6：
PrivateSubCommand1_Click（）
Fori=0ToCombo1.ListCount-1
IfCombo1.List（i）=Combo1.TextThen
ExitFor
EndIf
Nexti
Ifi>Combo1.ListCount-1Then
Combo1.AddItemCombo1.Text
EndIf
EndSub
PrivateSubCommand2_Click（）
IfCombo1.ListIndex<>-1Then
Combo1.RemoveItemCombo1.ListIndex
Fori=0ToCombo1.ListCount-1
IfCombo1.List（i）=Combo1.TextThen
Combo1.RemoveItemi
EndIf
ExitFor
Nexti
EndIf
EndSub
PrivateSubCommand3_Click（）
Combo1.Clear
EndSub
运行初始界面:
自测练习7：
PrivateSubCommand1_Click（）
Timer1.Interval=1
Timer1.Enabled=True
EndSub
PrivateSubForm_Load（）
lbltemp1.FontSize=20
lbltishi.FontSize=20
Label1.FontSize=20
Label2.FontSize=20
EndSub
PrivateSubTimer1_Timer（）
VSbwd.Value=VSbwd.Value+10
lbltem=VSbwd.Value
IfVSbwd>=100Then
lbltishi="水开了"
Timer1.Enabled=False
EndIf
EndSub
运行初始界面：
运行结果：
自测练习1：
PrivateSubmyhelp_Click（）
frmAbout.Show
EndSub
PrivateSubmymenu1_Click（）
Text1.Text="百货大楼"
EndSub
PrivateSubmymenu2_Click（）
Text1.Text="利客隆"
EndSub
PrivateSubmymenu3_Click（）
Text1.Text="稻香村"
EndSub
运行初始界面：
运行结果界面：
自测练习2：
PrivateSubDis_Click（）
Text1.Text="菜单程序设计"
Text1.FontSize=20
Text1.FontName="黑体"
EndSub
PrivateSubHid_Click（）
Text1.Visible=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（）
CommonDialog1.Action=1
List1.AddItemCommonDialog1.FileName
EndSub
运行初始界面：
运行结果：
自测练习1：
PrivateSubCommand1_Click（）
DimaAsString,n%,i%,j%
Open"E:
\Data.txt"ForInputAs#1
Input#1,a
n=Len（a）
j=0
Fori=1Ton
IfMid（a,i,1）="%"Thenj=j+1
Nexti
Close#1
Open"E:
\Datares.txt"ForOutputAs#1
Print#1,j
Close#1
EndSub
运行初始界面：
运行结果：
自测练习3：
PrivateSubForm_Click（）
Dimx$
Open"e:
\txt2.txt"ForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,x$
Loop
Close#1
Open"e:
\txt1.txt"ForAppendAs#1
Print#1,x$
Close#1
EndSub
运行初始界面：
自测练习4
PrivateSubForm_load（）
Print"26个英文字母"
Print
Print"abcdefghijklmnopqrstuvwxyz"
Print"字母个数分别为"
EndSub
PrivateSubForm_Click（）
Open"E:
\Data.txt"ForOutputAs#1
文本$=InputBox（"请输入文本"）
n=UCase（文本$）
Print#1,n
Close#1
Dima%（）
Open"E:
\Data.txt"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
升级会员 