Vb代码Word格式文档下载.docx
- 文档编号:22499918
- 上传时间:2023-02-04
- 格式:DOCX
- 页数:35
- 大小:361.35KB
Vb代码Word格式文档下载.docx
《Vb代码Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《Vb代码Word格式文档下载.docx(35页珍藏版)》请在冰豆网上搜索。
,MsgBoxStyle.OKOnly,"
错误"
)
EndSub
EndClass
年龄判断1
DimkeyAgeAsString=39
SelectCaseVal(txtAge.Text)
Case6To9
年龄在到岁之间的小朋友"
Case11,21,31
年龄是11、12、13岁"
Case16To28
IfVal(txtAge.Text)=18ThenExitSelect
正值青春年华的年纪"
CasekeyAge
要特别小心的年纪"
CaseIs>
=70,Is<
6
老年人和小小孩"
Case29To33,41To44,55,58
有机会飞黄腾达的年龄"
CaseElse
其它不错的年纪"
EndSelect
单选、复选控件
PrivateSubRadioButton1_CheckedChanged(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesRadioButton1.CheckedChanged
DimsAsString
If(RadioButton1.Checked)Then
s=RadioButton1.Text+vbCrLf
s=RadioButton2.Text+vbCrLf
IfCheckBox1.CheckedThen
s=s+CheckBox1.Text+vbCrLf
IfCheckBox2.CheckedThen
s=s+CheckBox2.Text+vbCrLf
IfCheckBox3.CheckedThen
s=s+CheckBox3.Text+vbCrLf
TextBox1.Text=s
EndSub
颜色大小
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
IfRadioButton1.CheckedThen
TextBox1.ForeColor=Color.Red
ElseIfRadioButton2.CheckedThen
TextBox1.ForeColor=Color.Green
TextBox1.ForeColor=Color.Blue
IfRadioButton4.CheckedThen
TextBox1.Font=NewFont(TextBox1.Font.Name,16,TextBox1.Font.Style)
TextBox1.Font=NewFont(TextBox1.Font.Name,24,TextBox1.Font.Style)
计时器
Dimt#
t=TextBox1.Text
Timer1.Enabled=True
PrivateSubTimer1_Tick1(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesTimer1.Tick
Dimm,sAsInteger
t=t-1
m=Int(t/60)
s=tMod60
TextBox2.Text=m&
"
分"
&
s&
秒"
If(t=0)Then
Timer1.Enabled=False
时间到!
蝴蝶飞
PrivateSubTimer1_Tick(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesTimer1.Tick
StaticPickBmpAsInteger'
定义图像交替控制指针
IfPickBmp=0Then
PictureBox1.Image=PictureBox2.Image'
显示图像
PickBmp=1
PictureBox1.Image=PictureBox3.Image'
PickBmp=0
PictureBox1.Left=PictureBox1.Left+5
PictureBox1.Top=PictureBox1.Top-5
IfPictureBox1.Top<
0OrPictureBox1.Left>
Me.WidthThen
PictureBox1.Left=0
PictureBox1.Top=120
红绿灯
Statici%
i=iMod3
Ifi=0Then
Timer1.Interval=TextBox1.Text*1000
PictureBox4.Image=PictureBox1.Image
Label4.Text="
红灯时间,请停车!
ElseIfi=1Then
Timer1.Interval=TextBox2.Text*1000
PictureBox4.Image=PictureBox2.Image
黄灯时间,注意信号灯切换!
Timer1.Interval=TextBox3.Text*1000
PictureBox4.Image=PictureBox3.Image
绿灯时间,可以安全通行!
i+=1
计算贷款
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimaAsInteger,bAsInteger
a=Val(TextBox1.Text)
IfCheckBox1.Checked=TrueThen
IfRadioButton4.Checked=TrueAndRadioButton1.Checked=TrueThen
b=a*10000*(1+0.05*0.95)/(10*12)
TextBox2.Text=Format(b,"
#.##"
ElseIfRadioButton4.Checked=TrueAndRadioButton2.Checked=TrueThen
b=a*10000*(1+0.08*0.95)/(20*12)
ElseIfRadioButton4.Checked=TrueAndRadioButton3.Checked=TrueThen
b=a*10000*(1+0.1*0.95)/(30*12)
ElseIfRadioButton5.Checked=TrueAndRadioButton1.Checked=TrueThen
b=a*10000*(1+0.05*0.95*0.9)/(10*12)
ElseIfRadioButton5.Checked=TrueAndRadioButton2.Checked=TrueThen
b=a*10000*(1+0.08*0.95*0.9)/(20*12)
ElseIfRadioButton5.Checked=TrueAndRadioButton3.Checked=TrueThen
b=a*10000*(1+0.1*0.95*0.9)/(30*12)
b=a*10000*(1+0.05)/(10*12)
b=a*10000*(1+0.08)/(20*12)
b=a*10000*(1+0.1)/(30*12)
b=a*10000*(1+0.05*0.9)/(10*12)
b=a*10000*(1+0.08*0.9)/(20*12)
b=a*10000*(1+0.1*0.9)/(30*12)
Select语句
计算题
PublicClassForm1
InheritsSystem.Windows.Forms.Form
DimstrExpAsString'
存放产生的题目
DimresultAsSingle'
存放计算机计算结果
DimNok,NerrorAsInteger'
存放对、错题数
'
通过产生随机数生成题目
--------------------------------------------------------------------------------------------
PrivateSubForm1_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.Load
DimNum1%,Num2%,NOp%,Op$
Randomize()
Num1=Int(10*Rnd()+1)
Num2=Int(10*Rnd()+1)
NOp=Int(4*Rnd()+1)
SelectCaseNOp
Case1
Op="
+"
:
result=Num1+Num2
Case2
-"
result=Num1-Num2
Case3
×
result=Num1*Num2
Case4
÷
result=Num1/Num2
strExp=Num1&
Op&
Num2&
="
Label1.Text=strExp
PrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.Click
IfVal(TextBox1.Text)=resultThen
TextBox2.Text&
=strExp&
TextBox1.Text&
Space(3)&
√"
vbCrLf
Nok+=1
Nerror+=1
'
Form1_Load(Me,e)'
产生下一道题目
TextBox1.Text="
PrivateSubButton2_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton2.Click
Label1.Text="
="
----------------------"
一共计算"
(Nok+Nerror)&
道题"
得分:
CInt(Nok/(Nok+Nerror)*100)&
PrivateSubTextBox2_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox2.TextChanged
循环结构
For语句
1+2+3…+100
Dimi%,sum%
sum=0
Fori=1To100
sum=sum+i
Next
Label1.Text=sum
递推斐波纳契
【例】有一数列,前两项是1、1,第三项是前二项之和,以后每一项都是前二项之和。
即为:
1、1、2、3、5、8、13、21…。
输出前30项
递推:
(1)初始值:
F1=1、F2=1
(2)递推关系:
Fn=Fn-1+Fn-2(n>
2)
F1和F2始终作为前两个数,F3作为新产生的数,利用循环不断用新值代替旧值。
DimF1AsLong,F2AsLong,F3AsLong
DimiAsInteger
F1=1:
F2=1
Label1.Text=Space(8)&
F1&
Space(8)&
F2
Fori=3To30
F3=F1+F2
Label1.Text&
=Space(10-Len(Str(F3)))&
F3
IfiMod4=0ThenLabel1.Text&
=vbCrLf'
每行显示4个数
F1=F2'
用新值代替旧值
F2=F3
最大最小值
Dimmax%,min%,x%,i%,sum%
x=Int(Rnd()*101+100)
Label1.Text=x
max=x:
min=x:
sum=0
Fori=1To9
sum=sum+x
=Space
(2)&
x
Ifx>
maxThenmax=x
Ifx<
minThenmin=x
Nexti
=vbCrLf
=vbCrLf&
最大值="
max
最小值="
min
平均值="
sum/10
九九乘法表
DimseAsString,i,jAsInteger
Label1.Text=Space(30)&
九九乘法表"
=Space(30)&
------------"
Forj=1To9
se=i&
j&
i*j
=se&
Space(8-Len(se))
Nextj
换行
Priva
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Vb 代码