VB,MOD算法中的负数算法

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/29 20:14:52
VB,MOD算法中的负数算法VB,MOD算法中的负数算法VB,MOD算法中的负数算法VB,MOD算法中的负数算法ivateSubForm_Click()Form1.ClsDimAAsInteger,B

VB,MOD算法中的负数算法
VB,MOD算法中的负数算法

VB,MOD算法中的负数算法
VB,MOD算法中的负数算法
ivate Sub Form_Click()
Form1.Cls
Dim A As Integer, B As Integer, St As String, N As Integer, S As Integer
N = 0
Do
St = InputBox("输入第" + Str(N + 1) + "个整数,0——结束", "", N + 1)
If IsNumeric(St) Then
S = Val(St)
If Int(S) = S Then
If S > 0 Then
A = A + 1
ElseIf S 0 Then
B = B + 1
Else
Exit Do
End If
N = N + 1
Print N; S; Space(3);
If N Mod 5 = 0 Then Print
Else
MsgBox "请输入整数!"
End If
Else
MsgBox "请输入数字!"
End If
Loop
Print
Print "您共输入"; N; "个数字,其中正数"; A; "个,负数"; B; "个."
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
Print "单击窗口开始."
End Sub
解释一下:1、本程序有较强的容错能力;2、记录数字是便于检查数字是否输入错误.若把这两个功能去掉,程序虽然变得简短,并能完成基本要求,但不能算一个完整的好程序.
已经发到指定邮箱中,请查收.