關於用BASIC程式設計的問題

2023-01-25 06:05:47 字數 1700 閱讀 7607

1樓:匿名使用者

basic是dos下的程式設計軟體,可在由basic解釋執行。qbasic語言也是basic語言,它是quick basic語言的子集,它只有解釋執行功能。屬dos平臺下的程式語言,其精髓是當前vb及vb.

net程式語言的基礎,只能說qbasic編的程式不能在widows平臺上執行。dos發展到後期,出現了quick basic語言,它將basica,link以及debug等軟體合併在一起,在同一環境下對使用者的源程式自動進行處理--編輯,進行語法檢查,編譯連線,執行,除錯等,最終生成在dos下的可執行exe檔案.quick basic相容以往的basic,大多以往basica開發的源程式不作修改就可在quick basic環境下執行或編譯.

但要注意必須是basica下以ascii碼存檔的原始檔.

visual basic是視覺化basic程式語言,有4.0,5.0和6.

0,發展到現在有.net basic,其中visual basic 6.0是應用最廣泛的初學者程式語言,它基本相容大多數basic下的源**或稍加改動就能應用於visual basic的**內,visual basic是編譯型語言,所生成的exe檔案能在具有vb同版本執行庫檔案的windows環境下執行.

學好qbasic語言對學好vb或c語言都有幫助,就象古漢語現在不用,但古漢語是學習現代漢語的基礎一樣。

可在vb6狀態下執行你的gbasic**(可能需作改動,並放於窗體的load事件**中),將窗體的autoredraw屬性設定為true,此時穿體就象gbasic的執行視窗可看到執行結果(圖形**在外)。

2樓:初學者無能

解釋一下用什麼辨析,是qb還是vb還是.net。

dim a(36) as single

dim x1(36) as single

dim x2(36) as single

dim x3(36) as single

dim x4(36) as single

dim x5(36) as single

dim x6(36) as single

dim d(36) as string

private sub command1_click()

call rndnum(1, 99)

for i = 1 to 36

if (a(i) > 50) then x1(i) = a(i) else x2(i) = a(i)

next i

for i1 = 1 to 36

for i2 = 1 to 36

if (x1(i1) + x2(i2) = 100) then d(i1) = str$(a(i1)) + "+" + str$(a(i2))

next i2

text1.text = text1.text + d(i1)

next i1

end sub

sub rndnum(n1 as single, n2 as single)

for i = 1 to 36

a(i) = format(rnd() * n2, "#")

if a(i) < n1 then a(i) = a(i) + n1

print a(i)

next i

end sub

就是用了一個text和一個command

這就是算2個的,至於3-6自己算一下,就是麻煩些,我也是忘了演算法,你自己找找。

關於程式設計的問題高手麻煩了,關於程式設計的問題 高手麻煩了

好笑呀。這個都能讓你迷茫,你學程式是為了什麼?肯定是想自己做程式呀。下別人 那只是為了學習別人的優點來彌補自己編碼時的不足!是彌補自己編碼時的不足,不是代替自己編碼!認清呀!其實不用那麼麻煩,找一個代表性比較強的程式,把它 的意思全搞明白,自己做的時候可以只修改一下嘛,提高效率還節省時間,但前提你必...

C語言程式設計問題(用一維陣列),C語言程式設計問題(用一維陣列)

include void main int i,j,n,k,x,a 100 scanf d d n,x k n for i 0 i include include int main int i,j,n,x,a scanf d d n,x a int calloc n,sizeof int 申請陣列空...

CAD的autolisp程式設計問題 我用下面這個程式還去掉重

defun c ere setq ss ssget list cons 0 point li si 0 ei 0 repeat sslength ss setq cs ssname ss si si 1 si ce entget cs if member vl princ to string cdr...