西安电子科技大学2021春 VB程序设计（大作业）答案.doc

第

第PAGE1页（共2页）

学习中心/函授站_

姓名 学号

西安电子科技大学网络与继续教育学院

2021学年上学期

《VB程序设计》期末考试试题

（综合大作业）

题号

一

总分

题分

100

得分

考试说明：

1、大作业试题于2021年4月23日公布：

学生于2021年4月23日至2021年5月9日在线上传大作业答卷；

上传时一张图片对应一张A4纸答题纸，要求拍照清晰、上传完整；2、考试必须独立完成，如发现抄袭、雷同均按零分计；

3、答案须用《西安电子科技大学网络与继续教育学院标准答题纸》手写完成，要求字迹工整、卷面干净。

一、程序设计题（每题20分，共5题）

1、功能描述：要求检查输入的文字段中大括号是否配对，并显示相应的结果．在文本框中边输入边统计大括号的个数，以输入回车作为结束标志，然后显示结束。根据要求，利用VB语言编写程序并实现相应功能。

答：

DimCount1%

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=＂{＂Then

Count1=Count1+1

ElseIfKeyAscii=＂}＂Then

Count1=Count1+1

IfKeyAscii=13Then

IfCount1=0Then

Print＂左右大括号配对＂

ElseIfCount10Then

Print＂左大括号数多＂；Count1；＂个＂

Else

Print＂右大括号数多＂；-Count1；＂个＂

EndIf

EndIf

EndSub

2、功能描述：在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1（名字：大写转小写）和Command2（名字：小写转大写）的命令按钮。要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为小写；然后单击Command2按钮则文本框中字母全部转换为大写。根据要求，利用VB语言编写程序并实现相应功能。

答：

? PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)

? ?Text1.Tag=Text1.Text

?EndSub

PrivateSubCommand1_Click()

?? Text1.Text=LCase(Text1.Tag)

?EndSub

?PrivateSubCommand2_Click

?? Text1.Text=UCase(Text1.Tag)

? EndSub

3、功能描述：在窗体上添加两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后添加一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为1000。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值。根据要求，利用VB语言编写程序并实现相应功能。

答：

PrivateSubHScroll1_CHANGE()

Labl2.Caption=HScroll1.VALUE

EndSub

4、功能描述：在窗体上布局一个名称为Command1、标题为“计算”的命令按钮；布局两个文本框，名称分别为Text1和Text2；然后设置4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4，程序运行情况如图所示。根据要求，利用VB语言编写程序并实现相应功能。

答：

PrivateSubCommand1_Click()

Fori=0To3

IfOption1(i).Value=Truethen

opt=Option1(i).Caption

EndIf

Next

SelectCaseopt

C