VB实例源码Word文档下载推荐.docx
- 文档编号:19880025
- 上传时间:2023-01-11
- 格式:DOCX
- 页数:92
- 大小:51.50KB
VB实例源码Word文档下载推荐.docx
《VB实例源码Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VB实例源码Word文档下载推荐.docx(92页珍藏版)》请在冰豆网上搜索。
EndIf
【例3-5】
Print:
FontName="
隶书"
FontSize=16
姓名"
Tab(8);
年龄"
Tab(16);
职务"
PrintTab(24);
单位"
Tab(32);
籍贯"
吴大明"
25;
职员"
Tab(24);
人事科"
北京"
【例3-6】
X=InputBox("
请输入成绩"
学生成绩录入"
00"
Printx
【例3-7】
DimxAsSingle,yAsSingle
x=InputBox(“请输入x的值”)
Ifx>
0Theny=1ElseIfx=0Theny=0Elsey=-1
Print“x=”;
x,”y=”;
y
【例3-8】
Dimmsg,UserInput
msg="
请输入一个字母或0~9之间的数字."
UserInput=InputBox(msg)‘输入一个字母或数字
IfNotIsNumeric(UserInput)Then‘判断是否是数字
IfLen(UserInput)=1Then‘不是数字时,判断输入的字符串长度是否为1
SelectCaseAsc(UserInput)‘判断输入字母的ASCII码值
Case60To90'
在60-90之间为大写字母
msg="
你输入的是一个大写字母'
"
msg=msg&
Chr(Asc(UserInput))&
'
。
Case97To122'
小写字母
你输入的是一个小写字母'
CaseElse
你没有输入字母或数字."
EndSelect
Else
SelectCaseVal(UserInput)'
将输入的数值型字符转换为数值
Case1,3,5,7,9'
如果是奇数
msg=UserInput&
是一个奇数。
Case0,2,4,6,8'
如果是偶数
是一个偶数。
CaseElse'
出界
你输入的数字不在0~9范围内"
MsgBoxmsg
【例3-10】
SubForm_Click()
DimNAsInteger
n=InputBox("
EnterN:
)‘输入N的值
k=1
Fori=1ToN‘循环N次,计算出N!
k=k*I
PrintN;
”!
=”;
k‘数据输出
【例3-12】
DimS,N
S=0:
N=0
DoWhileS<
=100
N=N+1
S=S+N
Loop
PrintS,N
【例3-13】
DimcharAsString
Count=0
char=InputBox("
请输入一个字符"
Whilechar<
>
?
Count=Count+1
char=InputBox$("
Wend
输入的字符数是:
Count
【例3-14】
*"
Fori=1To9
PrintTab(i*6);
i;
Forj=1To9
Printj;
Fork=1Toj
PrintTab(k*6);
j*k;
Nextk
第4章
(1)假定用来输入数学成绩的文本框名称为Text1,该文本框的LostFocus事件过程如下:
PrivateSubText1_LostFocus()
IfVal(Text1.Text)<
0OrVal(Text1.Text)>
100Then
Text1.Text="
Text1.SetFocus
EndIf
(2)其他文本框的LostFocus事件类似。
(3)假定按钮名称为Command1,该按钮的Click事件过程如下:
PrivateSubCommand1_Click()
IfCheck1.Value=1ThenSum=Sum+Val(Text1.Text)
IfCheck2.Value=1ThenSum=Sum+Val(Text2.Text)
IfCheck3.Value=1ThenSum=Sum+Val(Text3.Text)
IfCheck4.Value=1ThenSum=Sum+Val(Text4.Text)
IfCheck5.Value=1ThenSum=Sum+Val(Text5.Text)
Text6.Text=Sum
【例4-1】
PrivateSubCommand1_Click()‘在其单击事件中编程
Fori=1To6‘外循环,控制输出几行
Forj=1Toi‘内循环,控制输出几列
*"
Print‘换行
【例4-2】
PrivateSubText1_Change()
Text2.Text=LCase(Text1.Text)
Text3.Text=UCase(Text1.Text)
EndSub
【例4-3】
PrivateSubCheck1_Click()
Text1.FontUnderline=NotText1.FontUnderline
PrivateSubCheck2_Click()
Text1.FontItalic=NotText1.FontItalic
PrivateSubOption1_Click()
Text1.Font="
黑体"
PrivateSubOption2_Click()
宋体"
【例4-4】
IfOption1Then
Text1.FontName="
Else
IfOption3Then
Text1.FontSize=8
Text1.FontSize=10
PrivateSubCommand2_Click()
End
【例4-5】
PrivateSubForm_Load()
‘在窗体的Load事件中输入列表框的各个项目
lstBooks.AddItem"
计算机应用基础"
操作系统"
数据结构"
网络技术基础"
PrivateSubcmdAdd_Click()
‘单击添加命令按钮时将文本框中输入的内容添加到列表框中
lstBooks.AddItemtxtItem
txtItem="
PrivateSubcmdDelete_Click()
‘删除列表框中选中的项目
lstBooks.RemoveItemlstBooks.ListIndex
PrivateSubcmdModify_Click()
‘所选项目显示在文本框中,等待修改
txtItem.Text=lstBooks.Text
cmdAdd.Enabled=False
cmdDelete.Enabled=False
cmdModify.Enabled=False
cmdModify_OK.Enabled=True
PrivateSubcmdModify_OK_Click()
‘所选项目显示在文本框中修改完成后,按下修改确定按钮,更新列表框内容
lstBooks.List(lstBooks.ListIndex)=txtItem
cmdAdd.Enabled=True
cmdDelete.Enabled=True
cmdModify.Enabled=True
【例4-6】
Picture3.Picture=Picture1.Picture
Picture1.Picture=Picture2.Picture
Picture2.Picture=Picture3.Picture
Pciture3.Picture=LoadPicture()‘把第3个图片框设置为空
Endsub
【例4-7】
PrivateSubHScroll1_Change()
Text1.Text=HScroll1.Value
【例4-8】
PrivateTimer1_Timer()
Labe1.Caption=Time$
实训
Debug.Print"
姓名:
Text1.Text
出生年月:
Text2.Text
籍贯:
Text3.Text
IfOption1.ValueThenDebug.Print"
性别:
男"
IfOption2.ValueThenDebug.Print"
女"
民族:
Combo1.Text
IfCheck1.Value=1ThenDebug.Print"
健康"
ElseDebug.Print"
不健康"
职称:
Combo3.Text
工资:
Text4.Text
外语熟练程度"
HScroll1.Value
简历:
Text5.Text
第5章
PrivateSubCommand6_Click()
Constn=10‘定义常量n的值为10
Max=0:
K=0‘最高分及所在位置赋初值
Fori=1Ton
b(i)=InputBox("
请输入第"
&
i&
个同学的成绩"
求最高分)‘输入成绩
Ifb(i)>
MaxThen
Max=b(i)
K=I‘将第i个成绩与最高分Max相比,如果比最高分高,则保存起来
Print"
最高分是第"
K&
个同学,其成绩是:
Max
【例5-1】
OptionBase1
Dima(3)AsInteger
a
(1)=1:
a
(2)=3:
a(3)=5
Printa
(1)
Printa
(2)
Printa(3)
【例5-2】
Fori=1To10
b(i)=InputBox("
&
个数"
【例5-3】
Fori=1To2
Forj=1To2
b(i,j)=i+j
【例5-4】
DimS(3,2)AsInteger
程序如下:
Fori=0To3
PrintTab(5);
‘输出位置定位
Forj=0To2
S(i,j)=i*2+j‘给各元素赋值
图5-4使用二维数组打印出的图形
PrintS(i,j);
Nextj
Print‘换行
【例5-5】
Dims(5)AsInteger'
定义数组S
Constn=5
Fori=1Ton
s(i)=Val(InputBox("
LTrim$(Str$(i))&
数据排序))
‘输入n个数,转换成数值后保存在数组中。
Fori=1Ton-1‘进行n-1趟比较
Max=I‘对第i遍比较时,初始假定第i个元素最小。
Forj=i+1Ton‘在数组i~n个元素中选最小元素
Ifs(j)<
s(Max)ThenMax=j
t=s(i)
s(i)=s(Max)
s(Max)=t‘i~n个元素中选出的最小元素与第i个元素交换
Fori=1To5
Prints(i)
【例5-6】
Dimb()AsInteger
ReDimb
(2)
Fori=0To2
b(i)=i
Nexti
ReDimPreserveb(3)
b(3)=7
Printb(i);
【例5-7】
Dima(8,8)AsInteger'
定义一个二维数组
‘下面的二层循环语句给数组赋值
Fori=1To8
Ifi=1Orj=1Then
a(i,j)=1'
数组中每一行第一个,最后一个数均为1
a(i,j)=a(i-1,j-1)+a(i-1,j)
数组中其余数据等于它上一行的相邻两列之和
Nextj
'
下面的二层循环语句将数组中的值打印出来
Fori=1To8
PrintTab(20-2*i);
定位打印位置
Forj=1Toi
Ifa(i,j)<
10Then'
将数组中的值转换成长度为3的字符串,可使打印数据整齐
s="
+Str(a(i,j))+"
ElseIfa(i,j)<
+Str(a(i,j))
Prints;
Print'
换行
【例5-8】
PrivateSubOption1_Click(IndexAsInteger)
SelectCaseIndex
Case0
Label1.ForeColor=RGB(255,0,0)
Case1
Label1.ForeColor=RGB(0,255,0)
Case2
Label1.ForeColor=RGB(255,255,0)
OptionBase1‘定义数组下标从1开始
Dimarr()‘定义动态数组arr
n=Val(InputBox("
请输入矩阵的行数"
))‘输入矩阵行数
m=Val(InputBox("
请输入矩阵的列数"
))‘输入矩阵列数
ReDimarr(n,m)‘重定义数组arr为n行m列的二维数组
‘下列程序段为数组输入数据
Forj=1Tom
arr(i,j)=Val(InputBox("
请输入矩阵第"
行第"
j&
列的数据"
))
‘下列程序段在数组中找出最大值及所在位置
row=1:
col=1
Ifarr(i,j)>
arr(row,col)Then
row=i:
col=j
‘下列程序段输出矩阵及最大值及所在位置
您输入的矩阵是:
PrintTab(8);
‘打印位置定位
Printarr(i,j);
Nexti
矩阵中最大值为:
arr(row,col);
其位置在第"
row&
行"
col&
列"
第6章
(2)编写窗体装载事件过程:
ForI=0To100
List1.AddItemi
(3)使用“添加过程”对话框创建出判断成绩等级的过程
PublicSubDengJi(aAsInteger)
SelectCasea
Case0To59
Label1.Caption="
不及格"
Case60To69
及格"
Case70To79
中等"
Case80To89
良好"
Case90To100
优秀"
EndSelect
4)编写列表框单击Click事件过程:
PrivateSubList1_Click()
DimnAsInteger
N=Val(List1.Text)
CallDengJi(n)'
调用判断成绩等级的过程
(5)编写命令按钮单击Click事件过程:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实例 源码