Search - Form1 - CodeBus

Search - Form1 - List

[Static control] 123 DL : 0: Private Sub Form_Click() Dim x, y, n As Integer For x = 3 To 100 For y = 2 To x - 1 If x Mod y = 0 Then Exit For ElseIf y = x - 1 Then If n Mod 10 = 0 Then Print Form1.Print x " " n = n + 1 End If Next y Next x End Sub -Private Sub Form_Click() Dim x, y, n As Integer For x = 3 To 100 For y = 2 To x- 1 If x Mod y = 0 Then Exit For ElseIf y = x- 1 Then If n Mod 10 = 0 Then Print Form1.Print x " " n = n+ 1 End If Next y Next x End Sub
Date : 2025-12-21 Size : 6.59mb User : 匿名
[Static control] Form1 DL : 0: 这是一个测量程序，用于仪器测量，还可以为学生学习提供帮助-this programme is a measurement programme used in intrument which can be developed for students
Date : 2025-12-21 Size : 7kb User : sunjie