完善程序题(20道).doc

完善程序（共20道题）1.实现功能：在Text1、Text2、Text3中输入三个整数后，单击“输出最大值”按钮后，在Label3中显示这3个数中的最大值。Private Sub Command1_Click() Dim a, b, c, max As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a b Then max = a Else If c max Then Label3.Caption = CStr(max)End Sub答案： max=b max=c2.计算s=5+10+15+20的和s=For n=5 to 20 step s=s+nnext nprint s答案： 0 53.计算1-100之间偶数的积s=For n=100 to 1 step s=s*nnext nprint s