VB2005课后习题解答

第三章1．Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim min As IntegerDim max As IntegerDim r1, r2, r3 As Integermin = Val(TextBox1.Text)max = Val(TextBox2.Text)If (max > min) ThenRandomize()r1 = CInt(Rnd() * Int(max - min + 1) + min)TextBox3.Text = r1r2 = CInt(Rnd() * Int(max - min + 1) + min)TextBox4.Text = r2r3 = CInt(Rnd() * Int(max - min + 1) + min)TextBox5.Text = r3End IfEnd Sub2.Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i As IntegerDim j, m, n, h, f, g As Integeri = TextBox1.Textj = i \ 100m = (i - j * 100) \ 50n = (i - j * 100 - m * 50) \ 20h = (i - j * 100 - m * 50 - n * 20) \ 10f = (i - j * 100 - m * 50 - n * 20 - h * 10) \ 5g = (i - j * 100 - m * 50 - n * 20 - h * 10 - f * 5) \ 1TextBox2.Text = jTextBox3.Text = mTextBox4.Text = nTextBox5.Text = hTextBox6.Text = fTextBox7.Text = gEnd SubEnd Class8．Public Class Form1Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChangedDim h, m As StringDim i As Integeri = ComboBox1.TextIf i = 1 Thenh = "星期一"m = "Monday"ElseIf i = 2 Thenh = "星期二"m = "Tuesday"ElseIf i = 3 Thenh = "星期三"m = "Wednesday"ElseIf i = 4 Thenh = "星期四"m = "Thursday"ElseIf i = 5 Thenh = "星期五"m = "Friday"ElseIf i = 6 Then h = "星期六" m = "Saturday"Elseh = "星期日" m = "Sunday"End IfTextBox1.Text = h TextBox2.Text = mEnd SubEnd Class9.Public Class Form1Public a As DatePublic b, c, d As IntegerDim ch As StringPrivate Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChangedb = Hour(a)If RadioButton1.Checked = True ThenIf b <= 12 And c < 0 Thench = "上午"ElseIf b >= 12 And c >= 0 Thenb = b - 12ch = "下午"End IfEnd IfLabel3.Text = b & ":" & c & ":" & d & chEnd SubPrivate Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChangeda = CDate(TextBox1.Text)If CheckBox1.Checked = True ThenLabel1.Visible = TrueLabel1.Text = CStr(Format(a, "yyyy年MM月dd日"))End IfEnd SubPrivate Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChangeda = CDate(TextBox1.Text)If CheckBox2.Checked = True ThenLabel3.Visible = Trueb = Hour(a) :c = Minute(a) :d = Second(a)End IfEnd SubPrivate Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChangeda = CDate(TextBox1.Text)If CheckBox1.Checked = True ThenLabel2.Visible = TrueLabel2.Text = CStr(Format(a, "dddd"))End IfEnd SubPrivate Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChangedb = Hour(a)If RadioButton2.Checked = True ThenIf b <= 12 And c <= 0 Thench = "上午"ElseIf b >= 12 And c >= 0 Thench = "下午"End IfEnd IfLabel3.Text = b & ":" & c & ":" & d & chEnd SubEnd Class14．Public Class Form1Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, j As DoubleFor i = 1 To 500For j = i + 1 To 500If Math.Sqrt(i + j) = Fix(Math.Sqrt(i + j)) And Math.Sqrt(j - i) = Fix(Math.Sqrt(j - i)) ThenListBox1.Items.Add("自然数对：" & i & " " & j)End IfNextNextEnd SubEnd Class16．Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i As IntegerFor i = 1 To 1000If IsPerfect(i) = True ThenPerfect = Perfect & " " & iEnd IfNext iTextBox1.Text = "1到的完备数有：" & Chr(13) & PerfectEnd SubFunction IsPerfect(ByVal n As Long) As BooleanDim i As LongDim x As LongFor i = 1 To Int(n / 2)If n Mod i = 0 Thenx = x + iEnd IfNextIf x = n ThenIsPerfect = TrueElseIsPerfect = FalseEnd IfEnd FunctionEnd Class第四章6．Public Class Form1Dim A(4, 4) As IntegerDim B(4, 4) As IntegerDim C(4, 4) As IntegerPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim i, j As IntegerRandomize()For i = 0 To 4For j = 0 To 4A(i, j) = Int(Rnd() * 90) + 10myString = myString & CStr(A(i, j)) & " "NextmyString = myString & Chr(10)ListBox1.Items.Add(myString)myString = ""NextmyString = ""For i = 0 To 4For j = 0 To 4B(i, j) = Int(Rnd() * 90) + 10myString = myString & CStr(B(i, j)) & " "NextmyString = myString & Chr(10)ListBox2.Items.Add(myString)myString = ""NextEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, j As IntegerDim myString As String = ""For i = 0 To 4For j = 0 To 4C(i, j) = A(i, j) + B(i, j)myString = myString & CStr(C(i, j)) & " "NextmyString = myString & Chr(10)ListBox3.Items.Add(myString)myString = ""NextEnd SubEnd Class8．Public Class Form1Dim student(9, 1) As StringDim i As Integer = 0Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Clickstudent(i, 0) = TextBox1.Textstudent(i, 1) = TextBox2.TextListBox1.Items.Add(student(i, 0) & Space(2) & student(i, 1))ListBox1.Refresh()i = i + 1If i > 9 ThenButton1.Enabled = FalseEnd IfEnd SubPrivate Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChangedSelect Case ComboBox1.SelectedItemCase Is = "及格"ListBox2.Items.Clear()For i = 0 To 9If student(i, 1) >= 60 ThenListBox2.Items.Add(student(i, 0) & Space(2) & student(i, 1)) End IfNextCase Is = "不及格"ListBox2.Items.Clear()For i = 0 To 9If student(i, 1) < 60 ThenListBox2.Items.Add(student(i, 0) & Space(2) & student(i, 1)) End IfNextEnd SelectEnd SubEnd Class10Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadCheckedListBox1.Items.Add("方便面 1.5")CheckedListBox1.Items.Add("口香糖 1.0")CheckedListBox1.Items.Add("火腿肠 1.2")CheckedListBox1.Items.Add("优酸乳 2.8")CheckedListBox1.Items.Add("可乐 1.4")CheckedListBox1.Items.Add("瓜子 3.0")CheckedListBox1.Items.Add("牙膏 2.1")CheckedListBox1.Items.Add("洗衣粉 5.8")End SubPrivate Sub MixedControls_Click(ByVal sender As System.Object, ByVal e As _System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click Dim i, j As IntegerSelect Case DirectCast(sender, Button).NameCase For i = 0 To CheckedListBox1.CheckedItems.Count - 1If CheckedListBox1.CheckedItems.Count <> 0 ThenFor j = 0 To CheckedListBox1.CheckedItems.Count - 1CheckedListBox2.Items.Insert(j,CheckedListBox1.CheckedItems(i).ToString)CheckedListBox1.Items.RemoveAt(i)Next jEnd IfNext iIf CheckedListBox1.Items.Count = 0 ThenButton1.Enabled = FalseButton2.Enabled = FalseEnd IfButton3.Enabled = TrueButton4.Enabled = TrueCase For i = 0 To CheckedListBox1.Items.Count - 1CheckedListBox2.Items.Add(CheckedListBox1.Items.Item(i)) NextCheckedListBox1.Items.Clear()Button1.Enabled = FalseButton2.Enabled = FalseButton3.Enabled = TrueButton4.Enabled = TrueCase For i = 0 To CheckedListBox1.CheckedItems.Count - 1If CheckedListBox2.CheckedItems.Count <> 0 ThenFor j = 0 To CheckedListBox2.CheckedItems.Count - 1 CheckedListBox1.Items.Insert(j,CheckedListBox2.CheckedItems(i).ToString)CheckedListBox2.Items.RemoveAt(i)Next jEnd IfNext iIf CheckedListBox1.Items.Count = 0 ThenButton1.Enabled = FalseButton2.Enabled = FalseEnd IfButton3.Enabled = TrueButton4.Enabled = TrueCase For i = 0 To CheckedListBox2.Items.Count - 1CheckedListBox1.Items.Add(CheckedListBox2.Items.Item(i))NextCheckedListBox2.Items.Clear()Button1.Enabled = TrueButton2.Enabled = TrueButton3.Enabled = FalseButton4.Enabled = FalseEnd SelectEnd SubEnd Class12．Public Class Form1Public Enum colorsBlue = 1Green = 2Black = 3Red = 4Yellow = 5End EnumPrivate Sub MixedControls_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click, Label2.Click, Label3.Click, Label4.Click, Label5.ClickDim label_colors As colorsDim i As IntegerSelect Case DirectCast(sender, Label).NameCase label_colors = CType(Label1.TabIndex, colors)Case label_colors = CType(Label2.TabIndex, colors)Case label_colors = CType(Label3.TabIndex, colors)Case label_colors = CType(Label4.TabIndex, colors)Case label_colors = CType(Label5.TabIndex, colors)End SelectSelect Case label_colorsCase Is = colors.BlueLabel1.BackColor = Color.BlueCase Is = colors.GreenLabel2.BackColor = Color.GreenCase Is = colors.BlackLabel3.BackColor = Color.BlackCase Is = colors.RedLabel4.BackColor = Color.RedCase Is = colors.YellowLabel5.BackColor = Color.YellowEnd SelectEnd SubEnd Class6．Public Class Form1Function fact(ByVal n As Integer) As IntegerFor n = 1 To 30Randomize()fact = CInt(Int(100 - 1 + 1) * Rnd() + 1)ListBox1.Items.Add(CStr(fact))NextEnd FunctionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickfact(30)End SubEnd Class7Public Class Form1Function fact1(ByVal n As Integer) As Integer Dim i, j, k As Integeri = TextBox1.Textj = TextBox2.TextIf i > j Thenk = jElse : k = iEnd IfWhile (i Mod k <> 0 Or j Mod k <> 0)k = k - 1End WhileTextBox3.Text = kEnd FunctionFunction fact2(ByVal n As Integer) As IntegerDim a, b, c As Integera = TextBox1.Textb = TextBox2.TextIf a > b Thenc = aElse : c = bEnd IfWhile (c Mod a <> 0 Or c Mod b <> 0)c = c + 1End WhileTextBox4.Text = cEnd FunctionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickfact1(1)fact2(1)End SubEnd Class8Public Class Form1Function fact(ByVal n As Integer) As IntegerDim i As IntegerFor i = 1000 To 9000If i Mod 17 = 0 And i Mod 37 = 0 Thenfact = iListBox1.Items.Add(CStr(fact))End IfNextEnd FunctionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickfact(1)End SubEnd Class9Public Class Form1Function fact(ByVal n As Integer) As IntegerDim i, total, j As Integerfact = 1For j = 2 To 10total = 1For i = 1 To jtotal = total * iNextfact += totalNextTextBox1.Text = factEnd FunctionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickfact(1)End SubEnd Class10Public Class Form1Public Sub count()Dim chSub As CharDim strIn As StringDim i As IntegerDim dx, xx, sz, qt As Integer strIn = TextBox1.TextFor i = 0 To strIn.Length - 1 chSub = strIn.Chars(i)Select Case chSubCase"A"To"Z"dx = dx + 1Case"a"To"z"xx = xx + 1Case"1"To"9"sz = sz + 1Case Elseqt = qt + 1End SelectNextTextBox2.Text = dxTextBox3.Text = xxTextBox4.Text = szTextBox5.Text = qtEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickcount()End SubEnd Class13Public Class form1Dim h, w As IntegerPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Loadh = PictureBox1.Heightw = PictureBox1.WidthEnd SubPrivate Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e _As System.EventArgs) Handles NumericUpDown1.ValueChangedPictureBox1.Height = h * NumericUpDown1.Value * 0.1PictureBox1.Width = w * NumericUpDown1.Value * 0.1End SubPrivate Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e _As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMoveMe.Cursor = Cursors.WaitCursorEnd SubEnd Class。