Microsoft PowerPoint - VB3

Size: px

Start display at page:

Download "Microsoft PowerPoint - VB3"

绝丽骆
5 years ago
Views:

1 Visual Basic 6.0 & VB.NET 丙檢設計第一站資科系林偉川 VB 之 for 指令 for 變數 = 初值 to 終值 step 增值多個指令 Next 中途離開用 if 指令判斷條件成立後 exit for Ex: Q=2, w=100, e=2, s=0 For i = q To w Step e s = s + i Next i 2 1

2 VB6 提供之內建函數 End 執行結束 Msgbox 顯示訊息視窗 Inputbox 輸入對話視窗 Print 顯示訊息於 Form 物件上 Val( 文字串 ) 文字轉數值 Str( 數值 ) 數值轉文字 Round( 數值, 小數幾位 ) 保留幾位小數 Mid$( 文字串, 開始位置, 個數 ) Len( 文字串 ) 文字串長度 3 VB6 檔案處理循序檔讀檔指令格式 open 檔案名稱 for input as #1 input#1, 變數 1, 變數 2, close#1 寫檔指令格式 open 檔案名稱 for output as #1 print#1, 變數 1, 變數 2, close#1 4 2

3 VB.NET 檔案處理循序檔讀檔模式 OpenMode.Input 指令格式 FileOpen(1, 檔案名稱, OpenMode.Input) Input(1, 變數 1) V.S. LineInput(1, 變數 1) Input(1, 變數 2) 寫檔模式 OpenMode.Output OpenMode.append 指令格式 FileOpen(1, 檔案名稱, OpenMode.Output) PrintLine(1, 變數 1 & 變數 2, ) V.S. Print(1, ) 5 VB.NET 提供之內建函數 End 執行結束 Msgbox 顯示訊息視窗 Inputbox 輸入對話視窗 CInt( 文字串 ) 文字轉數值 Str( 數值 ) 數值轉文字 Fix( 數值 ) 去尾數 Mid$( 文字串, 開始位置, 個數 ) Len( 文字串 ) 文字串長度 6 3

4 VB.NET 提供宣告陣列一維陣列 dim a(10) as integer a(0) a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10) 二維陣列 dim a(3,4) as integer 0,0 0,1 0,2 0,3 0,4 1,0 1,1 1,2 1,3 1,4 2,0 2,1 2,2 2,3 2,4 3,0 3,1 3,2 3,3 3,4 7 指令於 VB.NET 中執行另一程式 Shell( 執行檔, vbnormalfocus) 丙級之輸入姓名座號及日期並列印之 8 4

5 VB.NET 之 select case 指令 Select case Case 1 指令 1 Case 2 指令 2 End if Case 3 指令 3 End Select 9 第一站試題 BASIC 基本指令操作編號試題名稱迴文判斷直角三角形列印質數計算 BMI 值計算矩陣相加五選三 (45 分鐘 ) 迴圈方法 10 5

6 迴圈方法測試檔資料共分三組, 每組各有四題資料檔每場考試均需由應檢人員重新抽取一組測試資料及迴圈指令, 所有迴圈動作, 只能使用抽中之迴圈指令完成資料組別如下 : 組別測試資料檔名迴圈指令第一組 T01 至 T01 For..Next 迴圈第二組 T02 至 T02 While Loop 前測試迴圈第三組 T03 至 T03 Loop While 後測試迴圈 11 VB6 第一題累加值 Open "a:\ sm" For Input As #1 Input #1, q, w, e Close #1 For i = q To w Step e s = s + i Next i i=q while i<=w s = s + I i=i+e Print " 第一題結果 : "; s i=q s = s + I i=i+e Loop while i<=w 12 6

7 VB.NET 第一題迴文判斷 Dim i, n, t As Integer FileOpen(1, "d:\ sm", OpenMode.Input) Input(1, t) p=t 13 VB.NET 第一題迴文判斷 (for ) For i = 1 To 99 z(i) = t Mod 10 : t = t \ 10 If t = 0 Then Exit For Next n = i : t = 0 For i = 1 To (n + 1) \ 2 If z(i) <> z(n - i + 1) Then t = 1 : Exit For Next 14 7

