VB考试代码(含附加题)

1、Private Sub Comma nd1_Click()If text4 = "123456" ThenMsgBox "欢迎进入"ElseMsgBox "密码错误，重新输入"End IfEnd SubPrivate Sub Form_Load()Text1.Text = "2"Text2.Text =" 雷佳馨"Text3.Text = "2016/5/30"End SubPrivate Sub Command1_Click()Text1 ="我的第一个vb程序设

2、计，哈哈!Text1.Fo ntSize= 24Text1.Fo ntName ="宋体"End SubPrivate Sub Command2_Click()Timer1.E nabled = TrueEnd SubPrivate Sub Command3_Click()Timer1.E nabled= FalseEnd SubPrivate Sub Timer1_Timer()Textl.ForeColor = RGB(Rnd *255, Rnd *255, RndEnd SubPrivate Sub Command1_Click()Timer1.E nabled =

3、TrueEnd SubPrivate Sub Command2_Click()Timer1.E nabled = FalseEnd SubPrivate Sub Label1_Click()End SubPrivate Sub Timer1_Timer()If Label1.Width < Form1.Width The nLabel1.Fo ntSize = Label1.Fo ntSize+ 10ElseLabel1.Fo ntSize= 10End IfEnd Sub四、Private Sub Check1_Click()If Text1.Fo ntBold = False The

4、nText1.Fo ntBold = TrueElseText1.Fo ntBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Textl.Fo ntltalic = False The nTextl.F on tItalic = TrueElseText1.F on tItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Text1.F ontUn derl ine = False ThenText1.F ontUn derl ine = TrueElseText1.F ontU

5、n derl ine = FalseEnd IfEnd SubPrivate Sub Form_Load()Optio n1.Value = 1End SubPrivate Sub Optio n1_Click()Text1.Fo nt =" 宋体"End SubPrivate Sub Optio n2_Click()Text1.Fo nt =" 楷体"End SubEnd Sub五、Private Sub Command1_Click()Textl.Text =""Text2.Text =""End SubPri

6、vateSubComma nd2_Click()Select CaseVal(Text1.Text)来判断Case Is<60Text2.Text二:"不及格"Case 60To84Text2.Text二:"及格"Case 85To100Text2.Text二:"优秀"End SelectEnd Sub六、直接根据Text1中用户输入的值注意：1.计时器的 enabled 为 true 2.1 nterval 为 500 或者 1000Private Sub Form_Load()Label1.C apti on = Date

7、' 显示当前日期Label2.C apti on = Time ' 显示当前时间End SubPrivate Sub Timer1_Timer()Label1.C apti on = Date '显示当前日期Label2.C apti on = Time '显示当前时间End Sub七、lmage3.Picture = lmage2.Picture lmage2.Picture = Imagel.Picture Imagel.Picture = Image3.Picture End SubPrivate Sub Comma nd2_Click()Timerl.E

8、 nabled = TrueEnd SubPrivate Sub Timer1_Timer()Image3.Picture = Image2.PictureImage2.Picture = Image1.PictureImage1.Picture = Image3.PictureEnd Sub八、Private Sub Comma nd1_Click()i = Text1Select Case i Mod 2Case 1Text2 =" 奇数"Case 0Text2 ="偶数"End SelectEnd Sub九、a = Val(Text1)b = Va

9、l(Text2)Sum = 0For i = a To bSum = Sum + iNextText3 = SumEnd Sub十、Private Sub Command1_Click(lndex As Integer)Select Case IndexCase 0Label1.BackColor = Comma nd1(0).BackColorLabel1.C aptio n= Comma nd1(0).C apti onCase 1Label1.BackColor = Comma nd1(1).BackColorLabel1.C aptio n= Comma nd1(1).C apti o

10、nCase 2Label1.BackColor = Comma nd1(2) .BackColorLabel1.C apti on= Comma nd1(2).C apti onEnd SelectEnd Sub这是一个控件组，控件设置要复制粘贴。Private Sub Comma nd1_Click()If Text1 = "" The nText1 = "vb 期末测试"ElseTextl.Visible = Falselabell.Visible = Truelabell.Caption = "vb期末测试"End IfEnd

11、Sub十二、Private Sub Comma nd1_Click()Sum = oFor i = 200 To 900If i Mod 5 = 3 And i Mod 7 = 5 And i Mod 9 = 7 The nSum = Sum + iPrint iEnd IfNext iPrint SumEnd Sub十三、Private Sub Comma nd1_Click()For i = 100To 800Gw = i mod 10Sw = i10 mod 10Bw =i 100 mod 10If gw *sw*bw>gw+sw+bw the nC=c+iEnd ifNext i

12、Print cEnd Sub十四、Private Sub Comma nd1_Click()For i = 0 To 9For j = 0 To 9For k = 0 To 9For z = 0 To 9If i A 2 + j A 2 + k A 2 + z A 2 = 115 The n c = c + 1End IfNext zNext kNext jNext iPrint cEnd sub十五、Private Sub Comma nd1_Click()For i = 0 To 9For j = 0 To 9For k = 0 To 9For z = 0 To 9For s = 0 To

13、 9If i A 2 + j A 2 + k A 2 + z A 2 + s A 2 = 120 The nEnd IfNext sNext zNext kNext jNext iPrint (i * 10000 + j * 1000 + k * 100 + z * 10 + s); MaxEnd Sub十六、Private Sub Comma nd1_Click()For i = 4000 To 7000gw = i Mod 10sw = i 10 Mod 10bw = i 100 Mod 100qw = i 1000 Mod 1000If gw = qw And sw = bw The n

14、c = c + 1End IfNext iPrint cEnd Sub十七、Dim a(1 To 30)a(1) = 1a(2) = 1For i = 3 To 30a(i) = a(i - 1) + a(i - 2)Next iPrint a(30)End Sub十八、Private Sub Comma nd1_Click()For i = 5 To 11For j = 5 To 8For k = 5 To 7If 2 * i + 5 * j + 10 * k = 100 The nc = c + 1End IfNext kNext jNext iPrint cEnd Sub十九、Priva

15、te Sub Comma nd1_Click()For i = 1 To 9Forj = 0 To 9For k = 0 To 9If i * 100 + j * 10 + k + k * 100 + j * 10 + i = 1131 ThenPrint i * 100 + j * 10 + kEnd IfNext kNext jNext iEnd Sub二十、Private Sub Command1_Click()For i =1To 9For j = 0 To 9For k =0 To 9If i*100 + j *10 + k = i * i *+ j * j * j +k * k *

16、 k ThenPrinti *100 + j *10 + kEnd IfNext kNext jNext iPrivateEnd SubSub Command1_Click()Sum = 0For i =1 To 99Sum = Sqr(i) + SumNext iSum = Round(Sum, 2)Print SumEnd Sub附加题Dim x As Sin gle,y As Si ngleScale (-8,-8) - (8,8)Line (0,-7) - (0,7)Line (7,0) - (-7,0)For x = -6 to 6 Step 0.01y = 4 * Si n(x * 60 * 3.14159/180)pSet (x,y)Next xEnd SubPrivate Sub Comma nd2_Click()' 余弦Dim x As Sin gle,y As Si ngleScale (-8,-8) - (8,8)Line (0,-7) - (0,7)Line (7,0) - (-7,0)For x = -6 to 6 Step 0.01y