二级计算机VB考试常用代码(看完必过).docVIP

二级计算机VB考试代码 第一套 1 Private Sub Command1_Click() Dim sum As Long n = Val(Text1.Text) sum = 0 If n Mod 2 = 0 Then m = ? Else m = ? End If For i = 1 To m Step ? sum = sum + ? Next Label2.Caption = sum End Sub Private Function f(ByVal x As Integer) As Long y = 1 For i = 1 To ? y = y * i Next f = y End Function 2 Option Base 1 Private Sub Command1_Click() Dim days%, month%, year%, day1_1%, n% Static month_days As Variant month_days = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) For k = 0 To 6 If Option1(k).Value = True Then day1_1 = k End If Next k days = 0 month = Text2 year = Text1 month_days(2) = IIf(leap_year(year), 29, ? ) == 计算到要显示月历的月份之前共有多少天 == For k = ? To month - 1 days = days + month_days(k) Next k ==== 计算要显示月历的月份的第1天是星期几 ===== n = (days Mod 7 + day1_1) Mod 7 ================ 输出月历 ================== Picture1.Cls Picture1.Print SUN MON TUE WED THU FRI SAT For k = 1 To month_days(month) Picture1.Print Tab(5 * n + 1); k; n = n + 1 If n = 7 Then Picture1.Print n = ? End If Next k End Sub ============== 判断闰年 ================== Private Function leap_year( ? As Integer) As Boolean leap_year = (year Mod 4 = 0 And year Mod 100 0 Or year Mod 400 = 0) End Function Private Sub Option1_Click(Index As Integer) End Sub 3 Private Type rec name As String * 3 Math As Integer Chinese As Integer English As Integer End Type Dim a(20) As rec, num As Integer, n As Integer Private Sub readdata() Open App.Path \in5.txt For Input As #1 k = 1 Do While Not EOF(1) Input #1, a(k).name, a(k).Math, a(k).Chinese, a(k).English k = k + 1 Loop Close #1 num = ? End Sub Private Sub Command1_Click() n = 1 putdata n End Sub Private Sub Command2_Click()