level 1
easy,属于基本题。
2024年05月27日 11点05分
level 8
3
你能帮我不，给money
2024年05月28日 07点05分
@贴吧用户_J7V3ett 这个免费给，但不全，不要当伸手党
2024年05月28日 07点05分
@tbzp666 我说给你钱
2024年05月29日 06点05分
@tbzp666 你帮我做个考试题
2024年05月29日 06点05分
level 8
第一题:
Dim a(1 To 7, 1 To 7)
For i = 1 To 4
For j = 1 To 4
If i = 3 Then s1 = s1 + a(i, j)
If j = 4 Then s2 = s2 + a(i, j)
Next j, i
Print s1
Print s2
第二题:
Private Sub form_click()
n = Val(text1.Text)
label1.Caption = s(n)
End Sub
Private Function s(n As Integer) As Long
dim i As integer
For i = 1 To n
If i Mod 2 = 0 Then s = s + 2 * i * i
Next i
End Function
我想，函数过程也只能这样做了
第三题:
Dim a(20) As Integer
For i = 1 To 20
a(i) = Int(Rnd * (95 - 25 + 1)) + 25
If a(i) Mod 3 = 0 Then s = s + a(i)
Next i
Print s
2024年05月28日 07点05分
5
Dim a(1 To 7, 1 To 7)
For i = 1 To 4
For j = 1 To 4
If i = 3 Then s1 = s1 + a(i, j)
If j = 4 Then s2 = s2 + a(i, j)
Next j, i
Print s1
Print s2
第二题:
Private Sub form_click()
n = Val(text1.Text)
label1.Caption = s(n)
End Sub
Private Function s(n As Integer) As Long
dim i As integer
For i = 1 To n
If i Mod 2 = 0 Then s = s + 2 * i * i
Next i
End Function
我想，函数过程也只能这样做了
第三题:
Dim a(20) As Integer
For i = 1 To 20
a(i) = Int(Rnd * (95 - 25 + 1)) + 25
If a(i) Mod 3 = 0 Then s = s + a(i)
Next i
Print s