8 VB.NET 第一題迴文判斷 (do while ) while i<=99 z(i) = t Mod 10 : t = t \ 10 If t = 0 Then Exit do n = i : t = 0 : while i<= (n + 1) \ 2 If z(i) <> z(n - i + 1) Then t = 1 : Exit do 15 VB.NET 第一題迴文判斷 (do while) z(i) = t Mod 10 : t = t \ 10 If t = 0 Then Exit do Loop while i<=99 n = i : t = 0 : If z(i) <> z(n - i + 1) Then t = 1 : Exit do while i<= (n + 1) \

9 VB.NET 第一題迴文判斷 FileOpen(1, "d:\t1.txt", OpenMode.Append) If t = 0 Then PrintLine(1, " 第一題結果 :" & p & " is a palindrome.") Else PrintLine(1, " 第一題結果 :" & p & " is a is not a palindrome.") 17 VB6 第二題數字轉換二進位 Open "a:\ sm" For Input As #1 Input #1, q, w, e Close #1 X=q e=2 For i = 1 To 99 r = x Mod e x = x \ e ans = r & ans If x = 0 Then Exit For Next i X=q e=2 while x <> 0 r = x Mod e x = x \ e ans = r & ans X=q e=2 r = x Mod e x = x \ e ans = r & ans Loop while x <> 0 Print " 第二題結果 : "; ans 18 9

10 VB.NET 第二題直角三角形列印 Dim i As Integer,j As Integer, k As Integer FileOpen(1, "d:\ sm", OpenMode.Input) : Input(1,k) : FileOpen(1, "d:\t1.txt", OpenMode.Append) : PrintLine(1, " 第二題結果 :") For i = 1 To k For j = 1 To i Print(1, j) Next j PrintLine(1, "") Next i do wile i<=k j=1 do while j<=i Print(1, j) : j=j+1 PrintLine(1, "") : do j=1 do Print(1, j) : j=j+1 while j<=i PrintLine(1, "") : wile i<=k 19 VB.NET 第二題直角三角形列印 Dim j, k As Integer FileOpen(1, "d:\ sm", OpenMode.Input) Input(1,k) FileOpen(1, "d:\t1.txt", OpenMode.Append) PrintLine(1, " 第二題結果 :") 20 10

11 VB.NET 第二題直角三角形列印 (for ) For i = 1 To k For j = 1 To i Print(1, j) Next j PrintLine(1, "") Next i 21 VB.NET 第二題直角三角形列印 (do while ) do wile i<=k j=1 do while j<=i Print(1, j) : j=j+1 PrintLine(1, "") : 22 11

12 VB.NET 第二題直角三角形列印 (do while) do j=1 do Print(1, j) : j=j+1 while j<=i PrintLine(1, "") : wile i<=k 23 Open "a:\ sm" For Input As #1 Input #1, x Close #1 K=0 If x >3 then For i = 2 To x-1 If x Mod i = 0 Then k=1 exit for end if Next I End if Print 第三題結果 : "; If k = 0 Then Print x & " is a prime number." Else Print x & " is not a prime number." VB6 第三題質數判斷 K=0 If x >3 then i=2 do while i<= x-1 If x Mod i = 0 Then k=k+1 exit do end if End if K=0 If x >3 then i=2 do If x Mod i = 0 Then k=k+1 exit do end if while i<= x-1 End if 24 12

13 VB.NET 第三題質數判斷 FileOpen(1, "d:\ sm", OpenMode.Input) Input(1, k) 25 VB.NET 第三題質數判斷 (for ) j = 0 If k >= 3 Then For i = 2 To k - 1 If k Mod i = 0 Then j = 1 : Exit For Next 26 13

14 VB.NET 第三題質數判斷 (do while ) j = 0 If k >= 3 Then i = 2 While i <= k - 1 If k Mod i = 0 Then j = 1 : Exit Loop 27 VB.NET 第三題質數判斷 (do while) j = 0 If k >= 3 Then i = 2 If k Mod i = 0 Then j = 1 : Exit Loop While i <= k

