【VBA初级201202班】练习题4(已开贴)

7711

本题只限VBA初级201202班同学练习
上交请注明：练习名＋学号+论坛ID(有附件的也要注明)
本帖开帖前仅作者可见，每位同学只能占一个楼层．如有更改请在原楼层直接更改
水贴必扣

1.请用3个不同的循环语句将A1到A10单元格中行数为偶数的(如A2,A4......)值为"EP"

自由发挥(每对一个2BB+2经验)

2.请用循环语句生成一个10内的加法表

自由发挥(4BB+4经验)

7711

占
1\
HH:
x = x + 1
If x Mod 2 = 1 Then x = x + 1
Cells(x, "A") = "EP"
If x < 10 Then GoTo HH:
2\
    For i = 2 To 10 Step 2
        Cells(i, 1) = "EP"
    Next

sally萨莉

Sub 练习4()
    Dim xr As Integer
    Dim ymod
    For xr = 1 To 10
        ymod = Range("a" & xr).Row Mod 2
        If ymod = 0 Then
            Range("a" & xr) = "EP"
        End If
    Next xr
End Sub
Sub 练习41()
    Dim xr As Integer
    Dim rg As Range
    Dim ymod
    For Each rg In Range("a1:a10")
        ymod = rg.Row Mod 2
        If ymod = 0 Then
            rg = "EP"
        End If
    Next rg
End Sub
Sub 练习42()
    Dim xr As Integer
    Dim rg As Range
    Dim ymod
    xr = 1
    Do While xr < 11
        ymod = Range("a" & xr).Row Mod 2
        If ymod = 0 Then
            Range("A" & xr) = "EP"
        End If
        xr = xr + 1
    Loop
End Sub

rmsc_kr

练习4
学号:B21:rmsc_kr
论坛ID:rmsc_kr

代码：

Sub 题1一1()
Dim x As Integer
For x = 1 To 10
If x Mod 2 = 0 Then Range("A" & x) = "EP"
Next
End Sub

Sub 题1一2()
Dim ra As Range
For Each ra In Range("A1:A10")
If ra.Row Mod 2 = 0 Then ra = "EP"
Next
End Sub

Sub 题1一3()
Dim x As Integer
Do While x < 10
x = x + 1
If x Mod 2 = 0 Then Cells(x, 1) = "EP"
Loop
End Sub

Sub 题2()
Dim x, y As Integer
100:
y = 0
x = x + 1
Do
y = y + 1
Cells(y, x) = IIf(x > y, "", y & "+" & x & "=" & y + x)
Loop Until y > 9
If x < 10 Then GoTo 100
End Sub

听学委说用跳转的方法，题2重新做了一下

hoogle

A15:hoogle   交作业

Sub 循环1()
Dim i%
For i = 1 To 10
    If i Mod 2 = 0 Then
    Cells(i, 1) = "EP"
    End If
Next
End Sub

Sub 循环2()
Dim i%
Do
i = i + 1
    If i Mod 2 = 0 Then
        Cells(i, 1) = "EP"
    End If
Loop Until i = 10
End Sub

Sub 循环3()
Dim i As Integer
Dim arr(10) As Integer
For i = 0 To 9
     arr(i) = i + 1
Next
For Each b In arr
b = b + 1
    If b Mod 2 = 0 Then
        Cells(b, 1) = "EP"
    End If
Next
End Sub

Sub 十以内的加法()
Dim i%, j%
For i = 1 To 10
    For j = 1 To i
    Cells(i, j) = j & "+" & i & "=" & i + j
    Next
Next
End Sub

望天打卦

第一题：
Sub 循环1()    'for next 循环
    Dim i%
    Range("a1:a10").ClearContents
    For i = 1 To 10
        If Cells(i, 1).Row Mod 2 = 0 Then
            Cells(i, 1) = "ep"
        End If
    Next
End Sub
Sub 循环2()
    Dim mycell As Range
    Dim myrange As Range
    Set myrange = Range("a1:a10")
    myrange.Clear
    For Each mycell In myrange
        If mycell.Row Mod 2 = 0 Then
            mycell.Value = "ep"
        End If
    Next
End Sub
Sub 循环3()
    Dim i%
    i = 1
    Range("a1:a10").Clear
    Do While i <= 10
       If Range("a" & i).Row Mod 2 = 0 Then Range("a" & i).Value = "ep"
      i = i + 1
    Loop
End Sub
第二题：
Sub jiafa()
    Dim i%, j%
    'On Error Resume Next
    Range("a1").CurrentRegion.Clear
    For i = 1 To 10
        For j = 1 To 10
            If i < j Then
                Cells(i, j) = ""
            Else
                Cells(i, j) = j & "+" & i & "=" & i + j
            End If
        Next
    Next
End Sub

tsigms

谢谢老师，谢谢老师

冠军欧洲2010

做下试试。。

hhl1984

练习4.zip (10.78 KB, 下载次数: 5)

2012-7-23 10:11 上传

点击文件名下载附件

zyj.Reborn

只会做一个，还不知道对不对。