Option Explicit
Const C_GameWith = 1024
Const C_GameHeight = 768
Const C_GameSmallWith = 320
Const C_GameSmallHeight = 240
'黑带 16 20
Dim GamehWnd, dm, AppName, config, bgkms, KMData
config = ".\Angel.ini"
AppName = "Angel_BP"
Function CmpMutlColor(Args, Sleep)
Dim i
For i = 0 To UBound(Args)
......................
阅读全部
|
王宇577
贴于 2022年7月9日 00:11
hide
bbsi
Option Explicit
Dim JScript, CString, File, Control, System, NetWork '定义线程变量 '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
If Globals("App").PrevInstance Then
Dim ws, WMI, Process
Set ws = CreateObject("wscript.shell")
ws.SendKeys "{HOME}"
Set WMI = GetObject("WinMgmts:")
......................
阅读全部
|
王宇577
贴于 2022年7月8日 15:07
hide
bbsi
Option Explicit
Dim JScript, CString, File, Control, System, NetWork '定义线程级变量 '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
If Globals("App").PrevInstance Then
Dim ws, WMI, Process
Set ws = CreateObject("wscript.shell")
ws.SendKeys "{HOME}"
Set WMI = GetObject("WinMgmts:")
......................
阅读全部
|
王宇577
贴于 2022年7月8日 10:08
hide
bbsi
Option Explicit
Dim JScript, CString, File, Control, System, NetWork '定义线程级变量 '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
If Globals("App").PrevInstance Then
Dim ws, WMI, Process
Set ws = CreateObject("wscript.shell")
ws.SendKeys "{HOME}"
Set WMI = GetObject("WinMgmts:")
......................
阅读全部
|
王宇577
贴于 2022年7月8日 10:01
hide
bbsi
Option Explicit
Dim JScript, CString, File, Control, System, NetWork '定义线程级变量 '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
If Globals("App").PrevInstance Then
Dim ws, WMI, Process
Set ws = CreateObject("wscript.shell")
ws.SendKeys "{HOME}"
Set WMI = GetObject("WinMgmts:")
......................
阅读全部
|
王宇577
贴于 2022年7月8日 10:00
hide
bbsi
Option Explicit
Dim JScript, CString, File, Control, System, NetWork '定义线程级变量 '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
If Globals("App").PrevInstance Then
Dim ws, WMI, Process
Set ws = CreateObject("wscript.shell")
ws.SendKeys "{HOME}"
Set WMI = GetObject("WinMgmts:")
......................
阅读全部
|
王宇577
贴于 2022年7月8日 10:00
hide
bbsi
// #include<stdio.h>
// int main()
// {
// int i,j,result;
// for(i=1;i<10;i++)
// {
// for(j=1;j<10;j++)
// {
// result=i*j;
// printf("%d*%d=%-3d",i,j,result);
// }
// printf("\n");
......................
阅读全部
|
dzyyyy
贴于 2022年7月7日 10:01
hide
bbsi
#include<stdio.h>
int main()
{
int i,j,result;
for(i=1;i<10;i++)
{
for(j=1;j<10;j++)
{
result=i*j;
printf("%d*%d=%-3d",i,j,result);
}
printf("\n");
......................
阅读全部
|
dzyyyy
贴于 2022年7月7日 09:49
hide
bbsi
#include <stdio.h>
int main() {
printf("我在编程中国学C语言\n\n");
// 练习一下循环的使用
int i;
for (i=1; i<=20; i++) {
printf("我爱编程中国 %d 次\n", i);
}
printf("\n\n绘制一个心形图案：");
......................
阅读全部
|
dzyyyy
贴于 2022年7月7日 09:46
hide
bbsi
'''人教版五年级下册《数学》第67页的“你知道吗”就讲了古代的约分法，并附有
《九章算术》原文和意思。
--------------------------------------------------------------------------------
我国古代的数学著作《九章算术》就介绍了“约分术”：“可半者半之，不可半者，
副置分母、子之数，以少减多，更相减损，求其等也。以等数约之。”意思是说：如果
分子、分母全是偶数，就先除以２；否则以较大的数减去较小的数，把所得的差与上一步中
的减数比较，并再以大数减去小数，如此重复进行下去，当差与减数相等即出现“等数”
时，用这个等数约分。这种方法被后人称为“更相减损术”。
'''
def yf(fz,fm): #更相减损约分法
a=fz
b=fm
......................
阅读全部
|
chenyucheng
贴于 2022年7月6日 13:32
hide
bbsi