1、(完整word版)福建省計算機二級VB編程題(完整word版)福建省計算機二級VB編程題PAGE PAGE8PAGE 8(完整word版)福建省計算機二級VB編程題編程題26-01N = Val Select Case N Case 80 To 100 = 優良 Case 60 To 79 = 合格 Case 0 To 59 = 不合格 End Select25-01Dim i%, s& N = Val s = 0 For i = 1 To N If i Mod 2 = 0 Then s = s + i Next i = Str(s)24-01Dim i As Integer N = Val

2、= For i = N To 1000 If i Mod 8 = 1 Then = & i & Next i23-01Dim i As Integer s = 0 N = Val For i = 1 To N s = s + i i Next i = s22-01Dim i%, n%, a As String * 1 n = 0 For i = 1 To Len a = Mid, i, 1) If a = 0 And a = 0 Then = 實數解 Else = 復數解 End If20-01N！S=1For i=1 to nS=s*iNext i1+1!+2!+3！+。+n！Dim i%,

3、 t&,n%,s&n=valt=1s=1For i=1 to ns=s*it=t+sNext iDim i As Integer, j As Integer, s As Long N = Val = Str(e)19-01Dim N As Integer, s As Single 保留 Dim i% N = Val s = 0 For i = 1 To N s = s + (-1) (i + 1) / i Next i = Str(s)18-01Dim i% = For i = 100 To 200 If i Mod 3 = 0 And i Mod 6 0 Then = & i & Next

4、i17-01Dim A(1 To 20) As Integer, i As Integer = = Randomize For i = 1 To 20 A(i) = Int(Rnd * 90 + 10) = & A(i) & = & IIf(A(i) = 65 And A(i) = 90, Chr(A(i) & , ) Next i27-02Private Sub Command1_Click()不得刪改本行注釋 Randomize = Int(Rnd * 9000 + 1000)End SubPrivate Sub Command2_Click()不得刪改本行注釋 Dim i%, s% s

5、= 0 For i = 1 To Len s = s + Val(Mid, i, 1) Next i = Str(s)End Sub23-02Private Sub Command1_Click()不得刪改本行注釋 Dim i As Integer = For i = 1 To Len = Mid, i, 1) & Next iEnd Sub22-02Private Sub command1_click()不得刪改本行注釋 Dim i%, chr As String * 1 = For i = 1 To Len chr = Mid, i, 1) If chr Then = & chr或者 If chr = Then = Replace, chr, ) Next iEnd Sub27-01Dim i% Dim n% n = Val For i = 1 To n = + Sjzf Next i Function Sjzf() As String Dim k As Integer Randomize k = Int(Rnd * 2) If k = 0 Then