vb程序设计教程课后答案与实验题答案（第三版）(9)

G．5

Private Sub Command1_Click() CommonDialog1.ShowColor

Label1.ForeColor = CommonDialog1.Color End Sub

Private Sub Command2_Click() CommonDialog1.ShowOpen

i = Shell(\End Sub

G．6

rivate Sub bold_Click()

Text1.FontBold = Not Text1.FontBold bold.Checked = Not bold.Checked End Sub

Private Sub del_Click() Text1 = \End Sub

Private Sub end_Click() End End Sub

Private Sub font12_Click() Text1.FontSize = 12 End Sub

Private Sub font16_Click() Text1.FontSize = 16 End Sub

Private Sub Form_Load() bold.Checked = False italic.Checked = False End Sub

Private Sub italic_Click()

Text1.FontItalic = Not Text1.FontItalic italic.Checked = Not italic.Checked End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu menu2 End Sub

G．7

Private Sub Command1_Click() CommonDialog1.ShowColor

Label1.ForeColor = CommonDialog1.Color End Sub

Private Sub Command2_Click() CommonDialog1.ShowOpen

i = Shell(\End Sub

Private Sub return_Click(Index As Integer) Form6.Show Unload Form5 End Sub

G．8 G．9

Private Sub 结束_Click() End End Sub

Private Sub 删除最大值_Click() max = List1.List(0)

For i = 1 To List1.ListCount - 1

If max < List1.List(i) Then max = List1.List(i): j = i Next i

List1.RemoveItem j End Sub

Private Sub 删除最小值_Click() min = List1.List(0)

For i = 1 To List1.ListCount - 1

If min > List1.List(i) Then min = List1.List(i): j = i Next i

List1.RemoveItem j End Sub

Private Sub 随机产生_Click()

Randomize For i = 0 To 9

List1.List(i) = Int(Rnd * 30 + 70) Next i End Sub

Private Sub 添加数据_Click() List1.AddItem Int(Rnd * 30 + 70) End Sub

Private Sub 统计_Click()

Dim max%, min%, ave!, m%, n% max = List1.List(0) min = List1.List(0) ave = List1.List(0) m = 0 n = 0

For i = 1 To List1.ListCount - 1

If max < List1.List(i) Then max = List1.List(i): m = i If min > List1.List(i) Then min = List1.List(i): n = i ave = ave + List1.List(i) Next i

Form2.Text1 = List1.List(n) Form2.Text2 = List1.List(m)

Form2.Text3 = Format(ave / List1.ListCount, \Form2.Show

End Sub

G．10

Private Sub experimentG2_Click() Form2.Show End Sub

Private Sub experimentG3_Click() Form3.Show End Sub

Private Sub experimentG4_Click() Form4.Show End Sub

Private Sub experimentG5_Click() Form5.Show

End Sub

Private Sub font_12_Click() Text1.FontSize = 12 End Sub

Private Sub font_16_Click() Text1.FontSize = 16 End Sub

Private Sub rnd10_Click() Randomize For i = 0 To 9

List1.List(i) = Int(Rnd * 30 + 70) Next i End Sub

Private Sub stat_Click()

Dim max%, min%, ave!, m%, n% max = List1.List(0) min = List1.List(0) ave = List1.List(0) m = 0 n = 0

For i = 1 To List1.ListCount - 1

If max < List1.List(i) Then max = List1.List(i): m = i If min > List1.List(i) Then min = List1.List(i): n = i ave = ave + List1.List(i) Next i

stat2.Text1 = List1.List(n) stat2.Text2 = List1.List(m)

stat2.Text3 = Format(ave / List1.ListCount, \stat2.Show End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu caidan2, vbPopupMenuCenterAlign End Sub

Private Sub xie_Click()

Text1.Font.Italic = Not Text1.Font.Bold End Sub

H．1

Private Sub Command1_Click() Open \Print #1, \王海涛\Print #1, \周文英\Print #1, \陈建东\Open \Write #2, \王海涛\Write #2, \周文英\Write #2, \陈建东\Close

i1 = Shell(\i2 = Shell(\End Sub

Private Sub Command2_Click()

Dim no As String, name As String, s As Integer Open \Do While Not EOF(1) Line Input #1, linedata List1.AddItem linedata Loop

Open \Do While Not EOF(2) Input #2, no, name, s

List2.AddItem no & name & s Loop Close End Sub

H．2

Private Sub Command1_Click() Dim fib%(0 To 9), i%

Open \For i = 0 To 9

If i = 0 Or i = 1 Then fib(i) = i Else

fib(i) = fib(i - 1) + fib(i - 2) End If

Print #1, \Next i Close #1

i = Shell(\End Sub