程序编写.（VB）．通过InputBox函数生成一个输入对话框,如果用户输入了一个整数,则在窗体上显示该数的绝对值,否则,要求用户重新输入.3．有一分数序列2/1,3/2,5/3,8/5,……,求出这个序列的前20

Question

程序编写.（VB）
．通过InputBox函数生成一个输入对话框,如果用户输入了一个整数,则在窗体上显示该数的绝对值,否则,要求用户重新输入.3．有一分数序列2/1,3/2,5/3,8/5,……,求出这个序列的前20项的和.4．有一袋球（100到200之间）,如果一次数4个,则剩2个；一次数5个,则剩3个；一次数6个,则正好数完,求该袋球的

Answer 1

'第一个问题示例代码：Private Sub Form_Click() Do x = InputBox("请输入一个整数：") Loop Until IsNumeric(x) Print x & "的绝对值是：" & Abs(x) End Sub '最后一个问题示例代码：Private Sub Form_Click() For ...