原创力文档- 1、本文档共16页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
【程序填空】
1. 功能：以下程序段用于实现矩阵转置，即将一个 n ×m 的矩阵的行和列互换
Private Sub Form_Click()
Const n = 3
Const m = 4
Dim a(n, m), b(m, m) As Integer
For I = 1 To n
For j = 1 To m
a(I, j) = Int(Rnd * 90) + 10
Next j
Next i
For I = 1 To n
For j = 1 To m
B(I,j)=a(I,j)
Next j
Next I
Print 矩阵转置前
For I = 1 To n
For j = 1 To m
Print a(I, j);
Next j
print
Next I
Print 矩阵转置后
For I = 1 To m
For j = 1 To n
Print b(I, j);
Next j
Print
Next I
End Sub
1. 功能：输入数字 1-7,显示其对应是星期几 (例 :输入 1,显示星期日 ,如果输入其它内容，
一律显示 输入错误 )
Private Sub Command1_Click()
dim x as integer
dim y as string
x=val(text1.text)
Select case x
case 1
y= 今天是星期日
case 2
y= 星期一
case 3
y= 星期二
case 4
y= 星期三
case 5
y= 星期四
case 6
y= 星期五
case 7
y= 星期六
Case else
y = 输入错误
end select
Text2.Text = y
End Sub
1. 功能：求 1!+2!+ …… +10! 的值。
Private Sub Form_Click()
T=1
s = 1
For I = 2 To 10
t = t * I
S=s+t
Next i
Print s
End Sub
1. 功能：以下程序段用于计算 n 的阶乘： n ！。（1 ！=1）
Public Function fac(n As Integer) As Integer
If n = 1 Then
fac = 1
Else
fac = n * fac(n-1)
End If
End Function
Private Sub Command1_Click()
Print fac(4)=; fac(4)
End Sub
1. 功能： 以下程序的功能是： 生成 20 个 200 到 300 之间的随机整数， 输出其中能被 5
整除的数并求出它们的和
Private Sub Command1_Click
文档评论（0）