VB语言程序设计001.docxVIP

第一题设计程序，从文本框中输入一个整数n（n500），单击“处理”按钮是产生3个1~n的随机整数，并分别显示在3个标签中。程序如下：Private?Sub?Form_Load()???????????‘加载????Dim?n?As?Integer,?a?As?Integer?‘定义随机变量????Dim?b?As?Integer,?c?As?Integer??Randomize???????????‘使rnd函数产生不同序列的随机数????n?=?Val(InputBox(请输入一个正整数n（n500）))????inputbox函数产生对话框供用户输入数值????????a?=?Int(n?*?Rnd)???????‘在小于n的数内随机选取一树值“下同”????b?=?Int(n?*?Rnd)????c?=?Int(n?*?Rnd)????????Label1.Caption?=?a??????‘随机选取的数值n显示在标签上面“下同”????Label2.Caption?=?b????Label3.Caption?=?cEnd?Sub?????????????????‘结束运行第二题设计程序，在窗体上建立5个文本框和1个命令按钮，利用4个文本框输入4个数，单击命乏按钮进行处理，求出这4个数中的最大数显示在第5个文本框中?????[提示]①数值的数据类型可以定义为单精度型；②可以参考例4.2的处理方法；也可以分两组数（2个数为一组）进行比较，再从两组数中的较大数中求出最大数.程序如下：Private?Sub?Command1_Click()??????????执行???Dim?m?As?Single,?a?As?Single???????定义变量为单精度???Dim?b?As?Single,?c?As?Single???Dim?d?As?Single?????a?=?Val(Text1.Text)????为变量赋值?????b?=?Val(Text2.Text)?????c?=?Val(Text3.Text)?????d?=?Val(Text4.Text)???If?a??b?Then???‘利用if与else语句来判断大小a与b的大小?????????m?=?a???????????将较大值赋给m???Else:?m?=?b???End?If??????If?c??m?Then??????上步判断出的较大值与第三个值c进行比较?????????m?=?c???Else:?m?=?m???End?If??????If?d??m?Then?????????m?=?d???Else:?m?=?m???End?If?????????????结束if语句???Text5.Text?=?m???????在文本框5中显示最大值mEnd?Sub????????????结束???Private?Sub?Form_Load()???????加载???Text1.Text?=?????????刚运行时文本内容为空“下同”???Text2.Text?=????Text3.Text?=????Text4.Text?=????Text5.Text?=????End?Sub???????????????结束第三题设计程序，在窗体上建立一个列表框Listl和一个“显示”命令按钮Commandl。列表框中已有5个列表项，依次为“表项1”~“表项5”。程序运行后，可以通过多次单击来选中多个列表项。单击“显示”按钮，在窗体上输出所有选中的列表项，如图5.13所示 程序如下：Private?Sub?Form_Load()???????????????????????Show????List1.AddItem?表项一????List1.AddItem?表项二????List1.AddItem?表项三????List1.AddItem?表项四????List1.AddItem?表项五End?SubPrivate?Sub?command1_click()????“显示”??For?i?=?0?To?List1.ListCount?-?1???逐项判断???If?List1.Selected(i)?Then选中的的表项显示在窗体上???????Print?List1.List(i)??????End?IfEnd Sub第四题已知学号由8个数码组成，其中从左算起前2位表示年级，第5个数码的表示学生类型，学生类型规定如下:???2——博士生，3——硕士生，4——本科生，5——专科生??????设计程序，从文本框中输入一个字号，单击命令？按钮时进行处理，然后在另外两个文本框中显示该生的年级及学生类型（中文表示）程序如下：Private?Sub?comman