vba30-32

三十 实例生成序列号

1 range(“a2”)=1 给a2单元格赋值为1
2 用for生成单元格地址

sub 生成地址()
  dim i&
  for i=2 to 100
    debug.print "a" & i
  next
end sub

3 用for填写序号

sub 填写序号()
     dim i&
     for i=2 to 100
       range("a" & i)=i-1
     next
       end sub

三十一 打擂台 求质数 猜数思路
1问题描述:依次输入5个数字，请输出这5个数字其中的最大值，并输出该最大值是在第几次输入的。

三十二 打擂台 求质数 猜数解法

1 &vbCr 加回车， &_ 续行符
2 exit for 强制退出循环
3 可定义一个布尔型作为标记，如：

Sub 打擂台()
    Dim input_num&, maxV&, maxI&, i&
    For i = 1 To 5
        input_num = Val(InputBox("请输入第" & i & "个数字:"))
        If i = 1 Then
            maxV = input_num
            maxI = 1
        ElseIf input_num > maxV Then
            maxV = input_num
            maxI = i
        End If
    Next
     '_续行符
    MsgBox "您输入的数字中最大的是" & maxV & vbCr & _
    "是在第" & maxI & "被输入的。"
End Sub

Sub 判断质数()

    Dim num As Long, i As Long, bPrime As Boolean
    '定义一个布尔型变量作为标记
    num = InputBox("请输入一个正整数")
    If num = 1 Then
        MsgBox "1 既不是质数也不是合数。"
    Else
        bPrime = True
        For i = 2 To num - 1
            If num Mod i = 0 Then
                bPrime = False
                Exit For '强制退出for 循环的语句
            End If
        Next
        If bPrime Then
            MsgBox num & "是质数."
        Else
            MsgBox num & "是合数。"
        End If
    End If
End Sub

Sub 猜数游戏()
    Dim guess&, num&, i&, br As Boolean
    num = WorksheetFunction.RandBetween(1, 10)
    MsgBox num
    br = False
    For i = 1 To 3
        guess = InputBox("请输入你猜的数：（1-10）")
        If guess = num Then
            br = True
            Exit For
        ElseIf guess < num And i < 3 Then
            MsgBox "猜小了，还有" & 3 - i & "次机会。"
        ElseIf guess > num And i < 3 Then
            MsgBox "猜大了，还有" & 3 - i & "次机会。"
        End If
    Next
    If br Then
        MsgBox "恭喜你用了" & i & "次就猜对了。"
    Else
        MsgBox "3次没猜对，游戏结束。"
    End If
End Sub