【問題】有誰知道這是什麼語言?


Recommended Posts

有人看的出來這是用什麼語言撰寫的?

要用什麼編譯器進行編譯?

這是其中的一小段,因為全部蠻長的所以沒有全部貼。

Option Base 1

Dim card(20, 13) As String

Dim sum(5 To 20) As Integer

Dim a, b, c, d, e, f, i, j As Integer

-------------------------------------------------

Private Sub Command1_Click()

Cls

a = 0

b = 0

c = 0

d = 0

e = 4

f = 1

For i = 1 To 20

For j = 1 To 13

card(i, j) = ""

Next j

Next i

For i = 5 To 20

sum(i) = 0

Next i

Randomize

For i = 1 To 4

For j = 1 To 13

Call Out

Next j

Next i

For i = 5 To 20

For j = 1 To 13

If card(i, j) <> "" Then

Call Change

End If

Next j

If sum(i) = 0 Then card(i, 1) = "-"

Next i

Print

For i = 5 To 8

Print Spc(13);

For j = 1 To 13

Print card(i, j);

Next j

Print ""

Next i

For i = 9 To 12

Print Spc(3);

For j = 1 To 13

Print card(i, j);

Next j

Print Tab(25);

For j = 1 To 13

Print card(i + 4, j);

Next j

Print ""

Next i

For i = 17 To 20

Print Spc(13);

For j = 1 To 13

Print card(i, j);

Next j

Print ""

Next i

End Sub

鏈接文章
分享到其他網站
  • 5 weeks later...

是VB6.0版

2002年之後,改成VB.net,

語法整個跟VB6差很多....

最容易分辨的是,VB6可以用print直接在form上面顯示文字,

VB.net一定要指定是哪個物件進行顯示文字的動作。

VB.net每個form都是一個Class,但是VB6不是。

通常沒有意外的話,VB.net都要宣告變數,

當然也可以修改編譯器的設定而不須宣告,

但很少有人這樣做....

鏈接文章
分享到其他網站
  • 2 weeks later...

請登入後來留意見

在登入之後,您才能留意見



立即登入