- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
常用算法总结—算法是对某个问题求解过程的描述 一、基本算法 1.累加、连乘 7、关于循环嵌套(一个循环体内又包含了一个完整的循环结构称为循环的嵌套.) Private Sub Form_Click() For i = 1 To 9 For j = 1 To 9 Print i; *; j; =; i * j; Next j Print Next i End Sub 执行本程序,窗体上将显示九九乘法表。 * *** ***** ******* 9.判断同构数(复习材料 P39 第7题) 10.找亲密对数 P111 例5-10 11.判断完数 实验P55 实验7-2 12.计算多项式 的和 实验P51 实验6-3 13.求一个正整数K的各位数字之和 复习材料P33 4.4练习题 第1题 14.报数问题 P114 例5-12 15.判断回文数 复习材料 P41 第10题 或P81 习题4 16.求自然数的因子 P81 习题5 Private Sub Command1_Click() Dim a As Integer, I% a = InputBox(输入一个自然数) Label1.Caption = Str(a) + 的所有因子: For I = 1 To a-1 If a Mod I = 0 Then List1.AddItem (Str(I)) End If Next End Sub Private Sub Command3_Click() For I = 1 To 4 H(I) = 0 For J = 1 To 5 H(I) = H(I) + A(I, J) Next J Text1 = Text1 Str(H(I)) vbCrLf Next I End Sub 6、同维数组对应元素的算术运算(+、-、*、/) Option explicit Option base 1 Private sub form_click() Dim X%(5,5), Y%(5,5), Z%(5,5) For I=1 to 5 for j=1 to 5 x(I,j)=int(100*rnd)+1 y(I,j)=int(100*rnd)+1 next j Next i For I=1 to 5 for J=1 to 5 Z(I,J)=X(I,J) + Y(I,J) next j Next i For I=1 to 5 for J=1 to 5 print Z(I,J); next j print Next I End sub 除法:除法操作必须先判别分母不为零,然后再进行对应元素的除法操作。 7、求数组靠边元素之和, 不靠边元素之和 P115习题6 Option base 1 Private sub form_click() Dim X%(4,5), s%(4), sum% For I=1 to 4 s(I)=0 for j=1 to 5 x(I,j)=i next j Next i For J=1 to 5 S(1)=S(1)+X(1,J) S(4)=S(4)+X(4,J) Next j 8,求数组对角线元素之积或和 Option base 1 Private sub form_click() Dim X%(4,4), S1,S2 S=1:S2=1 For I=1 to 4 for j=1 to 4 x(I,j)=i next j Next i For i=1 to 4 S1=s1*X(i,i) Next I print S End sub 9.求二维数组中每行/列元素的最大/最小 Option Explicit Option Base 1 Private Sub Form_Click() Dim A%(5, 8), I%, J% Dim MAXI%(5), MAXJ%(8) For I = 1 To 5 For J = 1 To 8 A(I, J) = Int(90 * Rnd) + 10 Print A(I, J); Next J Print Ne
文档评论(0)