用 VBA代码写1加到100
时间: 2024-05-15 08:12:07 浏览: 9
以下是用 VBA 代码实现将1加到100的程序:
```
Sub sum()
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To 100
sum = sum + i
Next i
MsgBox "1+2+...+100=" & sum
End Sub
```
运行此代码后,会弹出一个消息框,显示结果为5050。
相关问题
用excel vba写一个加减乘除的代码
以下是一个简单的 Excel VBA 代码,可以实现加减乘除四则运算:
```
Sub Calculator()
Dim num1 As Double
Dim num2 As Double
Dim result As Double
Dim operator As String
num1 = CDbl(InputBox("请输入第一个数字:"))
num2 = CDbl(InputBox("请输入第二个数字:"))
operator = InputBox("请输入运算符 (+, -, *, /):")
Select Case operator
Case "+"
result = num1 + num2
Case "-"
result = num1 - num2
Case "*"
result = num1 * num2
Case "/"
If num2 = 0 Then
MsgBox "除数不能为零!"
Exit Sub
Else
result = num1 / num2
End If
Case Else
MsgBox "无效的运算符!"
Exit Sub
End Select
MsgBox "结果为:" & result
End Sub
```
运行这段代码后,程序会提示你输入两个数字和一个运算符,然后根据运算符计算结果并弹出一个提示框显示结果。需要注意的是,在除法运算中,如果第二个数字为零,程序会弹出一个警告提示框并退出运行。
用vba输出1到100间的质数
以下是一种使用 VBA 输出 1 到 100 之间质数的代码示例:
Sub PrintPrimes()
Dim i As Integer, j As Integer
For i = 2 To 100
For j = 2 To i - 1
If i Mod j = 0 Then
Exit For
End If
Next j
If i = j Then
Debug.Print i
End If
Next i
End Sub
该代码使用两重循环枚举数字,内部循环用于检查外部循环的数字是否为质数,如果是,则使用 Debug.Print 输出该数字。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)