#include <stdio.h>
#define coverage 350
int main()
{
int sq;
int cans;
printf("请输入面积\n");
while(scanf("%d",&sq)==1)
{
cans=sq/coverage;
cans+=((sq%coverage==0)) ?0:1;
printf("you need %d %s of paint.\n",cans,cans==1 ?"can":"cans");
......................
阅读全部
|
wwj19991101
贴于 2022年7月14日 08:42
hide
bbsi
#include <stdio.h>
#define coverage 350
int main()
{
int sq;
int cans;
printf("请输入面积\n");
while(scanf("%d",&sq)==1)
{
cans=sq/coverage;
cans+=((sq%coverage==0)) ?0:1;
printf("you need %d %s of paint.\n",cans,cans==1 ?"can":"cans");
......................
阅读全部
|
wwj19991101
贴于 2022年7月14日 08:42
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",,j,result);
}
printf("\n");
......................
阅读全部
|
王宇577
贴于 2022年7月10日 03:30
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月9日 00:19
hide
bbsi
Option Explicit
Const C_WorkProgress = 4
Class UI_Class
Public Form, Tip, config, AppName, Starting, Angel
Private Menu, hMenu1(1), hMenu2(0), timing
Private Tooptip
Private DisablePowerSave
Private Sub Create()
Dim i, v, s, j, arr
Set Menu = Control.Menu()
Set Form = Api.NewForm()
Set Tooptip = Control.Tooptip()
......................
阅读全部
|
王宇577
贴于 2022年7月9日 00:15
hide
bbsi
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