实验九：随机生成10个不同的数

一、  实验目的

          随机生成10个不同的数

二、  实验内容

          随机生成10个不同的数的具体过程

          Private Sub Command1_Click()

          Dim a(10) as Integer

          Dim printstr As string

          a(1) = Int(Rnd()*100+1)

          Printstr = str(a(1))

          For i = 2 To 10

          mystr = "要"

          t = Int(Rnd()*100+1)

          For k = 1 To i - 1

          If t = "不要"

         Exit For

         End If

        next

        If mystr "不要" Then

         i = i - 1

        Else

         a(i) = t

       Print printstr

       End Sub

三、  心得体会

        这次作业随机输出10 个不同的数，有点难，但通过自己的思考与同学之间的探讨，通过上网查资料，终于完成了这个作业。感觉网络是个很有用的工具，学会利用网络查东西很重要，还知道了，遇到不会不懂得问题时自己要善于动脑思考，实在不会可以和同学交流一下，问同学们，合作的力量是很重要的。学会了知识很高兴，要好好学习VB语言

四、 遇到问题及解决方法

        遇到的问题是不会编写程序，不会修改程序，不会补充程序，VB学的很不好只懂得一点点，一些术语掌握的还是不大好

         解决方法是通过请教老师，和同学思考，上网查资料，查看课本等解决的问题