填空题

以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。阅读该程序，并在【8】和【9】处填上正确的内容。
Private Sub Command1_ Click()
Dim d(6)
for i = 1 To 50
n = 【8】
d(n) = 【9】
Next i
for i = 1 To 6
Print d(i)
Next i
End Sub

【参考答案】

[8]Int(1+6* Rnd)
[9]d(n)+1

<上一题目录下一题>

热门试题

填空题

以下是一个判断一元二次方程ax2+bx+c=0根的方程的程序，请补充该程序。提示： ·当a＜＞0时有两个根．设delta=b2-4ac，当delta＞0时，有两个不同的实根．当delta=0时，有两个相同的实根。当delta＜0时，有两个不同的虚根。 ·当a=0，b＜＞0时，有一个根。 ·当a=0、b=0时，方程无意义。Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single Dim sb As Single Dim xb As Single Dim re As Single a = InputBox (“请输入a的值”) c = InputBox(“请输入c的值”) if 【10】 then delta = b ^2- 4 * a * c re = -b (2 * a) if 【11】 then sb = Sqr (delta) (2 * a) Print “方程有两个实根” Elseif delta = 0 then Print “方程有两个相等实根” Else xb = Sqr( - delta) (2 * a) Print “方程有两个虚要” End if Else if 【12】 then ygz = - b c Print “方程仅有一个根” Else print “方程无意义” End if End if End Sub

填空题

以下程序用来建立一个5×5矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果如下图所示。 Private Sub form Click() Dim s(5, 5)As Integer for N =1 To 5 for M = 1 To 5 if 【13】 Or 【14】 then S(N, M)=1 Else S(N. M)= 0 End if Next M Next N for N =1 To 5 for 【15】 Picture1. Print Tab(M *3); s(N, M); Next M Print Next NEnd Sub

相关试题