咱也出道射虎题 - 辕门射虎 - 轩辕春秋文化论坛 20周年


	司徒苍月 (kagami☆sama)


	越国公荆南节度使枢密直学士 ★

组别	节度使
级别	大将军
好贴	7
功绩	2823
帖子	28883
编号	52341
注册	2005-11-2
来自	创界山
家族	司徒实业

发表于 2015-5-25 14:34 资料主页个人空间短消息看全部作者

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Dim beginnum As Integer
Dim endnum As Integer
Dim i As Integer
Dim meat As Integer
beginnum = 100
endnum = 100
meat = 0
i = 0
Dim cus As String
cus = "天数" + Space(5) + "剩余肉量供几只老鼠吃" + Space(5) + "剩余老鼠"
While endnum > 0
i = i + 1
If meat < endnum Then
      meat = meat + 100
      endnum = endnum - 1
End If
meat = meat - endnum
cus = cus + Chr(13) + Chr(10) + CStr(i) + Space(5) + CStr(meat) + Space(15) + CStr(endnum)
Wend
If Len(Dir(App.Path + "\temp.txt")) > 0 Then
Kill App.Path + "\temp.txt"
End If
Open App.Path + "\temp.txt" For Output As #1
Print #1, cus
Close #1
ShellExecute hWnd, "open", App.Path + "\temp.txt", 0, 0, 1

End Sub

