VB上机试验Visual_Basic_期末考试.pdf

上机试验1.中英文切换程序。鼠标单击“中文”命令按钮后，在标签中显示中文“谢谢光临！”；如果单击“英文”命令按钮后，在标签中显示英文“Thanks for your attendance如图所示。窗体文件名为SYL2,工程文件 名也为SYl-2o上机试验二1.在窗口中添加一个标签，设置BorderStyle属性为有边框，编写 程序代码实现：单击窗体后，标签上显示如图所示的信息，标签 文字字体设置为隶书，文字大小20,加粗，倾斜，下画线。完成 后保存文件，窗体文件名为SY2-L工程文件名也为SY2。2.在窗体上，按下鼠标右键拖动，在窗体的标题栏中显示鼠标指针 的坐标位置。完成后保存文件，窗体文件名为SY2-2,工程文件 名也为SY2-2oPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 ThenForml.Caption=X&YEnd IfEnd Sub3.在窗体上，按下鼠标左键，窗体的背景色变为绿色，并显示“按 下鼠标键，触发MouseDown事件；松开鼠标左键，窗体的背 景色变为红色，并显示“松开鼠标键，触发MouseUp事件”。完成后保存文件，窗体文件名为SY2-3,工程文件名也为SY2-3。Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=1 ThenMe.BackColor=vbGreenMe.Print”按下鼠标键，触发MouseDown事件”End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)CisIf Button=1 ThenMe.BackColor=vbRedMe.Print”松开鼠标键，触发MouseUp事件”End IfEnd Sub4.运行程序时，按下某个键，在窗体上显示其Ascii值和对应的按 下的键名。如在键盘上依次按下“A”、“Y、7”、，”和“V”键的运行结果如图。窗体文件名为SY2-4,工程文件名为SY2-4。0 Form!QQOKeyAsci i值按下的雄名65A89Y55744f605Private Sub Form_Activate()Print Tab(l);nkeyascii;Tab(15);”对应的按下的键名”End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Key Ascii;Tab(15);Chr(Key Ascii)End Sub上机试验三1.在两文本框中输入数据，单击等号命令按钮，结果显示在标签中，如图所示。完成后保存文件，窗体文件名为SY3-2,工程文件名也为SY3-2。2.编写程序实现窗体一出现时(Load事件过程)，用Print语句在窗体第六行20 列处开始打印显示“Hello,World!”。完成后保存文件，窗体文件名为SY3-3,工程文件名也为SY3-3。(1.注意在开头加上 Forml.AutoRedraw=True!Private Sub Form_Load()Forml.AutoRedraw=TrueShowFor i=1 To 6lfi=6ThenPrint Tab(20);“hello,world!”ElsePrint”End Sub3.编写程序实现窗体一出现时(Load事件过程)，用P rint方法在窗体上显示计 算机系统当前的日期和时间，要求字体加粗、倾斜、下画线，字的颜色为红 色。窗体文件名为SY3-4,工程文件名也为SY3-4。Private Sub Form_Load()ShowForml.FontBold=TrueForml.ForeColor=vbRedForml.FontUnderline=TrueForml.FontItalic=TruePrint 系统当前的日期和时间；&NowEnd Sub上机试验四1.如图所示，编写程序代码实现单击命令按钮两文本框中内容的互换。工程文 件名：sy4T;窗体文件名：sy4TPrivate Sub C ommand l_Click()t=Tex tl.TextTex tl.Text=Tex t2.TextTex t2.Text=tEnd Sub2.添加2标签和2文本框，运行时在第一个文本 框中输入一个字符，然后按回车键，对应字符 的ASCH编码值显示在第二个文本框中。工程 文件名：sy4-2;窗体文件名：sy4-2P rivate Sub Form_KeyP ress(KeyAscii As Integer)KeyAscii=13Text2.Text=Asc(textl.text)E nd Sub提示：用KeyPress事件，回车键ASCII值为133.编写程序，调用InputBox函数输入存款的本金X和存款年限N,计算若干年 后本金和利息的总和是多少？假设年利率固定为4%,计算公式为：总计二本 金*(1+4%)N,计算的结果通过调用MsgBox函数显示。工程文件名：sy4-3;窗体文件名：sy4-3P rivate Sub Form_Click()D im x%,n%,s&x=InputBox(”请输入本金)n=InputBox(请输入年限)s=x*(1+0.04)*nMsgBox 本金与利息总和为：&sE nd Sub4.编写程序，单击命令按钮显示一个100,300之间的随机整数和一个随机大 写英文字母。在显示这些信息之前，清除掉旧信息。工程文件名：sy4-4;窗 体文件名：sy4-4P rivate Sub Command1 Click()D im x%,yCisx=Int(Rnd*201+100)y=Chr(65+Int(Rnd*26)P rint x;yE nd Sub上机试验五1.运行时单击窗口，调用Inputbox函数输入一个数，判断其是否为正整数，如果为正整数判断其奇偶性，把结果信息显示在MsgBox对话框上，保存窗 体 sy5T,工程 sy5T。2.运行时单击窗口，随机产生一个1000-9999间的整数，判断其是否是6的倍 数。用P rint方法把产生的随奇数和判断结果显示在窗口上。保存窗体 sy5-2,工程 sy5-2o3.设银行的定期存款利率为：一年期2.52%,二年期3.06%,三年期3.69%,五 年期4.14九 请输入存款金额，并选择存款年限，编程计算到期利息。保存 窗体sy5-3,工程sy5-3o上机试验六1.利用两种循环语句计算1+2+3+100的结果。保存窗体sy6T,理 sy6-l P rivate Sub Form_Click()D im s%,i%s=0For i=1 To 10s=s+iNext iP rint sE nd Sub2.利用一种循环语句计算12的阶乘。保存窗体sy6-2,工程sy6-2。P rivate Sub Form_Click()D im s&,i%s=1For i=1 To 12s=s*iNext iP rint sE nd Sub3.利用Inpubox函数输入2个正整数，求其最小公倍数，结果用Msgbox函数 显示。保存窗体sy6-3,工程sy6-3。P rivate Sub Form_Click()D im r%,m%,n%,s%,i%m=Vai（InputBox（请输入一个正整数）n=Vai（InputBox（请输入一个正整数）If m sy6_6 sy6-7,工程 sy6-5 sy6-6 sy6-7o第一题P rivate Sub Form_Click()D im i%,k%For i=1 To 9P rint Tab(i);For k=1 To 8P rint*；Next kNext iE nd Sub 第二题P rivate Sub FormClick()D im i%,k%For i=1 To 9P rint Tab(i*2-1)For k=1 To 17-(i-1)*2P rintNext kNext iE nd Sub上机试验七1.随机产生12个两位整数，放在数组中，用P rint方法显示出每个元素的值;同时计算这些随机数的平均值，用P rint方法显示出来。与第三题同理2.随机产生8个三位整数，放在数组中，用P rint方法显示出每个元素的值；同时找出这些随机数中的最小数，用P rint方法显示出来。P rivate Sub Form_Click()D im a(l To 12)As Integer,i%For i=1 To 12a(i)=Int(Rnd*90+10)P rint a(i);Next iMin=a(l)For i=2 To 12If a(i)Min Then Min=a(i)Next iP rint MinE nd Sub3.随机产生10个三位整数，放在数组中，用P rint方法显示出每个元素的值;同时对这些随机数按从小到大的顺序排序，排序后用P rint方法显示出来这些随机数。P rivate Sub Form_Click()D im a(l To 10)As Integer,i%,k%For i=1 To 10 a(i)=Int(Rnd*900+100)P rint a(i);Next iFor i=1 To 9Min=a(i)For k=i+1 To 10If a(k)=Forml.ScaleWidth Thendx=-dxE lself Labell.Left =0 Thendx=-dxE nd IfE nd Sub其他1.在输入框中输入正整数n,小尹东+Jj在 Labell 中。Private Sub form_Click()n=Vai(InputBox(“输入一个正整数”)Sum=0Prod=1For k=l lb n计算:将结果显示Prod=Prod*kSum=Sum+l/prodNext kPrint sumEnd Sub2.通过键盘输入n(15)求S=l!+3!+5!+(2*n-l)!的值Private Sub Form_Click()Dim s#,i%,j%,x%x=lnputBox(”请输入小于15的数”)Sum=0For i=1 To xs=1For j=1 To 2*i-1s=s*jNext jSum=Sum+sNext iPrint Sum End Sub3.在窗体上画圆：在窗体上按鼠标左键，以按键处为圆心，画出半径为200-500线条颜色为红色的圆。Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)RandomizeIf Button=1 Thenr=lnt(Rnd*301+200)Circle(X,Y),r,vbRedEnd IfEnd Sub4.用Line方法在图片框Picturel中画出下图所示的矩形波（要求画出9个周期）。Private Sub Form_Load()Picturel.ScaleMode=3Picturel.ScaleWidth=200Picturel.ScaleHeight=50End SubPrivate Sub Form_Click()Picture1.PSet(10,40)For i=1 To 9Picturel.Line-Step(0,-30)Picturel.Line-Step(10,0)Picturel.Line-Step(0,30)Picturel.Line-Step(10,0)Next iEnd Sub5.在窗体上矩形：在窗体上按鼠标右键，以按键处矩形的左上角，矩形的边长 为200-300间的随机数Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 ThenX1=lnt(Rnd*201+300)Y1=lnt(Rnd*201+300)Line(X,Y)-Step(X1,Y1),BEnd IfEnd Sub定义一个5X5的二维数组，其对角线元素为2。，其余元素为5P rivate Sub Form_Click()D im i As Integer,j As Integer,a(l To 5,1 To 5)As IntegerFor i=1 To 5For j=1 To 5If i=j O r i+j=6 Thena(i,j)-2E lse:a(i,j)=5E nd IfP rint Tab(3*j-1);a(i,j);Next jNext iE nd Sub倒计时系统D im t%P rivate Sub Commandl_Click()t=60*Vai(Textl)Timerl.E nabled=TrueE nd SubP rivate Sub Form_Load()Timerl.E nabled=FalseTimerl.Interval=1000E nd SubP rivate Sub Timerl_Timer()D im s%,m%t=t-1m=t 60s=t Mod 60Label 1=m&分&s&秒If t=0 ThenTimerl.E nabled=FalseMsgBox 时间到!E nd IfE nd SubD im R As Integer,G As Integer,B As IntegerP rivate Sub Form Load()VScrolll.Min=0VScrolll.Max=255VScroll2.Min=0VScroll2.Max=255VScroll3,Min=0VScroll3,Max=255VScrolll.LargeChange=20VScrolll.SmailChange=5VScroll2.LargeChange=20VScroll2.SmailChange=5VScroll3.LargeChange=20VScroll3.SmallChange=5E nd SubP rivate Sub VScrolll_Change0P icturel.BackColor=RGB(VScrolll.Value,VScroll2.Value,VScroll3.Value)E nd SubP rivate Sub VScroll2_Change()P icturel.BackColor=RGB(VScrolll.Value,VScroll2.Value,VScroll3.Value)E nd SubP rivate Sub VScroll3_Change()P icturel.BackColor=RGB(VScrolll.Value,VScroll2.Value,VScroll3.Value)E nd SubD im ti As Single,x As Integer,j As SingleP rivate Sub Form Click()j=1:ti=0For x=1 To 11111 Step 1j=j*xti=1/j+tiIf(1/j)(10-7)Then E xit ForNext xti=ti+1P rint tiE nd Sub