vb做24點(diǎn)（4個(gè)數(shù)算成24）。求個(gè)VB程序。

c語(yǔ)言 Dev-c編的

10年積累的成都網(wǎng)站建設(shè)、成都做網(wǎng)站經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問(wèn)題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程，更有章貢免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

#includestdio.h

#includestdlib.h

#includealgorithm

using namespace std;

double maths(double a,double b,int i)

{

if(i==0)

return(a+b);

else if(i==1)

return(a-b);

else if(i==2)

return(a*b);

else

return(b == 0.0? 0.0: a/b);

}

int prin(int i)

{

if(i==0)printf(" + ");

else if(i==1)printf(" - ");

else if(i==2)printf(" x ");

else if(i==3)printf(" ÷ ");

}

int main()

{

int g,i,j,q;

char t;

double a,b,c,d;

double X[4];

double N[4];

printf("24點(diǎn)是把4個(gè)小于13的正整數(shù)通過(guò)加減乘除運(yùn)算，使最后的計(jì)算結(jié)果是24的一個(gè)數(shù)學(xué)游戲。可以考驗(yàn)人的智力和數(shù)學(xué)敏感性。\n\nInput Four Number Within 1-13, Then Press Enter：\n");

begin:g=0;

scanf("%lf%lf%lf%lf",N[0],N[1],N[2],N[3]);

for(i=0;i4;i++)

{

if(N[i]1||N[i]13)

{

printf(" Wrong Input !\n");

goto end;

}

}

sort(N,N+4);

for(i=0;i4;i++)

{

X[i]=N[i];

}

do

{

for(i=0;i4;i++)

{

for(j=0;j4;j++)

{

for(q=0;q4;q++)

{

a=maths(N[0],N[1],i);

b=maths(N[2],N[3],j);

c=maths(a,b,q);

if(c==24.0a0.0b0.0)

{

g=1;

goto answer1;

}

}

}

}

}while(next_permutation(N,N+4));

for(i=0;i4;i++)

{

N[i]=X[i];

}

if(g==0)

{

do

{

for(i=0;i4;i++)

{

for(j=0;j4;j++)

{

for(q=0;q4;q++)

{

a=maths(N[0],N[1],i);

b=maths(a,N[2],j);

c=maths(b,N[3],q);

if(c==24.0a0.0b0.0)

{

g=2;

goto answer2;

}

}

}

}

}while(next_permutation(N,N+4));

}

if(g==0)

{

for(i=0;i4;i++)

{

N[i]=X[i];

}

do

{

for(i=0;i4;i++)

{

for(j=0;j4;j++)

{

for(q=0;q4;q++)

{

a=maths(N[0],N[1],i);

b=maths(N[2],a,j);

c=maths(b,N[3],q);

if(c==24.0a0.0b0.0)

{

g=3;

goto answer3;

}

}

}

}

}while(next_permutation(N,N+4));

}

if(g==0)

{printf("\n No Answer !\n");

goto end;}

answer1:

{ printf("\n Answer: ( %.0lf",N[0]);

prin(i);

printf("%.0lf )",N[1]);

prin(q);

printf("( %.0lf",N[2]);

prin(j);

printf("%.0lf )=24\n",N[3]);

goto end;

}

answer2:

{

printf("\n Answer: (( %.0lf",N[0]);

prin(i);

printf("%.0lf )",N[1]);

prin(j);

printf("%.0lf )",N[2]);

prin(q);

printf("%.0lf=24\n",N[3]);

goto end;

}

answer3:

{

printf("\n Answer: ( %.0lf",N[2]);

prin(j);

printf("( %.0lf",N[0]);

prin(i);

printf("%.0lf ))",N[1]);

prin(q);

printf("%.0lf=24\n",N[3]);

goto end;

}

end:

{printf("\n*******************************************************\n\n");}

printf("Try Again(Y/N) ?\n");

scanf("%c",t);

scanf("%c",t);

if(t=='Y'||t=='y')

{

printf("Input Four Number Within 1-13, Then Press Enter：\n");

goto begin;

}

system("pause");

return 0;

}

vbnet中怎樣把時(shí)間設(shè)為24時(shí)制

將時(shí)間轉(zhuǎn)換為指定的字符串格式用：Now.ToString("yyyyMMddHHmmss")就Ok了。

例如：年份用小寫yyyy(大寫不識(shí)別)，大寫MM識(shí)別為月份，小寫mm識(shí)別為分鐘，日期天為大寫DD(小寫不識(shí)別)，

小時(shí)大寫HH識(shí)別為24小時(shí)制，小寫hh識(shí)別為12小時(shí)制，秒用小寫ss(大寫不識(shí)別)

補(bǔ)充：Visual Basic.NET是基于微軟.NET Framework之上的面向?qū)ο蟮木幊陶Z(yǔ)言。

其在調(diào)試時(shí)是以解釋型語(yǔ)言方式運(yùn)作,而輸出為EXE程序是是以編譯型語(yǔ)言方式運(yùn)作。

