快考VB了，有两道不会做请各位帮帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/11 03:27:39
1、请设计一个代码，使用户通过输入对话框，输入10个30000以内的整数，输出数中的最大数。
2、设计一个程序是计算1*2+2*3+3*4+4*5......+n*(n+1)的和（n<=60),当用户输入N后，单击“求”按钮后，输出正确结果。

代码如下:
1、

max = 0
For i = 1 to 10
kk: x = val( InputBox("请输入第"&i &"个数(30000以内)") )
if x > 30000 then goto kk
if x > max then max = x
Next i
Print max

2、
N = val( InputBox("请输入N") ）
sum = 0
For i = 1 to N
x = i * i+1
sum = sum + x
Next i
Print sum

参考，清华大学出版社的visualbasic程序设计基础，在树上有例题，照着葫芦画瓢即可解决。我以前学过考了个全国二级，都两年没看了，已经不是很熟了！

下面介绍大体解法：
第一个题可以用，逐个比较法，求出最大的；现定义数组，然后通过输入函数在循环体内，将数组赋值；在通过循环，假设第一个最大，然后与以后的逐个比较，然后得到最大数，然后print输出即可。（也可以用冒泡排序法将元素排好序后，升序的话 “数组名（9）”即为最大数，降序的话“数组名（0）”即为最大。
第二个题用for循环即可，外层用if n<60 or n=60 then .... 语句作条件,代码写到“求”按钮的click事件内即可。
解题方法比较笨，若另有高明，请多指教！