孙俏版VB45章答案.docx

4.1代码Private Sub Text1_Change()If Len(Text1.Text) > 15 ThenText2.SetFocusEnd IfEnd Sub实验结果4.2题目在窗体上有3个名称分别为Text1、Text2和Text3的文本框，一个名称为C1，标题为"计算"的命令按钮，如图4-4所示。要求程序运行后，在Text1和Text2中分别输入两个整数，单击"计算"按钮后，可把两个整数之间的所有整数（含两个整数）累加起来并在Text3中显示。代码Dim a%, b%, c%Private Sub Command1_Click()a = Text1.Textb = Text2.Textc = ((b - a + 1) * (b + a)) / 2Text3.Text = Val(c)End Sub实验结果4.3题目代码Dim a%, s%Private Sub Command1_Click() s = 0 For a = 100 To 200 If a Mod 3 = 0 Then s = s + a End If Next a Text1.Text = sEnd Sub实验结果4．4题目代码Dim sum As Integer, N As IntegerPrivate Sub Command1_Click()If N <= 0 ThenMsgBox "重新输入"ElseFor i = 1 To Na = Val(InputBox("输入学生的visual basic 成绩"))sum = sum + aNext iEnd IfLabel1.Caption = sum/NEnd SubPrivate Sub Text1_Change()N = Val(Text1.Text)End Sub实验结果4.5题目代码Dim n As Integer, s As VariantPrivate Sub Form_click()For i = 1 To nb = 1 For j = 1 To i b = b * j Next j s = s + (2 * i - 1) / b Next i Print sEnd SubPrivate Sub Text1_Change()n = Val(Text1.Text)End Sub实验结果代码Dim s As Variant, t As VariantPrivate Sub Form_click()For i = 1 To 100b = 1 For j = 1 To i b = b * j Next j If (2 * i - 1) / b < t Then Exit For Else s = s + (2 * i - 1) / b End If Next i Print sEnd SubPrivate Sub Text1_Change()t = Val(Text1.Text)End Sub5.1题目代码Private Sub Command1_Click() Dim a(1 To 5) As Integer, b(1 To 4) As Integer, c(1 To 9) As Integer Dim i As Integer, j As Integer, k As Integer, t As Integer k = 1 For i = 1 To 5 a(i) = 2 * i - 1 c(k) = a(i) k = k + 1 Next i For i = 1 To 4 b(i) = 2 * i c(k) = b(i) k = k + 1 Next i Print "合并后C的值是:" For i = 1 To 8 For j = i + 1 To 9 If c(j) < c(i) Then t = c(j) c(j) = c(i) c(i) = t End If Next j Next i For i = 1 To 9 Print c(i) Next iEnd Sub实验结果5.2题目代码Option ExplicitPrivate Sub Command1_Click() Dim arr(1 To 10),