上一条下一条 实验39

 

Private Sub Command2_Click()

If Adodc1.Recordset.BOF Then

Adodc1.Recordset.MoveFirst

Else

Adodc1.Recordset.MovePrevious

End If

End Sub

 Private Sub Command3_Click()

If Adodc1.Recordset.EOF Then

Adodc1.Recordset.MoveLast

Else

Adodc1.Recordset.MoveNext

End If

End Sub

 

 

q使用格式函数给输出变量赋值

x = Format(Round(Cos(Val(Text1.Text)), 4), "0.##########")

 

q打印反向的平行四边形

n Picture1.CurrentX = 0

n    Picture1.CurrentY = 0

n     For i = 0 To 5

n        Picture1.Print Tab(30 - i);

n        For j = 1 To 6

n            Picture1.Print "*";

n        Next j

n        Print

n    Next i