vb语句ppt课件.ppt

VisualBasicVisualBasic程序设计VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计PrivateSubCommand1_Click()
DimiAsInteger
IfText2.Text="123456"AndText1.Text="npu"Then
Form3.Visible=True
Form1.Visible=False
Else:
i=MsgBox("密码错！"+Chr(13)+Chr(10)+"是否重新输入？",vbOKOnly+vbCritical,"提示信息")
Text2.Text=""
Form1.Visible=True
EndIf
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_Load()
Text1.Text="npu“
Text2.Text=“”
Text2.PasswordChar=“*"
EndSubVisualBasic程序设计VisualBasic程序设计VisualBasic程序设计.If…Then…ElseIf结构If…Then…ElseIf结构VisualBasic程序设计3.1选择结构－SelectCase选择语句VisualBasic程序设计[例]学生成绩分等
Data=InputBox("请输入一个成绩","成绩分等")
SelectCaseInt(Data/10)
Case10
MsgBox"满分",,"成绩分等"
Case9
MsgBox"优秀",,"成绩分等"
Case8
MsgBox"良好",,"成绩分等"
Case7
MsgBox"一般",,"成绩分等"
Case6
MsgBox"合格",,"成绩分等"
CaseElse
MsgBox"不合格",,"成绩分等"
EndSelect补充例题：设计一个由计算机来当小学低年级学生算术老师的VB应用程序，要求给出一系列的两个1~10数的四则运算的算术题，学生输入该题的答案，计算机根据学生的答案判断正确与否，并给出成绩，单击结束命令按钮，退出应用程序。
分析:产生1～10操作数，可通过Int(10*Rnd+1)实现85VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计[例2]求斐波那契级数的前20项
PrivateSubForm_Click()
DimA,B,I,TAsInteger
A=1:B=1'生成级数第一、二项
PrintA;B;
ForI=3To20
T=A+B'产生级数新的一项
A=B'让B成为下一组的A
B=T'原来A+B的值成为下一组的B
PrintB;
IfIMod6=0ThenPrint
NextI
EndSubVisualBasic程序设计VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计VisualBasic程序设计[例题]判断一个正整数是否为素数(质数)
N=InputBox("请输入一个正整数","验证素数")
ForI=2ToN-1
IfNModI=0Then
ExitFor
EndIf
NextI
IfI=NThen
MsgBoxN&"是素数",,"验证素数"
Else
MsgBoxN&"不是素数",,"验证素数"
EndIf循环语句的嵌套此课件下载可自行编辑修改，供参考！
感谢您的支持，我们努力做得更好！