选择结构的应用和循环结构的应用
发布网友
发布时间：2022-04-23 06:20
共2个回答
热心网友
时间：2023-08-31 02:05
Private Sub Command1_Click()
MsgBox IIf(Val(Text1) > Val(Text2), Text1 & "、" & Text2, Text2 & "、" & Text1)
End Sub
Private Sub Command2_Click()
For i = 1 To 100
If i Mod 2 = 0 Then
os = os + i
Else
js = js + i
End If
Next
MsgBox "奇数：" & js & "，偶数：" & os
End Sub
热心网友
时间：2023-08-31 02:05
你是学生吧，这个是最基础的东西，要自己掌握的，在说了我也不好把代码贴出了啊
