UC知道★急★电脑问题!!!
来源：百度知道 编辑：UC知道 时间：2024/05/30 07:23:53
完善程序(标有?????处)
1 判断奇偶数
Private Sub Command1_Click()
x=Val(Text1.Text)
If ?????? Then
MsgBox(" ??????? ")
Else
MsgBox(" ???????? ")
End If
End Sub
2 求和1+2+3+^^^^+100
Private Sub Command1_Click()
s=0
For i=1 To ??????? Step ??????
s=s+i
Next i
Text1.Text=s "输出计算结果"
End Sub
1 判断奇偶数
Private Sub Command1_Click()
x=Val(Text1.Text)
If ?????? Then
MsgBox(" ??????? ")
Else
MsgBox(" ???????? ")
End If
End Sub
2 求和1+2+3+^^^^+100
Private Sub Command1_Click()
s=0
For i=1 To ??????? Step ??????
s=s+i
Next i
Text1.Text=s "输出计算结果"
End Sub
1.
If x mod 2 = 1 Then
MsgBox"输入的数是偶数"
Else
MsgBox"输入的数是奇数"
End If
用x取模2,=1就是奇数,反之=0是偶数
用IIf也行
IIf(x mod 2 = 1,MsgBox"输入的数是奇数",MsgBox"输入的数是偶数")
2.
For i=1 To 100 Step 1
s=s+i
Next i
Text1.Text=s "输出计算结果"
End Sub
step 是步长,即每次循环变量加上几.
1.if x/2(不记得是不是这样。。反正就是能整除2的就是偶数。。之于格式是怎么写。。真的忘了。。)
MsgBox("输入的数是偶数")
MsgBox("输入的数是奇数")
2.For i = 1 To 100 Step 1
楼主问的这些是不是VB?