真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網站制作重慶分公司

c轉vb.net的網站 vba轉vbnet autocad

最好的vb網站是哪個?

你自己需要的啊 分不清那一個的 以下是我前幾天寫的

成都創(chuàng)新互聯(lián)公司專注于企業(yè)全網營銷推廣、網站重做改版、集寧網站定制設計、自適應品牌網站建設、html5、商城網站制作、集團公司官網建設、外貿營銷網站建設、高端網站制作、響應式網頁設計等建站業(yè)務,價格優(yōu)惠性價比高,為集寧等各大城市提供網站開發(fā)制作服務。

1.CSDN 很多資料和已解決問題

CSDN在全球范圍內注冊用戶超過220萬,日瀏覽量超過800萬,是中國大陸及全球華人IT專業(yè)人士中最受推崇的專業(yè)品牌。

憑借領先的技術平臺和優(yōu)質的內容服務,CSDN贏得IT專業(yè)人士一致好評,在2004年中國BBS百強評選中,CSDN名列IT類網站榜首,2006年度當選Red Herring亞洲未上市科技百強企業(yè)。

2.問專家

它的廣告:如果您在編程過程中遇到任何問題,您可以把您的問題寄給我們,我們將努力幫助您尋找答案或線索。

3.網絡大本營

偏向于網絡編程.net 和 asp

4.VB愛好者樂園

內容還全面,有很多完整的程序和技巧

5. 編程愛好者論壇

全面,偏向技術

6.月光軟件

一個很不錯的網站,內容全面 有大量源碼,推薦!

7.計算機等級考試內容輔導視頻教學

手把手的老師在線講課,速度還可以

8.中國VB網

內容很多

呵呵 轉自我今天寫在我們論壇的帖子

C語言轉換為VB.NET

Option Explicit On

Option Strict On

Imports System

Module Program

Sub Main()

Dim y,m,t As Integer

begin:

' 輸入數據時一行一個

y=CInt(Console.ReadLine())

m=CInt(Console.ReadLine())

t=CInt(Console.ReadLine())

If y

200 Then

Console.WriteLine("ERROR")

goto begin

End If

pr(y,m,t)

Console.Write("Press any key to continue . . . ")

Console.ReadKey(True)

End Sub

Function pr(y As Integer,m As Integer,t As Integer) As Integer

Dim ye,[Me],i As Integer

ye=CInt((m+t-2)/12+y)

[Me]=(m+t-2) Mod 12+1

End If

End Function

Function mday(y As Integer,m As Integer) As Integer

Dim day As Integer()={0,31,28,31,30,31,30,31,31,30,31,30,31}

Dim ad As I

如何把下面用vb.net語言編寫的代碼改成c#

給你個網站看

可在線將vb.net代碼轉成c#的,我用過,還可以的,但是轉后也要改動一些。這里還有將c#轉vb.net的。

這是我轉的:

string[] ArrValue = new string[43];

int Nums;

public void Page_Load(object Sender, EventArgs E)

{

int I;

if (!IsPostBack) {

for (I = 1900; I = 2101; I++) {

ListItem IItem = new ListItem();

IItem.Text = (string)I;

if (I == Year(Now)) {

IItem.Selected = "True";

}

DropYear.items.add(IItem);

}

for (I = 1; I = 12; I++) {

ListItem IItem = new ListItem();

IItem.Text = (string)I;

if (I == Month(Now)) {

IItem.Selected = "True";

}

DropMonth.items.add(IItem);

}

}

DispDetail(Conversion.Val(DropYear.SelectedItem.Text), Conversion.Val(DropMonth.SelectedItem.Text));

}

public void DispDetail(int YYear, int MMonth)

{

System.DateTime theDate;

int theYear;

int theMonth;

int theDay;

int theWeek;

int theFirstNum;

int NumOfMonth;

int i;

string theStr;

theYear = YYear;

theMonth = MMonth;

theDay = 1;

//獲得所要查詢的月的第一天日期

theDate = DateSerial(theYear, theMonth, theDay);

//確定所要查詢的第一天是星期幾

theWeek = weekday(theDate);

theFirstNum = theWeek;

//確定所要查詢的月的天數

NumOfMonth = GetDayNum(theyear, themonth);

for (i = 0; i = 41; i++) {

ArrValue(i) = "";

}

for (i = 0; i = NumOfMonth - 1; i++) {

ArrValue(theFirstNum - 1 + i) = i + 1;

}

}

public object GetDayNum(int YYear, int MMonth)

{

object functionReturnValue = null;

if (MMonth == 1 | MMonth == 3 | MMonth == 5 | MMonth == 7 | MMonth == 8 | MMonth == 10 | MMonth == 12) {

functionReturnValue = 31;

}

else {

if (MMonth == 4 | MMonth == 6 | MMonth == 9 | MMonth == 11) {

functionReturnValue = 30;

}

else {

if (((YYear % 4 == 0) (YYear % 100 != 0)) | (YYear % 400 == 0)) {

functionReturnValue = 29;

}

else {

functionReturnValue = 28;

}

}

}

return functionReturnValue;

}


分享題目:c轉vb.net的網站 vba轉vbnet autocad
標題網址:http://weahome.cn/article/doegocs.html

其他資訊

在線咨詢

微信咨詢

電話咨詢

028-86922220(工作日)

18980820575(7×24)

提交需求

返回頂部