2014.12.24 電腦軟體設計丙級 1-5 基本題 (By:陳致中老師講義)
Private Sub Command1_Click() Dim A, B, C, D As String
Open "C:\title.txt" For Input As #1 Input #1, A, B, C, D Close #1 Printer.Print "姓名：" & A, Printer.Print "准考證號碼：" & C Printer.Print "座號：" & B, Printer.Print "日期：" & D ex1 ex2 ex3 ex4 ex5 Printer.EndDoc End Sub
Private Sub Form_Load() A = Shell("C:\11900\title.exe", 1) End Sub
Private Sub ex1()
'*************************************** '* 11900-940301 program start * '*************************************** Open "C:\11900\940301.T01" For Input As #1 Input #1, A Close #1 AA = A For I = 1 To 20 M = A Mod 10 A = A \ 10 B = B * 10 + M If A = 0 Then Exit For Next I
If AA = B Then
Printer.Print "第一題結果：" & AA & " is a palindrome" Else
Printer.Print "第一題結果：" & AA & " is not a palindrome" End If
End Sub
Private Sub ex1()
'*************************************** '* 11900-940301 program start * '*************************************** Open "C:\11900\940301.T02" For Input As #1 Input #1, A Close #1 AA = A Do While A <> 0 M = A Mod 10 A = A \ 10 B = B * 10 + M Loop If AA = B Then
Printer.Print "第一題結果：" & AA & " is a palindrome" Else
Printer.Print "第一題結果：" & AA & " is not a palindrome" End If
End Sub
Private Sub ex2()
'*************************************** '* 11900-940302 program start * '*************************************** Open "C:\11900\940302.T01" For Input As #1 Input #1, A Close #1 Printer.Print "第二題結果：" For I = 1 To A For J = 1 To I Printer.Print J; Next J Printer.Print Next I End Sub
Private Sub ex2()
'*************************************** '* 11900-940302 program start * '*************************************** Open "C:\11900\940302.T02" For Input As #1 Input #1, A Close #1 Printer.Print "第二題結果：" I = 1 Do While I <= A J = 1 Do While J <= I Printer.Print J; J = J + 1 Loop Printer.Print I = I + 1 Loop End Sub
Private Sub ex3()
'*************************************** '* 11900-940303 program start * '*************************************** Open "C:\11900\940303.T01" For Input As #1 Input #1, A
Close #1 TEST = 1 For I = 2 To A - 1
TEST = TEST * (A Mod I) Next I
If TEST = 0 Then
Printer.Print "第三題結果：" & A & " is not a prime number." Else
Printer.Print "第三題結果：" & A & " is a prime number." End If
End Sub
Private Sub ex3()
'*************************************** '* 11900-940303 program start * '*************************************** Open "C:\11900\940303.T02" For Input As #1 Input #1, A
Close #1 TEST = 1 I = 2
Do While I <= A \ 2
TEST = TEST * (A Mod I) I = I + 1
If TEST = 0 Then
Printer.Print "第三題結果：" & A & " is not a prime number." Else
Printer.Print "第三題結果：" & A & " is a prime number." End If
End Sub
Private Sub ex4()
'*************************************** '* 11900-940304 program start * '*************************************** Dim BMI, C As Integer
Open "C:\11900\940304.T01" For Input As #1 BMI = 99
For I = 1 To 3 Input #1, A, B A = A / 100 C = B / (A * A)
If C < BMI Then BMI = C Next I
Close #1
If BMI < 20 Or BMI > 25 Then
Printer.Print "第四題結果：最小 BMI 值=" & BMI & "，不正常" Else
Printer.Print "第四題結果：最小 BMI 值=" & BMI & "，正常" End If
End Sub
Private Sub ex4()
'*************************************** '* 11900-940304 program start * '*************************************** Dim BMI, C As Integer
Open "C:\11900\940304.T02" For Input As #1 BMI = 99 I = 1 Do Input #1, A, B A = A / 100 C = B / (A * A)
If C < BMI Then BMI = C I = I + 1
Loop While I <= 3
Close #1
If BMI < 20 Or BMI > 25 Then
Printer.Print "第四題結果：最小 BMI 值=" & BMI & "，不正常" Else
Printer.Print "第四題結果：最小 BMI 值=" & BMI & "，正常" End If
End Sub
Private Sub ex5()
'*************************************** '* 11900-940305 program start * '*************************************** Dim A(2, 2), B(2, 2), S(2, 2) As Integer
Open "C:\11900\940305.T01" For Input As #1 Input #1, A(1, 1), A(1, 2), A(2, 1), A(2, 2) Input #1, B(1, 1), B(1, 2), B(2, 1), B(2, 2) Close #1
Printer.Print "第五題結果：" For I = 1 To 2
For J = 1 To 2
S(I, J) = A(I, J) + B(I, J) Next J
Printer.Print "[" & S(I, 1), S(I, 2) & "]" Next I
End Sub
Private Sub ex5()
'*************************************** '* 11900-940305 program start * '*************************************** Dim A(2, 2), B(2, 2), S(2, 2) As Integer
Open "C:\11900\940305.T02" For Input As #1 Input #1, A(1, 1), A(1, 2), A(2, 1), A(2, 2) Input #1, B(1, 1), B(1, 2), B(2, 1), B(2, 2) Close #1 Printer.Print "第五題結果：" I = 1 Do While I <= 2 J = 1 Do While J <= 2
S(I, J) = A(I, J) + B(I, J) J = J + 1
Loop
Printer.Print "[" & S(I, 1), S(I, 2) & "]" I = I + 1
Loop End Sub
程式一開始執行會先執行程式碼 A = Shell("C:\11900\title.exe", 1)，接 著會出現底下畫面，資料填完後記得按確定。
平時練習建議先安裝虛擬印表機如 doPDF 、Bullzip PDF Printer， 實際考試每人均有印表機列印喔！執行畫面如下(實際考試是五題當 中抽3題測驗，且測試檔案切勿弄錯)：
