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

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

admin2015-10-23  37
问题 下面程序的功能是利用随机数函数模拟掷骰子。方法是每次随机产生一个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://jikaoti.com/ti/hBJ0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)