1、習題參考答案習題一一 判斷題1 2 3 4 5× 6 7× 8 9 10二 選擇題1C 2D 3C 4B 5A 6D 7A 8B 9C 10D三 程序設計題1（略）2界面設計（略） 代碼設計如下：Private Sub Command1_Click() Text2.Text = Text1.TextEnd SubPrivate Sub Command2_Click() EndEnd Sub3界面設計（略）Private Sub Command1_Click() Label1.Visible = FalseEnd SubPrivate Sub Command2_Click()

2、 Label1.Visible = TrueEnd Sub習題二一、判斷題1. 2.× 3.× 4. 5.× 6.二、單選題1.B 2.D 3.B 4.A 5.B 6.D 7.B 8.B 9.C 10.B 11.C 12.C 13.C 14.B 15.C 16.A 17.C 18.C 19.B 20.D三、程序設計題1參考程序代碼如下：Private Sub Form_click() Dim a As Integer, b As Integer, c As Integer Dim t As Integer, s As Integer a = Val(InputBo

3、x("a=", "輸入三角形的三條邊") b = InputBox("b=", "輸入三角形的三條邊") c = InputBox("c=", "輸入三角形的三條邊") t = (a + b + c) / 2 s = Sqr(t * (t - a) * (t - b) * (t - c) MsgBox "三角形的面積：" + Str(s)End Sub2參考程序代碼如下：Private Sub Form_click() Dim r As Integer,

4、s As Integer Const pi = 3.14159 r = Val(InputBox("r=", "請輸入圓的半徑") l = 2 * pi * r s = pi * r 2 Print "r=" r, "l=" l, "s=" sEnd Sub習題三一、選擇題1C 2A 3D 4C 5C 6D二、程序閱讀題（寫出下列程序的運行結果）程序1.-3 3程序2.Bcddef程序3.15 0 4程序455程序5.s=24程序6AAA 三、程序填空題1（1）q * i （2）s + p *

5、i / q （3）Next i2（1）t + m （2）m = m + 2 （3）m <= 393（1）Len(Text1.Text) （2）d & c （3）Text2.Text = d四、程序設計題1界面設計略，過程設計如下：Private Sub Form_Click() Dim x As Integer, y As Integer, z As Integer Dim t As Integer x = InputBox("請輸入x的值：") y = InputBox("請輸入y的值：") z = InputBox("請輸入z

6、的值：") If x < y Then t = x: x = y: y = t If x < z Then t = x: x = z: z = t If y < z Then t = y: y = z: z = t Print x; y; zEnd Sub2界面設計略，過程設計如下：Private Sub Form_Click() Dim x As Single, y As Single x = InputBox("請輸入x的值：") If x > 5 Then y = x - 5 ElseIf x >= 1 Then y = x *

7、 x ElseIf x > 0 Then y = Sqr(x) Else y = 0 End If Print yEnd Sub3界面設計略，過程設計如下：Private Sub Form_Click() Dim x As Single, n As Integer, d As Single Dim y As Single, s As Single, t As Single x = InputBox("輸入x的值") n = InputBox("輸入多項式的項數") s = 1 y = x For i = 2 To n d = 1 t = 1 For

8、 k = 1 To 2 * i - 1 '求多項式中一項的值 d = d * k '一項的分母 t = t * x '一項的分子 Next k s = (-1) * s '改變多項式的符號 y = y + s * t / d '求多項式之和 Next i Print "sinx=" yEnd Sub4界面設計略，過程設計如下：Private Sub Form_Click() Dim x As Single, s As Single, t As Single Dim i As Integer, n As Integer x = Inpu

9、tBox("請輸入x的值：") n = InputBox("請輸入n的值：") t = x / 2: s = t For i = 3 To n t = t * x / i s = s + t Next i Print sEnd Sub習題四一、選擇題1A2B3C4C G A C D E二、程序閱讀題（寫出下列程序的運行結果）程序118程序213程序31 4 9 16 25程序4三、程序填空題1（1）10 + Int(Rnd * 90) （2）i + 1 To 30 （3）a(i)=a(j) （4）a(i) Mod 2 = 12（1）Int(Rnd * 9

10、0) + 10 （2）arr(i) > 50 （3）sum + arr(i) 3（1）ReDim a(n, n) As Integer （2）Int(n / 2 + 0.5)（3）a(j, k) = i （4）Print四、程序設計題1界面設計略，過程設計如下：Private Sub Form_Click() Dim a(2, 5), b(5, 3), c(2, 3) For k = 1 To 2 For i = 1 To 5 a(k, i) = k + 1 Print a(k, i); Next i Print Next k Print For k = 1 To 5 For i = 1

11、 To 3 b(k, i) = k + 1 Print b(k, i); Next i Print Next k Print For k = 1 To 2 For i = 1 To 3 For j = 1 To 5 c(k, i) = c(k, i) + a(k, j) * b(j, i) Next j Print c(k, i), Next i Print Next kEnd Sub2界面設計略，過程設計如下：Private Sub Form_Click() Dim a(10) As Integer, i As Integer Dim t As Integer For i = 1 To 10

12、 a(i) = Int(Rnd * 21) + 20 Print a(i); Next i Print t = a(10) For i = 10 To 2 Step -1 a(i) = a(i - 1) Next i a(1) = t For i = 1 To 10 Print a(i); Next iEnd Sub3. 界面設計略。過程設計如下：Private Sub Form_Click() Dim might As Integer, low As Integer, high As Integer Dim i As Integer, j As Integer, flag As Boolea

13、n Dim key As Integer Dim a(10) As Integer flag = False For i = 1 To 10 a(i) = Val(InputBox("輸入有序的數：", "數據輸入") Next i key = Val(InputBox("輸入要檢索的數據：") low = 1: high = 10 might = (low + high) / 2 Do While low <= high If key = a(might) Then Print "查找的數據為：" a(mi

14、ght); "位于第" might; "位" flag = True Exit Do End If If key > a(might) Then low = might + 1 Else high = might - 1 End If might = (low + high) / 2 Loop If flag = False Then Print "查無此數"End Sub習題五一、選擇題1A B2A3D4C5D二、程序閱讀題（寫出下列程序的運行結果）程序125 50 75程序216 0三、程序填空題1（1）p = True （

15、2）m Mod i = 0 （3）i - 2, i2（1）a() Aa Double （2）n-1 （3）a(j) < a(k) 3（1）n / 2 （2）b(n - i + 1) （3）a, 10 四、程序設計題1界面設計略，過程設計如下：Private Function fsum(x() As Double, n As Integer) As Double Dim i As Integer For i = 1 To n fsum = fsum + x(i) Next i fsum = fsum / nEnd Function2界面設計略，過程設計如下：Private Sub find

16、(x() As Single, m As byte, n As Byte, _xmax As Single,ki As Byte,kj As Byte） xmax = x(1,1): ki = 1: kj = 1 For i = 1 To m For j = 1 To n If Abs(x(i, j) > Abs(xmax) Then xmax = x(i, j): ki = i: kj = j Next j, i End Sub習題六一、 選擇題1、A 2、A 3、A 4、C 5、B 6、C 7、B 8、D 9、D 10、C 11、B 12、A 13、D 14、B 15、B 16、C

17、17、B 18、B 19、D 20、C 21、C 22、B 23、B 24、D 25、D 26、C 27、D 28、A 29、A 30、D 二、 程序閱讀題1、（1）PasswordChar （2）Ucase(Text1.Text)2、（1）KeyAscii = 13 （2）n = Len(x) （3）y = y + Mid(x, i, 1) （4）Text2.Text =y3、（1）List1.ListCount （2）List1.RemoveItem i （3）i=i+14、（1）Change() （2）Hscroll1.Value （3）Scroll （4）Hscroll1_ Chang

18、e三、 程序設計題1、 過程設計如下：Private Sub Form_Load() For i = 0 To 2 Command1(i).Enabled = False Next iEnd SubPrivate Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.SelLength > 0 Then Command1(0).Enabled = True Command1(1).Enabled = True Else Command1(0).Enabled =

19、False Command1(1).Enabled = False End IfEnd SubPrivate Sub Command1_Click(Index As Integer) Command1(0).Enabled = False Command1(1).Enabled = False Select Case Index Case 0 Clipboard.Clear Clipboard.SetText Text1.SelText Command1(2).Enabled = True Case 1 Clipboard.Clear Clipboard.SetText Text1.SelTe

20、xt Text1.SelText = "" Command1(2).Enabled = True Case 2 Text1.SelText = Clipboard.GetText Command1(2).Enabled = False End SelectEnd Sub2、 過程設計如下：Private Sub Command1_Click() Text1.SetFocus Text1.Text = "" Text2.Text = "" Text3.Text = "" For i = 0 To 3 Option1(

21、i).Value = False Next iEnd SubPublic Sub Option1_Click(Index As Integer) Label1.Caption = Option1(Index).Caption Select Case Index Case 0 Text3.Text = Val(Text1.Text) + Val(Text2.Text) Case 1 Text3.Text = Val(Text1.Text) - Val(Text2.Text) Case 2 Text3.Text = Val(Text1.Text) * Val(Text2.Text) Case 3

22、If Val(Text2.Text) <> 0 Then Text3.Text = Val(Text1.Text) / Val(Text2.Text) Else Text3.Text = "" Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = 1 MsgBox "除數不能為0,請重輸或選擇其他的運算符" Option1(3).Value = False End If End SelectEnd Sub3、 過程設計如下：Private Sub Command1_Click() If Lis

23、t1.ListIndex = -1 Then MsgBox "請先選擇" Else Combo1.AddItem List1.Text List1.RemoveItem List1.ListIndex End IfEnd SubPrivate Sub Command2_Click() If Combo1.ListIndex = -1 Then MsgBox "請先選擇" Else List1.AddItem Combo1.Text Combo1.RemoveItem Combo1.ListIndex End IfEnd SubPrivate Sub Co

24、mmand3_Click() Do While List1.ListCount <> 0 Combo1.AddItem List1.List(0) List1.RemoveItem 0 LoopEnd Sub4、 過程設計如下：Private Sub Form_Load() Timer1.Interval = 200 Label1.Caption = "歡迎使用VB" Label1.Left = -Label1.WidthEnd SubPrivate Sub Timer1_Timer() If Label1.Left <= Form1.Width Then Label1.Left = Label1.Left + 100 Else Label1.Left = -Label1.Width End IfEnd Sub習題七一、 選擇題1、A