- 博客(2)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 判断1~N内最大的素数
在做题时做到一个求1~2000内最大的素数的题目，答案是从1开始递增，一直往下找，直到再也找不到为止。有一天我闲着没事，在那想如果从2000开始，转而向下递减，执行起来就相当快了。源代码如下： Command1的事件Private Sub Command1_Click()For i = 2000 To 2 Step -1If Isprime(i) Then
2008-10-09 16:29:00
474
原创 悬挂式窗口
在vb中有好长的代码来实现，在.Net中只一句 [窗体].TopMost=True 就能搞定。但在vb6.0中还要用啊。以下是源代码。 模块部分通用声明Public Declare Function SetWindowPos Lib "user32" _( _ ByVal hwnd As Long, ByVal hWndInsertAfter
2008-10-09 11:02:00
458
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人