VB实验.docx
- 文档编号:30037882
- 上传时间:2023-08-04
- 格式:DOCX
- 页数:10
- 大小:107.84KB
VB实验.docx
《VB实验.docx》由会员分享,可在线阅读,更多相关《VB实验.docx(10页珍藏版)》请在冰豆网上搜索。
VB实验
广州大学学生实验报告
开课学院及实验室:
学院
年级、专业、班
姓名
学号
实验课程名称
可视化程序设计
成绩
实验项目名称
实验1 常用内部控件与控制结构
指导
教师
一、实验目的
二、实验原理(实验相关基础知识、理论)
三、实验过程原始记录(程序界面、代码、设计调试过程描述等)
四、实验结果及总结
实验1 常用内部控件与控制结构
一、实验目的
1.常用内部控件的属性、事件和方法。
2.掌握常用内部控件的编程方法。
3.掌握单分支、双分支和多分支条件语句结构的使用方法。
4.掌握For循环。
5.掌握Do...Loop循环。
6.了解Do...LoopUntil循环和DoUntil...Loop循环。
7.掌握如何利用循环条件来控制循环,防止死循环的出现。
二、实验内容
1编写一个应用程序,界面如图3-1所示。
窗体中文字“VB应用程序!
”为一标签控件,单击标题为“放大”的命令按钮,则“VB应用程序!
”的字号放大一号,单击“缩小”按钮则反之;同时,窗体中还有4个含某种指向图案的按钮,若单击某个按钮,则使“VB应用程序!
”向该按钮所指向的方向移动50Twip。
【提示】
四种指向的图案可以在VisualBasic安装目录中的“…graphics\icon\Arrows”子目录中找到,名称分别为arw07dn.ico、arw07lt.ico、arw07rt.ico和arw07up.ico。
2编写程序实现,文本框设定为多行模式,随着用户在文本框中输入,标签控件中同步显示出用户对文本框的内容更新的次数。
运行效果如图所示。
(注意区别“内容更新次数”和“内容长度”)
3如图所示,用列表框实现两个列表之间的增加和删除操作。
程序加载时,只有左方列表有内容,右方列表为空。
当点击标题为“>”的按钮时,就将左方列表里当前被选中的项移动右方列表最后;当点击标题为“<”的按钮时则反之。
4用组合框实现如图所示的程序。
要求将显示“组合框通常用于接受用户的选择”文本的标签前景色置为组合框中选中的颜色。
颜色有红、黑、黄、绿、蓝五种选择。
5输入某学生的某科目考试成绩(100分制),输出该学生的成绩等级。
90分以上为“优秀”,80~89分为“良好”,70~79分为“中等”,60~69分为“及格”,60分以下为“不及格”,如图所示。
6使用双重循环,输出“九九乘法表”,如图所示。
【提示】
(1)注意行号和该行乘法单元的个数之间的关系。
(2)注意乘法单元的规律:
“4*3=12”中4为行号,3为列号,且列号不大于行号。
(3)可以将窗体的AutoRedraw属性设为True,以防初始大小的窗体显示不下全部内容。
7编写一个网吧收费程序。
运行界面如图所示。
网吧基本收费为2元/小时。
根据不同的上机时数x,上机费用y可以按以下公式计算收费:
8编写程序,单击窗体,则用单循环在窗体上实现如图所示的图形。
3、实验过程原始记录(程序界面、代码、设计调试过程描述等)
1、代码
PrivateSubCommand1_Click()
Label1.FontSize=Label1.FontSize+1
EndSub
PrivateSubCommand2_Click()
Label1.FontSize=Label1.FontSize-1
EndSub
PrivateSubCommand3_Click()
Label1.Top=Label1.Top-50
EndSub
PrivateSubCommand4_Click()
Label1.Left=Label1.Left-50
EndSub
PrivateSubCommand5_Click()
Label1.Left=Label1.Left+50
EndSub
PrivateSubCommand6_Click()
Label1.Top=Label1.Top+50
EndSub
2、代码
DimtimeAsInteger
PrivateSubForm_Load()
time=0
EndSub
PrivateSubText1_Change()
time=time+1
Label1.Caption=time
EndSub
3、代码
PrivateSubCommand2_Click()
Dimcheck,iAsInteger
check=0
Fori=0ToList1.ListCount-1Step1
IfList1.Selected(i)Then
check=i
EndIf
Nexti
List2.AddItemList1.List(check)
List1.RemoveItemcheck
EndSub
PrivateSubForm_Load()
List1.List(0)="IBM"
List1.List
(1)="MP"
List1.List
(2)="NEC"
List1.List(3)="清华同方"
List1.List(4)="北大方正"
List1.List(5)="联想"
List1.List(6)="COMPAQ"
List1.List(7)="ACER"
List1.List(8)="microsoft"
List1.List(9)="dell"
leftnum=List1.ListCount
rightnum=List2.ListCount
EndSub
4、代码
PrivateSubCombo1_Click()
IfCombo1.Text="红色"Then
Text2.ForeColor=vbRed
EndIf
IfCombo1.Text="黑色"Then
Text2.ForeColor=vbBlack
EndIf
IfCombo1.Text="黄色"Then
Text2.ForeColor=vbYellow
EndIf
IfCombo1.Text="绿色"Then
Text2.ForeColor=vbGreen
EndIf
IfCombo1.Text="蓝色"Then
Text2.ForeColor=vbBlue
EndIf
EndSub
PrivateSubForm_Load()
Text2.Text="组合框通常用于接受用户的选择"
Combo1.AddItem"黑色"
Combo1.AddItem"红色"
Combo1.AddItem"黄色"
Combo1.AddItem"绿色"
Combo1.AddItem"蓝色"
EndSub
5、代码
PrivateSubCommand1_Click()
DimtempAsInteger
temp=Val(Text1.Text)
Iftemp>100Ortemp<0Then
MsgBox"请重新输入"
EndIf
Iftemp<=100Andtemp>=90Then
Text2.Text="优秀"
ElseIftemp<=89Andtemp>=80Then
Text2.Text="良好"
ElseIftemp<=79Andtemp>=70Then
Text2.Text="中等"
ElseIftemp<=69Andtemp>=60Then
Text2.Text="及格"
Else
Text2.Text="不及格"
EndIf
EndSub
6、代码
PrivateSubForm_Load()
Dimi%,j%,y%
'PrintTab(32);
Fori=1To9
Forj=1Toi
y=i*j
'PrintTab(9*j);y;
Printi;"*";j;"=";i*j;
Nextj
Nexti
EndSub
7.代码
PrivateSubCommand1_Click()
Dimtime,moneyAsDouble
time=Val(Text1.Text)
Iftime<3Then
money=2*time
ElseIftime>=3Andtime<5Then
money=2*0.9*time
ElseIftime>=5Andtime<10Then
money=2*0.8*time
Else
money=2*0.75*time
EndIf
Text2.Text=money
EndSub
8.代码
PrivateSubCommand1_Click()
Dimtime,moneyAsDouble
time=Val(Text1.Text)
Iftime<3Then
money=2*time
ElseIftime>=3Andtime<5Then
money=2*0.9*time
ElseIftime>=5Andtime<10Then
money=2*0.8*time
Else
money=2*0.75*time
EndIf
Text2.Text=money
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验
![提示](https://static.bdocx.com/images/bang_tan.gif)