天数    剩余肉量供几只老鼠吃    剩余老鼠
1    1             99
2    3             98
3    6             97
4    10             96
5    15             95
6    21             94
7    28             93
8    36             92
9    45             91
10    55             90
11    66             89
12    78             88
13    91             87
14    4             87
15    18             86
16    33             85
17    49             84
18    66             83
19    84             82
20    2             82
21    21             81
22    41             80
23    62             79
24    84             78
25    6             78
26    29             77
27    53             76
28    78             75
29    3             75
30    29             74
31    56             73
32    84             72
33    12             72
34    41             71
35    71             70
36    1             70
37    32             69
38    64             68
39    97             67
40    30             67
41    64             66
42    99             65
43    34             65
44    70             64
45    6             64
46    43             63
47    81             62
48    19             62
49    58             61
50    98             60
51    38             60
52    79             59
53    20             59
54    62             58
55    4             58
56    47             57
57    91             56
58    35             56
59    80             55
60    25             55
61    71             54
62    17             54
63    64             53
64    11             53
65    59             52
66    7             52
67    56             51
68    5             51
69    55             50
70    5             50
71    56             49
72    7             49
73    59             48
74    11             48
75    64             47
76    17             47
77    71             46
78    25             46
79    80             45
80    35             45
81    91             44
82    47             44
83    3             44
84    60             43
85    17             43
86    75             42
87    33             42
88    92             41
89    51             41
90    10             41
91    70             40
92    30             40
93    91             39
94    52             39
95    13             39
96    75             38
97    37             38
98    100             37
99    63             37
100    26             37
101    90             36
102    54             36
103    18             36
104    83             35
105    48             35
106    13             35
107    79             34
108    45             34
109    11             34
110    78             33
111    45             33
112    12             33
113    80             32
114    48             32
115    16             32
116    85             31
117    54             31
118    23             31
119    93             30
120    63             30
121    33             30
122    3             30
123    74             29
124    45             29
125    16             29
126    88             28
127    60             28
128    32             28
129    4             28
130    77             27
131    50             27
132    23             27
133    97             26
134    71             26
135    45             26
136    19             26
137    94             25
138    69             25
139    44             25
140    19             25
141    95             24
142    71             24
143    47             24
144    23             24
145    100             23
146    77             23
147    54             23
148    31             23
149    8             23
150    86             22
151    64             22
152    42             22
153    20             22
154    99             21
155    78             21
156    57             21
157    36             21
158    15             21
159    95             20
160    75             20
161    55             20
162    35             20
163    15             20
164    96             19
165    77             19
166    58             19
167    39             19
168    20             19
169    1             19
170    83             18
171    65             18
172    47             18
173    29             18
174    11             18
175    94             17
176    77             17
177    60             17
178    43             17
179    26             17
180    9             17
181    93             16
182    77             16
183    61             16
184    45             16
185    29             16
186    13             16
187    98             15
188    83             15
189    68             15
190    53             15
191    38             15
192    23             15
193    8             15
194    94             14
195    80             14
196    66             14
197    52             14
198    38             14
199    24             14
200    10             14
201    97             13
202    84             13
203    71             13
204    58             13
205    45             13
206    32             13
207    19             13
208    6             13
209    94             12
210    82             12
211    70             12
212    58             12
213    46             12
214    34             12
215    22             12
216    10             12
217    99             11
218    88             11
219    77             11
220    66             11
221    55             11
222    44             11
223    33             11
224    22             11
225    11             11
226    0             11
227    90             10
228    80             10
229    70             10
230    60             10
231    50             10
232    40             10
233    30             10
234    20             10
235    10             10
236    0             10
237    91             9
238    82             9
239    73             9
240    64             9
241    55             9
242    46             9
243    37             9
244    28             9
245    19             9
246    10             9
247    1             9
248    93             8
249    85             8
250    77             8
251    69             8
252    61             8
253    53             8
254    45             8
255    37             8
256    29             8
257    21             8
258    13             8
259    5             8
260    98             7
261    91             7
262    84             7
263    77             7
264    70             7
265    63             7
266    56             7
267    49             7
268    42             7
269    35             7
270    28             7
271    21             7
272    14             7
273    7             7
274    0             7
275    94             6
276    88             6
277    82             6
278    76             6
279    70             6
280    64             6
281    58             6
282    52             6
283    46             6
284    40             6
285    34             6
286    28             6
287    22             6
288    16             6
289    10             6
290    4             6
291    99             5
292    94             5
293    89             5
294    84             5
295    79             5
296    74             5
297    69             5
298    64             5
299    59             5
300    54             5
301    49             5
302    44             5
303    39             5
304    34             5
305    29             5
306    24             5
307    19             5
308    14             5
309    9             5
310    4             5
311    100             4
312    96             4
313    92             4
314    88             4
315    84             4
316    80             4
317    76             4
318    72             4
319    68             4
320    64             4
321    60             4
322    56             4
323    52             4
324    48             4
325    44             4
326    40             4
327    36             4
328    32             4
329    28             4
330    24             4
331    20             4
332    16             4
333    12             4
334    8             4
335    4             4
336    0             4
337    97             3
338    94             3
339    91             3
340    88             3
341    85             3
342    82             3
343    79             3
344    76             3
345    73             3
346    70             3
347    67             3
348    64             3
349    61             3
350    58             3
351    55             3
352    52             3
353    49             3
354    46             3
355    43             3
356    40             3
357    37             3
358    34             3
359    31             3
360    28             3
361    25             3
362    22             3
363    19             3
364    16             3
365    13             3
366    10             3
367    7             3
368    4             3
369    1             3
370    99             2
371    97             2
372    95             2
373    93             2
374    91             2
375    89             2
376    87             2
377    85             2
378    83             2
379    81             2
380    79             2
381    77             2
382    75             2
383    73             2
384    71             2
385    69             2
386    67             2
387    65             2
388    63             2
389    61             2
390    59             2
391    57             2
392    55             2
393    53             2
394    51             2
395    49             2
396    47             2
397    45             2
398    43             2
399    41             2
400    39             2
401    37             2
402    35             2
403    33             2
404    31             2
405    29             2
406    27             2
407    25             2
408    23             2
409    21             2
410    19             2
411    17             2
412    15             2
413    13             2
414    11             2
415    9             2
416    7             2
417    5             2
418    3             2
419    1             2
420    100             1
421    99             1
422    98             1
423    97             1
424    96             1
425    95             1
426    94             1
427    93             1
428    92             1
429    91             1
430    90             1
431    89             1
432    88             1
433    87             1
434    86             1
435    85             1
436    84             1
437    83             1
438    82             1
439    81             1
440    80             1
441    79             1
442    78             1
443    77             1
444    76             1
445    75             1
446    74             1
447    73             1
448    72             1
449    71             1
450    70             1
451    69             1
452    68             1
453    67             1
454    66             1
455    65             1
456    64             1
457    63             1
458    62             1
459    61             1
460    60             1
461    59             1
462    58             1
463    57             1
464    56             1
465    55             1
466    54             1
467    53             1
468    52             1
469    51             1
470    50             1
471    49             1
472    48             1
473    47             1
474    46             1
475    45             1
476    44             1
477    43             1
478    42             1
479    41             1
480    40             1
481    39             1
482    38             1
483    37             1
484    36             1
485    35             1
486    34             1
487    33             1
488    32             1
489    31             1
490    30             1
491    29             1
492    28             1
493    27             1
494    26             1
495    25             1
496    24             1
497    23             1
498    22             1
499    21             1
500    20             1
501    19             1
502    18             1
503    17             1
504    16             1
505    15             1
506    14             1
507    13             1
508    12             1
509    11             1
510    10             1
511    9             1
512    8             1
513    7             1
514    6             1
515    5             1
516    4             1
517    3             1
518    2             1
519    1             1
520    0             1
521    100             0

[color=Silver][[i] 本帖最后由司徒苍月于 2015-5-25 14:36 编辑 [/i]][/color]

[广告] 真诚支持说岳，携手共创辉煌