第4章_vb语句课件.pptVIP

Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Private Sub Command1_Click() Dim i As Integer If Text2.Text = 123456 And Text1.Text = npu Then Form3.Visible = True Form1.Visible = False Else: i = MsgBox(密码错！ + Chr(13) + Chr(10) + 是否重新输入？, vbOKOnly + vbCritical, 提示信息) Text2.Text = Form1.Visible = True End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Text1.Text = npu“ Text2.Text = “” Text2.PasswordChar = “* End Sub;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;.;If…Then…ElseIf 结构;If…Then…ElseIf 结构;Visual Basic 程序设计;3.1 选择结构－Select Case选择语句 ;Visual Basic 程序设计;[例] 学生成绩分等 Data = InputBox(请输入一个成绩, 成绩分等) Select Case Int(Data / 10) Case 10 MsgBox 满分, , 成绩分等 Case 9 MsgBox 优秀, , 成绩分等 Case 8 MsgBox 良好, , 成绩分等 Case 7 MsgBox 一般, , 成绩分等 Case 6 MsgBox 合格, , 成绩分等 Case Else MsgBox 不合格, , 成绩分等 End Select;补充例题：设计一个由计算机来当小学低年级学生算术老师的VB应用程序，要求给出一系列的两个1~10数的四则运算的算术题，学生输入该题的答案，计算机根据学生的答案判断正确与否，并给出成绩，单击结束命令按钮，退出应用程序。 分析:产生1～10操作数，可通过Int(10* Rnd + 1) 实现 85; ; ; ; ;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计; [例2] 求斐波那契级数的前20项 Private Sub Form_Click() Dim A, B, I, T As Integer A = 1 : B = 1 生成级数第一、二项 Print A; B; For I = 3 To 20 T = A + B 产生级数新的一项 A = B 让B成为下一组的A B = T 原来A+B的值成为下一组的B Print B; If I Mod 6 = 0 Then Print Next I End Sub;Visual Basic 程序???计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;Visual Basic 程序设计;[例题] 判断一个正整数是否为素数(质数) N = InputBox(请输入一个正整数, 验证素数) For I = 2 To N - 1 If N Mod I = 0 Then Exit For End If Next I If