CodeBus
www.codebus.net
Search
Sign in
Sign up
Hot Search :
Source
embeded
web
remote control
p2p
game
More...
Location :
Home
Search - Form1
Main Category
SourceCode
Documents
Books
WEB Code
Develop Tools
Other resource
Sub Category
Button control
ComboBox
EditBox
TreeView
Static control
PropertySheet
RichEdit
ListView/ListBox
Menu control
ToolBar
StatusBar
Dialog_Window
Other
Tab Control
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
CodeBus
is one of the largest source code repositories on the Internet!
Contact us :
1999-2046
CodeBus
All Rights Reserved.