VB实验GWord下载.docx
- 文档编号:16616457
- 上传时间:2022-11-24
- 格式:DOCX
- 页数:15
- 大小:245.13KB
VB实验GWord下载.docx
《VB实验GWord下载.docx》由会员分享,可在线阅读,更多相关《VB实验GWord下载.docx(15页珍藏版)》请在冰豆网上搜索。
声卡"
IfCheck2ThenList1.AddItem"
Modem"
IfCheck3ThenList1.AddItem"
网络适配器"
EndSub
PrivateSubText1_LostFocus()
st=UCase(Trim(Text1))
le=Len(st)
IfNotIsNumeric(Left(st,le-2))OrRight(st,2)<
>
"
MB"
Then
MsgBox"
有不合法字符!
"
Text1="
Text1.SetFocus
EndIf
2.设计如下图示的计算程序
3.编写利息计算程序。
当通过滚动条改变本金、月份或年利率时,能立即计算出利息及本息合计的值
PrivateSubHScroll1_Change()
Text1=VScroll1.Value
Text2=HScroll1.Value
Text3=HScroll2.Value
Text4=Format(Val(Text1)*(Text3/100)*(Text2/12),"
0.00"
)
Text5=Format(Val(Text4)+Val(Text1),"
PrivateSubHScroll2_Change()
PrivateSubVScroll1_Change()
4.设计一个带有进度条的倒计时程序,要求倒计时时间是以分为单位输入,以秒为单位显示,进度条指示的是倒数读秒的剩余时间,即填充块数目随时间减少
DimtAsSingle
t=InputBox("
输入倒计时分钟数"
t=t*60
ProgressBar1.Min=0
ProgressBar1.Max=t
ProgressBar1.Value=t
PrivateSubCommand2_Click()
Timer1.Interval=1000
ProgressBar1.Visible=True
PrivateSubTimer1_Timer()
Dimm%,s%
t=t-1
m=t\60
s=tMod60
Label1=m&
分"
&
s&
秒"
Ift=0Then
时间到!
Timer1.Interval=0
ProgressBar1.Visible=False
5.设计一个应用程序,当单击“设置表浅颜色”按钮后,弹出“颜色”对话框,为标签中的文字选择一种颜色;
单击“编辑文本文件”按钮后,弹出“打开文件”对话框,选择一个文本文件后调用记事本程序编辑该文件。
CommonDialog1.ShowColor
Label1.ForeColor=CommonDialog1.Color
CommonDialog1.ShowOpen
i=Shell("
C:
\WINDOWS\NOTEPAD.exe"
+CommonDialog1.FileName,vbNormalFocus)
6.设计一个菜单系统,并为菜单项编写有关的程序代码
PrivateSubbold_Click()
Text1.FontBold=NotText1.FontBold
bold.Checked=Notbold.Checked
PrivateSubdel_Click()
Text1="
PrivateSubend_Click()
End
PrivateSubfont12_Click()
Text1.FontSize=12
PrivateSubfont16_Click()
Text1.FontSize=16
PrivateSubForm_Load()
bold.Checked=False
italic.Checked=False
PrivateSubitalic_Click()
Text1.FontItalic=NotText1.FontItalic
italic.Checked=Notitalic.Checked
PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2ThenPopupMenumenu2
7.把菜单2的命令设计成弹出菜单,即当在文本框中单击鼠标右键时弹出一个包括菜单2命令的弹出菜单
PrivateSubreturn_Click(IndexAsInteger)
Form6.Show
UnloadForm5
8.为实验题6添加一个“帮助”菜单,在“帮助”菜单中的“关于…”命令对话框中显示有关该应用程序的版本信息.
PrivateSubabout_Click()
frmabout.ShowvbModal
9.设计一个程序.它对列表框具有随机产生10个数据、删除最小值/最大值、添加数据、统计功能
PrivateSub结束_Click()
PrivateSub删除最大值_Click()
max=List1.List(0)
Fori=1ToList1.ListCount-1
Ifmax<
List1.List(i)Thenmax=List1.List(i):
j=i
Nexti
List1.RemoveItemj
PrivateSub删除最小值_Click()
min=List1.List(0)
Ifmin>
List1.List(i)Thenmin=List1.List(i):
PrivateSub随机产生_Click()
Randomize
Fori=0To9
List1.List(i)=Int(Rnd*30+70)
PrivateSub添加数据_Click()
List1.AddItemInt(Rnd*30+70)
PrivateSub统计_Click()
Dimmax%,min%,ave!
m%,n%
ave=List1.List(0)
m=0
n=0
m=i
n=i
ave=ave+List1.List(i)
Form2.Text1=List1.List(m)
Form2.Text2=List1.List(n)
Form2.Text3=Format(ave/List1.ListCount,"
Form2.Show
10.选择做过的若干实验,将它们整合成一个工程,当选择某个菜单项时,就弹出相应程序的窗体
PrivateSubexperimentG2_Click()
PrivateSubexperimentG3_Click()
Form3.Show
PrivateSubexperimentG4_Click()
Form4.Show
PrivateSubexperimentG5_Click()
Form5.Show
PrivateSubfont_12_Click()
PrivateSubfont_16_Click()
PrivateSubrnd10_Click()
PrivateSubstat_Click()
stat2.Text1=List1.List(n)
stat2.Text2=List1.List(m)
stat2.Text3=Format(ave/List1.ListCount,"
stat2.Show
IfButton=2ThenPopupMenucaidan2,vbPopupMenuCenterAlign
PrivateSubxie_Click()
Text1.Font.Italic=NotText1.Font.Bold
习题七
1.框架的作用是什么?
如何在框架中创建控件?
作用
1对单选按钮进行分组
2对窗体现有控件进行分组
如何建立控件:
1先单击工具箱上的工具,然后利用出现的“+”指针,在框架内适当位置拖拉出适当大小的控件,不能使用双击工具箱上工具的自动方式。
2如果要用框架对窗体中现有控件进行分组,则应先选定控件,然后剪切到剪切板,最后粘帖到框架上。
2.如果要让定时器每30s产生一个Timer事件,则InterVal属性应设置为多少?
定时器是以Interval属性的值作为时间间隔产生一个Timer事件的。
Interval属性值的单位ms,因此当Interval属性值为500时,每30秒发生一个Timer事件。
3.滚动条的Scroll和Change事件有什么区别?
拖动滑块过程中会多次执行,Scroll事件过程,拖动滑块结束时产生一个Chang事件;
单击两端的箭头或空白处,会执行Chang事件过程,而不会执行Scroll事件过程。
4.默认情况下,进度条是水平形式的。
若要让进度条变成垂直形式,该如何设置?
进度条有水平和垂直两种形式,由属性Orientation决定。
若要让进度条变成垂直形式其属性应设计为1
5.在使用“字体”对话框之前必须设置什么属性?
在显示字体对话框之前必须设置Flage属性,指示选用何种字体,否则将发生不存在字体错误
6.热键与快捷键有什么区别?
应如何实现?
如果要通过键盘来访问菜单项,则需要为菜单项定义热键与快键。
热键是菜单项中带有下划线的字符,建立热键的方法是在菜单标题的某个字符前加上一个“&
”符号,显示时这一字符下面有一个下划线,表示该字符是一个热键字符。
快捷键不是用来打开菜单,而是直接去执行相应的操作。
要为菜单项制定快捷键,只要打开快捷键(shortcut)下拉式列表框并选择一个键,则菜单项标题的右边就会显示快捷键名称
7.从设计角度,试说明下拉式菜单和弹出式菜单的区别
菜单有两种基本类型:
一种是下拉式菜单,由一个主菜单和若干个子菜单所组成的;
另外一种是弹出式菜单,是用户在某个对象上单击右键所弹出的菜单。
下拉式菜单和弹出式菜单,都是在使用菜单编辑器时设计,的。
在设计时这两种菜单的区别是:
弹出式菜单中作为菜单名的菜单项的Visble属性应设置为Flase,程序开始运行时不需要显示,在单击鼠标右键时会弹出。
下拉式菜单中作为菜单名的菜单项的Visble属性应设置为True,程序运行时显示在窗体的顶部。
8.什么是模式对话框?
什么是非模式对话框?
两者有什么区别?
对话框有两种类型:
模式对话框和非模式对话框。
若对话框是模式对型,打开后无法将鼠标移到其他窗口,即只有在关闭后才能对其他窗体进行操作,如office软件中“帮助”菜单的“关于”命令所打开的对话框;
若对话是非模式型,则打开后可以对其他窗口进行操作,如“编辑”菜单的“替换”对话框就是一个非模式对话框的实例。
当把窗体作为对话框打开时,show方法的参数有两个,分别表示模式对话框和非模式对话框:
(1)将窗体作为模式对话框打开,语句为:
窗体名称.show1
(2)将窗体作为非模式对话框打开,语句为:
窗体名称.show0
9.简述窗体之间数据互访如何才能实现
在多重窗体程序中,不同窗体之间可以互相访问。
即一个窗体可以访问另一个窗体中的数据。
两个窗体之间的访问有下列三种情况:
(1)一个窗体可以在直接访问另一个窗体上控件的属性
(2)一个窗体直接访问另一个窗体上控件的属性
(3)在模块中定义公共变量实现相互访问,这是最常用的方法
10.MouseDown事件发生在MouseUp和Click事件之前,但MouseUp和Click事件发生的次数与对象有关。
试编写一个小程序测试在命令按钮和标签上MouseDown、MouseUp和Click事件发生的顺序
测试可以发现,标签上发生的顺序是MouseDown、MouseUp、Click,而在命令按钮上发生的顺序是:
MouseDown、Click、MouseUp
11.在KeyDown事件过程中,如何检测Ctrl和F3是否同时被按下?
使(KeyCode=vbKeyF3)And(Shift=vbCtrlMask)或者(KeyCode=114)And(Shift=2)表达式,可以检测Ctrl和F3键是否同时被按下,F3键的键盘扫描码是114。
12.KeyDown事件与KeyPress事件的区别是什么?
用户按下并且释放一个会产生ASCII码的键时,触发KeyPress事件;
用户按下键盘上任意一个键时,触发KeyDown事件
13.试说明键盘扫描代码(KeyCode)与键盘ASCII码(KeyAscii)的区别
键盘扫描代码(KeyCode)与键盘上按键的编码,它告诉事件过程用户所操作的物理键。
也就是说,大写字母和小写字母使用同一个键,它们的KeyCode相同。
对于有上档字母和下档字符的键,其KeyCode也是相同的,为下档字符的ASCII码
14.键盘上“4”键的上档字符是“$”。
挡同时按下Shift键和“4”键时,KeyPress事件发生了几次?
过程中的KeyAscii参数值是多少?
KeyPress事件发生了一次,KeyAscii参数值是36,也就是“$”字符的ASCII码为36。
因为KeyPress事件是在输入一个ASCII码字符时发生的事件,尽管在输入“$”字符时按了两个键,但是输入了一个字符,所以KeyPress事件发生了一次.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验