急急急！VBA问题！

显示全部楼层 · 2009-3-7 12:01:02

编写一个过程SS，完成下面过程
1）采用InputBox,请求用户输入一个在1-100之内的整数，如果输入错误，则弹出一个消息窗口（MsgBox），重新输入。
2）数据求从1到将输入的数据连续相加之和，用Msgbox显示。
就告诉我一道也行...

千问 · 2009-3-7 12:01:02

Dim BOX As String BOX = InputBox("请输入整数：", "输入", 1) If BOX = "" Then Exit Sub ElseIf IsNumeric(BOX) = False Then MsgBox "请输入数值型数据。", vbCritical, "Error" Exit Sub ElseIf Val(BOX)Int(Val(BOX)) Then MsgBox "请输入整数。", vbCritical, "Error" Exit Sub ElseIf Val(BOX) = 1 And Val(Ret)100 Then MsgBox "输入错误!请重新输入!!!",4...

千问 · 2009-3-7 12:01:02

‘一次完成两个问题sub ssss() Dim x, i, a x = InputBox("请输入一个数", "输入数据", "") If Not IsNumeric(x) Then MsgBox "请输入数字" Exit Sub End If For i = 1 To x a = i + a Next i ...

千问 · 2009-3-7 12:01:02

第一题xx:n = InputBox("输入")If n = 1 ThenElseMsgBox "输入错误"GoTo xx:End If第二题n=val（inputbox("输入数字"))for i = 1 to ns=s+inext imsgbox s...