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

《VB考试代码(含附加题).docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一、PrivateSubCommand1_Click()Iftext4=""ThenMsgBox"欢迎进入"ElseMsgBox"密码错误，重新输入"EndIfEndSubPrivateSubForm_Load()Text1.Text="5"Text2.Text="雷佳馨"Text3.Text="2016/5/30"EndSub二、Private Sub Command1_Click()Text1 = "我的第一个vb程序设计，哈哈！"Text1.FontSize = 24Text1.FontName = "宋体"End SubPrivate Sub Command2_Click(

2、)Timer1.Enabled = TrueEndSubPrivate Sub Command3_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Text1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)End Sub三、Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate

3、 Sub Label1_Click()End SubPrivate Sub Timer1_Timer()If Label1.Width < Form1.Width ThenLabel1.FontSize = Label1.FontSize + 10Else Label1.FontSize = 10 End IfEnd Sub四、PrivateSubCheck1_Click()IfText1.FontBold=FalseThenText1.FontBold=TrueElseText1.FontBold=FalseEndIfEndSubPrivateSubCheck2_Click()I

4、fText1.FontItalic=FalseThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSubPrivateSubCheck3_Click()IfText1.FontUnderline=FalseThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSubPrivateSubForm_Load()Option1.Value=1EndSubPrivateSubOption1_Click()Text1.Font="宋体"EndSubPr

5、ivateSubOption2_Click()Text1.Font="楷体"EndSubPrivateSubOption3_Click()Text1.Font="黑体"EndSub五、Private Sub Command1_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command2_Click()Select Case Val(Text1.Text)     '直接根据Text1中用户输入的值来判断Case Is < 60Text2.Text = "不及格"Case 60 To 84Text2.Text = "

6、及格"Case 85 To 100Text2.Text = "优秀"End SelectEnd Sub六、注意：1.计时器的enabled为true2.Interval为500或者1000PrivateSubForm_Load()Label1.Caption=Date'显示当前日期Label2.Caption=Time'显示当前时间EndSubPrivateSubTimer1_Timer()Label1.Caption=Date'显示当前日期Label2.Caption=Time'显示当前时间EndSub七、PrivateSubCommand1_Click()Image3.Pict

7、ure=Image2.PictureImage2.Picture=Image1.PictureImage1.Picture=Image3.PictureEndSubPrivateSubCommand2_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()Image3.Picture=Image2.PictureImage2.Picture=Image1.PictureImage1.Picture=Image3