C語言轉(zhuǎn)換為VB.NET

Option Explicit On

成都創(chuàng)新互聯(lián)專注于曲阜網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠為您提供曲阜營銷型網(wǎng)站建設(shè)，曲阜網(wǎng)站制作、曲阜網(wǎng)頁設(shè)計(jì)、曲阜網(wǎng)站官網(wǎng)定制、微信小程序服務(wù)，打造曲阜網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供曲阜網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。

Option Strict On

Imports System

Module Program

Sub Main()

Dim y,m,t As Integer

begin:

' 輸入數(shù)據(jù)時一行一個

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和vb點(diǎn)虐 的區(qū)別和特點(diǎn)

1、vb點(diǎn)虐 ?完全符合面向?qū)ο蟮木幊陶Z言抽象、封裝、繼承的四大特性，而vb不支持繼承。

2、錯誤處理不同。

vb中只是On Error.....goto和On Errer Resume Next ，這些錯誤稱為非結(jié)構(gòu)化異常處理。而在vb點(diǎn)虐 中采用的結(jié)構(gòu)化異常處理機(jī)制，try...catch....finally控制。

3、兩者產(chǎn)生的窗體不同。

vb點(diǎn)虐 允許創(chuàng)建不同類型的應(yīng)用程序，例如，創(chuàng)建ASP.NET和ASP.NET Web 服務(wù)應(yīng)用程序，還允許創(chuàng)建控制臺應(yīng)用程序和作為桌面服務(wù)運(yùn)行的應(yīng)用程序。但是vb 只能創(chuàng)建Windows窗體。

4、數(shù)據(jù)庫訪問的差別。

vb6.0是通過ADO（Active X Data Objext）來實(shí)現(xiàn)對數(shù)據(jù)庫訪問。而vb點(diǎn)虐 是通過ADO.NET來訪問數(shù)據(jù)庫。

擴(kuò)展資料

Visual Basic（簡稱VB）是Microsoft公司開發(fā)的一種通用的基于對象的程序設(shè)計(jì)語言，為結(jié)構(gòu)化的、模塊化的、面向?qū)ο蟮摹瑓f(xié)助開發(fā)環(huán)境的事件驅(qū)動為機(jī)制的可視化程序設(shè)計(jì)語言。是一種可用于微軟自家產(chǎn)品開發(fā)的語言。

“Visual” 指的是開發(fā)圖形用戶界面 (GUI) 的方法——不需編寫大量代碼去描述界面元素的外觀和位置，而只要把預(yù)先建立的對象add到屏幕上的一點(diǎn)即可。

“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 語言，是一種在計(jì)算技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的語言。

Visual Basic源自于BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建Active?X控件，用于高效生成類型安全和面向?qū)ο蟮膽?yīng)用程序 。

參考資料：百度百科-Visual Basic

VB .NET如何在計(jì)算過程中加入進(jìn)度條？

VB.Net中提供了ProgressBar控件，用于顯示進(jìn)度條

我建議你不要用進(jìn)度條顯示剩余時間而是顯示執(zhí)行進(jìn)度

這樣比較好控制

設(shè)置ProgressBar的Minimum和Maximum屬性為循環(huán)的起始和終止數(shù)值

然后在代碼的循環(huán)體中計(jì)算當(dāng)前循環(huán)的進(jìn)度，然后設(shè)置進(jìn)度條的Value屬性，

將進(jìn)度顯示在進(jìn)度條上

比如,簡單的例子:

Dim Progress As Integer

ProgressBar1.Minimum = Min

ProgressBar1.Maximum = Max

For i As Integer = Min To Max

'執(zhí)行計(jì)算.......

Progress = i \ Max '計(jì)算進(jìn)度

ProgressBar1.Value = Progress '顯示進(jìn)度

My.Application.DoEvents() '使用Doevents防止窗體假死使進(jìn)度條看不到，但是會嚴(yán)重降低運(yùn)行速度

Next

這里的優(yōu)化技巧是，可以設(shè)置為每隔N次循環(huán)才更新進(jìn)度條

If Not Progress Mod N Then ProgressBar1.Value = Progress

不然進(jìn)度條的更新也許比計(jì)算的速度還要慢很多

vb點(diǎn)虐 數(shù)組的定義方法

1、點(diǎn)擊VS工具。

2、打開后，新建一個Windows窗體應(yīng)用程序。

3、新建完畢后，如圖所示。

4、拖動一個按鈕。

5、定義數(shù)組最常見的方法，如圖示。

6、運(yùn)行后，點(diǎn)擊按鈕，彈出提示正常。

7、定義數(shù)組第二種方法，屬于動態(tài)的方法。

8、運(yùn)行后，點(diǎn)擊按鈕，數(shù)組成功輸出。