福建省计算机二级VB编程题(共8页).doc

精选优质文档-倾情为你奉上编程题【1】 26-01N = Val(Text1.Text) Select Case N Case 80 To 100 Text2.Text = 优良 Case 60 To 79 Text2.Text = 合格 Case 0 To 59 Text2.Text = 不合格 End Select【2】 25-01Dim i%, s& N = Val(Text1.Text) s = 0 For i = 1 To N If i Mod 2 = 0 Then s = s + i Next i Text2.Text = Str(s)【3】 24-01Dim i As Integer N = Val(Text1.Text) Text2.Text = For i = N To 1000 If i Mod 8 =