15 VB.NET 第三題質數判斷 FileOpen(1, "d:\t1.txt", OpenMode.Append) If j = 1 Then PrintLine(1, " 第三題結果 :" & k & " is not a prime number") Else PrintLine(1, " 第三題結果 :" & k & " is a prime number") 29 VB.NET 第三題質數判斷 FileOpen(1, "d:\ sm", OpenMode.Input) : Input(1, k) : Dim i As Integer, j As Integer, k As Integer j = 0 If k >= 3 Then For i = 2 To k - 1 If k Mod i = 0 Then j = 1 : Exit For Next j = 0 If k >= 3 Then i = 2 While i <= k - 1 If k Mod i = 0 Then j = 1 : Exit Loop j = 0 If k >= 3 Then i = 2 If k Mod i = 0 Then j = 1 : Exit Loop While i <= k - 1 FileOpen(1, "d:\res.txt", OpenMode.Append) If j = 1 Then PrintLine(1, " 第三題結果 :" & k & " is not a prime number") Else PrintLine(1, " 第三題結果 :" & k & " is a prime number") 30 15

16 VB6 第四題單元矩陣 Open "a:\ sm" For Input As #1 Input #1, x Close #1 Dim a(99, 99) Print 第四題結果 : " For i = 1 To x For j = 1 To x a(i, j) = 0 If (i = j) Then a(i, j) = 1 Print a(i, j); Next j Print Next i while i<=x j=1 do while j<=x a(i, j) = 0 If (i = j) Then a(i, j) = 1 Print a(i, j); j=j+1 Print j=1 do a(i, j) = 0 If (i = j) Then a(i, j) = 1 Print a(i, j); j=j+1 while j<=x Print Loop while i<=x 31 VB.NET 第四題 BMI 值計算 (for ) Dim min, w, h, bmi(3) As Integer FileOpen(1, "D:\ t01", OpenMode.Input) For i = 1 To 3 Input(1, h) : Input(1, w) a = h / ' 176==> 1.76 bmi(i) = w / (a * a) Next min = bmi(1) For i = 2 To 3 If min > bmi(i) Then min = bmi(i) Next 32 16

17 VB.NET 第四題 BMI 值計算 (do while ) FileOpen(1, "D:\ t02", OpenMode.Input) i = 1 While i <= 3 Input(1, h) : Input(1, w) a = h / ' 176==> 1.76 bmi(i) = w / (a * a) Loop min = bmi(1) i = 2 While i <= 3 If min > bmi(i) Then min = bmi(i) Loop 33 VB.NET 第四題 BMI 值計算 (do while) FileOpen(1, "D:\ t03", OpenMode.Input) i = 1 Input(1, h) : Input(1, w) a = h / ' 176==> 1.76 bmi(i) = w / (a * a) Loop While i <= 3 min = bmi(1) i = 2 If min > bmi(i) Then min = bmi(i) Loop While i <=

18 VB.NET 第四題 BMI 值計算 FileOpen(1, "d:\t1.txt", OpenMode.Append) If min >= 20 And min <= 25 Then PrintLine(1, " 第四題結果 :" & " 最小 BMI 值 =" & min & ", 正常 ") Else PrintLine(1, " 第四題結果 :" & " 最小 BMI 值 =" & min & ", 不正常 ") 35 VB.NET 第四題 BMI 值計算 Dim h As Integer, w As Integer, bmi(3) As Integer, min As Integer, a As uble FileOpen(1, "D:\ sm", OpenMode.Input) For i = 1 To 3 : Input(1, h) : Input(1, w) : a = h / : bmi(i) = w / (a * a) : Next min = bmi(1) For i = 2 To 3 If min > bmi(i) Then min = bmi(i) Next i = 2 While i <= 3 If min > bmi(i) Then min = bmi(i) Loop FileOpen(1, "d:\res.txt", OpenMode.Append) If min >= 20 And min <= 25 Then PrintLine(1, " 第四題結果 : 最小 BMI 值 =" & min & ", 正常 ") Else PrintLine(1, " 第四題結果 : 最小 BMI 值 =" & min & ", 不正常 ") i = 2 If min > bmi(i) Then min = bmi(i) Loop While i <=

