西安财经学院 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
升级会员 