福建省2012年12月29日 VB考试 编程题(含答案).docVIP

福建省2012/12 /29 VB考试 编程题 第一题 （1） Private Sub Command1_Click() 不得删除本行注释 Dim year% year = Val(Trim(Text1.Text)) If year Mod 4 = 0 And year Mod 100 0 Or year Mod 400 = 0 Then Text2.Text = 是闰年 Else Text2.Text = 非闰年 End If End Sub （2） Private Sub Command1_Click() 不得删改本行注释 Dim N%, i% N = Val(Trim(Text1.Text)) Text2.Text = For i = 1 To N If Sqr(i) = Int(Sqr(i)) Then Text2.Text = Text2.Text i End If Next i Text1.Text = End Sub （3） Private Sub command1_click() 不得删改本行注释 Dim N%, i%, count% N = Len(Trim(Text1.Text)) For i = 1 To N If Mid(Text1.Text, i, 1) = 0 And Mid(Text1.Text, i, 1) = 9 Then count = count + 1 End If Next i Text2.Text = Str(count) End Sub （4） Private Sub Command1_Click() 不得删改本行注释 Dim score% score = Val(Text1.Text) Select Case score Case 0 To 59 Text2.Text = 不合格 Case 60 To 79 Text2.Text = 合格 Case 80 To 100 Text2.Text = 优良 Case Else Text2.Text = 成绩出错！ End Select End Sub （5） Private Sub Command1_Click() 不得删改本行注释 Dim N%, a%, b%, c% N = Val(Text1.Text) a = N \ 100 b = (N Mod 100) \ 10 c = N Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = N Then Label1.Caption = 是水仙花数 Else Label1.Caption = 不是水仙花数 End If End Sub 第二题 （1） Private Sub Command1_Click() 不得删改本行注释 Dim i% For i = 100 To 200 If Isprime(i) = False Then Text1.Text = Text1.Text i Next i End Sub （2） Private Sub Command1_Click() 不得删改本行注释 Text2.Text = Str(zh(Text1.Text)) End Sub （3） Private Sub command1_click() 不得删改本行注释 Dim i% Text1.Text = For i = 1 To 10 A(i) = Int(Rnd * 90 + 10) Text1.Text = Text1.Text A(i) Next i End Sub Private Sub Command2_Click() 不得删改本行注释 Dim i%, max%, min% max = A(1) min = A(1) For i = 2 To 10 If A(i) max Then max = A(i) If A(i) min Then min = A(i) Next i Text2.Text = max Text3.Text = min End Sub （4） Private Sub Command1_Click() 不得删改本行注释 Dim a$ Text1.Text = Open App.path \” pdzm.txt For Input As #1 Do While Not EOF(1) Line Input #1, a Text1.Text = Text1.Text a Loop Close #1 End Sub Private Sub Command2_