Question

1.产生10个0到99的随机数，并求和 2.产生10到20个随机数，并求和，并保存到文档里。

两个问题，分别VB写程序。。急求。。明天上午就考试了~~·

Answer 1

Dim sumM As Integer, nM As Integer

Private Sub Command1_Click() '0-99的随机数
    Randomize
    Dim i As Integer
    Dim n As Integer, sum As Integer
    Cls
    Print "随机数", " 和"
    For i = 1 To 10
        n = Int(Rnd * 100)
        sum = n + sum
        Print n, sum
    Next
End Sub

Private Sub Command2_Click()  '10-20的随机数
    Randomize
    nM = Int(Rnd * 11) + 10
    sumM = nM + sumM
    Print nM, sumM
    '写入d盘下的1.txt文档
    Open "D:\1.txt" For Append As #1
    Write #1, nM & " "; sumM
    Close #1
End Sub