可以看作是Visual Basic在.Net Framework平臺(tái)上的升級(jí)版本，增強(qiáng)了對(duì)面向?qū)ο蟮闹С帧４蠖嗟腣B.Net程序員使用Visual Studio .Net作為IDE（integrated development environment).SharpDevelop是另一種可用的開(kāi)源的IDE。

VB.Net需要在.Net Framework平臺(tái)上才能執(zhí)行。

怎樣用vb算24點(diǎn)

設(shè)第一個(gè)數(shù)為a(0)，第二a(1)，第三a(2)，第四a(3)。

Cls '清空屏幕

Dim b,c,d,e As Integer

For b = 0 To 3

For c = 0 To 3

For d = 0 To 3

For e = 0 To 3

If bc And cd And de And eb And bd And ce Then

If a(b) + a(c) + a(d) + a(e) = 24 Then ?a(b);"+";a(c);"+";a(d);"+";a(e)

If a(b) + a(c) + a(d) - a(e) = 24 Then ?a(b);"+";a(c);"+";a(d);"-";a(e)

If a(b) + a(c) - a(d) - a(e) = 24 Then ?a(b);"+";a(c);"-";a(d);"-";a(e)

If a(b) - a(c) - a(d) - a(e) = 24 Then ?a(b);"-";a(c);"-";a(d);"-";a(e)

If a(b) * a(c) + a(d) + a(e) = 24 Then ?a(b);"×";a(c);"+";a(d);"+";a(e)

If a(b) * a(c) + a(d) - a(e) = 24 Then ?a(b);"×";a(c);"+";a(d);"-";a(e)

If a(b) * a(c) - a(d) - a(e) = 24 Then ?a(b);"×";a(c);"-";a(d);"-";a(e)

If a(b) * a(c) * a(d) + a(e) = 24 Then ?a(b);"×";a(c);"×";a(d);"+";a(e)

If a(b) * a(c) * a(d) - a(e) = 24 Then ?a(b);"×";a(c);"×";a(d);"-";a(e)

If a(b) * a(c) * a(d) * a(e) = 24 Then ?a(b);"×";a(c);"×";a(d);"×";a(e)

If a(b) / a(c) + a(d) + a(e) = 24 Then ?a(b);"÷";a(c);"+";a(d);"+";a(e)

If a(b) / a(c) + a(d) - a(e) = 24 Then ?a(b);"÷";a(c);"+";a(d);"-";a(e)

If a(b) / a(c) * a(d) + a(e) = 24 Then ?a(b);"÷";a(c);"×";a(d);"+";a(e)

If a(b) / a(c) * a(d) - a(e) = 24 Then ?a(b);"÷";a(c);"×";a(d);"-";a(e)

If a(b) / a(c) / a(d) + a(e) = 24 Then ?a(b);"÷";a(c);"÷";a(d);"+";a(e)

If a(b) / a(c) / a(d) - a(e) = 24 Then ?a(b);"÷";a(c);"÷";a(d);"-";a(e)

If a(b) / a(c) / a(d) * a(e) = 24 Then ?a(b);"÷";a(c);"÷";a(d);"×";a(e)

If a(b) / a(c) / a(d) / a(e) = 24 Then ?a(b);"÷";a(c);"÷";a(d);"÷";a(e)

If a(b) / a(c) + a(d) * a(e) = 24 Then ?a(b);"÷";a(c);"+";a(d);"×";a(e)

If a(b) / a(c) - a(d) * a(e) = 24 Then ?a(b);"÷";a(c);"-";a(d);"×";a(e)

If a(b) / a(c) + a(d) / a(e) = 24 Then ?a(b);"÷";a(c);"+";a(d);"÷";a(e)

If a(b) / a(c) - a(d) / a(e) = 24 Then ?a(b);"÷";a(c);"-";a(d);"÷";a(e)

End If

Next e,d,c,b

可能有問(wèn)題，請(qǐng)先試試，有問(wèn)題問(wèn)我

vb編程中編個(gè)算24點(diǎn)的游戲怎么編啊（只要思路（

第1、3、5、7的空格是放牌的(每空一張牌),而第2、4、6的空格是放加減乘除的符號(hào)的(每空一個(gè)符號(hào))

好,那么根據(jù)數(shù)學(xué)中的排列組合,4張牌放到4個(gè)空格里面有24種不同的排列,把4個(gè)符號(hào)放到3個(gè)空格里面也是有24種不同的排列,那么再把這兩個(gè)排列再排列的話,就有24*24=576種排列,那么你的程序要做的就是把這576種排列全部算過(guò),結(jié)果是不是等于24就OK了,我想程序循環(huán)576下應(yīng)該只要不到1秒的時(shí)間吧

網(wǎng)站欄目：vb.net24點(diǎn)的簡(jiǎn)單介紹
網(wǎng)站網(wǎng)址：http://chinadenli.net/article13/dsiiggs.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供ChatGPT、靜態(tài)網(wǎng)站、電子商務(wù)、網(wǎng)站收錄、域名注冊(cè)、網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)