2. 计算机
  3. 请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶 矩阵。 　　Private Sub Command1 Click() 　　　　Dim s(6，6) 　　　　For i=1 To 6 　　　　　　　For j=1 To 6

请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶 矩阵。 　　Private Sub Command1 Click() 　　　　Dim s(6，6) 　　　　For i=1 To 6 　　　　　　　For j=1 To 6

admin2009-01-15  38
问题 请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶
矩阵。
　　Private Sub Command1 Click()
　　　　Dim s(6，6)
　　　　For i=1 To 6
　　　　　　　For j=1 To 6
　　　　　　　　　If i=j Then
     　　　　　【  】
　　　　　Else
    　【  】
　　　End If
　　　Print【  】
　　　Next j
　　　Print
　　　Next i
　　End Sub
选项
答案s(i，j)=1 , s(i，j) =0 , s(i，j)
解析 此程序段开始声明了一个二维数组，用两个For…Next语句嵌套使用为其赋值，当满足条件i = j时，s(i，j)=1，当不满足i=j时，s(i，j)=0；最后输出数据，即在屏幕上输出6×6阶矩阵。
转载请注明原文地址:https://kaotiyun.com/show/Fa2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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