VB考试代码(含附加题).docxVIP

VB考试代码(含附加题)

一、

PrivateSubCommand1_Click()

Iftext4=123456Then

MsgBox欢迎进入

Else

MsgBox密码错误，重新输入

EndIf

EndSub

PrivateSubForm_Load()

Text1.Text=201541916105

Text2.Text=雷佳馨

Text3.Text=2016/5/30

EndSub

二、

Private?Sub?Command1_Click()

Text1?=?我的第一个vb程序设计，哈哈！

Text1.FontSize?=?24

Text1.FontName?=?宋体

End?Sub

Private?Sub?Command2_Click()

Timer1.Enabled?=?True

EndSub

Private?Sub?Command3_Click()

Else

Text1.FontBold=False

EndIf

EndSub

PrivateSubCheck2_Click()

IfText1.FontItalic=FalseThen

Text1.FontItalic=True

Else

Text1.FontItalic=False

EndIf

EndSub

PrivateSubCheck3_Click()

IfText1.FontUnderline=FalseThen

Text1.FontUnderline=True

Else

Text1.FontUnderline=False

EndIf

EndSub

PrivateSubForm_Load()

Option1.Value=1

EndSub

PrivateSubOption1_Click()

Text1.Font=宋体

EndSub

PrivateSubOption2_Click()

Text1.Font=楷体

EndSub

PrivateSubOption3_Click()

Text1.Font=黑体

EndSub

五、

Private?Sub?Command1_Click()

Text1.Text?=?

Text2.Text?=?

End?Sub

Private?Sub?Command2_Click()

Select?Case?Val(Text1.Text)?????直接根据Text1中用户输入的值来判断

Case?Is??60

Text2.Text?=?不及格

Case?60?To?84

Text2.Text?=?及格

Case?85?To?100

Text2.Text?=?优秀

End?Select

End?Sub

六、

注意：1.计时器的enabled为true2.Interval为500或者1000

PrivateSubForm_Load()

Label1.Caption=Date显示当前日期

Label2.Caption=Time显示当前时间

EndSub

PrivateSubTimer1_Timer()

Label1.Caption=Date显示当前日期

Label2.Caption=Time显示当前时间

EndSub

七、

PrivateSubCommand1_Click()

Image3.Picture=Image2.Picture

Image2.Picture=Image1.Picture

Image1.Picture=Image3.Picture

EndSub

PrivateSubCommand2_Click()

Timer1.Enabled=True

EndSub

PrivateSubTimer1_Timer()

Image3.Picture=Image2.Picture

Image2.Picture=Image1.Picture

Image1.Picture=Image3.Picture

EndSub

八、

PrivateSubCommand1_Click()

i=Text1

SelectCaseiMod2

Case1

Text2=奇数

Case0

Text2=偶数

EndSelect

EndSub

九、

PrivateSubCommand1_Click()

a=Val(Text1)

b=Val(Text2)

Sum=0

Fori=aTob

Sum=Sum+i

Next

Text3=Sum

EndSub

十、

Priv