《VisualBasic编程与应用》课程作业评讲2.docx
- 文档编号:4365324
- 上传时间:2022-11-30
- 格式:DOCX
- 页数:12
- 大小:70.45KB
《VisualBasic编程与应用》课程作业评讲2.docx
《《VisualBasic编程与应用》课程作业评讲2.docx》由会员分享,可在线阅读,更多相关《《VisualBasic编程与应用》课程作业评讲2.docx(12页珍藏版)》请在冰豆网上搜索。
《VisualBasic编程与应用》课程作业评讲2
《VisualBasic编程与应用》课程作业评讲
(2)
责任教师敖开云
下面我们将对形成性考核作业册(第二次作业)中的第三题和第四题进行评讲。
下文中,黑色的是问题与答案,绿色是说明和解释。
三、阅读下列程序,写出程序运行结果
1.PrivateSubForm_Click()
StaticSumAsInteger
ForI=1To100
Sum=Sum+I
NextI
PrintSum
EndSub
此题的考核知识点是:
第三章中流程控制语句的用法(for循环)。
分析:
从题目含义分析,此题是程序阅读题,主要检验学生对For循环的掌握情况,循环变量i的取值是1~100,循环体中只有一条语句:
Sum=Sum+I,从该语句可以看出是对i进行累加,所以该程序的功能是求1+2+3+4+…+100的和。
答案:
5050
注意:
此题容易出错地方是累加求和程序格式。
2.PrivateSubForm_Click()
A=10:
b=15:
c=20:
d=25
PrintA;Spc(5);b;Spc(7);c
PrintA;Spc(8);b;Space$(5);c
Printc;Spc(3);"+";Spc(3);d;
PrintSpc(3);"=";Spc(3);c+d
EndSub
此题的考核知识点是:
第五章中的Print语句和SPC(n)函数。
分析:
从题目含义分析,此题是程序阅读题,主要检验学生对Print语句和SPC(n)函数的掌握情况,Print语句是输出语句,SPC(n)函数是两个数据之间空n个空格。
答案:
注意:
在程序中使用SPC(n)函数时,各个表达式之间用“;”隔开。
3.PrivateSubForm_Click()
Fori%=1To3
Forj%=1Toi
PrintLTrim(Str(i%))+"*"+LTrim(Str(j%))+"=";i%*j%;
Nextj%
Nexti%
EndSub
此题的考核知识点有:
⑴第三章中流程控制语句的用法(for循环);
⑵第三章中的常用函数(LTrim)的使用方法
⑶第五章中的Print语句的功能。
分析:
从题目含义分析,此题是程序阅读题,主要检验学生对双重循环的掌握情况,这是典型的打印九九表的程序,外循环控制行,内循环控制列。
答案:
注意:
此题的难点是很多学生读不懂双循环程序。
4.PrivateSubCommandl_Click()
Dima,bAsInteger
a=3.4
b=3.4
Textl.Text=a
Text2.Text=b
EndSub
此题的考核知识点是:
第二章中文本框的使用方法。
分析:
从题目含义分析,此题是程序阅读题,主要检验学生对文本框控件的掌握情况,此题很简单,就是将变量a,b的值送到文本框text1和text2中显示出来,但此题的难点是第一条语句:
Dima,bAsInteger,此语句实际上只是定义了变量b是整型,a仍然是实数,所以变量a的值应该为3.4,b的值应该为3。
答案:
3.43
注意:
此题容易出错的地方就是变量a、b的值。
5.PrivateSubForm_Click()
Fori=1To5
PrintTab(11-i);
Forj=lToi*2-1
Print"*";
Nextj
Nexti
EndSub
此题的考核知识点有:
⑴第三章中流程控制语句的用法(for循环);
⑵第五章中的常用函数(Tab)的使用方法
⑶第五章中的Print语句的功能。
分析:
从题目含义分析,此题是程序阅读题,主要检验学生对双重循环的掌握情况,这是典型的打印三角形的程序,外循环控制行,内循环控制列,表示输出多少个“*”,Tab(11-i)控制每行第一个“*”的输出位置。
答案:
*
***
*****
*******
*********
注意:
此题的难点是很多学生读不懂双循环程序。
四、程序设计题
1.购物优惠程序。
某商场为了加速促成商品流通,采用购物打折的优惠办法,每位顾客一次购物
(1)在100元以上者,按九五折优惠;
(2)在200元以上者,按九折优惠;(3)300元以上者,按八折优惠;(4)500元以上者按七折优惠。
在窗体上添加两个文本框和一个命令按钮,要求在Textl中输入购物商品总金额,单击命令按钮,在Text2中输出优惠后的价格。
程序运行结果如图4所示。
图4
此题的考核知识点是:
第二章命令按钮、文本框的用法和编程。
分析:
从题目含义分析,此题的核心问题是考if语句的嵌套,满足不同的条件,有不同的折扣优惠,所以就要用if语句的嵌套来完成,并且必须在“计算”按钮的click事件中编程。
答案:
PrivateSubCommand1_Click()
DimxAsSingle,yAsSingle
x=Val(Text1.Text)
Ifx<100Then
y=x
Else
Ifx<200Then
y=9.5*x
Else
Ifx<300Then
y=0.9*x
Else
Ifx<500Then
y=0.8*x
Else
y=0.7*x
EndIf
EndIf
EndIf
EndIf
Text2.Text=y
EndSub
注意事项:
本题应注意2个问题,第一,计算时必须将文本框text1中的值转换为数字型;第二,注意if语句的嵌套格式。
2.输出100~200之间不能被3整除的的数,要求用Do语句的一种形式来实现,程序运行结果如图5所示。
图5
此题的考核知识点有2个:
⑴用FOR循环求100~200之间不能被3整除的数
⑵向列表框中添加项目。
分析:
从题意分析,在窗体中添加一个标签和一个列表框,并设置相应的属性,由于要求输出100~200之间不能被3整除的的数,要求用Do语句的一种形式来实现,即dowhile---loop语句来实现。
答案:
PrivateSubForm_Load()
x=100
dowhilex<=200
IfxMod3<>0ThenList1.AddItemStr(x)
x=x+1
loop
EndSub
注意事项:
本题容易出错的地方是判断不能被3整除的条件:
“xMod3<>0”。
3.编写程序,打印如下的乘积表
图6
此题的考核知识点是:
第三章双重循环的编程。
分析:
此题输出的是一个表格,它具有行和列,这种题型必须用双循环,外循环控制行数,内循环控制列数。
答案:
PrivateSubForm_Click()
Print"*";Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12
ForI=15to18
PrintI;
Forj=3to12Step3
PrintTab(3*j);j*I;
Nextj
NextI
Endsub
注意事项:
此题容易出错的地方是不要忘了换行语句“print”。
4.设计一个计算程序。
该程序用户界面如图7所示。
要求程序运行后,用户选中单选按钮,则程序作10和2的相应计算,并把计算结果在文本框中显示出来。
如用户选中加法单选按钮,则程序作10和2的相加,计算结果12在文本框中显示出来。
按结束,则退出。
图7
此题的考核知识点有2个:
⑴第二章中的命令按钮、文本框的用法和编程;
⑵第三章中的单选按钮编程。
分析:
从题意分析,首先在窗体中添加一个框架控件,4个单选按钮、1个标签、1个文本框和1个命令按钮,并对每个控件进行相应的属性设置,然后对每个单选按钮进行编程。
答案:
PrivateSubCommand1_Click()
UnloadMe
EndSub
PrivateSubOption1_Click()
Text1.Text=10*2
EndSub
PrivateSubOption2_Click()
Text1.Text=10/2
EndSub
PrivateSubOption3_Click()
Text1.Text=10+2
EndSub
PrivateSubOption4_Click()
Text1.Text=10-2
EndSub
注意事项:
此题容易出错的地方是不要选错了单选按钮的事件“click”。
5.编写输入一个0~6数字,显示汉字对照输出星期的Function过程。
程序运行结果如图8所示。
图8
此题的考核知识点有2个:
⑴第二章中的文本框的用法和编程;
⑵第四章中的KeyPress事件。
分析:
从题意分析,首先在窗体中添加一个框架控件、1个文本框和1个标签,并进行相关的属性设置,此题重点是对文本框text1的KeyPress事件进行编程,用于调用Function过程。
答案:
PrivateFunctionDay(nAsInteger)
SelectCasen
Case0
Day="星期日"&Chr(13)&"(Sunday)"
Case1
Day="星期一"&Chr(13)&"(Monday)"
Case2
Day="星期二"&Chr(13)&"(Tuesday)"
Case3
Day="星期三"&Chr(13)&"(Wednesday)"
Case4
Day="星期四"&Chr(13)&"(Thursday)"
Case5
Day="星期五"&Chr(13)&"(Friday)"
Case6
Day="星期六"&Chr(13)&"(Saturday)"
EndSelect
EndFunction
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
DimnAsInteger
n=Val(Text1.Text)
IfKeyAscii=13Then
Ifn>=0Andn<7Then
Label1.Caption=Day(n)
Else
MsgBox"请输入0~6之间的整数!
"
EndIf
EndIf
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
EndSub
注意事项:
此题容易出错的地方是SelectCase语句的用法。
6.编写一个程序,当鼠标移到Picturel控件上时,鼠标指针改变形状;当在Picturel控件上单击鼠标右键时,通过消息框显示“Youpressedrightbutton”,并再次改变鼠标指针的形状。
此题的考核知识点是:
对图片框控件进行编程。
分析:
从题意分析,首先在窗体中添加一个图片框控件,并进行相关的属性设置,当鼠标移到Picturel控件上时,鼠标指针改变形状,这个应该在Picturel控件的MouseMove事件中进行编程;当在Picturel控件上单击鼠标右键时,通过消息框显示“Youpressedrightbutton”,并再次改变鼠标指针的形状,应该在Picturel控件的MouseDown事件中进行编程。
答案:
PrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
MsgBox"YoupressedrightButton"
Picture1.MousePointer=vbArrow
EndIf
EndSub
PrivateSubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Picture1.MousePointer=vbUpArrow
EndSub
注意事项:
此题容易出错的地方是分不清楚在哪个事件中编程。
7.列表框应用程序。
要求从文本框中输人姓名,然后按“添加’’按钮,把姓名添加到列表框中;当选择列表框中某一项时,按“删除”按钮,从列表框中删除;当选择列表框中某一项时,按“修改’’按钮,把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。
在文本框的内容修改好后,按“修改确认”按钮,再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。
程序运行结果如图9所示。
图9
此题的考核知识点有2个:
⑴第二章中的命令按钮和文本框的用法和编程;
⑵第三章中的向列表框中添加项目。
。
分析:
从题意分析,首先在窗体中添加1个列表框控件、1个文本框和3个命令按钮,并进行相关的属性设置,然后分别对3个命令按钮进行编程。
答案:
PrivateSubCommand1_Click()
IfText1.Text<>""Then
List1.AddItemText1.Text
Text1.Text=""
Else
MsgBox"请在文本框中输入信息!
"
EndIf
EndSub
PrivateSubCommand2_Click()
List1.RemoveItemList1.ListIndex
EndSub
PrivateSubCommand3_Click()
IfCommand3.Caption="修改"Then
Text1.Text=List1.Text
Text1.SetFocus
Command1.Enabled=False
Command2.Enabled=False
Command3.Caption="修改确认"
Else
List1.List(List1.ListIndex)=Text1.Text
Command1.Enabled=True
Command2.Enabled=True
Text1.Text=""
Command3.Caption="修改"
EndIf
EndSub
PrivateSubList1_Click()
IfList1.ListIndex<>-1Then
Command2.Enabled=True
Command3.Enabled=True
EndIf
EndSub
注意事项:
此题容易出错的地方是当单击“添加”按钮时一定要判断文本中是否为空,如果为空,则提示输入内容,不予添加。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VisualBasic编程与应用 VisualBasic 编程 应用 课程 作业