IS_F4A

電腦課外題答案(Things to do)

聖域結界天使 — Tue, 12 May 2009 08:54:17 GMT

以下內容均轉貼於f4b班網

請瀏覽以下網站!!

http://www.nelsonthornes.com/information_systems/3e_chapter10.htm

電腦分組名單 2009-05-06

CRISTIANO RONALDO — Wed, 06 May 2009 12:37:13 GMT

學號(該組組長) , 課文(CH.) 34 , 9 22 , 7 9 , 11 12 , 12 20 , 8 17 , 10 根據書上內容用英文作十條選擇題並連答案(EX:A,B,C,D),答案請把它圈上。 *不可在TESTYOUSELF抄 SUBMIT ON FIRDAY 2009-05-08

1-16題選擇題答案

CRISTIANO RONALDO — Tue, 05 May 2009 14:09:23 GMT

1.B
2.A
3.D
4.A
5.B
6.C
7.C
8.B
9.D
10.A
11.B
12.B
13.A
14.C
15.D
16.A

6-24 , 6-25 , 6-26 實作題答案

CRISTIANO RONALDO — Fri, 01 May 2009 10:32:04 GMT

6-24 , 6-25 , 6-26 實作題 1,3,5,7 抄題目連答案 1. Dim Max, Min, i As Integer Dim Scores() As Integer = {5, 8, 2, 3, 7, 6, 9, 1, 4, 8, 3, 0} Max = Scores(0) Min = Scores(0) For i = 0 To 3 If Scores(i) > Max Then Max = Scores(i) ElseIf Scores(i) < Min Then Min = Scores(i) End If Next i MsgBox("Maximum = " & Max & ...

2009-04-29 功課範圍

CRISTIANO RONALDO — Fri, 01 May 2009 05:05:56 GMT

6-22 , 6-23 選擇題
1-16題選擇題
抄題目連答案
如: A.10
B.IsFixedSize

6-24 , 6-25 , 6-26 實作題
1,3,5,7
抄題目連答案

SUBMIT ON 2009.05.06 (WEDNESDAY)

2009/04/29電腦功課參考

聖域結界天使 — Tue, 28 Apr 2009 09:04:51 GMT

各位同學，等到很辛苦嗎? 幾經艱辛，功課的首3題終於面世了! 現在謹以孝愛的心腸，興奮的心情，將此參考獻給各位尊敬的會員。而有關第4題，據steven表示，可能於晚上10時公佈，希望大家給予忍耐和支持。同時，為了令會員們能迅速而無誤地理解天主所啓示的智慧，望會員們能多加思考，並加以修改，以作為天國的滿全! 最後，我們願用一首莊嚴而又古雅的讚頌辭，來感謝天主給予我們的默感而寫成的程式碼。願光榮藉着天主聖子，在天主聖神內，並在聖教會內，永遠歸於天主聖父! Public ...

ANS:排名次(此能處理分數相同情況....)

Steven — Tue, 21 Apr 2009 11:11:41 GMT

Dim mark(5), f4a(5) As Integer Dim temp, i, j, x, y As Integer Dim ans As String = "" x = 1 For i = 1 To 5 mark(i) = InputBox("請輸入第" & i & "個數") f4a(i) = mark(i) Next For j = 1 To 4 For i = (j + 1) To 5 If mark(j) < mark(i) Then temp = mark(j) mark(j) = mark(i) ...

ANS:開口中

Steven — Tue, 21 Apr 2009 11:05:40 GMT

Dim com, player, max, min As Integer Dim ans As String = "" max = 100 min = 1 Randomize() com = Int(Rnd() * 100) + 1 Do player = InputBox("開口中：請輸入你猜的號碼，範圍是" & min & "~" & max & "，離開請輸入0") Do While (player >= max Or player <= min And player <> 0) MsgBox("你輸入的號碼超出範圍(" ...

ANS:排名次(此只能處理分數不相同情況)

Steven — Tue, 21 Apr 2009 11:30:45 GMT

Dim mark(5), f4a(5) As Integer Dim temp, i, j As Integer Dim ans As String = "" For i = 1 To 5 mark(i) = InputBox("請輸入第" & i & "個數") f4a(i) = mark(i) Next For j = 1 To 4 For i = (j + 1) To 5 If mark(j) < mark(i) Then temp = mark(j) mark(j) = mark(i) mark(i) = temp ...

COMPUTER HOMEWORK

CRISTIANO RONALDO — Mon, 09 Mar 2009 11:24:40 GMT

SUBMIT ON THURSDAY

DO WHILE 迴圈 2

Steven — Tue, 13 Jan 2009 15:19:36 GMT

Dim z As Integer Dim x As String x = InputBox("請輸入Y/Z(Y代表繼續；Z代表離開)") Do While x = "Y" //判斷是否輸入了"Y" z = z + 1 MsgBox("繼續") x = InputBox("請輸入Y/Z(Y代表繼續；Z代表離開)") Loop//因為輸入了Y，所以回到DO WHILE If x = "Z" Then MsgBox("離開") MsgBox(z) ...

DO WHILE 迴圈

Steven — Tue, 13 Jan 2009 15:05:01 GMT

Dim x As Integer = 90 //x 的開始值 Dim y, ans As String ans = "" Do While x > 64 //設定x 運算到哪一個字母的CODE y = Chr(x) x = x - 1 ans = ans & y & " " Loop MsgBox(ans) 顯示結果為 Z Y X W........C B A 假如要順次序就改一改其數值

[下載]Microsoft Visual Basic 2005 Express Edition

Steven — Sat, 06 Sep 2008 12:30:43 GMT

http://go.microsoft.com/fwlink/?LinkId=51405&clcid=0x404

LCM 僅供參考

聖域結界天使 — Tue, 02 Dec 2008 12:45:23 GMT

Dim num1, num2, i , ans As Integer
num1 = InputBox("請輸入數字(整數)")
num2 = InputBox("請輸入數字(整數)")
For i = - num1 * num2 To -1
If i Mod num1 = 0 And i Mod num2 = 0 Then
ans = -i
End If
Next
MsgBox(ans)

我自己打的，不是從VB Copy 過來，不過基本就是這樣，你們自己參考!!!!
可能有錯漏啊........................

IT Week 網頁設計

Steven — Wed, 26 Nov 2008 04:32:09 GMT

F3/4/5 IT Week 網頁設計每位學生必需到會場參觀, 並在會場門口及場內拍照, 有需要時可加入影片, (相片內需有學生本人的照片), 必須製作之項目: IT week 簡介, 展覽時間及地點, 場內花絮, 最新資訊科技產品,感興趣的項目及展品(最少5項, 並簡介), 本次收獲(如有購買產品, 若沒有不需要做) , 感想等。評分標準: 整體設計(15%), 美感(15%), 技術使用(30%), 內容編排及搜集(30%), Flash ...

11月5日課堂回顧

Steven — Sun, 09 Nov 2008 09:30:12 GMT

Dim i, total As Integer
Dim showans As String
showans = ""
For i = 1 To 100

If i Mod 7 = 0 Then
total = total + 1
showans = showans & i & " "
End If
Next
MsgBox(showans & Chr(13) & total)
End Sub

有唔明請發問~~~~~

about the computer test

Bryan — Tue, 14 Oct 2008 15:36:44 GMT

判斷三角形
設計一程式可判斷是否為三角形，並且依輸入三邊長(A、B、C)判斷為何種三角形。三角形：任意二邊和大於第三邊。
三角形種類：銳角三角形、鈍角三角形、直角三角形、正三角形、等腰三角形。

COMPUTER TEST ......

LoN — Tue, 14 Oct 2008 12:00:49 GMT

1. Inputbox ID Dim a As Double Dim num1, num2, num3, num4, num5, num6, num7 As Double Dim total As Double Dim ans As Double a = InputBox("enter a seventh number") num1 = ((a \ 10 ^ 0) Mod 10) * 2 num2 = ((a \ 10 ^ 1) Mod 10) * 3 num3 = ((a \ 10 ^ 2) Mod 10) * 4 num4 = ((a \ 10 ^ 3) Mod 10) * 5 num5 = ((a \ 10 ^ 4) Mod 10) * 6 num6 = ((a \ 10 ^ 5) Mod 10) * 7 num7 = ((a \ 10 ^ 6) Mod 10) * 8 total = num1 + num2 + num3 + num4 + num5 + num6 + num7 ans = 11 - ...

9月17日課堂回顧

won — Tue, 23 Sep 2008 12:08:25 GMT

呢到就係嗰d程式碼啦詳盡解釋我就唔打咁多啦最重要就係最尾三個所有野都係button到輸入 Dim num1, num2, num3, num4, num5, num6, num7 As Integer Dim total As Integer Dim ans As Integer num1 = TextBox1.Text * 8 num2 = TextBox2.Text * 7 num3 = TextBox3.Text * 6 num4 = TextBox4.Text * 5 num5 = TextBox5.Text * 4 num6 = TextBox6.Text * 3 num7 = TextBox7.Text * 2 total = num1 + num2 + num3 + num4 + num5 + num6 + num7 ans = 11 - (total ...

2008-9-17XXXXXXXX

m_ipx — Wed, 17 Sep 2008 04:38:42 GMT

Dim total As Long Dim check_digit As Byte Dim num1, num2, num3, num4, num5, num6, num7 As Byte num7 = TextBox1.Text * 8 num6 = TextBox2.Text * 7 num5 = TextBox3.Text * 6 num4 = TextBox4.Text * 5 num3 = TextBox5.Text * 4 num2 = TextBox6.Text * 3 num1 = TextBox7.Text * 2 total = num1 + num2 + num3 + num4 + num5 + num6 + num7 check_digit = 11 - (total Mod 11) If check_digit = 10 ...

9月10日課堂回顧

Steven — Tue, 16 Sep 2008 14:43:52 GMT

首先，我們要建立一個版面。在檢視→工具箱裏點選需要的物件，例如按鈕、Label等要執行一個program就要在相應地方輸入指令例如：開啟按鈕的程式碼，然後打上物件名稱 . 屬性= (你想要的效果)，就可以驅使按鈕改變某物件的屬性值，屬性值包括文字、字型、字體顏色…..等等，大家慢慢摸索啦!! 另外，如果想宣告變數，必須打上 Dim 變數名 as integer ，例如： ...