VB程式設計問題,VB程式設計難嗎?

2022-01-02 06:34:35 字數 5193 閱讀 3417

1樓:匿名使用者

非常簡單,你看插圖,一切都在圖中。**如下:

在窗體中新增一個label1、兩個預設command1和command2。一切屬性預設、不用修改。

private sub command1_click()

if command1.caption = "有邊框" then

label1.borderstyle = 1

command1.caption = "無邊框"

else

label1.borderstyle = 0

command1.caption = "有邊框"

end if

end sub

private sub command2_click()

if command2.caption = "不透明" then

label1.backstyle = 1

command2.caption = "透明"

else

label1.backstyle = 0

command2.caption = "不透明"

end if

end sub

private sub form_load()

label1.caption = "visual basic 程式設計教程"

label1.font.size = 36

command1.caption = "有邊框"

command2.caption = "不透明"

label1.borderstyle = 0

label1.backstyle = 0

end sub

【回答】

1. 在資源管理器中,雙擊工程中的「project1.vbp」(即副檔名為vbp的檔案)可以正確開啟工程。

2. 在儲存檔案之後,如果發現檔名錯了,不能在windows中直接修改工程中的檔名。

2樓:匿名使用者

1, 雙擊副檔名為vbp 的檔案可以開啟工程。

2,不可以。

3樓:匿名使用者

1、點選字尾為.vbp的檔案可以開啟工程。

2、不能在windows中直接修改工程中的檔名,這樣會造成工程檔案無法載入這個檔案。

vb程式設計問題!

4樓:匿名使用者

dim b() as string

b() = split(k, ",")

vb程式設計難嗎?

5樓:a九尾妖姬

畢竟檢視化了的程式設計都是不難學的。自己按照書本上或者網上的一些例子做幾個小的軟體,再試著做一些大點的複雜點的軟體,對**有一定的語感之後,就可以去網上讀一些比較難的**,一些**是很珍貴的,儲存下來,以後你程式設計的時候可以用,因為過程還是那個過程,屬性還是那個屬性,不同的是物件。

1,學習程式設計的基本要求

2,vb的功能及特點

3,學習vb程式設計的方法

對學習者知識的要求:

首先,學習程式設計要具備一定的數學基礎.計算機與數學有很大的聯絡,綜觀計算機歷史,計算機的數學模型(圖靈機,由alan turing提出)和體系結構(由john von neuman提出)等都是由數學家提出的,

最早的計算機也是為數值計算而設計的.因此,要學習好計算機就要有一定的數學基礎.不過對於初學者來說,在數學基礎方面的要求並不是很高,從我個人的角度來看,有高中數學水平就差不多了.

6樓:沈媛婷辣

如果你學過其他的程式語言,學vb也不會太難.程式設計重要的不是你用哪種語言,而是你的程式設計思想.vb屬於視覺化的開發語言,都已模組化了,學起來比較容易上手。

自己按照書本上或者網上的一些例子做幾個小的軟體,再試著做一些大點的複雜點的軟體,對**有一定的語感之後,就可以去網上讀一些比較難的**,一些**是很珍貴的,儲存下來,以後你程式設計的時候可以用,因為過程還是那個過程,屬性還是那個屬性,不同的是物件。

vb程式設計問題 10

7樓:漆豆鄂雅彤

窗體的load事件是在窗體駐入記憶體的時候產生的,這個時侯窗體還沒有顯示,所以你的輸出當然看不到了。

可以把**放到按鈕事件或resize事件(resize事件有可能被多次執行)中。如果非要在load事件中,可以把窗體的autoredraw屬性設定為true。

8樓:潮蕭殳野

我知道你錯誤在那裡了

你輸入的字元在asc()函式中是分大小寫的,例如大寫a的ascii碼是65,小寫a則是97如過你需要輸入的是小寫,你應該在input()函式後加上以下**:

select

case

strs1

case

"a"to

"z"strs1

=asc(strs1

-32)

case

"a"to

"z"strs1

=strs1

endselect

如果你要的是大寫則加入:

select

case

strs1

case

"a"to

"z"strs1

=asc(strs1

-32)

case

"a"to

"z"strs1

=strs1

endselect

應該可以了

9樓:聽不清啊

原程式多處單詞拼寫錯誤。現已糾正,並執行通過:

private sub command1_click()label1.visible = falselabel2.visible = truetext1.

visible = falsecommand1.visible = falsecommand2.visible = truecommand3.

visible = truelabel2.caption = text1.text & "同學你好,祝你學好vb程式設計!

"label2.forecolor = vbredlabel2.fontname = "黑體"

label2.fontsize = 16

end sub

private sub command2_click()label1.visible = truelabel2.visible = falsetext1.visible = true

command1.visible = truecommand2.visible = falsecommand3.visible = falsetext1.text = ""

end sub

private sub command3_click()endend sub

private sub form_load()label1.visible = truelabel2.visible = falsetext1.visible = true

command1.visible = trueend sub

10樓:匿名使用者

一般標籤都是label,你怎麼用的是laber

private sub command2_click()

laber1.cisible = true 應為label1.visible=true

vb程式設計問題!(急)

11樓:

公共:dim a '關0開1 form load:a = 1 開關按鈕:

if a = 1 then a = 0 command1.enabled = false text1.text = ""

end if

if a = 0 then

a = 1 command1.enabled = true text1.text = "0" end if

vb程式設計問題!!!!

12樓:鹿玉花權酉

dimb(10)

asdouble

forx=0

to10

'賦值,你也可以用換成別的

b(x)=x

next

forx=10

to0step

-1 '逆序輸出

print

b(x)

next

vb程式設計問題

13樓:科技程式迷

常量是不可以在執行時進行賦值的。

private const pi as single = 3.1415

private sub form_load()text3.locked = true '將輸出資訊的文字框設定為只讀

text4.locked = true

text5.locked = true

text6.locked = true

end sub

private sub command1_click()dim r as single, h as singler = val(text1.text)

h = val(text2.text)

text3.text = r * 2 * pi '圓周長text4.text = r * r * pi '底面積text5.

text = (r * 2 * pi) * h '側面積text6.text = (r * r * pi) * h '體積end sub

沒有看到你的程式介面,所以我就做了一個上來:

14樓:電腦愛好者度雲

r=text1.text

h=text2.text

pi就不用了,因為圓周率就是pi

15樓:兔兔**

r=text1.text

這樣就可以了。

16樓:匿名使用者

圖呢,r=text1.text等

vb程式設計問題,VB程式設計問題

private sub command1 click text1 for i 1 to 45 7 for j 1 to 45 6 2for k 1 to 45 3 5if i j 2 k 5 45 thenn n 1 end if next next next text1 n end sub pri...

VB程式設計題目,vb程式設計題目

private sub mand1 click dim i as integer,j as integer,k as integer dim a 1 to 10 as integerdim max as integer,min as integer,pj as single dim sumnum a...

VB程式設計的問題

if ssl then ssl tt option explicit private subform load timer1.interval 500 這裡可以改成別的時間段,我是以0.5秒變化一次來寫的endsub private subtimer1 timer iflabel1.forecolo...