【學習專欄】VB上課筆記整理(每位同學皆須回應) - ☆就是要紅

		☆就是要紅
		市長：Show 　副市長： ★〞豬糖
		加入本城市｜推薦本城市｜加入我的最愛｜訂閱最新文章

udn／城市／學校社團／部落格大賽／【☆就是要紅】城市／討論區／

你還沒有登入喔( 馬上登入/ 加入會員)

本城市首頁

討論區

精華區

投票區

影像館

推薦連結

公告區

訪客簿

市政中心 (0)


討論區／【學習專欄】	字體：小中大

看回應文章

【學習專欄】VB上課筆記整理(每位同學皆須回應)
瀏覽3,809｜回應18｜推薦0


	Show 等級：8 留言｜加入好友

請同學就你所負責的日期, 將筆記內容整理在word檔中，同時把該天練習的 vb程式, 將執行的畫面cut下來存成圖片檔再插入word文件中，並以回應的方式發表在此文之下！

引用網址：https://city.udn.com/forum/trackback.jsp?no=64139&aid=4598689

　回應文章

第頁／共2頁

16 99.11.08上課筆記設定文字格式
	推薦0


	ssvs70016 等級：留言｜加入好友

時間：99/11/08

課程內容：設定文字格式

筆記內容整理：

Froml_Load(在入表單時)

Combol.AddItem 10

加入項目項目內容

Combol.AddItem 12

Combol.AddItem 14

Combol.AddItem 16

Combo2.AddItem 新細明體

Combo2.AddItem 標楷體

Combo2.AddItem 華康正顏楷體W5

Check1_click( )

IF Check.Value =VbChecked Then

Text1.Font.Bold=True

ELSE

Text1.Font.Bold=False

ENDIF

IF Check.Value= VbChecked Then

Text1.Font.Italic=True

ELSE

Text1.Font.Italic= False

ENDIF

IF Check.Value= VbChecked Then

Text1.Font.Underline=True

ELSE

Text1.Font. Italic = False

ENDIF

程式練習：

程式內容：

本文於修改第 1 次

引用網址：https://city.udn.com/forum/trackback.jsp?no=64139&aid=4607805

【學習專欄】VB上課筆記整理－100.03.03
	推薦0


	ssvs70029 等級：留言｜加入好友

29號筆記整理

上課日期：2011/03/03

上課內容：迴圈(練習題)

筆記內容整理：

X=1

For J=1 to 11 STEP 2

X=X+J*2

NEXT J

Print X

Print J

J
X=X+J*2
1
3
5
7
9
11
13
X=1+1*2=3
X=3+3*2=9
X=9+5*2=19
X=19+7*2=33
X=33+9*2=51
X=51+11*2=73
x

X=73
J=13

I=50 ： J=2

While J <6

I=I-J

J=J+1

Wend

Print I,J

J
I=I-J , J=J+1
2
3
4
5
6
I=50-2=48 , J=2+1=3
I=48-3=45 , J=3+1=4
I=45-4=41 , J=4+1=5
I=41-5=36 , J=5+1=6
x

I=36 , J=6

X=2 ： Y=5

While X<Y

Print X+Y

X=X+1

Wend

X
Y
Print X+Y
2
3
4
5
5
5
5
5
2+5=7
3+5=8
4+5=9
x

引用網址：https://city.udn.com/forum/trackback.jsp?no=64139&aid=4607792

筆記整理
	推薦0


	★〞豬糖等級：7 留言｜加入好友

14【學習專欄】VB上課筆記整理 - 99.11.01

上課日期：99.11.01

課程單元：巢狀IF

筆記整理內容：

N=VAL(Text1.text)

Dim N As Integer

IF OPTION1.VALUE=True Then

　IF N > 50 Then

　　　Money=50*500+(N-50)*500*0.8

　ELSE

　　　Money=N*500

　END IF

Else

　IF N > 60 Then

　　　Money=60*400+(N-60)*400*0.8

　ELSE

　　　Money=N*400

　END IF

A$ = "精裝本每本500超過50本的部分打8折" & Chr(13) & "平裝本每本400超過60本的部分打8折"

Text2.Text = A$

程式練習：

撰寫的程式：

引用網址：https://city.udn.com/forum/trackback.jsp?no=64139&aid=4607782

【學習專欄】VB上課筆記整理 99/11/08
	推薦0


	JANSHE183 等級：留言｜加入好友

程式執行圖檔↑

筆記內容：

99.11.08 上課筆記設定文字格式

Froml_Load(在入表單時)

Combol.AddItem 10

↑加入項目 ↑項目內容

Combol.AddItem 12

Combol.AddItem 14

Combol.AddItem 16

　　。

Combo2.AddItem 新細明體

Combo2.AddItem 標楷體

Combo2.AddItem 華康正顏楷體W5

　　。

Check1_click( )

IF Check.Value = VbChecked Then

Text1.Font.Bold=True

ELSE

Text1.Font.Bold=False

ENDIF

IF Check.Value= VbChecked Then

Text1.Font.Italic=True

ELSE

Text1.Font.Italic= False

ENDIF

IF Check.Value= VbChecked Then

Text1.Font.Underline=True

ELSE

Text1.Font. Italic = False

ENDIF

本文於修改第 2 次

引用網址：https://city.udn.com/forum/trackback.jsp?no=64139&aid=4607565

10 11【學習專欄】VB上課筆記整理－99.10.25
	推薦0


	ssvs70011 等級：留言｜加入好友

