Vb课件项目三Visual Basic基本程序控制结构.ppt

If TxtPas.Text = 987654 Then MsgBox 输入正确 Else n = MsgBox(密码错误, 5 + vbExclamation, 重新输入密码) If n 4 Then End Else TxtPas.Text = TxtPas.SetFocus End If End If 上机练习 0＜x≤1 1＜x≤2 2＜x≤3 Private Sub Command1_Click() s=0 For i=3 To 99 Step 2 For j=2 To Sqr(i) If i mod j =0 Then Exit For Next j If jSqr(i) Then s=s+i End If Next i Text1.Text=CStr(s) End Sub Public Sub calculate() Dim char As String Dim i As Integer, j As Integer form1.Print form1.Print Tab(33); 九九乘法表 form1.Print Tab(31); **********