VisualBasicDotNet程序设计教程第2版课后实验题.docx

实验四 第二题 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click TextBox1.Font = New Font(幼圆, 15) Dim i As Integer For i = 1 To 9 TextBox1.Text = Space(i - 1) StrDup(18 - 2 * i, Chr(64 + i)) vbCrLf Next i End Sub End Class  第四题 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click L1.Font = New Font(幼圆, 15) Dim s As Single Dim a As Integer, n As Integer n = 1 a = 1 s = s + 1 / a Do a = a + n s = s + 1 / a n = n + 1 Loop While (1 / a 0.00001) L1.Text = Do While结构结果 s n 项 End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click L2.Font = New Font(幼圆, 15) Dim a As Integer Dim i As Integer Dim s As Single Dim n As Integer s = 0 n = 0 a = 1 For i = 1 To 448 s = s + 1 / a a = a + i n = n + 1 Next i L2.Text = For结构结果 s n 项 End Sub End Class  第七题 窗体1 （横向显示） Public Class Form1 Dim a%, n% Private Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar1.Scroll L1.Font = New Font(宋体, 10) L1.Text = a = Space(1) HScrollBar1.Value End Sub Private Sub HScrollBar2_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar2.Scroll L2.Font = New Font(宋体, 10) L2.Text = n = Space(1) HScrollBar2.Value End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click a = HScrollBar1.Value n = HScrollBar2.Value Dim i, temp, sum As Integer Dim s As String temp = 0 sum = 0 s = For i = 1 To n temp = temp * 10 + a sum = sum + temp s = s + Str