(完整word版)福建省计算机二级VB编程题

1、编程题【 1】 26-01N = Val(Text1.Text)Select Case NCase 80 To 100Text2.Text = " 优良 "Case 60 To 79Text2.Text = " 合格 "Case 0 To 59Text2.Text = " 不合格 "End Select【 2】 25-01Dim i%, s&N = Val(Text1.Text)s = 0For i = 1 To NIf i Mod 2 = 0 Then s = s + iNext iText2.Text = Str(s)【

2、3】 24-011Dim i As IntegerN = Val(Text1.Text)Text2.Text = ""For i = N To 1000If i Mod 8 = 1 Then Text2.Text = Text2.Text & i & " "Next i【 4】 23-01Dim i As Integers = 0N = Val(Text1.Text)For i = 1 To Ns = s + i iNext iText2.Text = s【 5】 22-01Dim i%, n%, a As String * 1n = 0

3、2For i = 1 To Len(Text1.Text)a = Mid(Text1.Text, i, 1)If a >= "0" And a <= "9" Then n = n + 1Next iText2.Text = Str(n)【 6】 21-01Dim a As Double, b As Double, c As Double ' 保留本行定义a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If b 2 - 4 * a * c >= 0 ThenText

4、4.Text = " 实数解 "ElseText4.Text = " 复数解 "End If【 7】 20-013N！S=1For i=1 to nS=s*iNext i1+1!+2!+3 ！ +。 +n！Dim i%, t&,n%,s&n=val(text1.text)t=1s=1For i=1 to ns=s*it=t+1.0/sNext iDim i As Integer, j As Integer, s As LongN = Val(Text1.Text)Text2.Text = Str(e)【 8】 19-014Dim N As

5、 Integer, s As Single'保留Dim i%N = Val(Text1.Text)s = 0For i = 1 To Ns = s + (-1) (i + 1) / iNext iText2.Text = Str(s)【 9】 18-01Dim i%Text1.Text = ""For i = 100 To 200If i Mod 3 = 0 And i Mod 6 <> 0 Then Text1.Text = Text1.Text & i & " "Next i【 10】 17-01Dim A(1 T

6、o 20) As Integer, i As IntegerText1.Text = ""Text2.Text = ""RandomizeFor i = 1 To 20A(i) = Int(Rnd * 90 + 10)Text1.Text = Text1.Text & A(i) & " "5Text2.Text = Text2.Text & IIf(A(i) >= 65 And A(i) <= 90, Chr(A(i) & " ", "")Next i

7、【 11】 27-02Private Sub Command1_Click()'不得删改本行注释RandomizeText1.Text = Int(Rnd * 9000 + 1000)End SubPrivate Sub Command2_Click()'不得删改本行注释Dim i%, s%s = 0For i = 1 To Len(Text1.Text)s = s + Val(Mid(Text1.Text, i, 1)Next iText2.Text = Str(s)End Sub【 12】 23-02Private Sub Command1_Click()'不得删改

8、本行注释Dim i As IntegerText2.Text = ""For i = 1 To Len(Text1.Text)6Text2.Text = Mid(Text1.Text, i, 1) & Text2.TextNext iEnd Sub【 13】 22-02Private Sub command1_click()'''不得删改本行注释Dim i%, chr As String * 1Text3.Text = ""For i = 1 To Len(Text1.Text)chr = Mid(Text1.Text, i, 1)If chr <> Text2.Text Then Text3.Text = Text3.Text & chr'或者If chr = Text2.Text Then Text3.Text = Replace(Text1.Text, chr, "")Next iEnd Sub27-01Dim i%Dim n%n = Val(Text1.Text)For i = 1 To nLabel2.Caption = Label2.Caption + SjzfNext iFunction Sjzf() As Strin