三十 实例生成序列号
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