文档介绍:[1] 26-01
N = Val
Select Case N
Case 80 To 100
="优良"
Case 60 To 79
="合格"
Case 0 To 59
="不合格"
End Select
⑵ 25-0[1] 26-01
N = Val
Select Case N
Case 80 To 100
="优良"
Case 60 To 79
="合格"
Case 0 To 59
="不合格"
End Select
⑵ 25-01
Dim i%, s&
N = Val
s = 0
For i = 1 To N
If i Mod 2 = 0 Then s = s + i
Next i
=Str(s)
【3】24-01
Dim i As Integer
N = Val
=""
For i = N To 1000
If i Mod 8 = 1 Then = & i & ""
Next i
【4】23-01
Dim i As Integer
s = 0
N = Val
For i = 1 To N
s = s + i a i
Next i
=s
【5】22-01
Dim i%, n%, a As String * 1
n = 0
For i = 1 To Len
a = Mid, i, 1)
If a >= "0" And a <= "9" Then n = n + 1
Next i
=Str(n)
【6】21-01
Dim a As Double, b As Double, c As Double ' 保留本行定义 a =
Val b = Val c = Val
If b 人 2 - 4 * a * c >= 0 Then ="实数解" Else ="复数解" End If 【7】20-01
N!
S=1
For i=1 to n
S=s*i
Next i 1+1!+2!+3 ! +o o o +n! Dim i%, t&,n%,s& n=val t=1 s=1
For i=1 to n s=s*i t=t+s
Next i
Dim i As Integer, j As Integer, s As Long N = Val =Str(e) 【8】19-01
Dim N As Integer, s As Single'保留
Dim i% N = Val
s = 0
Fori = 1 To N
s = s + (-1) ' (i + 1) / i
Next i
=Str(s)
【9】18-01
Dim i%
=""
For i = 100 To 200
If i Mod 3 = 0 And i Mod 6 <> 0 Then = & i & " 1 Next i
【10】 17-01
Dim 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(