19 VB6 第五題矩陣相加 Dim b(2, 2), c(2, 2), d(2, 2) Open "a:\ sm" For Input As #1 Input #1, b(1, 1), b(1, 2), b(2, 1), b(2, 2) Input #1, c(1, 1), c(1, 2), c(2, 1), c(2, 2) Close #1 For i = 1 To 2 For j = 1 To 2 d(i, j) = b(i, j) + c(i, j) Next j Next i Print 第五題結果 : " Print "["; d(1, 1); " "; d(1, 2); "]" Print "["; d(2, 1); " "; d(2, 2); "]" while i<=2 j=1 do while j<=2 d(i, j) = b(i, j) + c(i, j) j=j+1 j=1 do d(i, j) = b(i, j) + c(i, j) j=j+1 while j<=2 while i<=2 37 VB.NET 第五題矩陣相加 Dim a(2, 2), b(2, 2), c(2, 2) As Integer FileOpen(1, "d:\ sm", OpenMode.Input) Input(1, a(1, 1)) : Input(1, a(1, 2)) Input(1, a(2, 1)) : Input(1, a(2, 2)) Input(1, b(1, 1)) : Input(1, b(1, 2)) Input(1, b(2, 1)) : Input(1, b(2, 2)) 38 19

20 VB.NET 第五題矩陣相加 (for ) For i = 1 To 2 For j = 1 To 2 c(i, j) = a(i, j) + b(i, j) Next Next 39 VB.NET 第五題矩陣相加 (do while ) i = 1 While i <= 2 j = 1 While j <= 2 c(i, j) = a(i, j) + b(i, j) j = j + 1 Loop Loop 40 20

21 VB.NET 第五題矩陣相加 (do while) i = 1 j = 1 c(i, j) = a(i, j) + b(i, j) j = j + 1 Loop While j <= 2 Loop While i <= 2 41 VB.NET 第五題矩陣相加 FileOpen(1, "d:\t1.txt", OpenMode.Append) PrintLine(1, " 第五題結果 :") PrintLine(1, "[" & c(1, 1) & vbtab & c(1, 2) & "]") PrintLine(1, "[" & c(2, 1) & vbtab & c(2, 2) & "]") 42 21

22 VB.NET 第五題矩陣相加 Dim a1(2, 2), b1(2, 2), c1(2, 2) As Integer FileOpen(1, "d:\ sm", OpenMode.Input) Input(1, a1(1, 1)) : Input(1, a1(1, 2)): Input(1, a1(2, 1)) : Input(1, a1(2, 2)) Input(1, b1(1, 1)) : Input(1, b1(1, 2)): Input(1, b1(2, 1)) : Input(1, b1(2, 2)) For i = 1 To 2 For j = 1 To 2 c1(i, j) = a1(i, j)+b1(i, j) Next j Next i while i<=2 j=1 do while j<=2 c1(i, j) = a1(i, j)+b1(i, j) j=j+1 FileOpen(1, "d:\t1.txt", OpenMode.Append) PrintLine(1, " 第五題結果 :") PrintLine(1, "[" & c1(1, 1) & vbtab & c1(1, 2) & "]") PrintLine(1, "[" & c1(2, 1) & vbtab & c1(2, 2) & "]") j=1 do c1(i, j) = a1(i, j)+b1(i, j) j=j+1 while j<=2 while i<=2 43 VB 執行次序 Form 事件的執行次序 Load Resize Activate Form_click 必需手動!! 一開始執行時要先設定姓名座號等 Private Sub Form_Load() ok = Shell("a:\title.exe", 1) End Sub Private Sub Form_Click() 題目指令位置 End sub 44 22

Microsoft PowerPoint - VB5

Microsoft PowerPoint - VB5 Visual Basic 6.0 (V) & VB.NET 丙檢試題第二站第一題身分證號碼資科系林偉川第二站試題 BASIC 應用程式設計編號試題名稱 119-890306 身分證號碼檢查 119-890307 高速公路車輛統計 119-890308 分數加減乘除運算三選一 (80 分鐘 ) 2 1 VB6 第二站第一題身分證號碼由循序檔讀入多筆記錄 Frame 物件母件單一物件