Page 135 -

附錄四：11900 電腦軟體設計丙級學科題庫(105 年新版)

4.[考生資料]std 按鈕程式
5.[列印答案]pans 按鈕程式

6.pd 列印文件程式

Dim a, b, c, d, x As String

FileOpen(1, "c:\title.txt", OpenMode.Input)

Input(1, a) : Input(1, b) : Input(1, c) : Input(1, d)

FileClose(1)

Dim vn = vbNewLine 准考證號碼：[" & c & "]" & vn
x = x & "姓名：[" & a & "] 考 試 日 期：[" & d & "]" & vn & vn
x = x & "座號：[" & c & "]

x = x & t01.Text & vn & vn

x = x & t03.Text & vn & vn

x = x & t05.Text & vn & vn

e.Graphics.DrawString(x, t01.Font, Brushes.Black, 100, 100)

131