VB考试代码含附加题.docx
《VB考试代码含附加题.docx》由会员分享，可在线阅读，更多相关《VB考试代码含附加题.docx（10页珍藏版）》请在冰豆网上搜索。
VB考试代码含附加题
一、
PrivateSubCommand1_Click（）
Iftext4="123456"Then
MsgBox"欢迎进入"
Else
MsgBox"密码错误，重新输入"
EndIf
EndSub
PrivateSubForm_Load（）
Text1.Text="2"
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（）
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer（）
Text1.ForeColor = RGB（Rnd * 255, Rnd * 255, Rnd * 255）
End Sub
三、
Private Sub Command1_Click（）
Timer1.Enabled = True
End Sub
Private Sub Command2_Click（）
Timer1.Enabled = False
End Sub
Private Sub Label1_Click（）
End Sub
Private Sub Timer1_Timer（）
If Label1.Width < Form1.Width Then
Label1.FontSize = Label1.FontSize + 10
Else
Label1.FontSize = 10
End If
End Sub
四、
PrivateSubCheck1_Click（）
IfText1.FontBold=FalseThen
Text1.FontBold=True
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
十、
Private Sub Command1_Click（Index As Integer）
Select Case Index
Case 0
Label1.BackColor = Command1（0）.BackColor
Label1.Caption = Command1（0）.Caption
Case 1
Label1.BackColor = Command1
（1）.BackColor
Label1.Caption = Command1
（1）.Caption
Case 2
Label1.BackColor = Command1
（2）.BackColor
Label1.Caption = Command1
（2）.Caption
End Select
End Sub
这是一个控件组，控件设置要复制粘贴。
十一、
PrivateSubCommand1_Click（）
IfText1=""Then
Text1="vb期末测试"
Else
IfText1="vb期末测试"Then
Text1.Visible=False
label1.Visible=True
label1.Caption="vb期末测试"
EndIf
EndSub
十二、
PrivateSubCommand1_Click（）
Sum=o
Fori=200To900
IfiMod5=3AndiMod7=5AndiMod9=7Then
Sum=Sum+i
Printi
EndIf
Nexti
PrintSum
EndSub
十三、
PrivateSubCommand1_Click（）
Fori=100To800
Gw=imod10
Sw=i\10mod10
Bw=i\100mod10
Ifgw*sw*bw>gw+sw+bwthen
C=c+i
Endif
Nexti
Printc
EndSub
十四、
PrivateSubCommand1_Click（）
Fori=0To9
Forj=0To9
Fork=0To9
Forz=0To9
Ifi^2+j^2+k^2+z^2=115Then
c=c+1
EndIf
Nextz
Nextk
Nextj
Nexti
Printc
Endsub
十五、
PrivateSubCommand1_Click（）
Fori=0To9
Forj=0To9
Fork=0To9
Forz=0To9
Fors=0To9
Ifi^2+j^2+k^2+z^2+s^2=120Then
EndIf
Nexts
Nextz
Nextk
Nextj
Nexti
Print（i*10000+j*1000+k*100+z*10+s）;Max
EndSub
十六、
PrivateSubCommand1_Click（）
Fori=4000To7000
gw=iMod10
sw=i\10Mod10
bw=i\100Mod100
qw=i\1000Mod1000
Ifgw=qwAndsw=bwThen
c=c+1
EndIf
Nexti
Printc
EndSub
十七、
PrivateSubCommand1_Click（）
Dima（1To30）
a
（1）=1
a
（2）=1
Fori=3To30
a（i）=a（i-1）+a（i-2）
Nexti
Printa（30）
EndSub
十八、
PrivateSubCommand1_Click（）
Fori=5To11
Forj=5To8
Fork=5To7
If2*i+5*j+10*k=100Then
c=c+1
EndIf
Nextk
Nextj
Nexti
Printc
EndSub
十九、
PrivateSubCommand1_Click（）
Fori=1To9
Forj=0To9
Fork=0To9
Ifi*100+j*10+k+k*100+j*10+i=1131Then
Printi*100+j*10+k
EndIf
Nextk
Nextj
Nexti
EndSub
二十、
Private Sub Command1_Click（）
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
If i * 100 + j * 10 + k = i * i * i + j * j * j + k * k * k Then
Print i * 100 + j * 10 + k
End If
Next k
Next j
Next i
End Sub
二十一、
Private Sub Command1_Click（）
Sum = 0
For i = 1 To 99
Sum = Sqr（i） + Sum
Next i
Sum = Round（Sum, 2）
Print Sum
End Sub
附加题
PrivateSubCommand1_Click（）'正弦
DimxAsSingle,yAsSingle
Scale（-8,-8）-（8,8）
Line（0,-7）-（0,7）
Line（7,0）-（-7,0）
Forx=-6to6Step0.01
y=4*Sin（x*60*3.14159/180）
pSet（x,y）
Nextx
EndSub
PrivateSubCommand2_Click（）'余弦
DimxAsSingle,yAsSingle
Scale（-8,-8）-（8,8）
Line（0,-7）-（0,7）
Line（7,0）-（-7,0）
Forx=-6to6Step0.01
y=4*Cos（x*60*3.14159/180）
pSet（x,y）
Nextx
EndSub
PrivateSubCommand3_Click（）'正切
DimxAsSingle,yAsSingle
Scale（-8,-8）-（8,8）
Line（0,-7）-（0,7）
Line（7,0）-（-7,0）
Forx=-6to6Step0.01
y=4*Tan（x*60*3.14159/180）
pSet（x,y）
Nextx
EndSub
升级会员 