VB程序代码文档格式.docx
《VB程序代码文档格式.docx》由会员分享，可在线阅读，更多相关《VB程序代码文档格式.docx（42页珍藏版）》请在冰豆网上搜索。
Text1.SelStart=0
Text1.SelLength=Len（Text1.Text）
PrivateSubText1_Change（）
Text2.Text=Text1.Text
Text3.Text=Text1.Text
2-10DimxAsSingle
x=x+5
Text1.FontSize=x
Ifx<
10Then
Text1.FontSize=5
ElseIfx>
=10Then
x=x-5
Text1.FontSize=x
EndIf
Text1.FontUnderline=True
PrivateSubCommand4_Click（）
Text1.FontStrikethru=True
PrivateSubCommand5_Click（）
Text1.FontBold=True
PrivateSubCommand6_Click（）
Text1.FontItalic=True
3-1代码如下
Constpi=3.14
DimrAsSingle,hAsSingle
r=Val（Text1.Text）
h=Val（Text2.Text）
Text3.Text=Val（pi*r^2）
Text4.Text=Val（2*pi*r*h）
Text5.Text=Val（pi*r^2*h）
3-2代码如下
randomize
Text1.Text=Int（100*Rnd+1）
Text2.Text=Int（100*Rnd+1）
Text3.Text=val（Text1.Text）+val（Text2.Text）
3-3PrivateSubForm_Load（）Label2.Caption=DatePart（"
yyyy"
Now）
Label4.Caption=DatePart（"
m"
Label6.Caption=DatePart（"
d"
Label9.Caption=Int（DatePart（"
w"
Now））-1
Label11.Caption=Time
PrivateSubForm_Load（）
Label2.Caption=Year（Now）
Label4.Caption=Month（Now）
Label6.Caption=Day（Now）
Label9.Caption=Weekday（Now）
Label11.Caption=Time
3-4代码如下
DimaAsString
DimbAsInteger
DimdAsString
a=UCase（Trim（Text1.Text））
d="
THEQUICKBROWNFOXJUMPSOVERALAZYDOG"
b=InStr（d,a）
Text2.Text=a&
"
firstoccursinposition"
&
b
P61OptionExplicit
DimaAsSingle,bAsSingle,cAsSingle
a=Val（Text1.Text）
b=Val（Text2.Text）
c=Val（Text3.Text）
Text4.Text=（a+b+c）/3
Text4.Text="
PrivateSubText1_gotfocus（）
PrivateSubText2_gotfocus（）
Text2.SelStart=0
Text2.SelLength=Len（Text2.Text）
PrivateSubText3_gotfocus（）
Text3.SelStart=0
Text3.SelLength=Len（Text3.Text）
PrivateSubText1_change（）
PrivateSubText2_change（）
PrivateSubText3_change（）
P63OptionExplicit
DimcharAsString*1
char=Text1.Text
Text2.Text=Text2.Text&
Space（5）&
char&
Str（Asc（char））&
vbCrLf
P64PrivateSubCommand1_Click（）
DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSingle
p=（a+b+c）/2
s=Sqr（p*（p-a）*（p-b）*（p-c））
Label2.Caption=Format（s,"
0.00"
）
Label2.Caption="
PrivateSubText2_Change（）
PrivateSubText3_Change（）
P65OptionExplicit
MsgBox"
吧vvghjjk"
踢死信息"
vbCrLf&
huanhangtisi"
,"
mmjk"
1,"
kll"
1+16,"
klh"
1+16+256,"
P68OptionExplicit
DimxAsInteger,yAsInteger,zAsInteger
PrivateSubForm_Activate（）
x=5:
y=8
Print"
ngfgh"
Printx+y
Printz=x+y‘关系表达式
2+4"
;
2+4‘表达式用分号作为分隔符时，则按紧凑格式输出数据
2-4"
2–4‘表达式用逗号作为分隔符时，则按分区格式显示数据项
2+4,没执行一次print方法时，自动换行，如要在同一行输出，则可以在末尾加分号或逗号
CurrentX=1000决定下一次打印的水平或垂直坐标
CurrentX=500
Print2-4
Print省略表达式，则输出一个空行或取消前面print的逗号或分号的作用
2+4,
Print
Form1.Show若在form-load事件中，必须首先使用show或把窗体对象.图片框的autoredraw属性设置为true，否则print不起作用
ghjgfg"
Print2+4
jggfhj"
P69PrivateSubForm_Activate（）
ghfdggf"
gffd"
Tab（10）;
fgd"
'
第二个输出项在10列输出
gfgdd"
Tab;
fghjk"
tab函数无参数，第二项在第二个打印去输出
ddffg"
Tab（4）;
fghh"
n小雨当前打印位置，第二项在下一行输出
PrintTab（-5）;
ghfl"
n小于1，在第一列输出
lkkj"
Spc（3）;
gfdds"
跳过3个空格
P70
DimhAsInteger,fAsInteger,xAsInteger,yAsInteger
h=Val（Text1.Text）
f=Val（Text2.Text）
x=（4*h-f）/2
y=（f-2*h）/2
Label3.Caption=Label3.Caption&
Str（x）&
只"
Label4.Caption=Label4.Caption&
Str（y）&
P71
DimAAsInteger,BAsInteger
Randomize
A=Val（Text1.Text）
B=Val（Text2.Text）
Label5.Caption=Str（Int（Rnd*（B-A+1）+A））'
产生[A，B]区间的随机整数
Label6.Caption=Str（Int（Rnd*（B-A+1）+A））
Label7.Caption=Str（Int（Rnd*（B-A+1）+A））
PrivateSubText1_GotFocus（）
Text1.SelStart=0'
在TEXT获得焦点时，选中其中的文本
PrivateSubText2_GotFocus（）
P72
DimMAsLong,TEMPAsString
Show
M=2^30
TEMP=Str（M）'
将M转换成字符串
Label1.Caption="
2^30"
Label3.Caption=Label3.Caption&
TEMP
CurrentX=2000'
定义窗体当前打印位置的X，Y坐标
CurrentY=2000
Print"
总共有"
Len（Trim（TEMP））;
位"
使用TRIM去除空格
DimPhoneNOAsString,nAsInteger
DimtmpAsString,numAsLong
PhoneNO=Trim（Text1.Text）
n=Len（PhoneNO）
tmp=Right（PhoneNO,7）
num=Val（tmp）+61000000
PhoneNO=Left（PhoneNO,n-7）+"
-"
+Trim（Str（num））
Text2.Text=PhoneNO
4-1
OptionExplicit
DimaAsSingle,bAsSingle
Text3.Text=a*b
PrivateSubCommand1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
KeyCode=13‘当焦点在该位置时,点ENTER相当于点击鼠标
PrivateSubCommand2_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
KeyCode=13
Text2.SelLength=Len（Text1.Text）
4-2
DimAAsSingle,BAsSingle,CAsSingle'
定义A.B.C变量
A=Val（T1.Text）'
给变量赋值
B=Val（T2.Text）
C=Val（T3.Text）
TRESULT.Text=A*B*（1-C）'
计算应付款
T3.SetFocus
TRESULT.Text="
清除应付款
T3.SetFocus'
将焦点定位在“折扣”一栏，选中“折扣”中的内容
T3.SelStart=0
T3.SelLength=Len（TRESULT.Text）
4-3DimAAsSingle,BAsSingle,CAsSingle
ConstPI=3.141'
定义变量
A=Val（Text1.Text）/180*PI
B=Abs（Sin（A））'
分别计算sin,cos
C=Abs（Cos（A））
Text2.Text=Text2.Text&
Format（A,"
0.000"
）&
Space（25）&
Format（B,"
Space（30）&
Format（C,"
vbCrLf'
每次计算结果赋在上次计算结果之后，显示于带垂直滚动条的文本框中，所有结果保留3位小数
Text1.SetFocus'
每次计算完，选中输入的文本，一边继续输入
Text1.SelStart=0
Text1.SelLength=Len（Text1.Text）
4-4
PrivateSubForm_Click（）
a=InputBox（"
请输入小时"
b=InputBox（"
请输入分"
c=InputBox（"
请输入秒"
Printa&
小时"
b&
分"
c&
秒="
a*3600+b*60+c&
秒"
4-6
DimaAsSingle,bAsSingle,cAsSingle,dAsSingle,eAsSingle,fAsSingle
d=Val（Text4.Text）
e=Val（Text5.Text）
f=Val（Text6.Text）
Label5.Caption="
X="
（c*e-b*f）/（a*e-b*d）
Label6.Caption="
Y="
（a*f-d*c）/（a*e-b*d）
KeyCode=13设置ENTER键
清除
Text5.Text="
Text6.Text="
Text1.SelStart=0‘获得焦点是,选中文本
PrivateSubText3_GotFocus（）
PrivateS
升级会员 