西安财经学院 VB 实验七用户界面设计文档格式.docx

西安财经学院 VB 实验七用户界面设计文档格式.docx

《西安财经学院 VB 实验七用户界面设计文档格式.docx》由会员分享，可在线阅读，更多相关《西安财经学院 VB 实验七用户界面设计文档格式.docx（21页珍藏版）》请在冰豆网上搜索。

（1）通过InputBox对话框输入倒计时时间（以分钟为单位）。

例如输入100表示还剩余“01：

40:

00”的时间。

（2）当倒计时时间到达“00:

00:

00”时，停止计时并且提示时间到。

3.编程练习。

（1）设计一个如图A7.3和A7.4所示的菜单系统，并为命令编写有关的程序代码。

（2）设计一个如图A7.5所示的应用程序。

当单击【改变标签标题颜色】按钮后，打开【颜色】对话框，为标签标题选择一个颜色；

当单击【编辑文本文件】按钮后，打开【打开文件】对话框，选择一个文本文件后调用记事本程序编辑该文件。

（3）设计一个如图A7.6所示的应用程序。

当选择选项卡中不同选项后可以对文本框内两个数字进行相应的运算，结果在窗体右边的标签内显示。

文本框中数字值可以通过单击箭头进行改变，每次单击可以改变量是2。

四．实验步骤

（一）成绩统计。

1.打开VisualBasic软件，新建EXE标准工程，添加一个标签控件、一个文本框控件、一个图片框控件、一个框架控件、两个单选按钮及两个复选框控件，设置其属性，如图所示。

2.编写程序代码。

3.运行程序。

（二）倒计时程序。

1.打开VisualBasic软件，新建EXE标准工程，添加一个时钟控件、3个文本框控件、3个命令按钮控件，设置其属性，如图所示。

2．编写程序代码。

（三）编程练习。

（1）设计一个如图A7.3和A7.4所示的菜单系统，并为命令编写有关的程序代码。

1.打开VisualBasic软件，新建EXE标准工程，选择【工具】-【菜单编辑器】命令，对菜单进行设计，并添加一个文本框控件，如图所示。

2.为命令编写程序有关的程序代码。

（2）设计一个如图A7.5所示的应用程序。

1.打开VisualBasic软件，新建EXE标准工程，添加一个文本框控件、一个通用对话框部件、两个命令按钮控件，如图所示。

2.编写相关程序代码。

（3）设计一个如图A7.6所示的应用程序。

1.打开VisualBasic软件，新建EXE标准工程，选择【工程】-【部件】命令添加“MicrosoftTabbedDialogContral6.0到工具箱里，并添加2个文本框控件、3个标签控件、1个SSTab控件，设置其属性，如图所示。

五．.原程序清单

1.成绩统计。

PrivateSubText1_lostfocus（IndexAsInteger）

IfVal（Text1（Index））<

0OrVal（Text1（Index））>

100Then

Text1（Index）="

"

Text1（Index）.SetFocus

EndIf

EndSub

PrivateSubForm_Load（）

Fori=1To4

LoadLabel1（i）

LoadText1（i）

Text1（i）.Top=Text1（i-1）.Top+Text1（i）.Height+100

Text1（i）.Visible=True

Label1（i）.Top=Label1（i-1）.Top+Label1（i）.Height+100

Label1（i）.Caption="

第"

&

i+1&

"

个成绩"

Label1（i）.Visible=True

Nexti

PrivateSubOption1_Click（IndexAsInteger）

Sum=0

Min=Val（Text1（0））

Max=Val（Text1（0））

Fori=0To4

IfMin>

Val（Text1（i））Then

Min=Val（Text1（i））

Else

Max=Val（Text1（i））

Sum=Sum+Val（Text1（i））

IfCheck2.Value=1ThenSum=Sum-Min

IfCheck1.Value=1ThenSum=Sum-Max

SelectCaseIndex

Case0

Picture1.PrintSum

Case1

Picture1.PrintSum/5

EndSelect

2.倒计时程序。

OptionExplicit

Dimhour,mintue,second,input_timeAsInteger

PrivateSubCommand1_Click（）

input_time=InputBox（"

请输入倒计时"

）

input_time=input_time*60

hour=input_time\3600

mintue=（input_timeMod3600）\60

second=（input_timeMod3600）Mod60

Timer1.Enabled=False

PrivateSubCommand2_Click（）

IfText1.Text="

AndText2.Text="

AndText3.Text="

Then

ExitSub

EndIf

Timer1.Interval=1000

Timer1.Enabled=True

PrivateSubCommand3_Click（）

End

PrivateSubTimer1_Timer（）

second=second-1

Ifsecond<

0Then

mintue=mintue-1

Ifmintue<

hour=hour-1

Ifhour<

MsgBox（"

时间到了！

Timer1.Enabled=False

End

mintue=59

second=59

Text1.Text=hour

Text2.Text=mintue

Text3.Text=second

3.编程练习。

PrivateSubclear_Click（）

Ifclear.Checked=FalseThen

Text1.Text="

clear.Checked=True

Else

clear.Checked=False

PrivateSubend_Click（）

PrivateSubmenfond_Click（）

Ifmenfond.Checked=FalseThen

Text1.FontBold=True

menfond.Checked=True

Text1.FontBold=False

menfond.Checked=False

PrivateSubmenitalic_Click（）

Ifmenitalic.Checked=FalseThen

Text1.FontItalic=True

menitalic.Checked=True

Text1.FontItalic=False

menitalic.Checked=False

PrivateSubmensize_Click（IndexAsInteger）

SelectCaseIndex

Case0

Text1.FontSize=12

mensize（0）.Checked=True

mensize

（1）.Checked=False

Case1

Text1.FontSize=16

mensize（0）.Checked=False

mensize

（1）.Checked=True

EndSelect

CommonDialog1.ShowColor

Text1.BackColor=CommonDialog1.Color

CommonDialog1.DialogTitle="

打开文件"

CommonDialog1.Filter="

全部文件|*.*|文本文件|*.txt"

CommonDialog1.InitDir="

c:

\\DocumentsandSettings\Administrator\桌面"

CommonDialog1.ShowOpen

Shell"

notepad.exec:

\DocumentsandSettings\Administrator\桌面\新建文本文档.txt"

vbNormalFocus

PrivateSubSSTab1_Click（PreviousTabAsInteger）

x=Val（Text1.Text）

y=Val（Text2.Text）

AndText2.Text=0T