3
8 9 10
15
20 21 22
27
31 32 33 34
38
43 44 45
50
55 56 57
62
66 67 68 69
73
78 79 80
85
90 91 92
97
101 102 103 104
108
113 114 115
120
125 126 127
132
136 137 138 139
143
148 149 150
155
160 161 162
167
171 172 173 174
178
183 184 185
190
195 196 197
202
206 207 208 209
213
218 219 220
225
230 231 232
237
241 242 243 244
248
253 254 255
260
265 266 267
272
276 277 278 279
283
288 289 290
295
300 301 302
307
311 312 313 314
318
323 324 325
330
335 336 337
342
346 347 348 349
353
358 359 360
365
370 371 372
377
381 382 383 384
388
393 394 395
400
405 406 407
412
416 417 418 419
423
428 429 430
435
440 441 442
447
451 452 453 454
458
463 464 465
470
475 476 477
482
486 487 488 489
493
498 499 500
505
510 511 512
517
521 522 523 524
528
533 534 535
540
545 546 547
552
556 557 558 559
563
568 569 570
575
580 581 582
587
591 592 593 594
598
603 604 605
610
615 616 617
622
626 627 628 629
633
638 639 640
645
650 651 652
657
661 662 663 664
668
673 674 675
680
685 686 687
692
696 697 698 699
703
708 709 710
715
720 721 722
727
731 732 733 734
738
743 744 745
750
755 756 757
762
766 767 768 769
773
778 779 780
785
790 791 792
797
801 802 803 804
808
813 814 815
820
825 826 827
832
836 837 838 839
843
848 849 850
855
860 861 862
867
871 872 873 874
878
883 884 885
890
895 896 897
902
906 907 908 909
913
918 919 920
925
930 931 932
937
941 942 943 944
948
953 954 955
960
965 966 967
972
976 977 978 979
983
988 989 990
995
1000 1001 1002
1007
1011 1012 1013 1014
1018
1023 1024 1025
1030
1035 1036 1037
1042
1046 1047 1048 1049
1053
1058 1059 1060
1065
1070 1071 1072
1077
1081 1082 1083 1084
1088
1093 1094 1095
1100
1105 1106 1107
1112
1116 1117 1118 1119
1123
1128 1129 1130
1135
1140 1141 1142
1147
1151 1152 1153 1154
1158
1163 1164 1165
currval = -1
For num = 0# To 24000
x = num / 240
v = Int(x) + Int(2 * num / 240) + Int(5 * num / (240 * 3)) + Int(3 * num / 240) + Int(4 * num / 240)
If v > currval Then
ct = ct + 1
' Text1.Text = Text1.Text & currval & Str(x) & crlf
If v - currval > 1 Then
For i = currval + 1 To v - 1
Text1.Text = Text1.Text & Str(i)
Next
Text1.Text = Text1.Text & crlf
End If
currval = v
DoEvents
End If
Next
|
Posted by Charlie
on 2015-10-20 11:44:21 |