VB2005课后习题解答.docVIP

第三章 1． Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim min As Integer Dim max As Integer Dim r1, r2, r3 As Integer min = Val(TextBox1.Text) max = Val(TextBox2.Text) If (max min) Then Randomize() r1 = CInt(Rnd() * Int(max - min + 1) + min) TextBox3.Text = r1 r2 = CInt(Rnd() * Int(max - min + 1) + min) TextBox4.Text = r2 r3 = CInt(Rnd() * Int(max - min + 1) + min) TextBox5.Text = r3 End If End Sub 2. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer Dim j, m, n, h, f, g As Integer i = TextBox1.Text j = i \ 100 m = (i - j * 100) \ 50 n = (i - j * 100 - m * 50) \ 20 h = (i - j * 100 - m * 50 - n * 20) \ 10 f = (i - j * 100 - m * 50 - n * 20 - h * 10) \ 5 g = (i - j * 100 - m * 50 - n * 20 - h * 10 - f * 5) \ 1 TextBox2.Text = j TextBox3.Text = m TextBox4.Text = n TextBox5.Text = h TextBox6.Text = f TextBox7.Text = g End Sub End Class 8． Public Class Form1 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim h, m As String Dim i As Integer i = ComboBox1.Text If i = 1 Then h = 星期一 m = Monday ElseIf i = 2 Then h = 星期二 m = Tuesday ElseIf i = 3 Then h = 星期三 m = Wednesday ElseIf i = 4 Then h = 星期四 m = Thursday ElseIf i = 5 Then h = 星期五 m = Friday ElseIf i = 6 Then h = 星期六 m = Saturday Else h = 星期日 m = Sunday En