VB语言程序设计001.doc

第一题设计程序，从文本框中输入一个整数n（n500），单击“处理”按钮是产生3个1n的随机整数，并分别显示在3个标签中。程序如下：PrivateSubForm_Load()加载DimnAsInteger,aAsInteger 定义随机变量DimbAsInteger,cAsInteger Randomize使rnd函数产生不同序列的随机数n=Val(InputBox(请输入一个正整数n（nbThen 利用if与else语句来判断大小a与b的大小m=a 将较大值赋给mElse:m=bEndIfIfcmThen 上步判断出的较大值与第三个值c进行比较m=cElse:m=mEndIfIfdmThenm=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.13所示 程序如下：PrivateSubForm_Load()ShowList1.AddItem表项一List1.AddItem表项二List1.AddItem表项三List1.AddItem表项四List1.AddItem表项五EndSubPrivateSubcommand1_click() “显示”Fori=0ToList1.ListCount-1逐项判断 IfList1.Selected(i)Then 选中的的表项显示在窗体上PrintList1.List(i) EndIf End Sub第四题 已知学号由8个数码组成，如11234301，其中从左算起前2位表示年级，第5个数码的表示学生类型，学生类型规定如下:2博士生，3硕士生，4本科生，5专科生设计程序，从文本框中输入一个字号，单击命令？按钮时进行处理，然后在另外两个文本框中显示该生的年级及学生类型（中文表示）程序如下：PrivateSubcommand1_click() 执行DimxAsString,nAsInteger,mAsString定义相关变量 x=Text1.Text在第一个文本框中输入x即学生的学号 n=Val(Mid(x,5,1) 通过mid型函数选择出字符x的第五个字符，并转换为数值将值赋给nm=Left(x,2) 取x左边的两个字符Text2.Text=m在第二个文本框里面显示mSelectCasen 利用selectcase语句进行判断 Case2 Text3.Text=博士生 Case3 Text3.Text=硕士生 Case4 Text3.Text=本科生 Case5 Text3.Text=专科生 CaseElse Text3.Text=学号无效 EndSelect 结束select EndSub 第五题编写程序，用数组建立一个88的矩阵，数组元素值是1099范围内的随机整数，求解下列问题并输出结果:（1）求所有元素之和；（2）求各行元素之和；（3）.求主对角线元素之和；（4）求所有靠边元素之和 程序如下：PrivateSubForm_Load() Dima(8,8)AsInteger,iAsInteger DimjAsInteger,sAsIntegerShow RandomizeFori=1To8控制行数Forj=1To8控制列数 a(i,j)=Int(90*Rnd+10) 随机数存放在数组的i行j列中 NextjNextis=o合计前清0Fori=1To8Forj=1To8s=s+a(i,j) NextjNextiPrint所有元素之和:;sPrintFori=1To8s=o Forj=1To8控制列数 s=s+a(i,j) 累加同一行元素值NextjPrint第;i;行元素之和:;s输出当前行元素之和（下同）NextiPrintFori=1To8s=os=s+a(i,i)NextiPrint主对角线元素之和:;sPrints=oFori=1To8 Forj=1To8 Ifi=1Ori=8Orj=1Orj=8Thens=s+a(i,j) EndIf NextjNextiPrint所有靠边元素之和:;sEndSub第六题设计有两个窗体的程序，运行开始时只显示Form2窗体，单击Form2上的C2按钮时，显示Form1窗体；单击Form1窗体上的C1按钮时，则Form1窗体消失。把Form2设置为启动对象，C1，C2按钮的标题分别为“隐藏”和“显示”. 窗体2的代码 窗体1的代码Private sub command2_click() private sub command1_click() Form1.show 显示 Form1.Hide 隐藏End sub End Sub 第七题 为标签增加一个弹出式菜单，该菜单中包含有“红色”、“蓝色”和“绿色”3个选项，当右击标签时弹出菜单，从菜单中选择相应的选项可以改变标签中文字的颜色 程序如下： Option Explicit 强制显式声明变量Dim sel1 As StringPrivate Sub form_load() Label1.FontSize = 20 标签字体大小为20 sel1 = 颜色标记End SubPrivate Sub mnu11_click() “红色” sel1 = 红色 End SubPrivate Sub mnu12_click() “绿色” sel1 = 绿色 End SubPrivate Sub Mnu13_click() “蓝色” sel1 = 蓝色 End SubPrivate Sub form_click()Select Case sel1 Case 红色 Label1.ForeColor = RGB(255, 0, 0) 标签字体颜色为红色（下同） Case 绿色 Label1.ForeColor = RGB(0, 255, 0) Case 蓝色 Label1.ForeColor = RGB(0, 0, 255) End Select 结束select语句End SubPrivate Sub Form_mouseup(button As Integer, shift As Integer, x As Single, y As Single) If button = 2 Then 检查是否右击，左击为1，右击为2 PopupMenu mnu10 mnu10是“颜色”菜单项 End If 结束if语句 End Sub Private Sub mnu20_Click() “退出“ End End Sub第八题在窗体上建立一斤通用对话框、一个文本框和2个按钮，如图10.14所示。按照以下要求设计程序:单击“选择文件”按钮时，弹出“打开文件”对话框，其默认路径为“C:”，默认列出的文件扩展名为.txt（文本文件）和.doc（文档文件），用户选定路径及文件名后，该路径及文件名显示在窗体的。 程序如下：PrivateSubCommand1_Click() 打开文件CommonDialog1.DialogTitle= 文件打开CommonDialog1.Filter=文本文件|*.txt文档文件|*.doc设置文件过滤器