计算机作业

今天学习了N多知识，脑子有点不够使了，各种复杂的程序，后来上机的作业是计算两位正整数的乘法结果，后来我捉摸了很久，硬是没有把正整数给弄出来。然后我果断毅然选择了练习实验8实验9.

上课我摘了一些笔记，这些程序还是不错的，而且很实用。代码如下：

1、计算1——100的整数加法。

首先要设置基本的按钮。然后就是输入代码：

Dim sum AS Integer

Dim index As Integer               或者写成

‘index=1

Sum=0                             For Index=1 To 100

While Index<=100                   Sum=Sum+Index

Sum =Sum+Index                    Next  Index

Wend

Print Str (Sum )            

旁边的是可以替换的，而且方法简单方便。

2、求了100个随机数的和。

Dim sum AS Integer

Dim index As Integer

Sum = 0

Dim Int100(100) As Integer

For Index =0 To 100-1 Step1

  Int100(Index) =Int(Rnd( )*100)

  Next Index

For Index =0 To 99

  Sum = Sum +Int100(Index0

Next

End Sub