網路城邦
回本城市首頁 ☆就是要紅
市長:Show  副市長: ★〞豬糖
加入本城市推薦本城市加入我的最愛訂閱最新文章
udn城市學校社團部落格大賽【☆就是要紅】城市/討論區/
討論區【學習專欄】 字體:
看回應文章  上一個討論主題 回文章列表 下一個討論主題
【學習專欄】VB上課筆記整理(每位同學皆須回應)
 瀏覽3,806|回應18推薦0

Show
等級:8
留言加入好友

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



回應 回應給此人 推薦文章 列印 加入我的文摘

引用
引用網址:https://city.udn.com/forum/trackback.jsp?no=64139&aid=4598689
 回應文章 頁/共2頁 回應文章第一頁 回應文章上一頁 回應文章下一頁 回應文章最後一頁
09【學習專欄】VB上課筆記整理-99.10.18
推薦0


ssvs70009
等級:
留言加入好友

 

上課日期: 99.10.18

上課內容:流程圖 & 成績輸入及輸出判斷

筆記整理:

虛擬碼

輸入成績變數 S

IF S >= 60 THEN

輸出“及格”二字

ELSE ( 否則 )

輸出“不及格”三字

END IF



本文於 修改第 4 次
回應 回應給此人 推薦文章 列印 加入我的文摘
引用網址:https://city.udn.com/forum/trackback.jsp?no=64139&aid=4612250
27學習專欄
推薦0


ssvs70027
等級:
留言加入好友

 

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

上課日期:99.12.27

課程單元:迴圈前後側

筆記整理:

()迴圈-前測

要執行迴圈之前先測試是否符合條件

符合條件才進入迴圈中

 

()迴圈-後側

先執行迴圈內指令,再判斷是否要繼續執行

以前的統測題

請問:(1)前測法的方式,程式至少會被執行幾   0   

      (2)後測法的方式,程式至少會執行   1   

前測語法:

DO While 條件

  處理程式

LOOP

後測語法:

DO

   處理程式

Loop While 條件式

兩檢術科:

判斷是否為質數

A=VAL(Text1.text)

Y=0

FOR I=2 TO A\2

   IF A MOD I=0 Then Y=Y+1

Next I

IF Y=0 OR A=2 Then

  R$=A&”是一個質數

ELSE

  R$=A&”不是一個質數

End If

Label4=R$

程式練習:

 

 

 

 

 

 

 



本文於 修改第 1 次
回應 回應給此人 推薦文章 列印 加入我的文摘
引用網址:https://city.udn.com/forum/trackback.jsp?no=64139&aid=4610257
【學習專欄】28 VB上課筆記整理 100.03.03
推薦0


ssvs70028
等級:
留言加入好友

 

28 筆記整理
上課日期:33
筆記內容:複習題(迴圈)  

1.
S = o
For I = 1 To 26 step 2
 S = S + I
Next I
 Print S
 Print I




















   I



S = S + I

  1



S = 0 + 1 = 1

 3



S = 1 + 3 = 4



5



S = 4 + 5 = 9





 



27



 


2.
 S =
0
I = 1
while I < 100
 S = S + I
 I = I + 1
wend 

S=1+2+3+4+5+6+7+8+9++99+100
I =100
 =101



3.
 S =
0
I = 1
Do Until I > = 100
 S = S + I
 I = I + 1
LooP



4.
S = 0I = 1
Do
 S = S + I
 I = I + 1
LooP Until I > = 100
 Print SI 



 (先判斷)
請問:前側迴圈時程是至少會被執行 0
   後側迴圈時程是至少會被執行 1



本文於 修改第 1 次

回應 回應給此人 推薦文章 列印 加入我的文摘
引用網址:https://city.udn.com/forum/trackback.jsp?no=64139&aid=4609026
21【學習專欄】VB上課筆記整理—99.11.22
推薦0


ssvs70021
等級:
留言加入好友

 

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

上課日期: 99.11.22

課程單元:巢狀迴圈

筆記整理:結構化程式

1.For I = 1 To 3
    For J = 1 To 2
        Print "玫瑰花";
    Next J
Next I

2.For I = 1 To 3
    For J = 1 To 2
        Print "玫瑰花";
    Next J
    Print
Next I

3.For I = 1 To 5
    Print "*";
Next I

4.For I = 1 To 2
    For J = 1 To 3
        Print "*"
    Next
Next I

5.For I = 1 To 3
    For J = 2 To 4
        Print "*";
    Next
    Print
Next

6.For I = 1 To 5
    For J = 2 To 10 Step 2
        Print "*";
    Next
    Print: Print
Next

7.For I = 1 To 5
    For J = 1 To I
        Print J;
    Next
Next



本文於 修改第 2 次
回應 回應給此人 推薦文章 列印 加入我的文摘
19【學習專欄】VB上課筆記整理 - 99.11.22
推薦0


ssvs70019
等級:
留言加入好友

 

19【學習專欄】VB上課筆記整理 - 99.11.22

上課日期:99.11.22

課程單元:結構化程式設計

回應 回應給此人 推薦文章 列印 加入我的文摘
引用網址:https://city.udn.com/forum/trackback.jsp?no=64139&aid=4608716
25【學習專欄】VB上課筆記整理-99.12.27
推薦0


ssvs70025
等級:
留言加入好友

 
上課日期:99/12/27
課程單元:前測、後測
(一) 迴圈-前測
要執行迴圈之前先測試是否符合條件,符合條件才進入迴圈。

