下面程序的功能是利用随机数函数模拟掷骰子。方法是每次随机产生一个1~6的整数,相当于一次掷骰子。程序运行后,在Text2文本框中输入总投掷次数(例如10000),单击"开始投掷"按钮则进行模拟掷骰子,并把出现1~6的次数分别显示在文本框数组Text1(从上

admin2015-06-30  35

问题 下面程序的功能是利用随机数函数模拟掷骰子。方法是每次随机产生一个1~6的整数,相当于一次掷骰子。程序运行后,在Text2文本框中输入总投掷次数(例如10000),单击"开始投掷"按钮则进行模拟掷骰子,并把出现1~6的次数分别显示在文本框数组Text1(从上到下各文本框的下标为0~5)的各元素中,如图所示

Private Sub Command1_Click()
    Dim a(6)
    Randomize
    n = Int(Text2.Text)
    For k = 1 To n
        n = Int(Rnd * 6) + 1
        a(n)=___________________
    Next k
    For n = 0 To 5
        Text1(n).Text = a(n + 1)
    Next n
End Sub
该程序不完整,在横线上应填写的是

选项 A、n
B、a(n) + 1
C、a(n) + n
D、a(n) + k

答案B

解析 所填的是计数数组的自增,每当产生一个在1到6之间的某一随机数,当要在其所对应数组的下标中的元素值加1,。在对应的计数数组a(n)=a(n)+1,故选择B项。
转载请注明原文地址:https://kaotiyun.com/show/G0Qp777K
0

最新回复(0)