vb语言程序设计001

《vb语言程序设计001》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第一题设计程序，从文本框中输入一个整数n（n<500），单击“处理”按钮是产生3个1~n的随机整数，并分别显示在3个标签中。程序如下：PrivateSubForm_Load()‘加载DimnAsInteger,aAsInteger‘定义随机变量DimbAsInteger,cAsIntegerRandomize‘使rnd函数产生不同序列的随机数n=Val(InputBox("请输入一个正整数n（n<500）"))'inputbox函数产生对话框供用户输入数值a=Int(n*Rnd)‘在小于n的数内随机选取一树值“下同”b=

2、Int(n*Rnd)c=Int(n*Rnd)Label1.Caption=a‘随机选取的数值n显示在标签上面“下同”Label2.Caption=bLabel3.Caption=cEndSub‘结束运行第二题设计程序，在窗体上建立5个文本框和1个命令按钮，利用4个文本框输入4个数，单击命乏按钮进行处理，求出这4个数中的最大数显示在第5个文本框中[提示]①数值的数据类型可以定义为单精度型；②可以参考例4.2的处理方法；也可以分两组数（2个数为一组）进行比较，再从两组数中的较大数中求出最大数.程序如下：PrivateSubC

3、ommand1_Click()'执行DimmAsSingle,aAsSingle'定义变量为单精度DimbAsSingle,cAsSingleDimdAsSinglea=Val(Text1.Text)'为变量赋值b=Val(Text2.Text)c=Val(Text3.Text)d=Val(Text4.Text)Ifa>bThen‘利用if与else语句来判断大小a与b的大小m=a'将较大值赋给mElse:m=bEndIfIfc>mThen'上步判断出的较大值与第三个值c进行比较m=cElse:m=mEndIfIfd>m

4、Thenm=dElse:m=mEndIf'结束if语句Text5.Text=m'在文本框5中显示最大值mEndSub'结束PrivateSubForm_Load()'加载Text1.Text=""'刚运行时文本内容为空“下同”Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""EndSub'结束第三题设计程序，在窗体上建立一个列表框Listl和一个“显示”命令按钮Commandl。列表框中已有5个列表项，依次为“表项1”~“表项5”。程序运行后，可以通过多次单击来选中多

5、个列表项。单击“显示”按钮，在窗体上输出所有选中的列表项，如图5.13所示程序如下：PrivateSubForm_Load()ShowList1.AddItem"表项一"List1.AddItem"表项二"List1.AddItem"表项三"List1.AddItem"表项四"List1.AddItem"表项五"EndSubPrivateSubcommand1_click()'“显示”Fori=0ToList1.ListCount-1'逐项判断IfList1.Selected(i)Then'选中的的表项显示在窗体上Pri

6、ntList1.List(i)EndIfEndSub第四题已知学号由8个数码组成，如11234301，其中从左算起前2位表示年级，第5个数码的表示学生类型，学生类型规定如下:2——博士生，3——硕士生，4——本科生，5——专科生设计程序，从文本框中输入一个字号，单击命令？按钮时进行处理，然后在另外两个文本框中显示该生的年级及学生类型（中文表示）程序如下：PrivateSubcommand1_click()'执行DimxAsString,nAsInteger,mAsString'定义相关变量x=Text1.Text'在第一

7、个文本框中输入x即学生的学号n=Val(Mid(x,5,1))'通过mid型函数选择出字符x的第五个字符，并转换为数值将值赋给nm=Left(x,2)'取x左边的两个字符Text2.Text=m'在第二个文本框里面显示mSelectCasen'利用selectcase语句进行判断Case2Text3.Text="博士生"Case3Text3.Text="硕士生"Case4Text3.Text="本科生"Case5Text3.Text="专科生"CaseElseText3.Text="学号无效"EndSelect'结束se

8、lectEndSub第五题编写程序，用数组建立一个8×8的矩阵，数组元素值是10~99范围内的随机整数，求解下列问题并输出结果:（1）求所有元素之和；（2）求各行元素之和；（3）.求主对角线元素之和；（4）求所有靠边元素之和程序如下：PrivateSubForm_Load()Dima(8,8)AsInteger,iA