vb程序设计 实例 (1)

《vb程序设计 实例 (1)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、【例】用InputBox函数输入10个数于数组A中，输入后将这10个数显示在某文本框中，并统计正数的个数，正数的和，负数的个数，负数的和。用Print方法将结果打印在窗体上，设计界面如下图a所示，运行界面如下图b所示。a)设计界面b)运行界面图数据统计程序源码：PrivateSubForm_Click()DimNumber(1To10)AsIntegerDimZSCountAsInteger,FSCountAsIntegerDimZSSumAsInteger,FSSumAsIntegerForI=1To10Number(I)=Val(InputBox

2、("请输入第"&I&"个数","数据统计"))'接收数并保存在Number数组中Text1.Text=Text1.Text&Number(I)&""'将数显示于文本框Text1中IfNumber(I)>0Then'统计正数的个数和正数的和ZSCount=ZSCount+1ZSSum=ZSSum+Number(I)ElseIfNumber(I)<0Then'统计负数的个数和负数的和FSCount=FSCount+1FSSum=FSSum+Number(I)EndIfNextICurrentX=500:CurrentY=1100Print"正数的个数="

3、&ZSCount&"正数的和="&ZSSumCurrentX=500:CurrentY=1400Print"负数的个数="&FSCount&"负数的和="&FSSumEndSub【例】生成包含0～10之间的随机整数的两个矩阵，求两个矩阵的积。运行效果如下图所示。图求矩阵的积分析：M行N列的矩阵A与N行M列的矩阵B相乘，结果为一个M行M列的矩阵C，C矩阵中第I行第J列的元素，等于A矩阵中第I行的元素与B矩阵中第J列的元素分别相乘后再相加，即：设生成的第一个矩阵存于数组A中，同时显示于列表框List1中，第二个矩阵存于数组B中，同时显示于列表框List2

4、中，矩阵之积存于数组C中，同时显示于列表框List3中，代码如下：OptionExplicitDimMAsInteger,NAsInteger,A()AsInteger,B()AsInteger,C()AsIntegerPrivateSubForm_Load()DimIAsInteger,JAsInteger,S1AsStringM=InputBox("请输入A矩阵行数","矩阵相乘","")N=InputBox("请输入A矩阵列数","矩阵相乘","")ReDimA(1ToM,1ToN),B(1ToN,1ToM),C(1ToM,1ToM)Rando

5、mize'在列表框List1中生成包含0到10之间的随机整数的矩阵AList1.ClearForI=1ToMS1=""ForJ=1ToNA(I,J)=Int(11*Rnd)S1=S1&Format(A(I,J),"!@@@")NextJList1.AddItemS1NextI'在列表框List2中生成包含0到10之间的随机整数的矩阵BList2.ClearForI=1ToNS1=""ForJ=1ToMB(I,J)=Int(11*Rnd)S1=S1&Format(B(I,J),"!@@@")NextJList2.AddItemS1NextIEndSub

6、PrivateSubCommand1_Click()'求A矩阵与B矩阵的积C矩阵，并显示在列表框List3中DimIAsInteger,JAsInteger,KAsInteger,S1AsStringList3.ClearForI=1ToMS1=""ForJ=1ToMC(I,J)=0ForK=1ToNC(I,J)=C(I,J)+A(I,K)*B(K,J)NextKS1=S1&Format(C(I,J),"!@@@@@")NextJList3.AddItemS1NextIEndSubPrivateSubCommand2_Click()EndEndSub

7、【例】输入N名同学的成绩，显示于文本框Text1中，按成绩从低到高的次序排序，并将结果显示于另一个文本框Text2中。分析：这是一个排序问题，排序的方法有很多种，如比较交换法、选择排序法、冒泡排序法、插入排序法、希尔排序法、归并排序法等。不同的排序方法效率不同，这里分别介绍几种常用的排序方法。设计界面如下图a所示。运行时单击“输入成绩”按钮Command1，打开输入对话框，依次输入总人数和成绩，输入的成绩存于一维数组X中，同时显示在文本框Text1中；单击“排序”按钮Command2对成绩进行排序，排序结果显示在文本框Text2，如下图b所示。单击“

8、退出”按钮Command3结束运行。a)设计界面b)运行界面图成绩排序以下分别使用比较交换法、选择排序法和冒