[多项选择题] 在考生文件夹下有一个工程文件sjr3.vbp,相应的窗体文件为sjt3.frm。在窗体上有一个名称为Text1的文本框,其Muhiline属性为True。程序运行后,如果单击窗体,则用随机函数产生16个0到99的整数,并按4行4列的矩阵形式在文本框中显示出来,然后在文本框中输出矩阵对角线上的数。程序运行的情况如下图所示。这个程序不完整,请把它补充完整,并能正确运行。
试题源程序如下:
1 Option base 1
2 Private Sub Form Click( )
3 Dim Mat(4,4)As Integer
4 Dim N As Integer, M As Integer
5 Dim S As String, T As String
6 N=4
7 M=4
8 Randomize
9 S="初始矩阵为:"
10 For i=1 To N
11 S=S & vbCrLf
12 For j=1 To M
13 ’Mat()=Int(Rnd*100)
14 ’S=S & &""
15 Next J
16 Next i
17 S=S & vbCrLf &"矩阵对角线上的数为:"& vbCrLf
18 Print
19 T=""
20 For i=1 To N
21 For j=1 To M
22 ’If Then
23 ’T=T &a
正确答案:第一步:启动Visual Basic程序,打开考生文件夹下的工程文件。 第二步:单击窗体中任何位置,进入代码编辑状态,完善程序如下: A Dim S As String, T As String B N=D C M=D D Randomize E S="初始矩阵为:" F For j=A To N G S=S & vbCrLf H For j=A To M I Mat(i,j)=Int(Rnd*A00) A0 S=S & Mat(i, j) & "" AA Next j
参考解析:本题要求将随机函数产生的0~99之间的16个随机数按4行4列形式显示在文本框中,同时显示对角线上的数。第一个处应为:Mat(i,j),将随机数存在一个数组Mat(i,j)中。 第二个处应为:S=S & Mat(i,j)&"",将Mat(i,j)中的数存在变量S中。 第三个处应为:i=j,数组的行号和列号相同,即为对角线的位置。 第四个处应为:T=T & Mat(i,j)&"",将对角线上的数存在变量T中。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)