求vb點(diǎn)虐 的源代碼，最好說(shuō)明其解決問(wèn)題，越多越好，滿意加50分。

下面這段代碼，是我用來(lái)計(jì)算每個(gè)月存500元進(jìn)銀行，連續(xù)30年，最后連本帶利能有多少錢。這里面涉及復(fù)利計(jì)算。界面中右邊的文本框用來(lái)輸出每一次計(jì)算的結(jié)果。

成都創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、博樂(lè)網(wǎng)絡(luò)推廣、重慶小程序開(kāi)發(fā)、博樂(lè)網(wǎng)絡(luò)營(yíng)銷、博樂(lè)企業(yè)策劃、博樂(lè)品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等，從售前售中售后，我們都將竭誠(chéng)為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；成都創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供博樂(lè)建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18980820575，官方網(wǎng)址：www.cdcxhl.com

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

? Dim nianxian As Integer '年限變量

? Dim dingcun As Integer '定存變量

? Dim fuli_big As Long '大復(fù)利

? Dim fuli_small As Long '小復(fù)利

? Dim i As Integer '循環(huán)變量

? Dim DATAstring As String '數(shù)據(jù)字符串

? nianxian = Val(年限_TextBox.Text)

? dingcun = Val(定存_TextBox.Text)

? DATAstring = ""

? For i = 1 To nianxian

? ? ? fuli_small = dingcun * (1 + 0.1875)

? ? ? dingcun = fuli_small

? ? ? fuli_big = fuli_big + fuli_small

? ? ? DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

? ? ? 'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

? Next

? 'fuli_big = fuli_small

? TextBox1.Text = DATAstring

? 結(jié)果_TextBox.Text = Str(fuli_big) + "元"

End Sub

求雙人對(duì)戰(zhàn)俄羅斯方塊源代碼(VB.NET)謝謝了，大神幫忙啊

樓主你好，由于輸入內(nèi)容有限，只能輸入這么多 public void do_chang(int x, int y){ //移動(dòng) int i; for(i=0;i4;i++)map[it[i,1]+ity,it[i,0]+itx]=false; ity+=y;itx+=x; //參照點(diǎn)位置移動(dòng) for(i=0;i4;i++)map[it[i,1]+ity,it[i,0]+itx]=true; if(y==1)++nextnum; //下落次數(shù) } public bool will_chang(int x, int y){ //測(cè)試能否移動(dòng) int i,tempitx,tempity; bool falg=false; tempitx=itx; tempity=ity; tempitx+=x; tempity+=y; for(i=0;i4;i++)map[it[i,1]+ity,it[i,0]+itx]=false; for(i=0;i4;i++){ if (tempitx+it[i,0]1 || tempitx+it[i,0]=11) falg=true; //X越界 if (tempity+it[i,1]1 || tempity+it[i,1]=21) falg=true; //Y越界 if (map[it[i,1]+tempity,it[i,0]+tempitx]) falg=true; //有阻礙物 } for(i=0;i4;i++)map[it[i,1]+ity,it[i,0]+itx]=true; if(falg)return false; return true; } public void do_up(){ //變形 int i; string temp; for(i=0;i4;i++)map[it[i,1]+ity,it[i,0]+itx]=false; if(++trndY=4)trndY=0; temp = source[trndX,trndY]; for(i=0;i4;i++){ it[i,0]=temp[i*2]-'0'; it[i,1]=temp[(i+1)*2-1]-'0'; map[it[i,1]+ity,it[i,0]+itx]=true; } } public bool will_up(){ //測(cè)試能否變形 int i,temprndY; bool falg=false; int[,] tempit = new int[4,2]; string temp; temprndY=rndY; if(++temprndY=4)temprndY=0; temp=source[rndX,temprndY];//獲取下一個(gè)方塊資源 for(i=0;i4;i++)map[it[i,1]+ity,it[i,0]+itx]=false;//先使當(dāng)前方塊消失 //虛變形 for(i=0;i4;i++){ tempit[i,0]=temp[i*2]-'0'; tempit[i,1]=temp[(i+1)*2-1]-'0'; if (itx+tempit[i,0]=0 || itx+tempit[i,0]=11) falg=true; //X越界 if (ity+tempit[i,1]=0 || ity+tempit[i,1]=21) falg=true; //Y越界 if (map[tempit[i,1]+ity,tempit[i,0]+itx]) falg=true; //有阻礙物 } for(i=0;i4;i++)map[it[i,1]+ity,it[i,0]+itx]=true;//還原消失方塊 if(falg)return false; return true; } public void do_ini(){ //每個(gè)方塊的初使化 string temp; itx=3;ity=0; //參考坐標(biāo)值 nextnum=0; //下落次數(shù)初使化 trndX=rndX; trndY=rndY; rndX = rnd.Next(0,6); rndY = rnd.Next(0,3); temp=source[trndX,trndY]; for(int i=0;i4;i++){ it[i,0]=temp[i*2]-'0'; it[i,1]=temp[(i+1)*2-1]-'0'; } }

下載的點(diǎn)虐 源碼怎么運(yùn)行?

如果你的計(jì)算機(jī)安裝了.Net環(huán)境的話，（Vista以上版本都默認(rèn)安裝了，XP需要下載.Net Framework來(lái)安裝），系統(tǒng)盤上Windows目錄下會(huì)有一個(gè)Microsoft.Net目錄，里面的2.0目錄里有相應(yīng)的編譯器。C#語(yǔ)言的編譯器是csc.exe,VB.Net語(yǔ)言的編譯器是vbc.exe。用命令行的方式就能把源碼編譯成可執(zhí)行程序。如csc 123.cs 123.exe。你也可以用集成開(kāi)發(fā)環(huán)境，如VS2005或VS2008，用他們打開(kāi)源碼，并添加一個(gè)解決方案，就能編譯并調(diào)試執(zhí)行。不過(guò)VS2005或VS2008都比較大，幾個(gè)G大小，另外還有一個(gè)比較小巧又好用的集成開(kāi)發(fā)環(huán)境叫SharpDevelop，只有十幾M大小，他和VS2005幾乎一樣好用，并能生產(chǎn)支持Vista界面的程序，不過(guò)只能編譯C#源碼。

如何用vb點(diǎn)虐 獲得網(wǎng)頁(yè)的源代碼

Dim url As String=" 網(wǎng)址"

Dim httpReq As System.Net.HttpWebRequest

Dim httpResp As System.Net.HttpWebResponse

Dim httpURL As New System.Uri(url)

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

httpReq.Method = "GET"

httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

httpReq.KeepAlive = False ' 獲取或設(shè)置一個(gè)值，該值指示是否與

Internet資源建立持久連接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

System.Text.Encoding.GetEncoding(-0))

Dim respHTML As String = reader.ReadToEnd() 'respHTML就是網(wǎng)頁(yè)源代碼