(二)迴圈-後測
先執行迴圈內指令,再判斷是否要繼續執行。

請問:
1.前測法的方式,程式至少會被執行0次
2.後測法的方式,程式至少會被執行1次
前測語法:
執行 當  成立時
┌DO While 條件
│ 處理程式
└Loop
迴圈
後測語法:
┌DO
│ 處理程式
└ Loop While 條件

Y=0
┌For I = 2 TO A \ 2
│ IF A MOD I = 0 THEN Y = Y + 1→ Y值是記錄其中有沒有可整除的
└NEXT I
IF Y = 0 OR A = 2 THEN
R$ = A & “是一個質數”
ELSE
R$ = A & “不是一個質數”
END IF
程式執行:



本文於 修改第 2 次
回應 回應給此人 推薦文章 列印 加入我的文摘
引用網址:https://city.udn.com/forum/trackback.jsp?no=64139&aid=4608044
99/03/17 上課筆記 - 身份證字號檢查 32
推薦0


ssvs70032
等級:
留言加入好友

 

ID$=Text1.text

表示ID變數是字串型態

ID$_LEN=LEN(ID$)

ID1$=Left(ID$.1)

ID2$=MID(ID$.2.1)

┌IF ID_LEN<>10Then

│    MsgBox"身份證長度錯誤!"48+vbOkOnly''錯誤提醒")

│    Exit Sub

└ End IF

┌IF(Option1.Value=True And ID$<>"1")OR
│  
│   (Option2.Value=True And ID$<>"2")Then

│   MsgBox"身份證性別錯誤!"48+vbOkOnly"錯誤提醒")

│   Exit

└   End IF

ASC_ID1 = ASC (ID1$)"取出第一個字元的ASCII值

變數 IF(ASC_ID1 < 65 AND ASC_ID1 > 90) OR

        (ASC_ID1 < 97 ASC.ID1 > 122 ) Then

        msgbox"身份證第一碼英文字母錯"

        Exit Sub

End IF

IF(ASC_ID1> = 9 7 And ASC_ID1< = 122)Then

ASC_ID1 ASS.ID1 - 32

End IF

ID1$ = CHR(ASSID1)

回應 回應給此人 推薦文章 列印 加入我的文摘
引用網址:https://city.udn.com/forum/trackback.jsp?no=64139&aid=4607959
:)
推薦0


ssvs70004
等級:
留言加入好友

 

學術:S1

術科:S2

S1 = Val (Text1.Text)

S2 =Val (Text2.Text)

IF = S1 > = 60 AND S2 > = 60 Then R$="恭喜過關"

IF = S1 < 60 AND S2 <  60 Then R$="每天留校補考"

IF = S1  = 60 AND S2 > = 60 Then R$="請補考學科"

IF = S1 > = 60 AND S2 < 60 Then R$="請補考術科"

回應 回應給此人 推薦文章 列印 加入我的文摘
引用網址:https://city.udn.com/forum/trackback.jsp?no=64139&aid=4607957
37【學習專欄】VB上課筆記整理--100.04.14
推薦0


ssvs70037
等級:
留言加入好友

 


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

上課日期:100/04/14

課程單元:陣列

筆記內容:

OPTION BASE 1 陣列值從1開始

陣列宣告:DIM 陣列變數(註解) AS 資料型態

EX
DIM A(10) AS Ineger

    FOR I = 1 TO 10

        A = I * 2

    NEXT I

練習:

1.    DIM A(30) AS Single

A陣列共有31個儲存空間

A陳列共佔多少124 Byte記憶體



2. OPTION BASE 1

  DIM B(20) AS Double

B陣列共有20個儲存空間

B陣列共有160 Byte記憶空間



二維陣列

DIM S(N,,M)

表示共有(N+1),(M+1)

Ex: DIM S(2,3) AS Integer

3.DIM S(3,4) AS Integer
S陣列共有20個儲存空間
S陳列共佔多少40 Byte記憶體




4.OPTION BASE 1

 DIM X(5,6) AS Long

X陣列共有30個儲存空間

X陳列共佔多少120 Byte記憶體



本文於 修改第 1 次
回應 回應給此人 推薦文章 列印 加入我的文摘
引用網址:https://city.udn.com/forum/trackback.jsp?no=64139&aid=4607899
23 VB上課筆記整理99.12.13
推薦0


ssvs70023
等級:
留言加入好友

 
上課日期:12/13
課程內容:迴圈控制結構
筆記內容:
使用EXIT FOR指令

1.
FOR I = 1 TO 9999 STEP 2
       S = S + I
       IF S > =  1000THEN
                      PRINT"S"=" ; S
                      EXIT FOR
   END IF
NEXT

2.
FOR I = 1 TO 3
        FOR J = 1 TO 2
                PRINT''*'';
  NEXT J
  PRINT
NEXT I

3.
FOR I = 1 TO 5
        FOR J = 1 TO I
    PRINT''*''
  NEXT J
  PRINT
NEXT



SPC(N)印出N個空白字元
FOR I = 1 TO 5
  PRINT SPC(I);"*"
NEXT



本文於 修改第 1 次
回應 回應給此人 推薦文章 列印 加入我的文摘
引用網址:https://city.udn.com/forum/trackback.jsp?no=64139&aid=4607872
頁/共2頁 回應文章第一頁 回應文章上一頁 回應文章下一頁 回應文章最後一頁