作业帮VB,MOD算法中的负数算法
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/16 20:43:31
J ֒TJ`C˂<[RpէI7߾?h\oB_KA4$$[ex#S-㤀%Ñ:Q:Ii L.S8Yrfvp ' k]s73Ydw&)%IsC6 \Lծ tRnDݎ\ -Z(Vx|Y(mnb3"w> Z89a|.M|heq3^5C; Вsu c 6-
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、记录数字是便于检查数字是否输入错误.若把这两个功能去掉,程序虽然变得简短,并能完成基本要求,但不能算一个完整的好程序.
已经发到指定邮箱中,请查收.