VB考试程代码.docVIP

VB考试程序代码 例题5—6输入3个数a、b、c，求出其中最大数 Private Sub Command1_Click() Dim a As Integer, b As Integer Dim c As Integer, m As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a b Then m = a Else m = b End If If c m Then m = c Text4.Text = m End Sub 例题5—7输入三个数，讲它们从大到小排序 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a b Then t = a: a = b: b = t End If If a c Then t = a: a = c: c = t End If If b c Then t = b: b = c: c = t End If Text4.Text = a , b , c End Sub 例题5—8根据不同的时间断发出问候语。例如，0~12时，显示“早上好！” Private Sub Form_Load() Dim h As Integer Show h = Hour(Time) FontSize = 30: ForeColor = RGB(225, 0, 0) If h 12 Then Print 早上好！ Else If h 18 Then Print 下午好！ Else Print 晚上好！ End If End If End Sub 例题5—9 判断成绩的等级 输入学生成绩（百分制），判断该成绩的等级（优、良、中、及格、不及格） Private Sub Command1_Click() Dim score As Integer, temp As String score = Val(Text1.Text) temp = 成绩等级为： If score 0 Then Label2.Caption = 成绩出错 ElseIf score 60 Then Label2.Caption = temp + 不及格 ElseIf score = 79 Then Label2.Caption = temp + 及格 ElseIf score = 100 Then Label2.Caption = temp + 优良 Else Label2.Caption = 成绩出错 End If End Sub 例题5—13 求S=1+2+3+……+8 采用Print之间在窗体上输入结果，程序代码如下： Private Sub Form_Load() Show s = 0 For k = 1 To 8 s = s + k Next k Print s=; s End Sub 例题5—14 求T=8！=1*2*3×……8 Private Sub Form_Load() Show t = 1 For c = 1 To 8 t = t * c Next c Print T=; t End Sub 例题5—15 用∏/4=1-1/3+1/5-1/7+……级数求∏的近似值（去前5000项来进行计算）。采用Print之间在窗体上输入结果，程序代码如下： Private Sub Form_Load() Show Dim pi As Single, c As Integer, s As Integer pi = 0 s = 1 For c = 1 To 10000 Step 2 pi = pi + s / c s = -s Next c Print π=; pi * 4 End Sub 例题5—17 求S=1^2+2^2+……100^2,采用Do While……Loop语句。 采用Print之间在窗体上输出结果，程序代码如下： Private Sub Form_Load() Dim n As Integer, s As Long Show n = 1: s = 0 Do While n = 100 s = s + n * n n = n + 1 Loop Pri