程式練習：

程式內容：

引用網址：https://city.udn.com/forum/trackback.jsp?no=64139&aid=4606214

10 11【學習專欄】VB上課筆記整理－99.10.25
	推薦0


	ssvs70010 等級：留言｜加入好友

上課日期：99.10.25

課程單元：結構化IF-THEN-ELSE的使用

筆記整理：

結構化IF-THEN-ELSE

(重層判斷)

判斷操行成績

若：1 >=90=>”優等”

2 >=80=>”甲等”

3 >=70=>”乙等”

4 >=60=>”丙等”

5 <60=>”丁等”

決策判斷表：

IF S > = 90 THEN

R$ = 〝優等〞

ELSEIF S > = 80 THEN

R$ = 〝甲等〞

ELSEIF S > = 70 THEN

R$ = 〝乙等〞

ELSEIF S > = 60 THEN

R$ = 〝丙等〞

ELSE

R$ = 〝丁等〞

END IF

本文於修改第 3 次

引用網址：https://city.udn.com/forum/trackback.jsp?no=64139&aid=4606199

【學習專欄】VB上課筆記整理--06&07
	推薦0


	ssvs70007 等級：留言｜加入好友

【學習專欄】VB上課筆記整理--06&07

上課日期：99.10.04

課程單元：資料型態、程式變數的練習

筆記整理：

一、文字資料，以$表示，每個字元佔1Byte

二、數字資料：

(1)整數，Integer，以%表示，佔2Byte

(2)長整數，Long，以&表示，佔4Byte

(3)單精準度，Single，以!表示，佔4Byte(小數以下七位)

(4)雙精準度，Double，以#表示，佔8Byte(小數以下十五位)

例：幫客戶規劃一個銷售統表

每筆資料欄位如下：

客戶名稱：8個中文字(16Byte)

數量：整數(2Byte)

單價：單精準度(4Byte)

日銷售額：整數(2Byte)

月銷售額：長整數(4Byte)

請規劃適當的資料型態

並算出每筆資料會佔用多少

儲存空間(Byte)？

佔用了28Byte

程式變數：在程式中所需用到的變數皆需宣告。

宣告變數的方式：

(1)DIM 變數名稱 AS 資料型態

例：DIM CHI AS Integer

=)宣告 CHI 為整數變數

(2)DIM 變數名稱+變數符號

例：DIM CHI%

練習１：請宣告AVG為單精準度的變數

方式1：DIM AVG AS Single

方式2：DIM AVG!

練習２：請宣告SUM為長整數的變數

方式1：DIM SUM AS Long

方式2：DIM SUM&

〈計算〉

Dim CHI, ENG, MAI, SUM As Integer

Dim AVG As Single

CHI = Val(Text1.Text)

ENG = Val(Text2.Text)

MAT = Val(Text3.Text)

SUM = CHI + ENG + MAT

AVG = SUM / 3

Label6.Caption = SUM

Label8.Caption = AVG

〈清除〉

Text1 = ""

Text2 = ""

Text3 = ""

Label6.Caption = ""

Label8.Caption = ""

Text1.SetFocus

〈結束〉

END

國文：TextBox【變換顏色】

Text1.BackColor = vbYellow

程式練習：

引用網址：https://city.udn.com/forum/trackback.jsp?no=64139&aid=4606189

3/10 筆記整理
	推薦0


	matcha2873 等級：留言｜加入好友

上課筆記整理上課日期：3/10

1.left (S$,n) =從S$字串的左邊取出N個字元
Ex：Print Left (“慈幼商二禮”,3) → 慈幼商
2.Right(S$,n)=從S$字串的右邊…
Ex：Print Right (“Visnal^Basic”,8)→ al^Basic
3.Mid(S$,n,n)=從S$字串中間的第n個字元開始
Ex：Print Mid(“Visnal^Basic”,5,6)→ al^Bas
4.Len(S$)=可得到S$的字元長度
Ex：Print Len(“商二禮^Go^ Go^Go!”)→13
5.Asc(字元)=可得到該字元的ASCII值
Ex：Print Asc(“A”)→65
6.Chr(n)=可將ASCII值n轉成相對的字元
Ex：Print Chr(70)→F

ID$=Text1.text
身分證
1. 判斷長度對不對
2. 擷取第一個字元，在判斷是否介於”A”~”Z”之間
3. 若是小寫字元，請轉換成大寫
4. 擷取出ID$的第二個字元，並判斷性別是否正確

ID$=Text1.text ID=LEN=LEN(ID$) ID1$=LEFT(ID$,1) ID2$=MID(ID$,1,2)

ASC_ID1=ASC(ID1$)’取出第一個字元的ASCII值
IF(ASC_ID1　OR ASC_ID1 )OR
(ASC_ID1　OR ASC_ID1 )THEN
MsgBox”身分證第一碼英文字母錯誤”
Exit sub
End If

IF ID_LEN<>10 THEN
MsgBox”身分證長度錯誤!”,48+vbokonly,”錯誤提醒”)
Exit sub
End If

IF(Option1.Value=True And ID2$ <> ”1”)OR
(Option2.Value=True And ID2$ <> ”2”)THEN
MsgBox”身分證性別錯誤”,48+ vbokonly,”錯誤提醒”)
Exit sub
End If

應該是這樣吧 ...

引用網址：https://city.udn.com/forum/trackback.jsp?no=64139&aid=4604036

第頁／共2頁

粉絲團